�萔�E�R�����g���g���ď��������i���̂Q�j
| Sub Goukei_new() | |
| Dim Data_Count As Integer Const Data_Rows = 1 Const Data_Columns = 1 Const Sum_Columns = 2 Const Sum_Rows = 1 Const Sheet_Name = "Sheet2" Sheets(Sheet_Name).Select Data_Count = _ Cells(Data_Rows, Data_Columns).CurrentRegion.Rows.Count Cells(Data_Count + Sum_Rows, Sum_Columns).Select ActiveCell.FormulaR1C1 = _ "=SUM(R[-" & Data_Count & "]C:R[-" & Sum_Rows & "]C)" |
|
| End Sub | |
�O��́u�萔�v�Ɋւ���������T�����Ƃ��Ă݂܂������ǁA�����Ȃ���
�v�킸���Ȃ��Ă��܂����Ƃ������ł��ˁB�����}���ō��Ƃ��Ȃ�āA
�萔�̐錾�������Ƃ��Ă��܂������ł�����B����Ō�Œ�������
�Ȃ����������肷���ł�����A����ς�L�z���͑厖�ł���i^_^;;�j
�����{�͓ǂ�ł�����̂́A���\���ȗ��ɑ����Ă镔��������܂���
�ŁA���̐�������������������s�K�ȕ���������ꂽ�Ƃ���
������������������ĉ������ˁB�������Ď���̃R�[�h���炵�āA�X�ɂ�
�������������Ƃ����̂������̉��ł�����B
�b����܂�����(^^;;����ł͖{��ցB
Dim Data_Count As Integer �ŏ��̍s�̂���ł����A�ŏ��ɍ����
�R�[�h�ł͕ϐ�Gyo�ƂȂ��Ă��܂����B���ꂾ�Ƃ��܂蕪����₷����
�O�Ƃ͌������������̂�����܂��̂ŁA�u�f�[�^���v�Ƃ����Ӗ��ł���
�ɕς��܂����B�ϐ��ɂ��Ă��萔�ɂ��Ă��A�P�����ł����̗p�͑����
���܂��̂ł����A�ォ�猩�Ė�����Ȃ��Ȃ�͕̂K���ł��B������
���Ă��������番����₷�����O�����܂��傤�B
����ł͎���"�萔"�̕������B
Const Data_Rows = 1 Const Data_Columns = 1 ���̂Q�́A"�f�[�^
�̊J�n�ʒu�������s�E��̒l���i�[����"���߂ɐݒ肵�܂����B����
�ɔ����A Range("A1").CurrentRegion �` �̕����� Cells(Data_Rows
, Data_Columns).�` �ɕύX���܂����B���̂悤�ɂ����ɁA�P�̒萔��
"A1"��錾����悤�ɂ��Ă��A�������\���܂���B�ǂ̂悤�Ȏw���
���邩�́A���̃R�[�h���l���ɓ���A"�ǂ��Ȃ��Ă���̂��s��������"
���l���Ă݂�K�v������܂��B
Const Sum_Columns = 2 �����"�ǂ̗���W�v���邩"�̎w��ł��ˁB
Const Sum_Rows = 1 �����"���v��\������s����̑��ΓI�ʒu"
�̎w��ł��ˁB���� Data_Count ���Q�O�ŁA���̒l���P�ł���
"=SUM(R[-" & Data_Count & "]C:R[-" & Sum_Rows & "]C)" �̎�
�� "=SUM(R[-20]C:R[-1]C)" �ƂȂ�܂�����A���݈ʒu����-1�`-20
�͈̔͂����v���鎮�ɂȂ�킯�ł��B Const Sheet_Name = "Sheet2"
����́A�Q�Ƃ���V�[�g�����ύX�ɂȂ��Ă������悤�ɁA�Ƃ肠������
�X���Ă��܂��B���x���V�[�g���ւ���悤�ȏ������l�����܂���
�ŁA�K�v�ɉ����Đݒ肵�������悢�ł��傤�B
���ꂼ��̒萔�̖����ɂ��ẮA�������肢�������܂����ł��傤
��?(^_^)
�v���O��������₷�������ŁA�����P�Y��ĂȂ�Ȃ��̂́A
"�K�ȃR�����g������"�Ƃ������Ƃł��傤�B
�R�����g�̕t�����́A���̐擪�� ' (�V���O���N�H�[�e�[�V�����}�[�N)��
����邾���ł��B��������ƕ����̐F���ς��A���̕����͏����Ώ�
����O����܂��i���̃}�[�N�����Y���ƁA�w���Ȋ����w�肳���
�����Excel�͉��߂��A�G���[�ɂȂ�܂��j�B
'�f�[�^�̊J�n�ʒu�w��
'�W�v����
�ȂǁA���̃R�[�h���ǂ�ȏ��������Ă���̂����A�����ȊO�̐l����
�Ă�������悤�ȃR�����g���ӎ����Ă���悤�ɂ��܂��傤�B
�ȏ�A�{���͂����܂ŁI
 |
 |
TOP �� �u�a�`���N������ �`Part 1�`