����
�A��

Excel�̑�햡�I ��������ł���f�[�^�̕��בւ��A�����A�u���A���o�FExcel�}�N���^VBA�Ŏn�߂�Ɩ��������v���O���~���O����i7�j�i1/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

����̎�ȓ��e


�@�v���O���~���O���S�҂�Ώۂ�Excel�}�N���^VBA���g�����Ɩ��������v���O�����̍������ꂩ��������{�A�ځuExcel�}�N���^VBA�Ŏn�߂�Ɩ��������v���O���~���O�����v�B�O��́u�v���O�����̊́I ��������ƌJ��Ԃ��̊�{���@�Ƃ��܂��܂ȏ������v�ł́AVBA�Ɍ��炸�葱���^�v���O���~���O�ɕK�v�ƂȂ�u��������v�u���[�v�����v�ɂ‚��Ċw�񂾁B

�@����́A�O��Ɠ������v���O���~���O�Ɍ������Ȃ��A�\�[�g�i���בւ��j�⌟���A�u���A���o�i�t�B���^�����O�j�Ȃǂɂ‚��ĉ������B�����̏������f�[�^�ōs���u�f�[�^����v�͖����ɂł��Ɩ��Ɏ�����Ďg�p�ł��鏈���ƂȂ�̂ŁA���Аg�ɕt���Ăق����BExcel�́A���Ƃ��ƃf�[�^���������߂̃\�t�g�E�F�A������A�f�[�^�����Excel�̓��ӂƂ���Ƃ��낾�B���̃f�[�^�����VBA�ŏ����ł���΁A�Ɩ��̌������傫�����シ��B

�@�����āAVBA�̖ʔ����A��햡��Excel�̃f�[�^�������̎v���̂܂܂ɑ���ł���_�ɂ���ƕM�҂͎v���Ă���B����͑O��́u��������v�u���[�v�����v�ȂǂƑg�ݍ��킹�ď������G�ȃv���O�����ƂȂ��Ă��邪�A�֗��ȃ}�N���Ȃ̂ŁA�����Ɩ{�e��ǂ񂾓ǎ҂���u���[�[�[�I Excel��VBA�ł���Ȃ��Ƃ��ł���̂��I�v�Ƃ��������Q�̐����������Ă���c�c �悤�ȋC������B

�f�[�^�̕��בւ��i�\�[�g�j

�@�f�[�^�̕��בւ��́A�����܂ł��Ȃ��f�[�^�����ɂ�100���K�v�ȏ������B�������AExcel�̃��j���[����ł����בւ��͂ł��邪�A�}�N�������Ă����ƍׂ��������̎w�肪���炩���߃Z�b�g���Ă�����̂ŁA���{��Ԃ��Ȃ���B

�@�Ⴆ�΁A���בւ��̊�Ƃ����̓��͗������A�����^�~����I�����X�g����I�������āA�\�[�g�̏�������͂�����A�{�^���N���b�N�݂̂ŁA�w�肵�������Ńf�[�^���\�[�g�����̂��B

Sort���\�b�h�̎g����

�@�f�[�^�̕��בւ����s���ɂ�Range�I�u�W�F�N�g��Sort���\�b�h���g�p����B�u�����v�i�ȍ~�A�u�\���v�u�g�����v�̈Ӂj�͉��L�̒ʂ肾�B

Sort���\�b�h�̏���

Range�I�u�W�F�N�g.Sort

Key1:=�oKey1�p

,Order1:=�oOrder1�p

,Key2:=�oKey2�p

,Type:=�oType�p

,Order2:=�oOrder2�p

,Key3:=�oKey3�p

,Order3:=�oOrder3�p

,Header:=�oHeader�p

,OrderCustom:=�oOrderCustom�p

,MatchCase:=�oMatchCase�p

,Orientation:=�oOrientation�p

,SortMethod:=�oSortMethod�p

,DataOption1:=�oDataOption1�p

,DataOption2:=�oDataOption2�p

,DataOption3:=�oDataOption3�p


�@�����ځA���ɑ����̈����������āA��ςɕ��G���������A���ۂɎg���Ă݂�ƈӊO�ƊȒP���B�e�����ɂ‚��Đ������Ă������i�Q�l�uRange.Sort Method�iExcel�j- MSDN�v�j�B

  • �oKey1�p�ɂ͕��בւ��̊�Ƃ������w��B�oOrder1�p�ɂ́oKey1�p�Ŏw�肵���l�̕��я��i�\1�j���w��
  • �oKey2�p�ɂ�2�Ԗڂɕ��בւ��̊�Ƃ������w��B�oType�p�ɂ̓s�{�b�g�e�[�u������בւ���Ƃ��̊�i�\2�j���w��B�oOrder2�p�ɂ�Key2�Ŏw�肵���l�̕��я��i�\1�j���w��
  • �oKey3�p�ɂ�3�Ԗڂɕ��בւ��̊�Ƃ������w��B�oOrder3�p�ɂ�Key3�Ŏw�肵���l�̕��я��i�\1�j���w��
  • �oHeader�p�ɂ́A�ŏ��̍s�����o�����ǂ�����ݒ�i�\3�j�Q��
  • �oOrderCustom�p�ɂ́A���ɍ���͎w�肷��K�v�͂Ȃ�
  • �oMatchCase�p�ɂ͑啶���A�������̋�ʂ�True��False�Ŏw��BTrue���w�肷��Ƌ�ʂ���B��ʂ��Ȃ��ꍇ��False
  • �oOrientaion�p�ɂ͕��בւ��̕������w��i�\4�j�Q��
  • �oSortMethod�p�ɂ͕��בւ��̕��@�i�\5�j���w��
  • �oDataOption1�p�ɂ�Key1�̕��בւ��̕��@�i�\6�j���w��
  • �oDataOption2�p�ɂ�Key2�̕��בւ��̕��@�i�\6�j���w��
  • �oDataOption3�p�ɂ�Key3�̕��בւ��̕��@�i�\6�j���w��
�\1�@�oOrder1�`3�p�Ɏw�肷��l
���я��̒l ����
xlAscending �����i�K��l�j
xlDescending �~��


�\2�@�oType�p�Ɏw�肷��l
�ݒ�l ����
xlSortLabels �s�{�b�g�e�[�u�������x�����Ƃɕ��בւ�
xlSortValues �s�{�b�g�e�[�u����l���Ƃɕ��בւ�


�\3�@�oHeader�p�Ɏw�肷��l
�ݒ�l ����
xGuess ���o�������邩�ǂ�����Excel�����肷��
xlNo �ŏ��̍s�͌��o���ł͂Ȃ��i�K��l�j
xlYes �ŏ��̍s�����o��


�\4�@�oOrientaion�p�ɐݒ肷��l
�ݒ�l ����
xlSortColumns ��P�ʂŕ��בւ�
xlSortRows �s�P�ʂŕ��בւ�


�\5�@�oSortMethod�p�Ɏw�肷��l
�ݒ�l ����
xlPinYin �ӂ肪�ȏ�
xlStroke �ӂ肪�ȏ����g�p���Ȃ��i�K��l�j


�\6�@�oDataOption�p�Ɏw�肷��l
�ݒ�l ����
xlSortNormal ���l�ƕ����f�[�^��ʌ‚ɕ��בւ���i�K��l�j
xlSortTextAsNumbers �����𐔒l�f�[�^�Ƃ��ĕ��בւ���

�\�̕��בւ����s���Ă݂悤

�@�ł́A���̏������g���Đ}1�̂悤�ȕ\�̕��בւ����s���Ă݂悤�B


�}1�@�Ј��f�[�^�̕\

�@�}1�́u�Ј��ԍ��v�iB2�Z���j�̕\���A�ŏ��̍s�����o���Ƃ��āA�u�ǂ݁v�������A�u���ʁv���~���A�u�N��v�������ɕ��בւ��Ă݂悤�B�}�N���R�[�h�̓��X�g1�̂悤�ɂȂ�B

Sub ���בւ�()
  Range("B2").Sort _ 
    Key1:=Range("D2"), Order1:=xlAscending, _
    Key2:=Range("E2"), Order2:=xlDescending, _
    Key3:=Range("F2"), Order3:=xlAscending, _
    Header:=xlYes
End Sub
���X�g1�@�e���ڂ���בւ���

�R�����u�R�[�h�̓r���ʼn��s����ɂ́v

�@���X�g1�̃}�N���R�[�h�����ĉ����C�t�������Ƃ͂Ȃ����낤���B�����ASort���\�b�h���r���ʼn��s����Ă���̂��BSort���\�b�h�͈����������Ȃ��1�s���ƂĂ������}�N���R�[�h�ɂȂ��Ă��܂��A�e������c�����Â炭�Ȃ�B���̂��߁A�����Ĉ����̓r���ʼn��s���Ă���̂��B

�@���\�b�h��v���p�e�B�̈����w��Ȃǂ̓r���ʼn��s����ɂ́A�u �v�i���p�X�y�[�X�j�{�u_�v�i�A���_�[�X�R�A�j����͂��Ȃ��ƃG���[�ƂȂ��Ă��܂��̂ŁA�K�������悤�ɂ��悤�B


�@���s����Ɛ}2�̂悤�ɕ\�������B


�}2�@�u�ǂ݁v�u���ʁv�u�N��v�����בւ����Ă���

�@�u�ǂ݁v���u�����v�Ń\�[�g����A���ʂ��u�~���v�Ń\�[�g����A�N��́u�����v�Ń\�[�g����Ă���B

�@�ȏ�̂悤��Sort���\�b�h�ɂ́A���ɂ�������̈������p�ӂ���Ă���A�����̖]�ݒʂ�̕��בւ��������ł���B�ǎ҂̕��X���A���낢��ݒ肵�Ď����Ă��炢�����B

�@���y�[�W�ł́A�\���̃f�[�^����������u�f�[�^�̌����v�ɂ‚��ĉ�����悤�B

�@�f�[�^�̌������A��̃f�[�^�̕��בւ����l�A����̋Ɩ��ł�100���K�v�ȏ������B���̉����ǂ�ŁA���ЋM�Ђ̃f�[�^�����Ɩ����}�N�������Ăق����B

Copyright © ITmedia, Inc. All Rights Reserved.

�@�@�@�@�@�@ | ���̃y�[�W��
�y�[�W�g�b�v�ɖ߂�
OSZAR »