�ϓ�����f�[�^�ւ̑Ή��i���̂P�j
�{����1998.2.16�BHP��InfoNavitator�ɓo�^�E���J�����̂��A
2.9�ł������P�T�Ԃ��o�߂����Ƃ���ŁA�A�N�Z�X�����u�R�O�v
�܂ŃA�b�v���܂����i�p�`�p�`�p�`�j (^_^)/
�����ĂȂ����A���̃��[���Ղ��܂��Ċ������ɔ�яオ
���Ă���܂��B
���ꂩ����u������₷���v���d�����ď����Ă��������Ǝv����
����܂��̂ŁA���Ђ��Ђ��ӌ��ĉ������ˁB
���āAVBA�҂��X��ڂƂ������r���[�Ȑߖڂ��}���܂��āA����
��낤���ȁ`�ƍl���Ă����̂ł����A������ł��낻�� VBA�Ȃ�
�ł͂̕����ɓ����Ă��������ȂƎv���܂��B
����܂ł́u�}�N���̋L�^�v���g����VBA�̃R�[�h���o���A
���X�蒼�������Ďg�����肵�Ă���܂������A�u�L�^�ł���Ȃ�
�R�[�h�o����K�v�Ȃ���Ȃ��́H�v�Ƃ����^�������ꂽ����
����������̂ł͂Ȃ��ł��傤���B
�������܂��܂�����͏��̌��A�z���g�ɖʔ����Ȃ�̂͂��ꂩ��
����ł��B�Ƃ����̂́A�܂��u�l�Ԃ����f���đ��삵���菇���o
�������Ď��s������v�Ƃ�������o�Ă��Ȃ�����ł��B���������
"�}�N���̑�햡"��������Ƃ���u�l�Ԃ����������w�����o��
�Ȃ��Ƃ��A���������^���Ă����Ώ���ɏ������Ă����v�Ƃ����
����Ǝv���܂��B���̕��@���������Ă���ƁA����܂��X�ɖʔ���
�Ȃ��Ă��āA�ŏI�I�ɖ{�T�C�g�Ŗڎw���Ă���u���N����v���Ƃ�
�Ȃ����Ă����̂ł͂Ȃ��ł��傤���B(^_^
�O�u���������Ȃ��Ă��܂��܂������A���琔��ɕ����āu�ϓ�
����f�[�^�ւ̑Ή��v������Ă݂����Ǝv���܂��B
���ł��̃e�[�}���Ƃ����ƁA���̍l����Excel�̒ʏ�̎g�p���@�́A
������"�҂��Ԃ�"�^�ł���Ǝv����ł��ˁB�Ⴆ��"A1�`A10��
���v�����߂鎮��A11�ɓ���Ă���"�Ƃ����悤�Ȍ`�B�ꌩ���ł�
�Ȃ��Ǝv���܂����A���Ⴀ���ꂪ "A20�܂Ńf�[�^���������Ⴄ
���Ƃ������"�ƂȂ����ꍇ�A A11�Ɏ��������ĂĂ̓}�Y�C�ł��ˁB
�܂��Ⴆ���v����B1�ɓ��ꂽ�Ƃ��Ă��A�f�[�^�̒���������ł�
�Ȃ��ƂȂ�ƁA�ꂵ�����"Sum(A1:A1000)"�ȂǂƂ���āu�悵�����v
�ȂǂƎv�����肷��킯�ł��i�����O�͂����ł����j�B
�ł����A"��ɕϓ�����f�[�^�ɑ��ĉ����Ő�����݂���" ���Ƃ́A
���ɃL�P���Ȃ��Ƃł��B�����͈�x���߂Ă��܂��Ɩő��Ɋm�F����
����A�Ԉ���Ă��邱�ƂɋC�Â��Ȃ��\���������Ȃ�܂��B����
�����āA�Œ�I�Ȑ������d�|���Ă���������"�҂��Ԃ�" �^�����ł�
�Ȃ��A�u�ϓ�����f�[�^�f���A�ǂ������A�m���ɕ߂炦��v������
�K�v�ƂȂ��Ă��܂��B�����"��l"�^�ƌĂт܂��i���z���g���H�j
�����ō���́u�A������f�[�^�̌����𐔂���v�Ƃ����̂���肽����
�v���܂��B����͕ϓ�����f�[�^�̑S�̂�߂炦����@�Ƃ��ėL��
�ł��̂ŁA�o���Ă����ă\���͂���܂���B
��Ƃ��āA���肪���ȃf�[�^�x�[�X�`�����o���Ă݂܂����B�P�s�ڂ�
���o����ł��B���ڂ��R�ŁA�f�[�^�����ɑ����Ă��܂��ˁB
| A | B | C | D | |
| 1 | ���i�� | ���� | ���z | ���l |
| 2 | �R�[�q�[ | 100 | 11,000 | �������� |
| 3 | �Y�_���� | 300 | 30,000 | �@�ɔ����� |
| 4 | Apple | 150 | 27,000 | |
| 5 | tea | 100 | 8,000 | |
| 6 | greentea | 100 | 10,000 | �ꂢ |
| 7 | ���� | 200 | 18,000 | |
| 8 | �݂��� | 0 | - | |
| 9 | lemon | 150 | 23,000 | �����ς� |
| 10 | cocoa | 230 | 20,000 |
����̌����𐔂��Ă݂܂��傤�B���L�̃R�[�h����́E���s����
�������B
| Sub Kensu() | |
| Dim Kensu as Integer Kensu = Range("A1").CurrentRegion.Rows.Count MsgBox(Kensu) |
|
| End Sub | |
�ǂ��ł��傤���B"10"�Ƃ����\�����ł܂������H
����ł͉���Ɉڂ�܂��傤�B
�P�s�ڂ� Dim Kensu as Integer ��"�ϐ��̒�`"�ł��B�����ł�
Kensu �Ƃ����̂��ϐ��ł��B�ω�����l�����Ă���"�o�P�c"��
�����Ȃ��̂ł��ˁB�ϐ��̒�`�̃o���G�[�V�����ɂ��Ă͌��
�͂ɂ��Ă����܂��B�����ł́u�������i�[����Kensu�Ƃ����ϐ���
��`�����v�Ǝv���Ă����ĉ������B
���ĂQ�s�ڂ����C���ł��ˁB�O�ɐ������܂������A�C�R�[���̎���
"�E�ӂ����ӂɑ�����邱��"���Ӗ����܂��B�]���Ă����ł�Range
�`�ŋ��߂���l���A�ϐ�Kensu�ɑ�����Ă���킯�ł��B
�ŁA���߂ďo�Ă��� CurrentRegion �B�����Œ��ׂ�ƁA Current��
�u���݂́v�ARegion�́u�̈�E�͈́v���Ӗ����邻���ł��B�܂�u����
�͈̔́v�Ƃ������ƂȂ�ł����A�u���Ⴀ���͈̔͂͂ǂ��܂łȂ́H�v
�Ƃ��������Ɋ�ƂȂ�̂��A"�f�[�^���ǂ��܂łȂ����Ă��邩"
�Ƃ������Ƃł��B�Ⴆ���̏ꍇ���o�����Ȃ����Ă��܂�����A�s
�̃f�[�^���r�ꂽ�Ƃ��܂ŁB�����܂ł�CurrentRegion �Ƃ݂Ȃ���
�܂��B��ɂ����ꏊ����P���ł��f�[�^�������Ă�������͈�
�Ƃ݂Ȃ���܂�����A���r���[�Ƀf�[�^���r��Ă�悤�ȏꍇ�́A
���̕��@���g���Ȃ����Ƃ�����܂��̂ŁA�����ӂ��B
Range("A1") �� Rows �͑O�ɏo�Ă������炢���ł��ˁB Count�B
����͂��̖��̒ʂ�u���𐔂���v���ł��B�S����Ɓu�Z��
A1����Ƃ������݂͈̔͂̍s�̐��𐔂���v�ƂȂ�܂��B���
�����ł��傤���H(^_^
�R�s�ڂ̓I�}�P�݂����Ȃ��̂ł����ǁAMsgBox���Ƃ����ăJ�b�R
�ň͂܂ꂽ������\������@�\������܂��B�����ł͕ϐ�Kensu��
�w�肵�Ă��܂��̂ŁA���̒��g��\�����Ă��܂��B������""�ň͂�
����������ƁA���̕������\������܂��̂Ŏ����Ă݂ĉ������B
MsgBox("OK") �Ƃ��B
�ǂ��ł��傤���A�������肢�������܂������H��������f�[�^�͑��
�̏ꍇ�Ȃ����Ă��邱�Ƃ������̂ŁA���̕��@���g����P�[�X��
�����ł��傤�B
�Ō�ɂP�����B��L�̃P�[�X�ł͑S�̂̍s�𐔂��܂������A�f�[
�^���������𐔂���ꍇ�A���o���͊܂߂܂����ˁB�]���Ă���
�ꍇ��
Kensu = Range("A1").CurrentRegion.Rows.Count - 1 �ƒ����Ɨǂ�
�ł��傤�B
���Ă����Ŗ��ł��B�s�ł͂Ȃ��u��v�̐��𐔂���ɂ͂ǂ������炢��
�ł��傤���H����܂ł̏h��Ł`���B����ł́I
 |
 |
TOP �� �u�a�`���N������ �`Part 1�`