�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
�@�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
�@�u�f�[�^�폜�v�t�H�[���͑O��쐬���Ă���̂ŁA�ēx���̃f�U�C����ʂ����Љ�Ă����i�}1�j�B
�@�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
�@�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
�@�܂��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
�@���X�g1�ł́A�폜�m�F�̃��b�Z�[�W�̕\����MsgBox�����g���Ă���BMsgBox�̏����͉��L�̒ʂ肾�B��Ȉ����̂ݏЉ�Ă���B
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
�萔 | �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
�@MsgBox�̖߂�l�͕\2�̂悤�ɂȂ�B
�萔 | �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 |
�@�u�f�[�^�폜�v�����s����Ɛ}3�̂悤�ɂȂ�B
�@�ȏ�ō폜�����͏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
Copyright © ITmedia, Inc. All Rights Reserved.