���S�҂ł��}���ŕ�����I VBE�̊�{�I�Ȏg������VBA�v���O�����̊�b���@�FExcel�}�N���^VBA�Ŏn�߂�Ɩ��������v���O���~���O����i2�j

�v���O���~���O���S�҂�Ώۂ�Excel�}�N���^VBA���g�����Ɩ��������v���O�����̍������ꂩ�������܂��B����́AVBA�̃I�u�W�F�N�g�A�v���p�e�B�A���\�b�h�A�֐��A�Z�p���Z�q�A�R�����g�AVBE�̉�ʍ\����g�����Ȃǂɂ‚��āyWindows 10�AExcel 2016�ɑΉ��z�B

» 2016�N07��07�� 05��00�� ���J
[��t�������CPROJECT KySS]

�S�Ă͊�{�𗝉�����Ƃ��납��

�@�v���O���~���O���S�҂�Ώۂ�Excel�}�N���^VBA���g�����Ɩ��������v���O�����̍������ꂩ��������{�A�ځuExcel�}�N���^VBA�Ŏn�߂�Ɩ��������v���O���~���O�����v�B�O��́uExcel�Ńv���O�����쐬���n�߂郁���b�g�ƃ}�N���̊�{�v�ł́A���������v���O���~���O�Ƃ͉����AVisual Basic��VBA�ƃ}�N���̈Ⴂ�A�}�N���̍����A�ۑ��^�폜�A�Z�L�����e�B�ݒ�Ȃǂɂ‚��ĉ�������B

�@�����Excel VBA�v���O���~���O�̊�{�I�ȗp���������C���ɁAVBE�iVisual Basic Editor�AVB�G�f�B�^�[�j�̉�ʍ\����g�������������B�v���p�e�B�A���\�b�h�A�I�u�W�F�N�g�Ȃǐ��p�ꂪ�o�Ă��邪�A�ł��邾��������₷������������Ǝv���B�ǂ����A���ɂȂ炸�ɒ����Ă��Ăق����B

�@�����̗p��̓v���O���~���O�������ł͕K���o�Ă�����̂ł���A�Ӗ���m�炸���ăv���O���~���O���邱�Ƃ͂ł��Ȃ��B�Ӗ���������΁A����ȍ~�̐������������₷���Ȃ�Ǝv���B

�@���ł����������A�S�Ă͊�{�𗝉�����Ƃ��납��n�߂邱�Ƃ��d�v���B����͑S�Ă̏K�����ɋ��ʂ��Ă��邱�Ƃł���B��������ɂ͎��H����̂݁B���Ў��ۂɎ�𓮂����Ȃ���g�ɕt���Ă����Ăق����B

VBA�́u�I�u�W�F�N�g�v�Ƃ�

�@��{�\���ɓ���O�ɒm���Ă����˂΂Ȃ�Ȃ����ƂƂ��āAVBA�ɂ́u�I�u�W�F�N�g�v�Ƃ����T�O������B�u�I�u�W�F�N�g�v�Ƃ́A������w������ۂɁA����̑ΏۂƂȂ�u���v�̂��Ƃ��w���B

�@Excel�̏ꍇ�ł́A�u�u�b�N�v�u�Z���v�u���[�N�V�[�g�v�u�O���t�v�u�t�H�[���v�Ȃǂ����Ă͂܂�B�u�I�u�W�F�N�g�v�̊T�O���‚��߂��Ƃ���ŁAVBA�̊�{���@���Љ�悤�B

�I�u�W�F�N�g�̒l���擾����ꍇ�̏�����

Range("�o�I�u�W�F�N�g�̖��O�p").�o�I�u�W�F�N�g�̃v���p�e�B���p


Range("A1").Value
��F�uA1�v�Z���̓��e���擾

���uRange�v�Ƃ̓Z���̑I���̍ۂɎg�p����I�u�W�F�N�g���w���B

�I�u�W�F�N�g�̒l��ݒ肷�鏑����

Range("�o�I�u�W�F�N�g�̖��O�p").�o�I�u�W�F�N�g�̃v���p�e�B���p=�o�l�p


Range("A1").Value=10
��F�uA1�v�Z���̓��e���u10�v�ɐݒ肷��

���u=�v�́u������Z�q�v�Ƃ����A�u=�v�̉E�ɂ���l���u=�v�̍����ɂ���ϐ���v���p�e�B�ɑ������i�����j���Ƃ��ł���B

�I�u�W�F�N�g�̓�����w�����鏑����

Range("�o�I�u�W�F�N�g�̖��O�p").�o���얼�p


Range("A1").Select
��F�uA1�v�Z����I������

��Select���\�b�h�́u�I������v�Ƃ��������\���B���\�b�h�̈Ӗ��ɂ‚��Ă͌�q����B

�@���ɁA��قǂ���o�Ă��Ă���u�v���p�e�B�v�ɂ‚��ĉ�����悤�B

VBA�́u�v���p�e�B�v�Ƃ�

�@�u�v���p�e�B�v�Ƃ̓I�u�W�F�N�g���Ƃɐݒ肳��Ă���u�������v�̂��Ƃ��B����������ƁA�u�I�u�W�F�N�g�̐��i��\���f�[�^�v�̂��Ƃ��B�I�u�W�F�N�g�̃v���p�e�B�ɒl��ݒ肷��ƁA�I�u�W�F�N�g�̌����ڂ�`���ω�����B

�@�Ⴆ�΁AExcel�́u�Z���v�ɂ͕\1�̂悤�ȃv���p�e�B������B

�\1�@�Z���̃v���p�e�B
�v���p�e�B�� �T�v
Value �Z���ɒl��ݒ肵����A�Z���̒l���擾�����肷��
Row �Z���̍s�ԍ��i�c���ŏォ�牺��1�A2�A3�c�c�j��\��
Column �Z���̗�ԍ��i�����ō�����E��1�A2�A3�c�c�j��\��

�@�ł́A���̃v���p�e�B�̒l���擾����ɂ́A�ǂ�����΂����̂��낤���B

�v���p�e�B�̒l���擾

�@�Ⴆ�΁uA1�Z���̓��e���擾����v�ɂ͉��L�̂悤�ɏ����B

Dim �o�l�������p As Integer
�o�l�������p = Range("A1").Value

�@�uRange("A1")�v��A1�Z���������I�u�W�F�N�g���BValue�̓Z���̓��e��\���v���p�e�B���B����āA�Z��A1�̒l���A�o�l�������p�̒��Ɋi�[����邱�ƂɂȂ�B

���uDim�v�Ƃ́u�ϐ���錾����v�Ƃ����Ӗ����B�u�ϐ��v�ɂ‚��Ă������ŏڐ�����B

�@�ł́A���ɁA�v���p�e�B�̒l��ݒ肵�Ă݂悤�B

�v���p�e�B�̒l��ݒ�

�@�Ⴆ�΁A�uA1�v�Z���Ɂu��t���v�Ƃ����l��ݒ肷��ɂ͉��L�̂悤�ɏ����B

Range("A1").Value="��t��"

�@�O�q�����悤�ɁA�uRange("A1")�v�́uA1�v�Z���������I�u�W�F�N�g�ŁAValue�̓Z���̓��e��\���v���p�e�B������A����Ɂu=�v���g���āu"��t��"�v�Ǝw�肷��ƁA�Z���uA1�v�Ɂu��t���v�Ƃ����l���\�������B�u��t���v�͕�����ł��邽�߁A�_�u���N�H�[�e�[�V�����i"�j�ŗ��������ށB

�@���ɁA���\�b�h�ɂ‚��Č��Ă������B

VBA�́u���\�b�h�v�Ƃ�

�@�u���\�b�h�v�Ƃ́A�u���߁v�u����v�u����v�u�U�镑���v�Ƃ������Ӗ����w���B����������΁u�I�u�W�F�N�g���g�̓���ɂ���ĕԂ���錋�ʂ̎葱���v�̂��Ƃ��B

�@�Ⴆ�΁A�Z���ɂ͎��̕\2�̂悤�ȃ��\�b�h������B

�\2�@�Z���̃��\�b�h
���\�b�h�� �T�v
Select ���[�N�V�[�g�̒��̃Z���̑I����\��
Delete �ΏۃZ�����폜
Insert �ΏۃZ���ɓ��T�C�Y�̋󔒃Z����}��

�I�u�W�F�N�g�Ƀ��\�b�h���w�肵�Ă݂悤

�@�Ⴆ�΁uA1�Z����I������v�Ƃ������߂�^����ɂ́A���L�̂悤�ɏ����B

Range("A1").Select

�@�uRange("A1")�v�̓Z����\���I�u�W�F�N�g�ŁA�uSelect�v�̓Z����I�����郁�\�b�h�ƂȂ�B

�u�����v���w�肵�Ė��߂����s����

�@�܂��A�u�����v���g���Ė��߂̓��e���ׂ����w�����邱�Ƃ��”\���B�������w�肷��ɂ́A���\�b�h���̌�ɔ��p�X�y�[�X����͂��ē��e���L�q����B

�@�Ⴆ�΁A�uA2�`A5�̃Z���̐��l�������Ń\�[�g����v�ɂ͉��L�̂悤�ɏ����B

Range("A2:A5").Sort Key1:=Range("A2")

�@Range("A2:A5")��A2�`A5�͈̔͂�\���Z����\���I�u�W�F�N�g�ASort�́u���בւ��v���s�����\�b�h���B�uKey1�v�̓\�[�g�̊�ƂȂ�L�[���w�肷��Ƃ����Ӗ��́u�p�����[�^�v�ŁA�uRange("A2")�v���u�����v�ł���B�u:=�v�Ńp�����[�^�ɑ΂��Ĉ������w�肷�邱�ƂɂȂ�B��L�v���O�����́A�u�L�[�ɂ̓Z���́uA2�v���w�肵��A2�`A5�͈̔̓Z������בւ���v���Ƃ��Ӗ�����B

�@���s����ƁAA2�`A5�̐��l�������Ń\�[�g�����i�}1�j�B

�}1�@�����Ń\�[�g���ꂽ

��Sort�i�f�[�^�̕��בւ��j�ɂ‚��Ă��ʂ̉��ŏڐ�����B

�����̈������w�肵�Ė��߂����s����

�@����ɁA�����̈������w�肷�邱�Ƃ��”\���B

WorkSheets.Add(Before,After,Count,Type)
������4�Ž��uAdd���\�b�h�v�\���̗�

�@Before�́A��1�����AAfter�͑�2�����ACount�͑�3�����AType�͑�4�����ƂȂ�BBefore��After�͂ǂ��炩������w�肷��B�����Ɏw�肷�邱�Ƃ͂Ȃ��Ǝv���Ă����B

�@�Ⴆ�΁A���[�N�V�[�g���u�Z���^�v�V�[�g�̌���4���lj�����ꍇ�́A���L�̂悤�ɏ����B

WorkSheets.Add After:=WorkSheets("�Z���^"),Count:=4

�uAfter:=WorkSheets("�Z���^")�v�͑�2�����A�uCount:=4�v�͑�3�����ƂȂ�B

�@�������𕡐��g���Ĉ������w�肷��ꍇ�ɁA�ȗ����������̋�؂�́u,�v���L�q����K�v�͂Ȃ��B�܂��A���Ԃ��֌W�Ȃ��w��ł���B�����́A�u�o�������p:=�o�l�p�v�Ƃ������`����p����B�ڍׂ�TIPS�u�R���p�C���G���[�ɂȂ�Ȃ��֐��̎g�����\�\���ʂ̗L���A�����̈����ACall�X�e�[�g�����g�A�߂�l�A���O�t�������Ə����v���Q�Ƃ��Ăق����B

VBA�Ŏw��ł����ȃI�u�W�F�N�g�ƃR���N�V����

�@VBA�Ń}�N�����쐬����ꍇ�́A�u���ɑ΂��đ�������s����̂��v���I�u�W�F�N�g�Ŏw�肷��K�v������BExcel�ő��삷��Ώۂ��A�ǂ̂悤�ȃI�u�W�F�N�g�Ƃ��ėp�ӂ���Ă��邩���Ă݂悤�B

�@VBA�Ŏw��ł���I�u�W�F�N�g�ɂ́AWorkbook�I�u�W�F�N�g�AWorksheet�I�u�W�F�N�g�ARange�I�u�W�F�N�g������i�}2�j�B

�}2�@VBA�Ŏw��ł���I�u�W�F�N�g�ƃR���N�V����

�@�I�u�W�F�N�g�ɂ����āA������ނ̃I�u�W�F�N�g�̏W�܂���u�R���N�V�����i�W���́j�v�ƌĂԁB

�@���́AVBA�Ŏw��ł���Worksheet�I�u�W�F�N�g��Worksheets�R���N�V�����ɂ‚��Đ}3�Ő������悤�B

�}3�@VBA�Ŏw��ł���Worksheet�I�u�W�F�N�g��Worksheets�R���N�V����

�@�I�u�W�F�N�g�́AExcel���̂��̂��w�肷��Application�I�u�W�F�N�g���ŏ�ʂƂ��A�K�w�\���ō\�������i�}4�j�B

�}4�@�I�u�W�F�N�g�̊K�w�\��

�@�L�q��Ƃ��āA�uBook1.xlsx�v�t�@�C���́u�Z���^�v�V�[�g�̃Z���uA1�v���w�肷��ɂ͉��L�̂悤�ɏ����B

Workbooks("Book1.xlsx").Worksheets("�Z���^").Range("A1").Select
��Application�I�u�W�F�N�g�̋L�q�͏ȗ����”\

�@���Ɂu�֐��v�ɂ‚��Č��Ă������B

VBA�́u�֐��v�Ƃ�

�@�u�֐��v�Ƃ́A�u�v�Z�Ȃǂ̎菇���܂Ƃ߂Ē�`���������v�̂��Ƃ��w���B

�@�Ⴆ�΁A������֐��ɁuLen�v�Ƃ����֐�������B��������L�̂悤�ɋL�q����B

Dim �o�l�������p As Integer
�o�l�������p = Len("��t������")

�@���������Ɓo�l�������p�ɂ́u5�v�Ƃ�������������BLen�֐��͎w�肵��������̒������擾����֐����B

�@���̂悤�ɃJ�b�R�̒��ɉ���������ƁA��������ɉ�����Ԃ��A����������������������̂��u�֐��v���B

�@VBA�ɂ͑����̊֐����p�ӂ���Ă���B��Ȃ��̂Ƃ��ĉ��L�̕\3�̂悤�Ȃ��̂�����B

�\3�@���VBA�֐�
���� �֐��� �T�v
�����񑀍�֐� Len �w�肳�ꂽ������̕�������Ԃ�
Left ������̍��[����w�肳�ꂽ���������̕������Ԃ�
Right ������̉E�[����w�肳�ꂽ���������̕������Ԃ�
Instr ���镶����̒�����w�肵����������������A�ŏ��Ɍ��‚�����������̊J�n�ʒu�����������^�iInteger�j�̒l��Ԃ�
Replace �C�ӂ̕�����ŁA����̕�������A�w�肵��������ɒu���������������Ԃ�
StrComp �������r�̌��ʂɂ��A-1�A0�A1�̂����ꂩ��Ԃ�
���t�A�����֐� DateAdd �C�ӂ̓��t�⎞�Ԃɓ���̊Ԋu��lj����Ă��̌��ʂ�Ԃ�
DateDiff 2�‚̓��t�^�iDate�j�l�̊Ԃ̎��ԊԊu�����w�肷�钷�����^�iLong�j�̒l��Ԃ�
Year �N��\���A1�`9999�̐����^�iInteger�j�̒l��Ԃ�
Month ����\���A1�`12�̐����^�iInteger�j�̒l��Ԃ�
Day ���t��\���A1�`31�̐����^�iInteger�j�̒l��Ԃ�
Now ���݂̓��t�Ǝ����ɑΉ�����V���A���l��Ԃ�
���l����֐� Round �w�肳�ꂽ�����_�ʒu�Ŋۂ߂����l��Ԃ�
Rnd �P���x���������_���^�iSingle�j�̗�����Ԃ�
Int �w�肵�����l�̐���������Ԃ�
Fix �w�肵�����l�̐���������Ԃ�
��Int��Fix�̈Ⴂ�́A�w�肷��Number�ɕ��̒l���w�肵���ꍇ�Ɍ����BInt�֐��͂��̐��l�ȉ��̍ő�̕��̐�����Ԃ��̂ɑ΂��āAFix�֐��͍ŏ��̕��̐�����Ԃ�
�f�[�^�ϊ��֐� CBool ������]�����ău�[���^�i�^�iTrue�j�^�U�iFalse�j�j��Ԃ��i�u�[���^�ɕϊ�����j�֐�
CByte ������]�����ăo�C�g�^�iByte�j�f�[�^�ɕϊ�����֐�
CCur �w�肳�ꂽ�����o���A���g�^�i���������`�����ʉ݌^�iCurrency�j�� Variant�j�ɕϊ����ĕԂ�
CDate ������]�����ē��t�^�ɕϊ�����֐�
CInt �w�肵���l�𐔒l�^�iInteger�j�ɕϊ�
CLng �w�肳�ꂽ�����o���A���g�^ (���������`�����������^�iLong�j�� Variant) �ɕϊ����ĕԂ�
CStr �w�肵���l�𕶎���^�iString�j�ɕϊ�
CVar ������]�����ăo���A���g�^�ɕϊ�����֐�
���̑� MsgBox �_�C�A���O �{�b�N�X�Ƀ��b�Z�[�W��\��
InputBox �������͂��s���{�b�N�X��\��������
��������̕\���yVB�z�֐��ꗗ - �I�[�v�����t�@�����X�i�N���G�C�e�B�u�E�R�����Y �\���\�p�����C�Z���X 2.1�j�̕\����ɉ��ς������̂ł�

VBA�́u�Z�p���Z�q�v�Ƃ�

�@�v���O�����̒��Ōv�Z����Ƃ��́A�֐��̑��Ɂu�Z�p���Z�q�v���g���B�Z�p���Z�q�̎�ނɂ͕\4�̂悤�Ȃ��̂�����B

�\4�@�Z�p���Z�q�̎��
���Z�q ����
+ �����Z
- �����Z
* �|���Z
/ ����Z
^ �ׂ���
\ ����Z�̌��ʂ̐�������Ԃ�
Mod ����Z�̌��ʂ̗]���Ԃ�

�@���Z�q�ɂ͑��ɁA�`���ŏЉ���u=�v�i������Z�q�j��u�A�����Z�q�v�Ƃ��āu&�i�������‚Ȃ��j�v������B�܂��u��r���Z�q�v�u�_�����Z�q�v�Ȃǂ����邪�A���G�Ȃ̂ŁA��̘A�ڂŏЉ�悤�B

VBA�֐��̎g�p��

�@InputBox�֐���p���āA���͂��ꂽ�l��Excel�́uA1�v�̃Z���ɕ\�������Ă݂悤�B

�@���X�g1�̂悤�ȃR�[�h��VBE�ŋL�q����B����Ɠ��̓{�b�N�X���\������A���O����͂��āmOK�n�{�^�����N���b�N����ƁuA1�v�̃Z���ɓ��͂������O���\�������B

Sub �����O��()
  Range("A1").Value = InputBox(prompt:="�����O��?")
End Sub
���X�g1�@InputBox�̎g�p��

�@�}5�̓��X�g1�̃R�[�h����͂������ʂ��B�܂��A���̎��_�ŗ������Ă����K�v�͂Ȃ��B

�}5�@InputBox�֐����g���Ă݂�

�@���ɁA���[�N�V�[�g�֐��ɂ‚��Č��Ă݂悤�B

VBA�́u���[�N�V�[�g�֐��v�Ƃ�

�@���[�N�V�[�g�֐��Ƃ́A���̂��̂��΂胏�[�N�V�[�g�Ŏg�p����֐��ŁAVBA�֐��Ƃ͕ʂ̂��̂��B���[�N�V�[�g�֐���WroksheetFunction�N���X�̃����o�[���BVBA���烏�[�N�V�[�g�֐����Ăяo���ɂ�Application�I�u�W�F�N�g��WorksheetFunction�v���p�e�B���g�p����B

���O�q���Ă��邪�A�u�����o�[�v�Ƃ̓R���N�V�������̊e�I�u�W�F�N�g�̂��Ƃ��w���B

�@�Ⴆ��VBA�ŁA���l�̍��v�����߂����Ƃ���SUM�֐����g���B�ł́AWorksheetFunction�v���p�e�B���g���āA���v�����߂Ă݂悤�B

�@�����͉��L�̂悤�ɂȂ�B

Application.WorksheetFunction.�o���[�N�V�[�g�֐��p(�o�����p)

�@�u���[�N�V�[�g�֐��v�ɂ̓��[�N�V�[�g�֐����w�肷��B�g�p�ł��郏�[�N�V�[�g�֐��́A�L�q���ɕ\���������͌��̈ꗗ�ŁA�m�F�ł���i�}6�j�B

�@�u�����v�ɂ̓��[�N�V�[�g�֐��̈������w�肷��B�Z���͈͂��w�肷��ꍇ��Range�I�u�W�F�N�g���w�肷��Ɨǂ��B

�}6�@�g�p�ł��郏�[�N�V�[�g�֐��̈ꗗ

�@�ł́A�R�[�h�������ăZ���uB7�v�ɍ��v��\�������Ă݂悤�B�}7�̂悤�ȃR�[�h���L�q���A�㕔�̃c�[���o�[�ɂ���E�����������A�C�R�����N���b�N����ƁA���v���\�������B

�}7�@���[�N�V�[�g�֐��ō��v���\�����ꂽ

�@�����܂ŁA�܂����������Ă��Ȃ��̂�VBE�̉�ʂ�\�����ăR�[�h�������Ă������A���̕ӂ��VBE�̉�ʍ\���ɂ‚��ĉ�����Ă������B

VBE�̉�ʍ\��

�@VBE���N��������ɂ́m�J���n�^�u�ɂ���mVisual Basic�n���N���b�N����B

�@��ʍ\���͐}8�̂悤�ɂȂ��Ă���B

�}8�@VBE�̉�ʍ\��

�@�m�v���W�F�N�g�n�G�N�X�v���[���[�́AWindows�́u�G�N�X�v���[���[�v���l�Ƀc���[��Ƀt�@�C���̈ʒu�Ȃǂ�\������B�J���Ă���u�b�N�ƁA���Ɋ܂܂��V�[�g�̈ꗗ���\�������B

�@�ŏ�ʂɃu�b�N������A���̉��ɁuMicrosoft Excel Objects�v�u���[�N�V�[�g�v�u�t�H�[���v�u�W�����W���[���v�u�N���X���W���[���v�����݂��邱�ƂɂȂ�B

�@�m�v���p�e�B�n�E�B���h�E�ł́A�m�v���W�F�N�g�G�N�X�v���[���[�n�őI�����Ă���I�u�W�F�N�g�̑������ꗗ�ŕ\�������B�}8�ł�Workbook�̃v���p�e�B�̈ꗗ���\������Ă���B

�@�m�R�[�h�n�E�B���h�E���ɂ́AVBA�̃v���O�������L�q����B

�@��1��ڂł́A������L�^������@�Ń}�N�����쐬�������A�����VBE���N�����Ĉꂩ��}�N�����쐬���Ă݂悤�B

�W�����W���[���̒lj�

�@VBE���N�����ă}�N�����L�q����ɂ́A�u�W�����W���[���v��lj����āA���̒��Ƀ}�N�����L�q����B

�@�W�����W���[����lj�����ɂ́A�W�����W���[����lj�����u�b�N��I�����AVBE���j���[�́m�}���n���m�W�����W���[���n�ƑI������i�}9�j�B

�}9�@VBE�̉�ʂ���m�}���n���m�W�����W���[���n�ƑI��

�@�W�����W���[�����lj����ꂽ�i�}10�j�B

�}10�@�W�����W���[�����lj����ꂽ

�@�lj��������W���[���V�[�g���폜����ɂ́A�폜����uModule1�v��I�����A�}�E�X�̉E�N���b�N�ŕ\�������mModule1 �̉���n���N���b�N����i�}11�j�B

�}11�@�W�����W���[���̉��

�@����Ɓu�폜����O��Module1���G�N�X�|�[�g���܂����H�v�ƕ����Ă���̂ŁA�ۑ�����ꍇ�́m�͂��n���A�ۑ����Ȃ��ꍇ�́m�������n��I������B

�@�W�����W���[����lj������Ƃ���ŁA���ۂɃR�[�h����͂��Ă݂悤�B

Sub�v���V�[�W���̓���

�@�}11�ő}�������u�W�����W���[���v��Module1�V�[�g�ɃR�[�h�������Ă����B

�@�܂��ASub�̌�ɃX�y�[�X�����āA�}�N��������͂���B�}�N�����ɂ́u���{��\�L�v�ł��u�p��\�L�v�ł��A�ǂ���ł��g�p���”\���B

�@�������A���{��ł͎g�p�ł��Ȃ��u�L���v������̂ŁA���̓s�x�m�F����΂����B�g�p�ł��Ȃ��u�L���v���g�p����ƃG���[���\�������̂ŕ�����͂����B

�@�mEnter�n�L�[�������ƁA�}�N���̍Ō�ɁuEnd Sub�v�Ǝ����I�ɒlj������B�ȉ����uSub�v���V�[�W���v�ƌĂԁB

Sub �o�}�N�����p()
    �o�}�N���̏����p
End Sub

�@����ȊO�ɁA���[�U�[��`�֐��̂悤�ɁA�v�Z���s���Č��ʂ�Ԃ��^�C�v�̃}�N���́uFunction�v���V�[�W���v�ƌĂԁi��̉��ŐG���j�B

�}�N������͂���ۂɕ֗���VBE�̓��͎x���@�\

�@�uSub�v���V�[�W���v���Ƀ}�N���R�[�h����͂��Ă݂悤�B�����ł́A���X�g2�̂悤�ȃ}�N���R�[�h����͂���B

Sub �Z���Ɩ��O()
  Range("A1").Value = "���Q�����R�s����"
  Range("A2").Value = "��t������"
End Sub
Sub �m�F()
  MsgBox Range("A2").Value & "�����" & Range("A1") & "�ɂ��Z�܂��ł��ˁB"
End Sub
���X�g2�@���͂����}�N���R�[�h

�@�}�N���R�[�h����͂���ꍇ�ɂ́A���͎x���@�\�����p�ł���B�Ⴆ�΁A�uR�v�Ɠ��͂��mCtrl�n�{�m�X�y�[�X�n�L�[�������ƁA�uR�v�Ŏn�܂郁�\�b�h��v���p�e�B�Ȃǂ̌��̈ꗗ���\������A���̒�����ړI���̂�I���ł���B�܂��A�uMsgBox�v�̂悤�Ɋ֐��⃁�\�b�h������͂��ām�X�y�[�X�n�L�[�������ƁA�����̏��ȂǁA�q���g���\�������B

�@�����̓��͎x���@�\�́A���ۂɃ}�N���R�[�h�������Ă݂�Ǝ����ł���̂ŁA���̎��Ɋm�F���Ă݂Ăق����B���ۂɎ����ŏ����Ċm�F���邱�Ƃ��d�v���B

�@�ł̓��X�g1�̃}�N�������s���Ă݂悤�B���̑O�ɁA�e�uSub �v���V�[�W���v���֘A�t����{�^����z�u���Ă����B�{�^���̔z�u�ɂ‚��ẮA��1��ڂ��Q�Ƃ��Ăق����B

�{�^������}�N�������s����

�@�}12�̂悤��2�‚̃{�^���i�m�}���n���m�}�`�n����I���j��z�u���A�e�{�^����I�����āA���O����͂���B�}�E�X�̉E�N���b�N�ŕ\�������m�}�N���̓o�^�n����A�\�������u�Z���Ɩ��O�v�u�m�F�v�̃}�N�������ꂼ��̃{�^���Ɏw�肷��B�{�^����z�u���ă}�N�����֘A�t������@�̏ڍׂɂ‚��ẮA�A�ڑ�1�����Q�Ƃ��Ăق����B

�}12�@�{�^���Ƀ}�N�����֘A�t����

�@�m�Z���Ɩ��O�n�{�^�����N���b�N����ƁA�}13�̂悤�ɕ\������A�m�m�F�n�{�^�����N���b�N����ƁA�}14�̂悤�Ƀ_�C�A���O�{�b�N�X���\�������B

�}13�@�Z���Ɩ��O���\�����ꂽ
�}14�@�Z���Ɩ��O�̊m�F�_�C�A���O�{�b�N�X���\�����ꂽ

VBA�́u�R�����g�v�Ƃ�

�@�Ō�ɁA�R�����g�̓��͂ɂ‚��ĊȒP�ɐG��Ă������B�u�R�����g�v�Ƃ́A�}�N���R�[�h�̒��ɏ����u����͂ǂ�ȏ������s���Ă���}�N���Ȃ̂��v���A�N�����Ă�������悤�ɂ��Ă����u�����v�̂悤�Ȃ��̂��B

�R�����g�̓���

�@�}�N���̒��ɃR�����g�������ꍇ�͐擪�Ɂu'�v��lj����ċL�q����B�}15�̂悤�ɋL�q����B

�}15�@�}�N���̒��ɃR�����g����͂��Ă���

�@�R�����g����͂��Ă����ƁA���G�ȏ����̏ꍇ�A���N��Ƀ}�N���̏C�����K�v�ɂȂ����ꍇ�ȂǁA�Y��Ă����L�������߂��̂ɑ�Ϗd�v�Ȗ������ʂ����B�܂��A�S���҂��ς��A�}�N���������p���ꍇ�ɂ��A�R�����g�����ɗ��‚̂ŁA�K���R�����g�͋L�����Ă����悤�S�|���悤�B���������M�Ҏ��g�͂��܂�R�����g���L�����Ȃ����i�Ȃ̂ŁA��X�ɂȂ��ė⊾�������Ă���c�c�B

���S�s�̃}�N������y�ɃR�����g�ɂł���VBE�̋@�\

�@�܂��}�N���R�[�h�̒��ŁA����͂��̃}�N���͕s�v������X�̂��߂Ɏc���Ă��������ꍇ�Ȃǂɂ��A�}�N���̐擪�Ɂu'�v��lj����āu�R�����g�A�E�g�v���Ă����B

�@���S�s�̃}�N���ɁA���������u'�v����Œlj����Ă����̂ł͂��܂�Ȃ��A�����ŁAVBE�̃��j���[����m�\���n���m�c�[���o�[�n���m�ҏW�n�ƑI�����ām�c�[���o�[�n��\��������B�\�����ꂽ�m�c�[���o�[�n�́m�R�����g �u���b�N�n���N���b�N����ƁA�I�����Ă����}�N���R�[�h���ꊇ�ŃR�����g�A�E�g�����i�}16�j�B

�}16�@�m�c�[���o�[�n����m�R�����g �u���b�N�n���N���b�N

�R�����g���O�������ꍇ

�@�R�����g���O�������ꍇ�́A�O�������}�N���R�[�h��I�����A�m�c�[���o�[�n�́m�R�����g �u���b�N�n�̉E���ɂ���m��R�����g �u���b�N�n���N���b�N����ƃR�����g�A�E�g�����������B

������AExcel VBA�̊�b�m���̑���

�@����͂���ŏI��肾�B����̓v���O�����Ɋւ�����p����o�Ă������A�����͍Œ���A�o���Ă����˂΂Ȃ�Ȃ��p�ꂾ�B�p��̈Ӗ���������x�������Ă����Ȃ��ƁA�}�N���R�[�h���������Ƃ�����Ȃ�̂ŁA�悭�ǂ�ŗ������āA�Ƃ������A�o���Ă����Ăق����B

�@����́AExcel VBA�̊�b�m���̑��҂ŁA�ϐ���f�[�^�^�ɂ‚��ĉ������\�肾�B���y���݂ɁB

���X�V����

�y2016/7/7�zWindows 10�AExcel 2016�ɑΉ����܂����B


�Q�l����

���҃v���t�B�[��

PROJECT KySS ��t�� �����i�₭���� ���ɂ₷�j

1950�N���܂�B�t���[VB�v���O���}�B�����w�l�����[�J�[�̎����E�ɍݐE���A���VB��ActiveX�Ɏ��g�݁A�L�������M�B2003�N���t���[�B.NET��RIA�Ɋւ��鎷�M�����BWindows�X�g�A�A�v�����������J���i��270�{�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

PROJECT KySS�́A1997�N�ɖ�t�����ƌ��������R���{���[�V�����E���j�b�g


Copyright © ITmedia, Inc. All Rights Reserved.

'; }; BodyAdGAMWithCCE.prototype = Object.create(BodyAdContent.prototype); BodyAdGAMWithCCE.EVENT_INIT = 'init'; BodyAdGAMWithCCE.EVENT_READY = 'ready'; /** * AdContent �̏������Ɨ��p���� */ BodyAdGAMWithCCE.prototype.init = function () { Logger.writeln('BodyAdGAMWithCCE.prototype.init'); this.dispatchEvent(new CustomEvent(BodyAdGAMWithCCE.EVENT_INIT)); }; /** * �L���g�� GAM ���N�G�X�g */ BodyAdGAMWithCCE.prototype.activate = function () { refreshGam('InArtSpecialLink'); this.dispatchEvent(new CustomEvent(BodyAdGAMWithCCE.EVENT_READY)); }; // global reference window.itm = itm; //entry point const build = function( e ) { BodyAdEventBase.polyfill(); const bodyAdManager = BodyAdManager.getInstance(); bodyAdManager.addEventListener(BodyAdManager.EVENTS.READY, function (ev) { bodyAdManager.loadAdvertise(); }); bodyAdManager.init(); } build(); })();

�A�C�e�B���f�B�A����̂��m�点

�X�|���T�[����̂��m�点PR

���ڂ̃e�[�}

lɗȂA{ŌZLeBu_iCYv
4AI by IT - AIAAA
Microsoft  WindowsőO2025
AI for GWjAO
[R[h^m[R[h Zg by IT - ITGWjArWlX̒SŊ􂷂gD
Cloud Native Central by IT - XP[uȔ\͂gD
�V�X�e���J���m�E�n�E �y�����i�r�zPR
���Ȃ��ɂ������߂̋L��PR

RSS�ɂ‚���

�A�C�e�B���f�B�AID�ɂ‚���

���[���}�K�W���o�^

��IT�̃��[���}�K�W���́A �������A���ׂĖ����ł��B���Ѓ��[���}�K�W�������w�ǂ��������B