�ϓ�����f�[�^�ւ̑Ή��i���̂R�j
�O��͖{��ɓ��炸��ώ��炢�����܂���m(_ _)m
���āA�C����蒼���Đi�߂܂��傤�ˁB����ł͖{���̂���B
�u���L�̂悤�ȃf�[�^������A���ʂ̍��v���ʼn��s�ɕ\���������B
�������A�f�[�^�����͖���ω�����B�v
| A | B | |
| 1 | �̂�ٓ� | 534 |
| 2 | ���Ⴏ�ٓ� | 145 |
| 3 | ���̓��ٓ� | 304 |
| 4 | ���� | 152 |
| 5 | �J�c�J���[ | 130 |
| 6 | �~�b�N�X�ٓ� | 100 |
| 7 | �ē��ٓ� | 200 |
| 8 | �������ٓ� | 192 |
| 9 | �J�c�� | 150 |
�����A���Ȃ��Ȃ�ǂ��l���܂����H�Ƃ����Ă�VBA���n�߂�����
�ł�����A��̓I�ɂǂ������炢�����A�Ȃ�ĂƂ��܂ŋy�т܂���
��ˁB���v�ł��B�ŏ��͗����ǂ��Ȃ��猩�Ă��Ă���������
�Ό��\�ł��̂ŁB
�����Ă������炪���̌����ł��B<�l�����鏈���̗���>
�E�܂��s���𐔂��āA�f�[�^�̍ʼn��s�ׂ�B�f�[�^�̍ʼn��s
�{ �P�̈ʒu�ɍ��v��\��������悢�B
�E���v��Sum���ŋ��߂�
�ĂȊ����ł��傤���B�f�[�^�V�[�g��
�uSheet1�v�Ƃ��Ă����܂��B����Ȋ����ɂ��Ă݂܂����B
| 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 | |
�P�`�R�s�ڂ܂łŁA�u�ϐ� Gyo �̐錾�v���uSheet1��I���v��
�u�Z��A1����Ȃ����Ă���f�[�^�̌����i�s���j�𐔂���v�Ƃ���
���������Ă��܂��B����͑O�ɂ�����ʂ�ł��ˁB�S�s�ڂ͐V����
�o�Ă������߂ł��B���� Cells �͂P�̃Z����I������̂Ɏg����
���B
�u�ȁ[�B���ꂶ��Range(" ").Select���g���Ă���������Ȃ��́H�v
�Ƃ���������������������ł��傤�i�������Ƃ��j�B�m���ɏ����Ƃ���
�͓������Ƃ�����킯�ł����A�����ł�"�s�i���j�Ɨ�i���j���w�肵��
�Z����I������"���@�Ƃ��āA���̖��߂��g�p���Ă��܂��B
�����łP�o���܂��傤�BExcel�̎Q�ƌ`���͂Q��ނ���܂��B�u�`�P�`
���v�Ɓu�q�P�b�P�`���v�ł��B�u�`�P�`���v���Ă̂��ʏ햳�ӎ��̂�����
�g���Ă�`���ł��ˁB������"�s�ԍ��𐔎��ŁA��ԍ����A���t�@
�x�b�g�ŕ\������"�̂��Ƃł��B�ł�����Range("D3").select �Ƃ���
�`�P�`���̎Q�Ƃ��g�p���Ă���A�ƌ����܂��ˁB����ɑ��āu�q�P�b�P
�`���v��"�s�E��Ƃ��ɐ����ŕ\������"�ł��B�J���̂������͂��C��
�������m��܂��u�q�P�b�P�v�̂q��"Rows"�C�b��"Columns"�̂���
�ł��B���s����ŕ\���ł���킯�ł�����A����Ӗ����R�ł���ˁA
������������A���t�@�x�b�g�ɓǂݑւ���K�v���Ȃ��킯�ł�����B
�ŁA�b��߂��܂��ƁA����Cells �Ƃ������߂͂q�P�b�P���g���ăZ����
���肵�A�s���I�h����E�̖��߂����s����킯�ł��B��낵���ł���
�����H(^_^)
�����ł� Cells(Gyo + 1,2).Select �ƂȂ��Ă��܂��ˁB�܂��f�[�^��
�s���ׂĕϐ�Gyo�ɓ���A����ɂP���v���X���邱�ƂŁA�f�[�^��
���̂P���̍s��I�����Ă��܂��B���2�̂܂܂ł��ˁB
���̂悤�ɁA�s�𐔂��ăZ������肷��ɂ�Range����Cells��
�����g���₷�����߁A���͂�����g���Ă��܂��B
�ƁA�����܂ŏ������Ƃ���Ń`���b�g�����Ȃ�܂����̂ŁA���̑�����
����ɂ��܂��B�Ȃ�ׂ����������܂��̂ő҂��Ăĉ������ˁB�ł́B
 |
 |
TOP �� �u�a�`���N������ �`Part 1�`