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
�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
�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 |
�ݒ�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
�@�u�S�C�v�Ɂu�����v�Ɠ��͂��āuOK�v�{�^�����N���b�N����ƁA�u�S�C�v���u�����v�̃f�[�^���\�������i�}12�j�B
�@�}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
�@�ϐ��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
�@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������Ɗ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.
�֘A�L��
- Excel�}�N���^VBA���t�@�����X�p�r�ʁE�L�[���[�h�ʈꗗ���܂Ƃ�
�s�{�b�g�e�[�u���Ƃ͉��������u���������A��������@�\���v�𗝉�����
Excel��ʂ��āu�s�{�b�g�e�[�u���v�̊�b���w�сA�f�[�^���͂����H����܂ł��K������{�A�ځB����̓s�{�b�g�e�[�u���̊�b�ƁA�u�ǂ�Ȃ��Ƃ��ł���̂��v���������B�ǂ�ȃr�W�l�X�ɂ��������Ȃ������[�V���i���f�[�^�x�[�X�̊�b�m���ƍ����\�\�e�[�u���A���R�[�h�A�t�B�[���h�A��L�[�Ƃ�
Access��ʂ��āA���S�҂������[�V���i���f�[�^�x�[�X��SQL�̊�{���w�сA�f�[�^�x�[�X���g�����ȒP�ȃV�X�e���̍������K������{�A�ځB����̓f�[�^�x�[�X�̊�{�𗝉����AAccess���g���n�߂Ă݂悤�B