�u�a�`�Ń��N�� `Part 1�`

�}�N��ł��I �` Excel��pHomePage �`

�u�a�`�Ń��N�� `Part 1�`

��̃R�[�i�[�ł́A�u�a�`�̎g��𒆐S�ɂ��Љ�Ă��܂��B
��Ҏ��g�̌o��珑��Ă��܂��̂ŁA�{�Ƃ��Ƃ͈��R�g��
��Ă�g�R��邩��܂��B ��ꍇ�́A�ǂ��ȕ��M��܂��傤(^_^;

TOP �� u�a�`�Ń��N�� `Part 1�` �� [�v��i��̂P�j

��[�v��i��̂P�j

��̓��[�v��ɂ��Ă��b��Ă݂��Ǝv��܂��B

��"�J��Ԃ��"�ł��ˁB�J��Ԃ��̃p�^�[��
��ʂ肩��܂��ǂ��A�܂��̓|�s��[��For �` Next
��猩�Ă��Ǝv��܂��B�a�`�r�h�b��`��b�g�ł�
��Ƃ̂��邩��́A��ƂȂ��ɂȂ�̂ł͂�
��ł��傤��B��A��ƂȂ��ł��v�ł��B
�܂��͊ȒP�ȃg�R��Ă��܂��̂ŁB

�J��Ԃ��ڂɌ��ĕ��悤�ȃT��v��Ƃ��āA��
��Ȃ̂�p�ӂ��Ă݂܂��B

Sub Loop_Sumple()
	Dim Cell_No As Integer Sheets("Sheet1").Select For Cell_No = 1 to 10
		Cells(Cell_No,1).Value = Cell_No
	Next Cell_No
End Sub

��͂��܂��s��Ă݂ĉ��B
�ǂ��ł��H�`�P�`�`�P�O�̃Z��ɂP�`�P�O�̐��
��ˁB
��̗�ł́AFor�`Next��g��ăJ�E��^�̒l��ω��A
��̃J�E��^�l��g�p��āA�u��̓Z��ʒu�̎w��v�A�u��
�͒l�̐ݒ�v��s��Ă��܂��B
��ƃJ�^�C�ł��(^^; �܂�s�ԍ��Ɠ��l��
�Z��ɓ��Ă��Ă邾��ł��B

�ł́A�ׂ��ɂ��Č��Ă��܂��傤�B

�P�A�Q�s�ڂ͂��ł��ˁB
��^�̕ϐ�Cell_No��`��āA�l�̏o�͐�ł��Sheet1��
�J��Ă��܂��B

��č��̃��C��B
For Cell_No = 1 to 10 �� Next Cell_No �̕��܂��A
��̕��̊Ԃɂ͂��܂ꂽ��̏��J��Ԃ��Ƃɂ�
��܂��B�t�Ɍ��΁A�J��Ԃ��For��Next�ł͂��
�΂悢�Ƃ��Ƃł��ˁB

Cell_No�͂��Ŏg�p��J�E��^�ϐ��ł��B��ϐ��
��Đ��藧��̂ł��΂P��ł��̂ł��A��
�Ӗ��閼�O�ɂ��Ă��X��N�ł��B
��Ă��̕ϐ��̏��l�Ƃ��ĂP��Z�b�g��Ă��܂��B

�ł́A��܂ŌJ��Ԃ��̂��B
to 10�Ƃ��܂��B�܂�"�J�E��^�̒l��10�ɂȂ�܂�"�J��
�Ԃ��P�ł��B

Next�̂Ƃ��܂ŏ��Ƃ��ŁA��݂̃J�E��^�l��
to �̒l��r��܂��B��to�̒l�ɖ��Ȃ��΁A�J�E��^
�l��P�v��X��āAFor�ɖ߂�܂��B�J�E��^�l = to �ł��
�΁A��ŏ��I��܂��B

��ꂪFor �` Next��̏��̎d�g�݂ł��B

�C��Ȃ��΂Ȃ�Ȃ��̂́Ato 10 �C�R�[�� u�P�O��J
��Ԃ��v�ł͂Ȃ��Ƃ��Ƃł��B
�Ȃ��Ȃ�A�J�E��^�l�͕K��P��n�܂�Ƃ͌��܂��
��A�J�E��^�l�̑��P��Ƃ͌��Ȃ��ł��i��̕�
�@�ɂ��Ă͌�q�j�B

��肢��܂��ł��傤��H

��΁A��̊Ԃ̏��͑O�ɂ��̂Ɠ��ł��A
��v�ł��ˁB
"�Z��ʒu�iCell_No�s�A�P��j�̒l��Cell_No�̒l�ɂ��"��
�ł��B

�܂�

Cells(1,1).Value = 1 �E�E�E�ECells(10,1).Value = 10

�Ƃ��̂Ɠ��ʂ��邱�ƂɂȂ郏�P�ł�
��(^_^

�Ƃ��ƂŖ{��͂��傧�`�B

TOP �� u�a�`�Ń��N�� `Part 1�`

�u�a�`�Ń��N������ �`Part 1�`

�u�a�`�Ń��N�� `Part 1�`