Excel�V�[�g�̎Q�ƁA�ړ��A�R�s�[�A�lj��A�폜�ƃC�x���g�����FExcel�}�N���^VBA�Ŏn�߂�Ɩ��������v���O���~���O����i9�j�i1/4 �y�[�W�j

�v���O���~���O���S�҂�Ώۂ�Excel�}�N���^VBA���g�����Ɩ��������v���O�����̍������ꂩ�������܂��B����́A���[�N�V�[�g����̃��\�b�h�AMove�ACopy�AAdd�ADelete�ɉ����āAArray�֐��ɂ�镡�����[�N�V�[�g�̎Q�ƁA�C�x���g������Function�v���V�[�W���Ȃǂ̎g�����ɂ‚��āyWindows 10�AExcel 2016�ɑΉ��z�B

» 2016�N08��31�� 05��00�� ���J

�V�[�g������o���ăf�[�^�Ǘ���@�ɕ����������悤

�@�v���O���~���O���S�҂�Ώۂ�Excel�}�N���^VBA���g�����Ɩ��������v���O�����̍������ꂩ��������{�A�ځuExcel�}�N���^VBA�Ŏn�߂�Ɩ��������v���O���~���O�����v�B����̓V�[�g�i���[�N�V�[�g�j�̑���ɂ‚��ĉ������B�A�ڑ�4��́uExcel�̊�{�I�u�W�F�N�g�w�Z���x�̎Q�ƁA�ړ��A�R�s�[�A�I���A�}���A�폜�v�ł́AExcel�̃Z���ɂ‚��Ă��܂��܂ȑ��������������AExcel���N�����čŏ��ɖڂɂ���u�Z���v�������ɏW�܂�����ʂ��u�V�[�g�v���B����ɁA�u�V�[�g�v���W�܂������̂��u�u�b�N�v�Ƃ����B

�@�ʏ�Excel���g�p����ꍇ�A1�V�[�g�����g���Ƃ������Ƃ͂قƂ�ǂȂ��B�O��܂ł̘A�ڂł��A�V�[�g�̑���ɂ‚��Ă͎��ܐG��Ă����B

�@�Ⴆ�΁A�����̃V�[�g��lj����āA�u1�����̔���v�u2�����̔���v�c�c�u12�����̔���v�Ƃ����悤�ɁA�e���̔�����V�[�g�ʂɊǗ����邱�Ƃ͂悭����B���̂悤�ɁA�ʂȃV�[�g�̃f�[�^���A�u�W�v�v�Ƃ����V�[�g��p�ӂ��āA�����ň�C�ɏW�v�����邱�Ƃ��ł���B

�@�V�[�g�̑�����o����ƁA�Ɩ��������̎�@�ɕ����ł��A�f�[�^�̊Ǘ������₷���Ȃ闘�_������B����́A�V�[�g�̑����VBA�łǂ̂悤�Ɏ�������̂����������B���ЁA�}�X�^�[���Ċe�E��ʼn��p���Ă��炢�����B��i����̂��Ȃ��ւ̕]�����オ�邱�Ɛ��������ł���B

�蓮��Excel�̃V�[�g��lj����A���O��ύX����

�@�ŏ��́A�V�[�g��lj�����Ƃ��납����낤�B�V�[�g��lj�����ɂ͐}1�̂悤�ɉ�ʂ̍������ɂ���m���Ɂ{�n�̃A�C�R�����N���b�N����B

�}1�@Excel���N������ƍŏ��́uSheet1�v�������lj�����Ă���

�@�ŏ��̏�Ԃł́uSheet1�v�������lj�����Ă���B�m���Ɂ{�n�̃A�C�R�����N���b�N����ƁA�����I�ɁuSheet2�v�uSheet3�v�c�c�uSheet6�v�ƒlj�����Ă����i�}2�j�B

�}2�@�m���Ɂ{�n�̃A�C�R���N���b�N�ŃV�[�g���lj������

�@�lj����ꂽ�V�[�g�̖��O��ύX����ɂ́A�Ⴆ��Sheet1�Ȃ�uSheet1�v�̏�Ń_�u���N���b�N����B����ƁA�ҏW��ԂɂȂ��ăV�[�g�����ύX�ł���B���̗�ł͊e�V�[�g���u1�N���v�`�u6�N���v�Ƃ������̂ɕύX�����i�}3�j�B

�}3�@�V�[�g����ύX����

Excel�V�[�g�̎Q�Ƃ�2�‚̕��@������

�@�V�[�g���lj��ł����Ƃ���ŁA���̓V�[�g�̎Q�Ƃ��s���B�e�w�N�̃V�[�g��I�����鏈����VBA�ŏ����Ă݂悤�B

�@���̑O�ɁA�}3�̏�Ԃ���u1�N���v��I�����āA�}�E�X�̉E�N���b�N�ŕ\������郁�j���[����A�m�}���n��I������B�u�}���v��ʂ��\�������̂ŁA�m�W���n�^�u����u���[�N�V�[�g�v��I�����āmOK�n�{�^�����N���b�N����B

�@����ƁA�u1�N���v�V�[�g�̑O�ɁuSheet7�v���lj������B����Sheet7���u���j���[�v�Ƃ������ږ��ɕύX����i�}4�j�B

�}4�@�u1�N���v�̑O��Sheet7��lj����A���O���u���j���[�v�Ƃ���

�@���ɁA�u���j���[�v�V�[�g��I�����āA�u���j���[�v�V�[�g���Excel���j���[�́m�}���n���m�}�`�n�ƑI�����āA�u�p�ێl�p�`�v��6�”z�u���āA���O�Ɂu1�N������v�`�u6�N������v�Ƃ��Ă����B�}5�̂悤�ȃ��j���[������Ă����B

�}5�@�u���j���[�v�V�[�g�̉��

�u�C���f�b�N�X�ԍ��v�Ŏw��

�@VBE���N�����ă��X�g1�̃}�N�����L�q���悤�B�e�w�N�̃V�[�g��I������ɂ�Select���\�b�h���g�p���邾�����B���̊e�}�N�����{�^���Ɋ֘A�t���邾���ŁA�N���b�N�����{�^���̃V�[�g���I�������B

Option Explicit
Sub ��N���V�[�g�̑I��()
    Worksheets(2).Select
End Sub
Sub ��N���V�[�g�̑I��()
    Worksheets(3).Select
End Sub
Sub �O�N���V�[�g�̑I��()
    Worksheets(4).Select
End Sub
Sub �l�N���V�[�g�̑I��()
    Worksheets(5).Select
End Sub
Sub �ܔN���V�[�g�̑I��()
    Worksheets(6).Select
End Sub
Sub �Z�N���V�[�g�̑I��()
    Worksheets(7).Select
End Sub
Sub ���j���[�ɖ߂�()
 Worksheets(1).Select
End Sub
���X�g1�@�e�w�N�̃V�[�g��I������

�@Worksheets�̃R���N�V�����ɃC���f�b�N�X�ԍ��Ƃ��āA�V�[�g�̔ԍ����w�肵�ASelect���\�b�h�őI����Ԃɂ���B�uWorksheets(1)�v�́u���j���[�v�V�[�g�ɂȂ�̂ŁA�u1�w�N�v�V�[�g�́uWorksheets(2)�v�ɂȂ�AIndex��1���‚����B

�u�V�[�g���v�Ŏw��

�@�܂��AIndex�Ŏw�肵�Ȃ��Łu�V�[�g���v�Ŏw�肷�邱�Ƃ��ł���B�Ⴆ�΃��j���[�ɖ߂�Sub�v���V�[�W���͉��L���X�g2�̂悤�ɏ������Ƃ��ł���B

Sub ���j���[�ɖ߂�()
  Worksheets("���j���[").Select
End Sub
���X�g2�@Index�ԍ��̑���ɃV�[�g�����w��

�@Index�̑���Ɂu���j���[�v�Ƃ����V�[�g���𒼐ڎw�肵�Ă���B

�@�uSub���j���[�ɖ߂�v�v���V�[�W���́A�e�w�N�̃V�[�g���I�����ꂽ�Ƃ��A���̃V�[�g���烁�j���[�ɖ߂��悤�Ɂu���j���[�ɖ߂�v�{�^���ɒlj�����v���V�[�W�����B

���s����

�@�����̃}�N�����u���j���[�v�V�[�g�ɔz�u�����{�^���Ɗ֘A�t����B�܂��I�����ꂽ�V�[�g�ɂ́u���j���[�ɖ߂�v�{�^���Ɂu���j���[�ɖ߂�v�}�N�����֘A�t����B

�@�}�N�����֘A�t������@�͘A�ڂŊ��ɉ��x���o�Ă��Ă���̂ŁA�������������Ɣ��f���āA�����͏ȗ�����B

�@���s����ƁA�}6�̂悤�ɂȂ�B

�}6�@���j���[��ʂ���{�^�����N���b�N���Ċe�w�N�̃V�[�g��I�����i�����j�A�u���j���[�ɖ߂�v�{�^���Ń��j���[�ɖ߂�i�E���j

�@���y�[�W�ł́A�����̃��[�N�V�[�g���Q�Ƃ��Ă݂悤�B

�@�@�@�@�@�@ 1|2|3|4 ���̃y�[�W��

Copyright © ITmedia, Inc. 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�[�}

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