For �` Next�̑���
�O���For �` Next���ɂ�郋�[�v����������Ă݂܂������A
���e�̕��͂��������������Ă܂����ł��傤���H
���[�v�����͂��܂��g���A�����R�[�h�̗ʂ�����܂����A
���₷�����Ȃ�܂��B
�A���f�[�^����͂������ꍇ�AExcel�ɂ́u�I�[�g�t�B���v
�@�\������܂���ˁH�}�N���œ������ʂ����Ȃ�A��
��For�`Next���g���Ă��A�I�[�g�t�B�����R�[�h�ŏ����Ă�
���ʂ͓��������-----�Ƃ������Ƃ͂���܂����A�Ⴆ��
Sub AutoFill_Sumple()
ActiveCell.FormulaR1C1 = "1"
Range("A1:A10").Select
Selection.DataSeries Rowcol:=xlColumns, Type:=_
xlLinear, Date:= xlDay, Step:=1, Trend:=False
End Sub
�Ƃ����̂ƁA
Sub ForNext_Sumple()
For Cnt = 1 To 10
Cells(Cnt,1).Value = Cnt
Next Cnt
End Sub
�Ƃ����̂ŁA�ǂ������������₷�����Ƃ������ƂɂȂ��Ă�
��̂��ȂƁB
������x�D�݂̍��͂��邩������܂��E�E�E(^^;
��������For�`Next�̕��������A�Ǝv���Ă��鎄�Ƃ��ẮA
���������g������������ׂ��ł���(^^;
�Ⴆ�ΐ���܂ł̗�ł��ƁA�Z���ʒu�̎w��ƃJ�E���^�ϐ�
�͓������̂��g���Ă����̂ŁA�J�n�͂`�P�̈ʒu����ANo��
�P����A�݂����ɂȂ��Ă܂������ǁA���ꂾ���ł͂Ȃ��̂�
���B
�ł́A�Z���b�S�̈ʒu����c�ɂP�`�P�O�̘A���f�[�^�����
�����ꍇ�͂ǂ����܂���B
���̏ꍇ�̓J�E���^�ϐ��̒l��s���悭�ؗp���Ă��܂��܂��B
�܂��Z���b�S��Cells(4,3)�Ȃ̂ŁA�J�n���S�ɂȂ������
�ł���ˁB
�J�E���^�ϐ��̒l���P�`�P�O�܂ŕω������܂��̂ŁA
Sub Sumple()
For Cnt = 1 To 10
Cells(Cnt + 3,3).Value = Cnt
Next Cnt
End Sub
�Ƃ����悤�ɂ���A�C�ӂ̈ʒu����A���f�[�^����͂ł�
�܂���ˁB�������������͂�������ł��B
���łɃZ���b�S���牡�����ɂQ�`�Q�O�܂ł̋�����A����
���ꂽ���ꍇ�B
�����ł��̂ŁA�J�E���^�͂Q����Up����悢�̂ŁA
For Cnt = 2 To 20 Step 2
�Ƃ��Ă��܂��B����Step�̌�ɂ����l�̕������A�J�E��
�^�����Z���Ă����܂��i�}�C�i�X���ƌ��Z�j�B
�����ăJ�E���^�̒l�����̂܂g���ƁA�Z���ւ̓��͂��P��
�ƂтɂȂ��Ă��܂��܂��̂ŁA�`���b�g�����ł���
Sub Sumple()
For Cnt = 2 To 20 Step 2
Cells(Cnt / 2 + 3,3).Value = Cnt
Next Cnt
End Sub
�ȂǂƂł����肵�܂�(^^;
�����A�J�E���^�ϐ��ƃZ���ʒu�̎w����������蕪����̂�
����A�Z���ʒu����̕ϐ��������P�p�ӂ���
Sub Sumple()
Dim CellRow As Integer
CellRow = 4
For Cnt = 2 To 20 Step 2
Cells(CellRow,,3).Value = Cnt
CellRow = CellRow + 1
Next Cnt
End Sub
�Ƃ����̂͂������ł��傤�� f(^^;
��͂��Ȃ��̃Z���X����B
�ł�ł�B
 |
 |
TOP �� �u�a�`���N������ �`Part 1�`