For �` Next�œ��t��A���\��
����ł́A�ꉞFor�`Next�̎d�グ�Ƃ������ƂŁA�P�����猎��
�܂ł̓��t��\������}�N��������Ă݂܂��傤�B
�Ƃ肠���������ł�"98�N�P��"�̓��t��\�������Ă݂܂��̂ŁA
�l�͌Œ�ŃZ�b�g���Ă��܂��܂��B
�܂��ŏ��͓��t���Z�b�g���邽�߂̕ϐ����`���܂��B
���O�͂��D���Ȃ��̂Ō��\�ł��B����Date_No�Ƃ����ϐ�����
���܂����B
�����ĕϐ��̌^�͓��t�^�ɂ��Ă����܂��傤
Dim Date_No As Date
����ŁADate_No�Ƃ����ϐ����錾����܂���
�����āA���̕ϐ��̏����l�Ƃ���"98/01/01"���Z�b�g���܂��B
Date_No = #98/01/01#
���C�Â��̕�������������Ǝv���܂����A"98/01/01"�ł�
�Ȃ�#98/01/01#�ł��邱�Ƃɒ��ڂ��ĉ������B���t�^�̏ꍇ
�͂����Ȃ�悤�ł��i�ʏ�̕�����Ƃ̋�ʂł��ˁj�B
�͂��A����ł͎��ۂ̉�ʑ���Ɉڂ�܂�
�܂��A�l��\������V�[�g���J���܂�
Sheets("Sheet1").Select
�����Ēl��\��������O�ɁA�O�̃f�[�^����U�N���A������
�̂ŁA
Range("A1:A31").Select
Selection.ClearContents
�Ƃ��܂��i�f�[�^���ǂ��ɕ\�������邩�ɂ���Ă�Range��
�w��͕ς��܂��̂ŁA�����ӂ��j�B
�����Ă��悢�惋�[�v�����̏o�Ԃł��ˁB
���t��A�����ĕ\���������킯�ł�����A�����l�ɂP����
���Ă��������ł��ˁB�ŁA�����͍ő�R�P���܂łł�����
�P�`�R�P���͈̔͂Œl��ω�������悢���ƂɂȂ�܂��B
����������
For i = 0 To 30
Cells(i + 1,1).Value = Date_No + i
Next i
�ɂ��܂��B
�u����H�P�`�R�P�܂ł̕ω��Ȃ�i = 1 To 31����Ȃ��́H�v
�Ǝv��ꂽ�ł��傤�B
���̒l�́u�����l�ɑ����Ă����l�v�Ȃ̂ŁA����ł����̂�
���B�Ȃ��Ȃ�A�����l�͂��łɁu�P���v�ɂȂ��Ă���̂ŁA
����ɏ���̃��[�v����P�𑫂��Ă��܂��ƁA���n�߂��Q��
�ɂȂ��Ă��܂��܂��B�ł�����A����̃��[�v�͂O�𑫂���
���ɂ��Ă���̂ł��B
�ƁA�����킯�ŁA������R�[�h��Sub Test() ��End Sub�ł�
�����Ď��s���Ă݂܂��傤�B
�ǂ��ł����H98/01/01����98/01/31�̒l���Y���[���ƕ\����
��܂����ˁB�߂ł����A�߂ł����E�E�E�E�E�ƁA�����܂ł�
�{���ɂ�����ł��傤���H
�Ⴆ�Ώ����l��
Date_No = #98/02/01#
�Ƃ�����ǂ��ł��傤�B���s���Ă݂Ă��������B
�����̂�����ɂR���̓��t���łĂ��Ă��܂��܂���(^^;
���̓����ɂ�����炸�������[�v���Ă܂�����A���R��
�����Γ��R�Ȃ̂ŁA���Ⴀ�ǂ���������ł��傤�H
�����ł́A�ui�̒l�ׂāA���̌��̒l�ɂȂ�Ȃ�A��
�[�v��������v�Ƃ������@�ł���Ă݂܂��傤�B
If Month(Date_No) < Month(Date_No + i)Then Exit For
�����Ȃ菑���Ă��܂��܂������A���ƂȂ��������肢������
�܂��ł��傤���B
If���͑O�ɂ��܂���������v�ł��ˁB
Then�̌��Exit For�́u���̃��[�v��������v�Ƃ���
���߂ł��B�܂�If�̏����ɍ��v������A��������Ƃ�
�����Ƃł��B
�����Ă��̏��������ł����AMonth�����g���Ēl�̔�r��
�s���Ă��܂��BMonth���͓��t�^�̒l����u���v�̒l��
���o���܂��B
Month(Date_No)�Ə�����������#98/02/01#�������l�Ȃ��
�Q�ɂȂ�܂���ˁB
�ŁA����ŏ����l�Ɂ{�P�����Ă����A�������z�������_
��Month(Date_No + i)�̒l�͂R�ɂȂ�܂��B�܂�Q���̗�
�ł����Ai�̒l���Q�W�ɂȂ������_��Month�̒l���R�ɂȂ�
�܂�����A�����ŏ������Ă��܂��A�R���̓��t�͕\��
����Ȃ��Ȃ�܂��B���������āA
Sub Test()
Date_No = #98/02/01#
Sheets("Sheet1").Select
Range("A1:A31").Select
Selection.ClearContents
For i = 0 To 30
If Month(Date_No) < Month(Date_No + i)Then Exit For
Cells(i + 1,1).Value = Date_No + i
Next i
End Sub
�Ƃ���A�����l�������ł��낤�Ƃn�j�Ȃ킯�ł�(^^
�ȏ�A�{���͂����܂Ł`��
 |
 |
TOP �� �u�a�`���N������ �`Part 1�`