Excel VBA縺ァ縺ッ濶イ縲�↑讓ェ譁�ュ励′逋サ蝣エ縺吶k縺ョ縺�縺代←縲√↑繧薙°縺、縺九∩縺ゥ縺薙m縺ェ縺�腰隱槭′螟壹>��
縺ィ縲∝腰縺ォ繝懊く繝」繝悶Λ繝ェ繝シ縺檎┌縺�□縺代↑縺ョ繧呈」壹↓荳翫£繧九�縺�縺代←縲�
縺ィ縺�≧縺薙→縺ァ縲√≠縺セ繧頑キア蝣€縺ッ蜃コ譚・縺ェ縺�¢縺ゥ邁。蜊倥↓縺セ縺ィ繧√※縺ソ縺滂シ�

繝励Ο繧ク繧ァ繧ッ繝�
�代▽縺ョ繝ッ繝シ繧ッ繝悶ャ繧ッ��Excel繝輔ぃ繧、繝ォ�峨�繝槭け繝ュ鄒、縺ォ縺ェ繧翫∪縺吶€�
VBA縺ョ邱ィ髮�判髱「縺ァ縺ッ蟾ヲ荳翫�繝励Ο繧ク繧ァ繧ッ繝医お繧ッ繧ケ繝励Ο繝シ繝ゥ縺ォ縺ョ荳€逡ェ荳翫�螟ェ蟄励〒陦ィ遉コ縺輔l縺ヲ縺�k窶弖BAProject�� �俄€昴↓縺ェ繧翫∪縺吶€ゑシ医€€�牙�縺ッ繝輔ぃ繧、繝ォ蜷阪↓縺ェ縺」繧翫∪縺吶€�
繝励Ο繧ク繧ァ繧ッ繝医↓窶懊Δ繧ク繝・繝シ繝ォ窶昴€≫€懊�繝ュ繧キ繝シ繧ク繝」窶昴€≫€懊せ繝��繝医Γ繝ウ繝遺€昴′讒区�縺輔l縺セ縺吶€�
20200308-01.JPG

繝「繧ク繝・繝シ繝ォ
VBA縺ョ繧ウ繝シ繝峨r譖ク縺�※菫晏ュ倥☆繧句�エ謇€縺ョ縺薙→縺ァ縲√%縺薙↓繝槭け繝ュ縺ョ繝励Ο繧ー繝ゥ繝�縲√�繝ュ繧キ繝シ繧ク繝」縺御ス懊i繧後∪縺吶€�
�代▽縺ョ繝「繝シ繧ク繝・繝シ繝ォ縺ォ縺ッ隍�焚縺ョ繝励Ο繧キ繝シ繧ク繝」繧剃ス懊k縺薙→縺後〒縺阪∪縺吶€�
荳€闊ャ逧�↑VBA縺ョ繧ウ繝シ繝峨�窶懈ィ呎コ悶Δ繝シ繧ク繝・繝シ繝ォ窶昴↓譖ク縺崎セシ縺ソ縺セ縺吶€ゅ∪縺溘◎繧後→縺ッ蛻・縺ォ繧ェ繝悶ず繧ァ繧ッ繝医↓莉倬囂縺吶k繝「繧ク繝・繝シ繝ォ縺後≠繧翫€√Ρ繝シ繧ッ繧キ繝シ繝井サ倬囂縺吶k窶懊す繝シ繝医Δ繧ク繝・繝シ繝ォ窶昴€√Ρ繝シ繧ッ繝悶ャ繧ッ縺ォ莉倬囂縺吶k窶懊ヶ繝�け繝「繧ク繝・繝シ繝ォ窶昴€√ヵ繧ゥ繝シ繝�縺ォ莉倬囂縺吶k窶懊ヵ繧ゥ繝シ繝�繝「繧ク繝・繝シ繝ォ窶昴′縺ゅj縺セ縺吶€�
20200308-02.JPG

繝励Ο繧キ繝シ繧ク繝」
sub �� End sub 縺ァ譖ク縺九l繧具シ代▽縺ョ繝槭け繝ュ繧貞ョ溯。後☆繧九�繝ュ繧ー繝ゥ繝�縺ョ縺セ縺ィ縺セ繧翫�縺薙→縺ァ縺吶€�
窶懊�繧ッ繝ュ窶昴→險€縺��縺ッ繧ス繝輔ヨ縺ョ謫堺ス懊r閾ェ蜍募喧縺輔○縺溘b縺ョ縺ョ邱冗ァー縺ェ縺ョ縺ァ縲�1縺、縺ョ繝励Ο繧キ繝シ繧ク繝」縺ァ�代▽縺ョ繝槭け繝ュ繧剃ス懊k蝣エ蜷医b縺ゅj縺セ縺吶@縲∬、�焚縺ョ繝励Ο繧キ繝シ繧ク繝」縺ァ�代▽縺ョ繝槭け繝ュ繧呈ァ区�縺吶k蝣エ蜷医b縺ゅj縺セ縺吶€ゅ〒縺吶′縲≫€懊�繝ュ繧キ繝シ繧ク繝」窶昴→險€縺��縺ッ繝励Ο繧ー繝ゥ繝溘Φ繧ー繧オ繧、繝峨�逕ィ隱槭〒迚�d窶懊�繧ッ繝ュ窶昴�繝ヲ繝シ繧カ繝シ繧オ繧、繝会シ医お繧ッ繧サ繝ォ蟇�j�峨�逕ィ隱槭↓縺ェ繧翫∪縺吶€�
縲€讓呎コ悶Δ繧ク繝・繝シ繝ォ縺ォ菴懊i繧後k繝励Ο繧ー繝ゥ繝�繧停€懈ィ呎コ悶�繝ュ繧キ繝シ繧ク繝」窶昴→險€縺�€√€熊5縲阪く繝シ繧�€後�繧ッ繝ュ縺ョ螳溯。後€阪〒螳溯。後&繧後k繝励Ο繧キ繝シ繧ク繝」縺ァ縺吶€ゅ∪縺溘が繝悶ず繧ァ繧ッ繝医↓莉倬囂縺吶k繝「繧ク繝・繝シ繝ォ縺ォ菴懊i繧後k繝励Ο繧ー繝ゥ繝�繧停€懊う繝吶Φ繝医�繝ュ繧キ繝シ繧ク繝」窶昴→險€縺�€√Θ繝シ繧カ繝シ縺ョ謫堺ス懊↓繧医▲縺ヲ襍キ縺阪k繧、繝吶Φ繝医↓繧医j閾ェ蜍輔〒螳溯。後☆繧九�繝ュ繧キ繝シ繧ク繝」縺ァ縺吶€�
萓九∴縺ー縲√ヶ繝�け繝「繧ク繝・繝シ繝ォ縺ォ縺ッExcel繧定オキ蜍輔@縺滓凾縲∽ソ晏ュ倥@縺滓凾遲峨�繧、繝吶Φ繝医�繝ュ繧キ繝シ繧ク繝」
繧キ繝シ繝医Δ繧ク繝・繝シ繝ォ縺ォ縺ッ繧サ繝ォ縺ョ蛟、繧貞、画峩縺励◆譎ゅ€√す繝シ繝医r霑ス蜉�縺励◆譎らュ峨�繧、繝吶Φ繝医�繝ュ繧キ繝シ繧ク繝」
繝輔か繝シ繝�繝「繧ク繝・繝シ繝ォ縺ォ縺ッ繝懊ち繝ウ繧偵け繝ェ繝�け縺励◆譎らュ峨�繧、繝吶Φ繝医�繝ュ繧キ繝シ繧ク繝」繧剃ス懊j縺セ縺吶€�

Sub繝励Ο繧キ繝シ繧ク繝」縺ィFunction繝励Ο繧キ繝シ繧ク繝」
Sub 繝槭け繝ュ蜷�() �� End Sub縺ァ險倩ソー縺輔l繧鬼ub繝励Ο繧キ繝シ繧ク繝」縺ョ莉悶↓縲:unction 髢「謨ー蜷�() �� End Function縺ァ險倩ソー縺輔l繧祈unction繝励Ο繧キ繝シ繧ク繝」縺後≠繧翫∪縺吶€�Function繝励Ο繧キ繝シ繧ク繝」縺ッ謌サ繧雁€、縺ァ邨先棡繧定ソ斐☆縺薙→縺後〒縺阪∪縺吶€�

繧ケ繝��繝医Γ繝ウ繝�
VBA縺ァ險倩ソー縺輔l繧区怙蟆丞腰菴阪�1陦悟腰菴阪�繝励Ο繧ー繝ゥ繝�縲Jf�柎hen縲’or�柤ext 遲峨�隍�焚陦後↓縺セ縺溘′繧翫∪縺吶€�
萓九∴縺ー縲≫€彜ub窶昴€≫€廡unctoin窶昴€≫€廛im窶昴€≫€廚all窶昴€≫€廢nd窶昴€≫€廡or�� Next窶昴€≫€廨oTo窶昴€≫€廬f�杁hen�昿lse窶� 遲峨′縺ゅj縺セ縺吶€�

縺セ縺�縺セ縺�縲∬�縺阪↑繧後↑縺�畑隱槭′蜃コ縺ヲ縺阪∪縺吶′縲∽サ頑律縺ッ縺薙%縺�i縺ァ蜍伜シ√@縺ヲ繧�m縺�シ�シ�
縺サ縺ェ縺セ縺滂シ�



蜑阪�繝壹�繧ク��
谺。縺ョ繝壹�繧ク��

髢「騾」繝壹�繧ク
繝サExcel VBA縲€繝。繝九Η繝シ
繝サVBA繧剃スソ縺医k繧医≧縺ォ縺励※縺ソ縺セ縺励◆��