�Ɩ��������ɖ𗧂�VBA�^�}�N���̂��܂��܂�Tips���R�[�h��������ďЉ�Ă����܂��B����́A�Z���̔Ԓn���w�肷��ۂ̒ʏ�́uA1�`���v�Ƃ͈قȂ�uR1C1�Q�ƌ`���v�ɂ��āA���̊T�v�Ɛݒ�̎d���A���_�E���_�A����𗘗p�����}�N������Љ�B
�@�Z���̔Ԓn���w�肷��ꍇ�́A�ʏ�́uA1�`���v���f�t�H���g�l�ƂȂ��Ă���B�Ⴆ�AA1�AA2�c�c�AB1�AB2�c�c�Ǝw�肷��̂��uA1�`���v���B���́A���̃Z���Ԓn�̎w������ɂ͂���1�A�uR1C1�Q�ƌ`���v�Ƃ������̂����݂���̂����A���������낤���B
�@����́A���́uR1C1�Q�ƌ`���v�̗��_�ɂ��čl���Ă݂悤�B
�@���̌`�����g�p����ꍇ��Excel���j���[�́m�t�@�C���n���m�I�v�V�����n�ƑI�����m�����n��I�����āA�mR1C1�Q�ƌ`�����g�p����n�Ƀ`�F�b�N��t����i�}1�j�B
�@A1�`�����g�p���Ă���ꍇ�́A�Ⴆ��A1��I�����Ă���ꍇ�A�u��v���}2�̂悤�ɁuA�v�ƕ\�������B
�@�uR1C1�Q�ƌ`���v�ł́A�u��v�́uC1�v�̂悤�ɕ\�������i�}3�j�B
�@�uR1C1�Q�ƌ`���v�ł́A�����������肾�Ǝv�����AR��Row�́u�s�v��\���AC��Column�́u��v��\���Ă���B����Đ}3�ł�1�s�ڂ̗�1��ڂ�I�����Ă���Ӗ��ɂȂ�B����ɁA�}2�Ɛ}3������ׂ�Ɛ}2�̗�̓A���t�@�x�b�g�\�L�����A�}3�͐��l�ŕ\������Ă���B
�@�Ⴆ�ΐ}4�̂悤�ȃf�[�^������Ƃ��悤�B
�@�uA1�`���v�őS�ẮuExcel VBA�v�̕����F���u�ԁv�ɕω�������ɂ̓��X�g1�̂悤�Ƀ}�N�����L�q����BVBE���N�����ām�}���n���m�W�����W���[���n�ƑI�����āAModule���ɋL�q����B
Option Explicit Sub �S�Ă̕����F��Ԃɕς���() Dim i As Long Dim j As Long For i = 1 To 26 For j = 1 To 27 Cells(i, j).Font.ColorIndex = 3 Next Next End Sub
�@Long�^�̕ϐ��ui�v�Ɓuj�v��錾���A�ϐ��ui�v�Łu�s�ԍ��v�A�ϐ��uj�v�Łu��ԍ��v���w�肵�Ĕ����������s���A�uCells(�s�ԍ�,��ԍ�)�v�̏������g���ĕ����̐F���u3�v�i�ԁj�ɕύX���Ă���B
�@ColorIndex�̐F�ԍ��ɂ��ẮA�L���u�Z���̐��l�A�t�H���g�A�����ʒu�A�w�i�F�A�������ȂǕ\���`���^�����ݒ�̎g�����v���Q�Ƃ��Ăق����B
�@�����VBE�̃��j���[����m���s�n���mSub/���[�U�[�t�H�[���̎��s�n�Ƃ���ƁA�S�Ă̕����F���Ԃɕω�����B
�@���Ƀv���O������͉��̖����Ȃ��̂����A�uA1�`���v�ŃR�[�h�������ƁA�u�s�ԍ��v�͐��l�ŕ\������Ă���̂Ō���Ε����邪�A�u��ԍ��v��A�`DAR�Ƃ������悤�ȃA���t�@�x�b�g�ŕ\������邽�߁A���X�g1�́u��ԍ��v���w�肷��ۂɁA�����A�`AA�܂ł͈̔͂Ƃ��Ă���̂ŁA�A���t�@�x�b�g26������1�𑫂��āu27�v�ƌv�Z���Ďw�肵�Ă���B�uA1�`���v�ł́u��ԍ��v���w�Ő����˂Ȃ�Ȃ��̂��B
�@�Ƃ��낪�A���ꂪA�`DAR�Ƃ������悤�ȏꍇ�ɂ́A��̔ԍ��𐔂���̂͂��͂�s�\�ɋ߂��B�����ŕ֗��Ȃ̂��uR1C1�Q�ƌ`���v�ɂȂ��Ă���̂��B
�@�}4���uR1C1�Q�ƌ`���v�ŕ\��������ƁA�}5�̂悤�ɕ\�������B
�@�}4�Ɛ}5������ׂ�ƕ����邪�A��ɂ��������悤�ɁA��ԍ������l�ŕ\������Ă���B����Ȃ�Ⴆ�uAA�v�̗���ڂɓ����邩����������������K�v���Ȃ��B
�@���̂悤�ɁuR1C1�Q�ƌ`���v�ł́A�u�s�v���u��ԍ��v���S�Đ��l�ŕ\������邽�߂ɁAVBA��������ł͔��ɕ֗��ł͂��邪�A�f�t�H���g���uA1�`���v�ɂȂ��Ă��邵�A�قƂ�ǂ�Excel VBA�̉���ł́uA1�`���v���p�����Ă��邽�߁A�{Tips�A�ڂł��uA1�`���v�ʼn�����Ă���B
�@���X�g1�����s����ƁA�}6�̂悤�ɕ\�������B
�@�}6�́A�uR1C1�Q�ƌ`���v�ŕ����F��ς��Ă��邪�R�[�h�̓��X�g1�̂܂܂��B
�@�uR1C1�Q�ƌ`���v�ɂ����ꍇ�̖��_�́ARange�v���p�e�B���g���Ȃ����Ƃ��B
�@�Ⴆ�uA1�`���v�ł́A
Range("A1").Value="Microsoft"
�Ǝw�肪�ł��邪�A�uR1C1�Q�ƌ`���v�ł́A
Range("R1C1").Value="Microsoft"
�Ǝw�肷��ƃG���[�ɂȂ�B���̏ꍇ��
Cells(1,1)="Microsoft"
�Ǝw�肷��K�v������̂ŁA�uR1C1�Q�ƌ`���v�ɂ����ꍇ�͒��ӂ��K�v���B
�@����́uR1C1�Q�ƌ`���v�ɂ��Ă̗��_����������B�uR1C1�Q�ƌ`���v�ɂ��Ē��ׂĂ݂�ƁAVBA�������ꍇ�ɂ����ẮuR1C1�Q�ƌ`���v�̕����֗����Ǝv�����̂��������B�������A�uA1�`���v���ʏ��Excel�̃Z���Q�ƌ`���ł��邽�߁A�uA1�`���v�Ői�߂Ă�������͂Ȃ��B
�@VBA���g�p���Ȃ��Ȃ�uR1C1�Q�ƌ`���v�̃����b�g�͓��ɂȂ��B
�@�uA1�`���v�uR1C1�Q�ƌ`���v��2�����݂���ɂ́A����Ȃ�̗��j�I�w�i������悤�����A����̘A�ڂł́A����ȗ��j�I�w�i�͊W���Ȃ��̂ŏȂ����Ă����������B
��t�� �����i�₭���� ���ɂ₷�j�@�^�@��t������������
��t��������������\�BVisual Basic�v���O���~���O�ƁA�}�C�N���\�t�g�n�̋Z�p���e�[�}�Ƃ����A���Ђ�L���̎��M���s���B
1950�N���܂�B�����n�̃T�����[�}��������40�����Ńv���O���~���O���n�߁A1996�N���Ɗw��ActiveX�Ɏ��g�ށB
1997�N�ɖ�t�����ƃR���{���[�V�����E���j�b�g�uPROJECT KySS�v�������B
2003�N���t���[�ɂȂ�APROJECT KySS�̊����ɖ{�i�I�ɎQ���B.NET��RIA�Ɋւ��鏑�Ђ�L���𑽐����M����T��A����Č��̃v���O���~���O����|����B
Windows Phone�A�v���J�����o�āA���݂�Windows�X�g�A�A�v���𑽐����J���B
Microsoft MVP for Development Platforms - Client App Dev�iOct 2003-Sep 2012�j�B
Microsoft MVP for Development Platforms - Windows Phone Development�iOct 2012-Sep 2013�j�B
Microsoft MVP for Development Platforms - Client Development�iOct 2013-Sep 2014�j�B
Copyright © ITmedia, Inc. All Rights Reserved.