Excel�̃Z�����ɂ��銿���̂ӂ肪�Ȃ��ꊇ�\�����ҏW�FVBA�^�}�N���֗�Tips

�A�ږڎ�

���{Tips�̊‹��FWindows 8.1 Enterprize�i64�r�b�g�j�{Excel 2013

�@����́A�Z���ɂӂ肪�Ȃ�ݒ肷��Tips���Љ�悤�B

�Z���Ɋ����̂ӂ肪�Ȃ��ꊇ�ŕ\������SetPhonetic���\�b�h

�@�����ɁA�ӂ肪�ȁi���r�j��U�邱�Ƃ́A�l�����Ǘ������ʂȂǂł́A���ɕK�v�ȏ������B�����́u�����v�����ł́A���Ƃ����Ăі��Ȃ̂��s���ȏꍇ�����X����B�����������ꍇ�ɁA�ӂ肪�Ȃ�U���Ă����ƕ֗����B

�@�ӂ肪�Ȃ�U��ɂ́ASetPhonetic���\�b�h���g���B

�@�o�I�u�W�F�N�g�p�ɂ͑ΏۂƂȂ�Range�I�u�W�F�N�g���w�肷��BSetPhonetic���\�b�h�ŁA�w�肳�ꂽ�͈͓��̑S�ẴZ���Ɉꊇ�ŁA�ӂ肪�Ȃ�\������B

�@E3����E4�Ɏ��������͂���Ă���}1�̂悤�ȕ\���������Ƃ��悤�B���̎�����SetPhonetic���\�b�h���g���Ăӂ肪�Ȃ�U���Ă݂�B

�}1�@E3����E4�Ɏ��������͂���Ă���

�@���X�g1�͂ӂ肪�Ȃ�U��R�[�h���B

Sub �����ɂӂ肪�Ȃ�U��()
  Range("E2:E4").SetPhonetic
  Range("E2:E4").Phonetics.Visible = True
End Sub

�@E2����E4�̃Z���ɓ��͂���Ă��鎁����SetPhonetic���\�b�h�łӂ肪�Ȃ�U��A�uPhonetics.Visible=True�v�łӂ肪�Ȃ�\�������Ă���B

�@���̂ӂ肪�Ȃɂ̓L�[�{�[�h������͂��������ϊ��O�́u�ǂ݁v���ݒ肳��邽�߁A�R�s�[����������}�N��������͂��������ɂ͂ӂ肪�Ȃ��K�p����Ȃ��̂Œ��ӂ��Ăق����B

�@���s����ƁA�}2�̂悤�ɕ\�������B

�}2�@�����ɂӂ肪�Ȃ��U��ꂽ

PhoneticCharacters�v���p�e�B�ŃZ�����̂ӂ肪�Ȃ�ҏW����

�@���ɁA�Ⴆ�ΐ}3�̂悤�Ɂu�R�c���v�̓ǂ݂Ɂu���}�_�@�t�v�Ƃӂ肪�Ȃ��U���Ă���̂��A�u���}�_�@�A�����v�Ƃ����ӂ肪�Ȃɂ������ꍇ�́A���L�̏�����p����B

�}3�@�u�R�c���v�Ɂu���}�_�@�t�v�Ƃӂ肪�Ȃ��U���Ă���

�@�o�I�u�W�F�N�g�p�ɂ�Range�I�u�W�F�N�g���g�p����BCharacters�v���p�e�B��Range�I�u�W�F�N�g�̕�������̕����͈̔͂�\���B�oStart�p�ɂ͎w�蕶���̊J�n�ʒu���w��A�oLength�p�ɂ͎Q�Ƃ��镶�������w�肷��B

�@���X�g2�́u�R�c���v�Ɂu���}�_�@�A�����v�Ǝw�肷��R�[�h���B

Sub �ӂ肪�Ȃ��w�肵�ĕ\��()
  Range("E5").Characters(1, 3).PhoneticCharacters = "���}�_       �A����"
End Sub

�@E5�́u�R�c���v�Ɂu���}�_�@�A�����v�Ƃ����ӂ肪�Ȃ��U����B�����́oStart�p�̕����ɂ�1�����ڂ���́u1�v���w�肵�A�oLength�p�̕����ɂ́A�u�R�c���v��3�����Ȃ̂Łu3�v���w�肵�Ă���B

�@���s����ƁA�}4�̂悤�ɕ\�������B

�}4�@�w�肵���ӂ肪�Ȃ��U��ꂽ

���҃v���t�B�[��

��t�� �����i�₭���� ���ɂ₷�j�@�^�@��t������������

��t��������������\�BVisual Basic�v���O���~���O�ƁA�}�C�N���\�t�g�n�̋Z�p���e�[�}�Ƃ����A���Ђ�L���̎��M���s���B

1950�N���܂�B�����n�̃T�����[�}��������40�΂����Ńv���O���~���O���n�߁A1996�N���Ɗw��ActiveX�Ɏ��g�ށB

1997�N�ɖ�t�����ƃR���{���[�V�����E���j�b�g�uPROJECT KySS�v�������B

2003�N���t���[�ɂȂ�APROJECT KySS�̊����ɖ{�i�I�ɎQ���B.NET��RIA�Ɋւ��鏑�Ђ�L���𑽐����M����T��A����Č��̃v���O���~���O����|����B

Windows Phone�A�v���J�����o�āA���݂�Windows�X�g�A�A�v���𑽐����J���B

Microsoft MVP for Development Platforms - Client App Dev�iOct 2003-Sep 2012�j�B

Microsoft MVP for Development Platforms - Windows Phone Development�iOct 2012-Sep 2013�j�B

Microsoft MVP for Development Platforms - Client Development�iOct 2013-Sep 2014�j�B