����
�A��

Excel�̑�햡�I ��������ł���f�[�^�̕��בւ��A�����A�u���A���o�FExcel�}�N���^VBA�Ŏn�߂�Ɩ��������v���O���~���O����i7�j�i4/5 �y�[�W�j

�v���O���~���O���S�҂�Ώۂ�Excel�}�N���^VBA���g�����Ɩ��������v���O�����̍������ꂩ�������܂��B����́A�f�[�^����̃��\�b�h�ASort�AFind�AFindNext�AReplace�AAutoFilter�AAdvancedFilter�Ȃǂ̎g�����ɂ‚��āA����������ĉ������yWindows 10�AExcel 2016�ɑΉ��z�B

Share
Tweet
LINE
Hatena

�f�[�^�̒��o�i�t�B���^�[�j

�@�Ō�ɁA�u�f�[�^�̒��o�v�ɂ‚��ĉ������B�f�[�^�̒��o�͎��ۂ̋Ɩ��ɂ����Ă��A�����p�x�Ŏg�p����鏈�����B������}�N�������Ă����΁A�Ɩ��̌��������{�ɒ��ˏオ�邱�Ɛ����������B

�@�܂��́A�I�[�g�t�B���^�[�@�\���g���ăf�[�^�����o���Ă݂悤�B�I�[�g�t�B���^�[�Ƃ͑�ʂ̃f�[�^���i�荞��Œ��o����ۂɗ��p����@�\���BExcel�̃��j���[������ݒ�͂ł��邪�A����̓}�N���ł���Ă݂�BExcel�̃��j���[�ł̂����́AWeb��ɂ��������񂪂���̂ŁA��������Q�Ƃ��Ăق����B

�I�[�g�t�B���^�[�@�\AutoFilter���\�b�h�̎g����

�@�I�[�g�t�B���^�[�@�\���g���ɂ́AAutoFilter���\�b�h���g�p����B�����͉��L�̒ʂ肾�B

AutoFilter���\�b�h�̏���

Range�I�u�W�F�N�g.AutoFilter Field:=�������w�肷���ԍ�,Criteria1:=�o���o����1�p,Operator:=�oOperator�p,Criteria2:=�o���o����2�p,VisibleDropDown:=True|False


�@VisibleDropDown�ɂ́A�t�B���^�[�{�^����\������l��True�܂���False�Ŏw��B�\������ꍇ��True�A���Ȃ��ꍇ��False���w�肷��B

�\10�@�o���o����1�`2�p�̒l�̗�
�L�q�� ����
"�ҏW���h �ҏW��
"*�ҏW��" �ҏW�����܂�
"�ҏW��*" �ҏW������n�܂�
"<>�ҏW��" �ҏW���ȊO
"<>*�ҏW��" �ҏW�����܂܂Ȃ�
"=10" 10�Ɠ�����
">10" 10���傫��
">=10" 10�ȏ�
"<10" 10��菬����
"<=10" 10�ȉ�
"<>10" 10�ȊO
"" �󔒃Z��
"<>" �󔒃Z���ȊO


�\11�@�oOperator�p�̒l
�ݒ�l ����
xlAnd �o���o����1�p�Ɓo���o����2�p�̘_�����Z�q AND
xlBottom10Items �����琔���ā��Ԗځi�o���o����1�p�Ŏw�肳��鍀�ڐ��j�܂ŕ\��
xlBottom10Percent �����琔���ā����i�o���o����1�p�Ŏw�肳��銄���j�܂ŕ\��
xlFilterCellColor �Z���̐F
xlFilterDynamic ���I�t�B���^�[
xlFilterFontColor �t�H���g�̐F
xlFilterIcon �t�B���^�[�A�C�R��
xlFilterValues �t�B���^�[�̒l
xlOr �o���o����1�p�܂��́o���o����2�p�̘_�����Z�q�uOR�v
xlTop10Items �ォ�琔���ā��Ԗځi�o���o����1�p�Ŏw�肳��鍀�ڐ��j�܂ŕ\��
xlTop10Percent �ォ�琔���ā����i�o���o����1�p�Ŏw�肳��銄���j�܂ŕ\��
�Q�l�uXlAutoFilterOperator �񋓌^ - MSDN�v

�I�[�g�t�B���^�[�@�\���g���Ă݂悤

�@�}11�̂悤�ȕ\�̒�����A�S�C���u�����v�̃f�[�^�����o���Ă݂悤�B�}11�ɂ́u�S�C�v����͂��闓�Ɓu���s�v�{�^��������B�u�S�C�v����͂��āu���s�v�{�^�����N���b�N����ƁA���́u�S�C�v�f�[�^�����o�����B�I�[�g�t�B���^�[����������ꍇ�́u�I�[�g�t�B���^�[�̉����v�{�^�����N���b�N����B


�}11�@���k����̕\

�@�u�S�C�v�Ɂu�����v�Ɠ��͂��āuOK�v�{�^�����N���b�N����ƁA�u�S�C�v���u�����v�̃f�[�^���\�������i�}12�j�B


�}12�@�u�S�C�v���u�����v�̃f�[�^�����o���ꂽ

�@�}12����I�[�g�t�B���^�[����������ɂ́u�I�[�g�t�B���^�[�̉����v�{�^�����N���b�N����Ƃ����B���̃}�N���̓��X�g8�ɂȂ�B

Option Explicit
Sub �I�[�g�t�B���^�[�ɂ�钊�o()
  Dim myName As String
  myName = Range("E4").Value
  If myName = "" Then
    MsgBox "�S�C����͂��Ă��������B"
  Else
    Range("B6").AutoFilter Field:=4, Criteria1:=myName
  End If
End Sub
 
Sub �I�[�g�t�B���^�[�̉���()
  If ActiveSheet.AutoFilterMode = True Then
    Range("B6").AutoFilter
  End If
End Sub
���X�g8�@�I�[�g�t�B���^�[�ɂ�钊�o�ƁA�I�[�g�t�B���^�[�̉���

�@�ϐ��umyName�v��錾���A���͂��ꂽ�u�S���v�̒l���i�[���Ă����i3�`4�s�ځj�B�u�S���v�������͂̏ꍇ�͌x�����b�Z�[�W�{�b�N�X��\������i5�`6�s�ځj�B

�@�Z���uB6�v�����AutoFilter���\�b�h��Field�ɒ��o�ΏۂƂȂ��ԍ����w�肷��i8�s�ځj�B���̏ꍇ�̗�ԍ��́A���[���琔����5�ԖڂɂȂ邪�A�uB6�v�̃Z������ɂ��Ă���B���̂��߁AField�Ɏw�肷���̔ԍ��́u4�v�ɂȂ�̂ŁA���ӂ��Ăق����B���o�����́uCriteria1�v�ɂ͕ϐ��umyName�v�̒l���w�肷��B

�@���̃}�N�����u���s�v�{�^���Ɗ֘A�t����B�u���s�v�{�^����I�����āA�}�E�X�̉E�N���b�N�ŕ\�������u�}�N���̓o�^�v����o�^����B

�@12�`16�s�ڂ̃I�[�g�t�B���^�[�̉����ł́A�I�[�g�t�B���^�[���[�h���I���ɂȂ��Ă��邩�ǂ����𔻒f���āA�I���̏ꍇ�i13�s�ځj�ɂ̓I�[�g�t�B���^�[����������i14�s�ځj�B���̃}�N�����u�I�[�g�t�B���^�[�̉����v�{�^���ɓo�^����B

������ƕ��G�ȏ����Œ��o

�@���ɁA�w�N���u3�N�v���܂ވȏ�ł��u6�N�v�ȉ��̃f�[�^�𒊏o���Ă݂悤�B�}�N���̓��X�g9�̂悤�ɂȂ�B

Sub �w�N��3�N���܂ވȏォ��6�N�ȉ��𒊏o()
  Range("B6").AutoFilter Field:=3, Criteria1:=">=3" & "�N", Operator:=xlAnd, Criteria2:="<6" & "�N"
End Sub
���X�g9�@�w�N���u3�N�v���܂ވȏ�ł��u6�N�v�ȉ��̃f�[�^�𒊏o

�@Criteria1�Ɂu3�N�v���܂ނ���ȏ�̏������w�肵�AOperator�ɂ́uxlAnd�v���w�肵�ACriteria2�̒��o�����Ɂu6�N�v�ȉ����w�肵�Ă���B�w�N�͕�����ɂȂ��Ă���̂ŁA�u&�v�Ő��l�Ɓu�N�v�ƘA�����A�����͐��l�����݂̂Ŕ��ʂ����Ă���B���ʁA���L�Ɠ����L�q�ɂȂ�B

�w�N>=3 And �w�N< 6

�@1�x�u�I�[�g�t�B���^�[�v�̉����{�^���Ńt�B���^�[����������B���̌�Excel���j���[�́u�J���v���uVisual Basic�v�Ƃ��ǂ��ă}�N���R�[�h��\�����A���X�g9�̃R�[�h�̒��ɃJ�[�\����u���A�u���s�v���uSub/���[�U�[�t�H�[���̎��s�v�ƑI������B����Ɛ}13�̂悤�ɕ\�������B


�}13�@�u�w�N�v���u3�N�v���܂ނ���ȏ�ł��u6�N�v�ȉ��̃f�[�^�𒊏o

�@�}13������Ɗe���o���̍��ڂɖ�󂪕\������Ă���B���̖����\���ɂ��邱�Ƃ��”\���B����ɂ́A�uAutoFilter���\�b�h�̏����v�ʼn�����Ă���A�uVisibleDropDown�v��False�Ǝw�肷��Ɣ�\���ɂł���B�e���������Ă݂Ăق����B

�@���y�[�W�ł́A�t�B���^�[�I�v�V�����̋@�\���g���ăf�[�^�����o���Ă݂悤�B

Copyright © ITmedia, Inc. All Rights Reserved.

�y�[�W�g�b�v�ɖ߂�
OSZAR »