Excel�ł�VBA�iVisual Basic for Applications�j�ɂ���Ă��܂��܂ȏ����������I�Ɏ��s�ł���B�������AVBA�̎��s���Ƀ��[�U�[���mEsc�n�L�[���邢�́mCtrl�n�{�mBreak�n�L�[�������ƁA�����������~�܂��Ă��܂��B�~�߂����Ȃ��ꍇ�́AApplication.EnableCancelKey�v���p�e�B�̐ݒ��ύX����B
�Ώۃ\�t�g�E�F�A�FExcel 2003�^Excel 2007�^Excel 2010
�@Excel�ł́A�}�N�����邢��VBA�iVisual Basic for Applications�j�ƌĂ��@�\�ɂ���āA���܂��܂ȏ����������I�Ɏ��s�ł���B�G���h���[�U�[�ɂ�锻�f�⑀�삪�s�v�Ȓ�^�����Ȃ�AVBA�Ńv���O������g�ނ��ƂŋN�����珈�������܂Ŋ��S�Ɏ������s���邱�Ƃ��\���B
�@��������VBA�̃v���O�����̎��s���ɁAExcel�ɑ��āmEsc�n�L�[���邢�́mCtrl�n�{�mBreak�n�L�[�������ƁA�u�R�[�h�̎��s�����f����܂����v�Ƃ����_�C�A���O���\������āA���������f���Ă��܂��BVBA�ɏڂ����Ȃ��G���h���[�U�[������ɑ������Ă��A�m�p���n�{�^���������Ƃ������K�ȑΏ��͊��҂ł��Ȃ����낤�B���������A�f�o�b�O���Ȃ�Ƃ������{�^�p���Ȃ�A�mEsc�n�L�[�������Ă�VBA�̎��s�͎~�܂�Ȃ��悤�ɂ��Ă��������Ƃ��낾�B
�@Excel VBA�ɂ́A�mEsc�n�L�[���邢�́mCtrl�n�{�mBreak�n�L�[�������ꂽ�Ƃ��̋��������߂�v���p�e�B�uApplication.EnableCancelKey�v���p�ӂ���Ă���B�{�e�ł́A���̃v���p�e�B��ύX���邱�ƂŁmEsc�n�^�mCtrl�n�{�mBreak�n�L�[�ɂ����s���f��h�����@���������B
�@�mEsc�n�L�[���邢�́mCtrl�n�{�mBreak�n�L�[���������Ƃ��ɁAVBA�̎��s���~�߂邩�ǂ����́A�uApplication.EnableCancelKey�v�Ƃ����v���p�e�B�Őݒ�ł���B�f�t�H���g�ł́A���̃v���p�e�B�ɂ́uxlInterrupt�v�Ƃ����萔���ݒ肳��Ă��āAVBA�̎��s���~�ł���悤�ɂȂ��Ă���B������uxlDisabled�v�Ƃ����萔�ɕύX����ƁA�mEsc�n�^�mCtrl�n�{�mBreak�n�L�[�������Ă�VBA�̎��s���~�߂��Ȃ��Ȃ�B
�@��̓I�ɂ́A�{���̎��������v���O�����̃R�[�h�̑O�ɁuApplication.EnableCancelKey = xlDisabled�v�Ƃ����s��}������B
Public Sub Sample()
On Error GoTo handleError �c�c�i1�j
Application.EnableCancelKey = xlDisabled �c�c�i2�j
�c�c�i���������v���O�����̃R�[�h�j�c�c
Application.EnableCancelKey = xlInterrupt �c�c�i3�j
Exit Sub
handleError:
Application.EnableCancelKey = xlInterrupt �c�c�i4�j
�c�c�i���̃G���[�����j�c�c
End Sub
�@�v���O�����̎��s���I�������́A�mEsc�n�L�[���邢�́mCtrl�n�{�mBreak�n�L�[�Ŏ~�߂���悤�ɁA�uApplication.EnableCancelKey = xlInterrupt�v�Ƃ����s��}������B�܂��r���ŃG���[�����������ꍇ���A���l�ɁuxlInterrupt�v��ݒ肵�ďI������悤�ɂ���B
�@�uApplication.EnableCancelKey = xlDisabled�v��ݒ肵���ꍇ�A���s����VBA���~�߂�ɂ�Excel�������I��������K�v������B���̂��߁A�f�o�b�O�Ȃǂ�VBA���悭�~�߂�ꍇ�ɂ́AxlInterrupt�̂܂܂ɂ��Ă������ƁB�܂��G���[�����������Ƃ��ɖ������[�v�Ɋׂ�Ȃ��悤�A�G���[�����ɂ����ӂ��K�v������B
�uTech TIPS�v
Copyright© Digital Advantage Corp. All Rights Reserved.