Excel�Ƀ��A�h��ʃV�[�g�ւ̃Z���w�胊���N�𑊑΃p�X�Őݒ��FVBA�^�}�N���֗�Tips

�Ɩ��������ɖ𗧂�VBA�^�}�N���̂��܂��܂�Tips���R�[�h��������ďЉ�Ă����܂��B����́AHyperlinks��EmailSubject�v���p�e�B���g���A�����N�Ƀ��[���A�h���X��ݒ肵���[���̌������w�肷����@�ƁA�����N�ŔC�ӂ̃V�[�g�ɃW�����v������@�ɂ‚��āB

» 2014�N07��07�� 18��00�� ���J
[��t�������CPROJECT KySS]
uVBA^}N֗TipsṽCfbNX

�A�ږڎ�

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


�@������ATips�uExcel�̃Z���Ƀn�C�p�[�����N��ݒ肵�A�ꊇ�폜�����v�Ɉ��������n�C�p�[�����N�֘A��Tips���Љ��B����̓��[���A�h���X�̊Ǘ��ƁA�C�ӂ̃Z���ɃW�����v������Tips���B

�n�C�p�[�����N�Ƀ��[���A�h���X��ݒ肵�ă��[���̌������w��

�@�܂��́A�n�C�p�[�����N�Ƀ��[���A�h���X��ݒ肵�ă��[���̌������w�肷��Tips���Љ�悤�B

�@�}1�ł́ATips�uExcel�̃Z���Ƀn�C�p�[�����N��ݒ肵�A�ꊇ�폜�����v�ŏЉ���AWeb�T�C�g���Ǘ�����̂Ɠ����悤��UI�Ə�����p���Ă���B

�}1�@�u���Ӑ於�v�u���[���A�h���X�v�uOK�v�{�^�����\�����ꂽ�V�[�g�Ɓu���Ӑ惁�[���A�h���X�v�ƕ\�����ꂽ�u���Ӑ惁�[���A�h���X�v�V�[�g���p�ӂ���Ă���

�@�u���Ӑ於�v�u���[���A�h���X�v����͂���Z����p�ӂ��A�u�p�ێl�p�`�v��z�u���āuOK�v�{�^���Ƃ��Ă���B

�@�n�C�p�[�����N�Ƀ��[���A�h���X��ݒ肷�鏑���͉��L�̒ʂ肾�BTips�uExcel�̃Z���Ƀn�C�p�[�����N��ݒ肵�A�ꊇ�폜�����v�́uHyperlinks�I�u�W�F�N�g��Add���\�b�h�̏����v�Ɠ������������AAddress�Ɏw�肷����e���قȂ�̂ŁA�Čf�ڂ��Ă����B

Hyperlinks�I�u�W�F�N�g��Add���\�b�h�̏���

Hyperlinks.Add Anchor:=�oAnchor�p,Address:=�oAddress�p,TextToDisplay:=�oTextToDisplay�p


�@�oAnchor�p�ɂ̓n�C�p�[�����N�̃A���J�[���w�肷�邪�A����̓Z���iRange�I�u�W�F�N�g�j��Shape�I�u�W�F�N�g���w�肷�邱�ƂɂȂ�B�K�{���ڂ��B�oAddress�p�ɂ̓��[���A�h���X�̐擪�Ɂumailto:�v��t���Ďw�肷��B������K�{���ڂ��B

�@�oTextToDisplay�p�ɂ́A�n�C�p�[�����N�ŕ\�������e�L�X�g���w�肷��B����́A�ȗ��”\���B

�@����̏ꍇ�́A�o�^�������[���A�h���X���N���b�N����ƃ��[���[���N�����A�����I�Ƀ��[���́u�����v��\������悤�ɂ��Ă���B���[���Ɂu�����v��\�����鏑���͉��L���B

Hyperlinks�I�u�W�F�N�g��EmailSubject�v���p�e�B�̏���

Hyperlinks.EmailSubject


�@�����2�‚̏��������p����̂��A���L���X�g1�̃R�[�h���B

Option Explicit
Sub ���Ӑ惁�[���A�h���X()
  If Range("C2").Value = "" Or Range("C3").Value = "" Then
    MsgBox "�u���Ӑ於�v�Ɓu���[���A�h���X]����͂��Ă��������B"
    Exit Sub
  Else
    Dim lastRow As Long
    With Worksheets("���Ӑ惁�[���A�h���X")
      lastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
      .Cells(lastRow, 1).Hyperlinks.Add Anchor:=.Cells(lastRow, 1), _
                                    Address:="mailto:" & Range("C3").Value, _
                                    TextToDisplay:=Range("C2").Value
      .Cells(lastRow, 1).Hyperlinks(1).EmailSubject = "���˗��̌��ɂ‚���"
    End With
  End If
  Worksheets("���Ӑ惁�[���A�h���X").Select
End Sub
���X�g1�@�����́u�R�����g�v������������R�[�h

�@Tips�uExcel�̃Z���Ƀn�C�p�[�����N��ݒ肵�A�ꊇ�폜�����v�ƂقƂ�Ǔ����Ȃ̂ŁA�قȂ镔���̂݉������B

�@�oAnchor�p�ɂ́uC3�v�Z���ɓ��͂��ꂽ�l�̐擪�Ɂumailto:�v��A�����Ďw�肷��B�oTextToDisplay�p�ɂ́uC2�v�̃Z���ɓ��͂��ꂽ�l���w�肵�Ă���B

�@VBE�iVisual Basic Editor�j���N������Module1���Ƀ��X�g1�̃R�[�h���L�q���A���̃}�N�����uOK�v�{�^���Ɋ֘A�t����B

�@����ŁA�u���Ӑ於�v�u���[���A�h���X�v����͂��āuOK�v�{�^�����N���b�N����ƁA�u���Ӑ惁�[���A�h���X�v�V�[�g�ɁA�u���Ӑ於�v�Ɂu���[���A�h���X�v���֘A�t������ď����o�^����Ă����B

�@�uOK�v�{�^�����N���b�N����ƁA�}2�̂悤�ɕ\�������

�}2�@���Ӑ於�v���N���b�N����Ɓu���˗��̌��ɂ‚��āv�Ƃ����u�����v���t���ă��[���[���N������

�@����ɁA�o�^���ꂽ���[���A�h���X���N���b�N����ƁA�T�u�W�F�N�g�Ɂu���˗��̌��ɂ‚��āv�Ƃ����u�����v���t���ă��[���[���N������B

�n�C�p�[�����N�ŔC�ӂ̃V�[�g�ɃW�����v

�@���́A�u�n�C�p�[�����N�ŔC�ӂ̃Z���ɃW�����v����Tips���Љ�悤�B

�@�u�V�[�g�\���v�Ƃ����V�[�g���쐬���A�}3�̂悤�Ɂu�V�[�g���\���v�{�^����z�u���Ă����B

�}3�@�u�V�[�g���\���v�{�^���Ɓu�V�[�g���v���lj��\�������Z�����p�ӂ���Ă���

�@���̃{�^�����N���b�N����ƁA�u1������v����u12������v�̍��ږ��ɁA�u1������v����u12������v�܂ł̃V�[�g�́uA1�v�̃Z���Ƀn�C�p�[�����N�������ĕ\�������B���̃����N���N���b�N����ƁA�e�w�肵���V�[�g�ɃW�����v����B���ʔ���グ�Ǘ��Ȃǂɗ��p����ƕ֗���Tips���Ǝv���B

�@�����͉��L�̂悤�ɂȂ�B

Hyperlinks�I�u�W�F�N�g��Add���\�b�h�̏����i������SubAddress�t���j

Hyperlinks.Add Anchor:=�oAnchor�p,Address:=�oAddress�p,SubAddress:=�oSubAddress�p,TextToDisplay:=�oTextToDisplay�p


�@�oAnchor�p�ɂ̓n�C�p�[�����N�̃A���J�[���w�肷��B�Z���iRange�I�u�W�F�N�g�j��Shape�I�u�W�F�N�g���w�肷��B�K�{���ڂ��B�oAddress�p�ɂ͍���͉����w�肵�Ȃ��B�����w�肵�Ȃ�����Ƃ����ďȗ����邱�Ƃ͂ł��Ȃ��B�K�{���ڂ����炾�B

�@�oSubAddress�p�ɂ̓n�C�p�[�����N�̃T�u�A�h���X���w�肷��B����́A�ȗ��”\���BTextToDisplay�ɂ́A�n�C�p�[�����N�ŕ\�������e�L�X�g���w�肷��B������A�ȗ��”\���B

�@���̏��������p���A�}3�́u�V�[�g���\���v�{�^�����N���b�N���A�\�������u�V�[�g���v���N���b�N���ĔC�ӂ̃V�[�g��A1�̃Z���ɃW�����v����R�[�h�̓��X�g2�ɂȂ�B

Sub �C�ӂ̃V�[�g�ɃW�����v()
  Dim lastRow As Long
  Dim i As Integer
  For i = 1 To 12
    With ActiveSheet
      lastRow = .Cells(Rows.Count, 4).End(xlUp).Row + 1
      .Cells(lastRow, 4).Hyperlinks.Add Anchor:=.Cells(lastRow, 4), _
                                    Address:="", _
                                    SubAddress:=i & "������!A1", _
                                    TextToDisplay:=i & "������"
    End With
  Next
End Sub
���X�g2�@�V�[�g���̈ꗗ��\�����āA�C�ӂ̃V�[�g�ɃW�����v����R�[�h

�@�܂��́ALong�^�̕ϐ�lastRow��Integer�^�ϐ�i��錾����B

�@�u1������v����u12������v�̃V�[�g����\�������邽�߂ɁA�ϐ�i��12��J��Ԃ��B�J��Ԃ������̊Ԃʼn��L�̏������s���B

�@�L���uExcel�̊�{�I�u�W�F�N�g�u�Z���v�̎Q�ƁA�ړ��A�R�s�[�A�I���A�}���A�폜�v�ł���������A�I�[�Z�����Q�Ƃ���End�v���p�e�B���g�p���āA�A�N�e�B�u�V�[�g��4��ځiD��j�̍ŏI�s���������̏I�[�Z���i�uD��v�̍ŏI�s�j��I�����A�f�[�^�������Ă���ꍇ�́A���̍s�Ƀf�[�^���lj������悤�ɂ���B

�@Hyperlinks.Add���\�b�h���g���āA�uD��v�̃Z���ɏ����f�[�^���lj������悤�A�oAnchor�p�Ɂu.Cells(lastRow,4)�v�Ǝw�肷��B�������邱�ƂŁA�ϐ�lastRow�s��4��ڂ̃Z���iD��j���珇���f�[�^���lj�����Ă����B

�@�oAddress�p�ɂ͉����w�肵�Ȃ��ł����B�oSubAddress�p�ɂ́A12��J��Ԃ��ϐ�i�̒l�Ɂu������!A1�v�Ƃ�����������w�肵�āA�\�����ꂽ�u�T�C�g���v���N���b�N���ꂽ�Ƃ��A�C�ӂ̃T�C�g���́uA1�v�̃Z���ɃW�����v����悤�Ɏw�肷��B�Ⴆ�΁u2������!A1�v�́u2������v�V�[�g�́uA1�v�ɃW�����v����Ӗ���\���B

�@�oTextToDisplay�p�ɂ́A12��J��Ԃ��ϐ�i�̒l�Ɂu������v�Ƃ����������A�����Ďw�肷��B

�@����ŁA�u�V�[�g���\���v�{�^�����N���b�N�����ƁA�A�N�e�B�u�Z����D��Ɂu1������v����u12������v�̕�����ɃW�����v��̃n�C�p�[�����N���ݒ肳��ĕ\�������B

�@���̃}�N�����u�V�[�g���\���v�{�^���Ɋ֘A�t���A���s����Ɛ}4�̂悤�ɕ\�������B

�}4�@�\�����ꂽ�V�[�g�����N���b�N���āA�C�ӂ̃V�[�g��A1�Z���ɃW�����v����

�܂Ƃ�

�@����́A�����Ӑ�̃��[���A�h���X���n�C�p�[�����N�ŊǗ�����Tips���ŏ��ɏЉ���B���̂悤�ɁA������ƍH�v���邾���ŁA��������Excel�̃��j���[����A�n�C�p�[�����N��ݒ肵�ă��[���̐ݒ���s�����A���{��Ԃ��Ȃ���̂ł͂Ȃ����낤���B

�@�܂��㔼�ł́A�V�[�g������C�ɕ\�������āA�C�ӂ̃V�[�g�ɃW�����v����Tips���Љ���B�킸���A���ꂾ���̃}�N�����L�q���邾���ŁA����̍�Ƃ̎�Ԃ͑傢�ɏȂ���̂ł͂Ȃ����낤���B

�@���ЁA�����Tips���e���̐E��ŃA�����W���Ďg���Ă��炦��Ƃ��ꂵ���B

���҃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


Copyright © ITmedia, Inc. All Rights Reserved.

'; }; BodyAdGAMWithCCE.prototype = Object.create(BodyAdContent.prototype); BodyAdGAMWithCCE.EVENT_INIT = 'init'; BodyAdGAMWithCCE.EVENT_READY = 'ready'; /** * AdContent �̏������Ɨ��p���� */ BodyAdGAMWithCCE.prototype.init = function () { Logger.writeln('BodyAdGAMWithCCE.prototype.init'); this.dispatchEvent(new CustomEvent(BodyAdGAMWithCCE.EVENT_INIT)); }; /** * �L���g�� GAM ���N�G�X�g */ BodyAdGAMWithCCE.prototype.activate = function () { refreshGam('InArtSpecialLink'); this.dispatchEvent(new CustomEvent(BodyAdGAMWithCCE.EVENT_READY)); }; // global reference window.itm = itm; //entry point const build = function( e ) { BodyAdEventBase.polyfill(); const bodyAdManager = BodyAdManager.getInstance(); bodyAdManager.addEventListener(BodyAdManager.EVENTS.READY, function (ev) { bodyAdManager.loadAdvertise(); }); bodyAdManager.init(); } build(); })();

�A�C�e�B���f�B�A����̂��m�点

�X�|���T�[����̂��m�点PR

���ڂ̃e�[�}

lɗȂA{ŌZLeBu_iCYv
4AI by IT - AIAAA
Microsoft  WindowsőO2025
AI for GWjAO
[R[h^m[R[h Zg by IT - ITGWjArWlX̒SŊ􂷂gD
Cloud Native Central by IT - XP[uȔ\͂gD
�V�X�e���J���m�E�n�E �y�����i�r�zPR
���Ȃ��ɂ������߂̋L��PR

RSS�ɂ‚���

�A�C�e�B���f�B�AID�ɂ‚���

���[���}�K�W���o�^

��IT�̃��[���}�K�W���́A �������A���ׂĖ����ł��B���Ѓ��[���}�K�W�������w�ǂ��������B