�萔�E�R�����g���g���ď��������i���̂P�j
| Sub Goukei() | |
| Dim Gyo As Integer Sheets("Sheet1").Select Gyo = Range("A1").CurrentRegion.Rows.Count Cells(Gyo + 1,2).Select ActiveCell.FormulaR1C1 = "=SUM(R[-" & Gyo & "]C:R[-1]C)" |
|
| End Sub | |
No.011����R��ɓn���ď�L�̃v���O�������쐬�E������Ă��܂����B
���ꂼ���VBA�R�[�h�ɂ��Ă͉��ƂȂ��ł��������������������Ƃ�
�v���܂��B
�u�����܂ŏo�������A�����Ɠ����̂ɂǂ������������Ȃ����Ⴂ���Ȃ�
�́H�v�Ƃ��v���̕�������������ł��傤�B���������ǂ������Ȃ��
���傤���H(?_?)>
�܂��A����"�ォ��C�������h��"�Ƃ������Ƃł��B��ԓT�^�I�Ȃ�
�͂S�s�ڂ̃R�[�h�ł��B�����ł͂P�̃Z����I�����邱�ƂɂȂ��Ă�
�܂����A"���ڐ����������Ă��܂�"�B�����݂ł̎g�p���������l
�������ŗǂ���������܂��A���ێg��������悤�ɂȂ�ƐF
�X��肪�łĂ���������肷���ł��ˁB
�Ⴆ�����łQ��ڂ��Ē��ڎw�肵�Ă܂����ǁA�������̗�ɐV����
���ڂ��}������āA�W�v���Ȃ�������Ȃ��R��ڂɈړ�����
�Ƃ���Ƃǂ��Ȃ�ł��傤�H���R�������˂Ȃ�܂���B�R�[�h�s��
�����Ȃ������͂܂������̂ł����A���\�s�ɂ��n��R�[�h�ɂȂ�ƁA��
�������T���Ȃ���C�����Ȃ���Ȃ�܂���B����͍�ƌ���������
�܂����A��������������v���O����������ĉĂ��܂��L�P���������
���B
�����Łu�萔�v�̓o��ł��B"�ϐ�"�Ƃ����̂��A�������ɕω�����l��
�i�[��������ł���̂ɑ��A"�萔"�̏ꍇ��"�ω����Ȃ��l���i�[
�������"������܂��B
�Ⴆ�����Œ萔����"DataColmuns"�ŁA����ɂQ������錾����
��Ȃ�A Const Data_Columns = 2 �ƂȂ�܂��B�萔��錾����Ƃ�
�� Const �` �Ƃ����L�q�����܂��B�����Ă��� DataColumns ���Q�̑��
��Ɏg�������̂ł��B�������Ă����ΏW�v��̎w�肪�R��ڂɂȂ낤
�ƂS��ڂɂȂ낤�ƁA�C�R�[���̐��������ς���������ƂɂȂ�܂�
��(^^
���̂悤�Ȋ����ŁA"�����͒萔�ɂ��Ă������ق��������̂ł�"�Ǝv��
��������S�ď��������Ă݂܂����B
| 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 | |
�Q�̃R�[�h������ׂāA�ǂ����ǂ̂悤�ɕς���Ă��邩�B
�܂��ǂ����Ă�����ς����̂��A���l���Ă݂ĉ������B���̑����͎���
�ł��`�B
 |
 |
TOP �� �u�a�`���N������ �`Part 1�`