�mEsc�n�L�[�ɂ��Excel VBA�̎��s���f��h�~�����FTech TIPS

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

» 2012�N10��05�� 16��36�� ���J
[���c�L���C�f�W�^���A�h�o���e�[�W]
uTech TIPSṽCfbNX

�A�ږڎ�

�Ώۃ\�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

mEscnL[Excel VBA̎s͎~܂ �mEsc�n�L�[��������Excel VBA�̎��s�͎~�܂�
Excel VBA�̎��s���ɁmEsc�n�L�[�������ƁAVBA�̎��s�����f����ƂƂ��ɁA���̃_�C�A���O���\�������B�G���[�ł͂Ȃ��̂Ɏ������s�𒆎~�ł���͖̂]�܂����Ȃ����AVBA�ɏڂ����Ȃ��G���h���[�U�[���˘f�������ȃ_�C�A���O���\������邱�Ƃ����������ł���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

�mEsc�n�L�[���邢�́mCtrl�n�{�mBreak�n�L�[�ɂ��VBA�̎��s���f��h��
Application.EnableCancelKey�v���p�e�B�̒l��ς��邱�ƂŁAVBA�̎��s���~�߂��Ȃ��悤�ɂł���B
�@ �i1�j�v���O�������s���ɃG���[������������A���́uhandleError�v�ɃW�����v������B
�@ �i2�j�mEsc�n�^�mCtrl�n�{�mBreak�n�L�[�������Ă��A�v���O�������s���~�߂Ȃ��ݒ�B
�@ �i3�j�mEsc�n�^�mCtrl�n�{�mBreak�n�L�[����������A�v���O�������s���~�߂�ݒ�B�����炪�f�t�H���g�ł���B
�@ �i4�j�G���[�����������ꍇ���A�v���O�������s���~�ł���ݒ�ɖ߂��B

�@�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

VBÃGfB^Application.EnableCancelKeyvpeBݒ肵ĂƂ VBA�̃G�f�B�^��Application.EnableCancelKey�v���p�e�B��ݒ肵�Ă���Ƃ���
�@ �i1�j���Ƃ��Ƃ̎��������v���O�����̕����B�O�q�̃��X�g�̂悤��Application.EnableCancelKey�v���p�e�B��ݒ肷��s�́A���̑O��ɑ}������B

�����ӁF VBA�̎��s���~�߂�ɂ͋����I������K�v������

�@�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

�����̋L���Ɗ֘A���̍����ʂ̋L��


uTech TIPSṽCfbNX

�uTech TIPS�v

Copyright© Digital Advantage Corp. All Rights Reserved.

'; if( !this.isSubscription ) { this.insertTarget = document.querySelector('#cmsBody .subscription') || document.querySelector('#cmsBody .inner'); } }; BodyAdIMSWithCCE.prototype = Object.create(BodyAdContent.prototype); BodyAdIMSWithCCE.prototype.activate = function () { refreshGam('InArtSpecialLink'); } // global reference window.itm = itm; //entry point BodyAdEventBase.polyfill(); const bodyAdManager = BodyAdManager.getInstance(); bodyAdManager.addEventListener(BodyAdManager.EVENTS.READY, function (ev) { bodyAdManager.loadAdvertise(); }); bodyAdManager.init(); })();
�X�|���T�[����̂��m�点PR

���ڂ̃e�[�}

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