Excel����œ������Ȃ��悤�Ƀf�[�^�폜�����ƃ��j���[��ʂ���違MsgBox�֐��̎g�����FExcel�}�N���^VBA�Ŏn�߂�Ɩ��������v���O���~���O����i15�j�i1/3 �y�[�W�j

�v���O���~���O���S�҂�Ώۂ�Excel�}�N���^VBA���g�����Ɩ��������v���O�����̍������ꂩ�������܂��B���p�҂�3��ڂ́A�s�v�ɂȂ����f�[�^�����‚��Ď����I�ɍ폜����}�N���̏��������Љ�BMsgBox�֐��̎g������������߂�l�̕\�ƂƂ��ɉ�����܂��yWindows 10�AExcel 2016�ɑΉ��z�B

» 2016�N10��24�� 05��00�� ���J
[��t�������CPROJECT KySS]

Excel����œ������Ȃ��悤��

�@�v���O���~���O���S�҂�Ώۂ�Excel�}�N���^VBA���g�����Ɩ��������v���O�����̍������ꂩ��������{�A�ځuExcel�}�N���^VBA�Ŏn�߂�Ɩ��������v���O���~���O�����v�B�O�X�����牞�p�҂Ƃ��āu�l���Ǘ��V�X�e���v�����n�߂Ă���B

�@����́u�f�[�^�폜�v�ƑO�X��ŁA���������摜�ŏЉ���u���j���[�v�̍������Љ��B�u�f�[�^�폜�v�t�H�[���́u�f�[�^�����v�t�H�[���ƕ��p���Ă��邽�߁A�u�f�[�^�폜�v�t�H�[���̍����͏ȗ�����B�쐬���@�ɂ‚��Ă��O��L�����Q�Ƃ��Ăق����B

�@�u�f�[�^�����v�Ɓu�f�[�^�폜�v�t�H�[���̈Ⴂ�́u�폜�v�{�^�����\������邩�A����Ȃ�����1�_�������B���ꂩ��쐬����u���j���[�v��ʂŁA�u�f�[�^�폜�v���N���b�N�����Ƃ��ɂ̂݁u�폜�v�{�^����\�������āA�f�[�^�̍폜���”\�ɂ���B

�@Excel�Ńf�[�^���Ǘ�����ꍇ�A���R�s�v�ɂȂ����f�[�^�͍폜����B���������̃f�[�^�̒�������Ƃō폜����f�[�^��T���Ă����̂ł́A�������Ă��܂��B����Ȕ�����I��Excel�̎g�����ł�Excel�ɐ\����Ȃ��B

�@�s�v�ɂȂ����f�[�^�ɂ‚��ẮA�����ŊY������f�[�^�����‚��āA�폜����}�N�����������ƂŁA����Ɩ�������������B���ꂪExcel�{���̐������g�������B

�f�[�^�폜��ʂ����

�@�u�f�[�^�폜�v�t�H�[���͑O��쐬���Ă���̂ŁA�ēx���̃f�U�C����ʂ����Љ�Ă����i�}1�j�B

�}1�@�f�[�^�폜�̂��߂Ɋe��R���g���[�������C�A�E�g����

�@�u�f�[�^�폜�v�ƑO��́u�f�[�^�����v�t�H�[���͋��p���Ă���̂ŁA�t�H�[����ʂ̍쐬���@��A�z�u����R���g���[���̎�ށA�u�I�u�W�F�N�g���v�ɂ‚��Ă͑O��́u�e�R���g���[���̔z�u�ƃv���p�e�B�̐ݒ��v���Q�Ƃ��Ăق����B

�폜�����̃}�N���R�[�h

�@�v���O�����R�[�h�ɂ‚��Ă��AUserForm2�́u�f�[�^�����v�Ŏg�p�����R�[�h�Ɠ������B�قȂ�_�́A�u�f�[�^�폜�v�t�H�[����I�������ꍇ�A�u�폜�v�{�^�����\������邱�ƁB�����ł́A���́u�폜�v�{�^�����N���b�N�����ꍇ�̃R�[�h�̂ݏЉ��i���X�g1�j�B���̑��̃R�[�h�ɂ‚��ẮA�O����Q�Ƃ��Ăق����B

Private Sub �폜�{�^��_Click()
  If ID���x��.Caption = "" Then
    MsgBox ("�폜�Ώۂ��w�肳��Ă���܂���B")
    Exit Sub
  End If
 
  Dim �폜�m�F As Integer
  �폜�m�F = MsgBox("�폜���܂����H", vbYesNo + vbExclamation, "�폜�m�F")
  If �폜�m�F = vbYes Then
    Worksheets("�l���f�[�^").Select
    Dim �s�ԍ� As Integer
    �s�ԍ� = ActiveCell.Row
 
    Range(Cells(�s�ԍ�, 1), Cells(�s�ԍ�, 8)).Delete
    MsgBox "�폜���܂����B"
 
    ID���x��.Caption = ""
    �������x��.Caption = ""
    ���ʃ��x��.Caption = ""
    ���N�������x��.Caption = ""
    �X�֔ԍ����x��.Caption = ""
    �Z�����x��.Caption = ""
    �d�b�ԍ����x��.Caption = ""
    ���[�����x��.Caption = ""
    
    ���������e�L�X�g�{�b�N�X.Text = ""
    �����Z���e�L�X�g�{�b�N�X.Text = ""
    �����d�b�ԍ��e�L�X�g�{�b�N�X.Text = ""
    
    �����{�^��.Enabled = False
    �Z���{�^��.Enabled = False
    �d�b�ԍ��{�^��.Enabled = False
    
    �����I�v�V�����{�^��.Value = False
    �Z���I�v�V�����{�^��.Value = False
    �d�b�I�v�V�����{�^��.Value = False
    
    If ���� = 1 Then
      Call �����I�v�V�����{�^��_Click 
    End If
    
    If ���� = 2 Then
      Call �Z���I�v�V�����{�^��_Click
    End If
    
    If ���� = 3 Then
      Call �d�b�I�v�V�����{�^��_Click
    End If
  Else
    MsgBox "�폜���~���܂����B"
    Exit Sub
  End If
End Sub
���X�g1�@�u�폜�v�{�^�����N���b�N�����Ƃ��̏���

�@�܂��AID���x�����Ƀf�[�^���\������Ă��Ȃ��ꍇ�́A�폜�Ώۂ̃f�[�^���I������Ă��Ȃ����̂ƌ��Ȃ��āA���b�Z�[�W��\���������𔲂���i2�`4�s�ځj�B

�@�폜�m�F�̃��b�Z�[�W�{�b�N�X��\���������ʂ̒l���i�[����Integer�^�̕ϐ��u�폜�m�F�v��錾����i7�s�ځj�BMsgBox�̖߂�l���󂯎��A�l���uvbYes�v�i�͂��j�ł������ꍇ�́A�폜�����s���鏈���ɂȂ�i9�s�ځj�BMsgBox�̎g�����ɂ‚��ẮA�܂Ƃ߂Č�q����B

�@�u�l���f�[�^�v�V�[�g��\�����i10�s�ځj�AInteger�^�̕ϐ��u�s�ԍ��v��錾����i11�s�ځj�B�ϐ��u�s�ԍ��v�ɃA�N�e�B�u�ȍs���i�[����i12�s�ځj�B

�@Delete���\�b�h�ŃA�N�e�B�u�ȍs�i�s�ԍ��j�ł���A1��ڂ���8��ڂ܂ł̃f�[�^���폜���A�u�폜���܂����B�v�̃��b�Z�[�W��\������i14�`15�s�ځj�B

�@�ڍ׃f�[�^��\�����Ă����e���x���̒�����ɂ���i17�`24�s�ځj�B�܂��A�e�����p�̃e�L�X�g�{�b�N�X�̒�����ɂ���i26�`28�s�ځj�B�u���s�v�{�^����S�Ďg�p�s�‚Ƃ���i30�`32�s�ځj�B�e�I�v�V�����{�^���̑I�����S�ĉ�������i34�`36�s�ځj�B

�@�V�����폜�����s����ꍇ�A�ϐ��u����v�ŏ����𕪊򂷂�B�u����v�ϐ���1�̏ꍇ�́u�����I�v�V�����{�^��_Click�v�v���V�[�W�����A2�̏ꍇ�́u�Z���I�v�V�����{�^��_Click�v�v���V�[�W�����A3�̏ꍇ�́u�d�b�I�v�V�����{�^��_Click�v�v���V�[�W�������s����i38�`48�s�ځj�B

�@�폜�m�F�Łu�������v��I�������ꍇ�́A�u�폜���~���܂����B�v�ƕ\������i49�`50�s�ځj�B

MsgBox�֐��̎g����

�@���X�g1�ł́A�폜�m�F�̃��b�Z�[�W�̕\����MsgBox�֐����g���Ă���BMsgBox�̏����͉��L�̒ʂ肾�B��Ȉ����̂ݏЉ�Ă���B

MsgBox�̏���

MsgBox(�oprompt�p,�obuttons�p,�otitle�p)


�@�oprompt�p�͕K�{���ڂŁA�\�����郁�b�Z�[�W���w�肷��B�obuttons�p�͔C�ӂŁA�\������{�^���̎�ނ�^�C�v���w�肷��i�\1�j�B�otitle�p�͔C�ӂŃ��b�Z�[�W�{�b�N�X�ɕ\������^�C�g�����w�肷��B

MsgBox�ŕ\������{�^���̎��

�\1�@MsgBox�Ɏw�肷��obuttons�p�̎�ށi��Ȃ��̂̂ݏЉ�j
�萔 �l ����
vbOKOnly 0 OK�{�^����\��
vbOKCancel 1 OK��Cancel�{�^����\��
vbYesNo 4 �u�͂��v�Ɓu�������v�{�^����\��
vbQuestion 32 �₢���킹���b�Z�[�W�A�C�R����\��
vbExclamation 48 �x�����b�Z�[�W�A�C�R����\��
vbInformation 64 ��񃁃b�Z�[�W�A�C�R����\��
�Q�l�uMsgBox Function - MSDN�v

�@�obuttons�p�̎�ނ́u+�v�ŘA�����ĕ����w��ł���B�����ł́uvbYesNo + vbExclamation�v���w�肵�Ă��邽�߁A�x�����b�Z�[�W�A�C�R�����\������A�m�͂��n�{�^���Ɓm�������n�{�^���̕t�������b�Z�[�W�{�b�N�X���\�������i�}2�Q�Ɓj�B

�}2�@�\�����ꂽ���b�Z�[�W�{�b�N�X

MsgBox�̖߂�l

�@MsgBox�̖߂�l�͕\2�̂悤�ɂȂ�B

�\2�@MsgBox�̖߂�l
�萔 �l ����
vbOK 1 OK
vbCancel 2 �L�����Z��
vbAbort 3 ���~
vbRetry 4 ���s
vbIgnore 5 ����
vbYes 6 �͂�
vbNo 7 ������
�Q�l�uMsgBox Function - MSDN�v

�f�[�^�폜�̎��s����

�@�u�f�[�^�폜�v�����s����Ɛ}3�̂悤�ɂȂ�B

�}3�@�u�f�[�^�폜�v�����s�������

�@�ȏ�ō폜�����͏I��肾�B�I�v�V�����{�^������\�����������ڂ�I�����A���X�g�{�b�N�X�ɕ\�����ꂽ���ڂ�I�����āA�e�L�X�g�{�b�N�X�ɕ\�����A�u���s�v�{�^�����N���b�N���āA�Y������f�[�^�����x�����ɕ\������Ƃ���܂ł́A�O��́u�f�[�^�����v�����ƑS�������ł��邽�߁A�O����Q�Ƃ��Ăق����B

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

Copyright © ITmedia, Inc. All Rights Reserved.

'; 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