螟画焚繝ｻ螳壽焚縺ｮ譛牙柑遽�峇
LngRecRow = cInitRow 縺ｫ繝槭え繧ｹ繧ｫ繝ｼ繧ｽ繝ｫ繧定ｿ代▼縺代※縺ｿ縺ｦ縲∽ｽ輔°豌励′縺､縺阪∪縺励◆縺具ｼ�(^^)
"Empty蛟､" 縺ｪ繧薙※蜃ｺ縺ｦ縺ｾ縺吶ｈ縺ｭ縲ゅ↑繧薙〒縺励ｇ縺�さ繝ｬ縲�
縺薙ｌ縺ｯ縺�ｏ繧�ｋ"縺ｾ縺｣縺溘￥繧ｫ繝ｩ縺ｮ迥ｶ諷�"繧堤､ｺ縺励※縺ｾ縺吶ょ､繧ゆｽ輔ｂ辟｡縺�憾諷九�
縺ｧ繧� cInitRow 縺ｯ遒ｺ縺九↓螳夂ｾｩ縺励※縺ゅｊ縺ｾ縺吶＠縲√↑縺懊↑繧薙〒縺励ｇ縺�ｼ�
縺薙�遲斐ｂ螳溘�"蝣ｴ謇"縺碁㍾隕√↑繝昴う繝ｳ繝医→縺ｪ縺｣縺ｦ縺�ｋ繧薙〒縺吶�縲�
菴輔′縺昴ｌ縺ｫ髢｢菫ゅ＠縺ｦ縺�ｋ縺九→險縺�∪縺吶→
'*** 襍ｷ蜍墓凾縺ｮ繝ｬ繧ｳ繝ｼ繝芽｡御ｽ咲ｽｮ ***
Const cInitRow = 2
'*** 繝ｬ繧ｳ繝ｼ繝芽｡御ｽ咲ｽｮ ***
Dim LngRecRow As Long
縺薙�驛ｨ蛻�↓縺ｪ繧九ｏ縺代〒縺吶�
縺､縺ｾ繧翫悟､画焚繝ｻ螳壽焚縺ｮ螳｣險蝣ｴ謇縲阪′驥崎ｦ√↑諢丞袖繧呈戟縺｣縺ｦ縺�ｋ縺ｮ縺ｧ縺吶�
螟画焚繧�ｮ壽焚縺｣縺ｦ縺�≧縺ｮ縺ｯ縲√◎繧後◇繧�"螳｣險縺励※縺�ｋ蝣ｴ謇"縺ｫ繧医▲縺ｦ縲∵怏蜉ｹ遽�峇縺碁＆縺｣縺ｦ
縺上ｋ縺ｮ縺ｧ縺吶�
譛牙柑遽�峇縺｣縺ｦ縺�≧縺ｮ縺ｯ縲√▽縺ｾ繧�"蛟､繧剃ｽｿ縺｣縺溘ｊ縲∝盾辣ｧ縺励◆繧翫〒縺阪ｋ遽�峇"縺ｮ縺薙→縺ｧ縺吶�
萓九∴縺ｰ騾夊ｲｨ縺ｪ繧薙°繧定�∴縺ｦ縺ｿ縺ｾ縺励ｇ縺��\ 縺｣縺ｦ縺�≧騾夊ｲｨ縺ｯ縲∝渕譛ｬ逧�↓譌･譛ｬ蝗ｽ蜀�〒縺励°
菴ｿ縺�％縺ｨ縺ｯ縺ｧ縺阪∪縺帙ｓ繧医��溘％繧後′繝峨Ν縺ｨ縺九〒縺吶→縲∝嵜繧偵∪縺溘＞縺ｧ菴ｿ逕ｨ縺ｧ縺阪◆繧翫ｂ縺�
縺ｾ縺吶りｦ√�縺昴ｓ縺ｪ縺薙→縺ｪ縺ｮ縺ｧ縺吶�
莉翫� Private Sub CmdTouroku_Click() �� End Sub 縺ｮ髢薙↓
'*** 襍ｷ蜍墓凾縺ｮ繝ｬ繧ｳ繝ｼ繝芽｡御ｽ咲ｽｮ ***
Const cInitRow = 2
'*** 繝ｬ繧ｳ繝ｼ繝芽｡御ｽ咲ｽｮ ***
Dim LngRecRow As Long
縺悟ｮ夂ｾｩ縺輔ｌ縺ｦ縺�∪縺吶′縲�"Sub �� End Sub縺ｮ髢薙〒螳夂ｾｩ縺輔ｌ縺溷､画焚繝ｻ螳壽焚縺ｯ縲√◎縺ｮ荳ｭ縺ｧ
縺ｮ縺ｿ譛牙柑縺ｨ縺ｪ繧翫∪縺吶宣㍾隕√�
縺励◆縺後▲縺ｦ萓九∴縺ｰ
Sub SyoriA()
Const TeisuA = 1
End Sub
縺ｨ縺句ｮ夂ｾｩ縺輔ｌ縺ｦ縺�ｋ螳壽焚繧偵∝�逅�ｼ｢縺ｧ菴ｿ縺�◆縺�→諤昴▲縺ｦ
Sub SyoriB()
MsgBox(TeisuA)
End Sub
縺ｨ縺九ｄ縺｣縺ｦ縺ｿ縺ｦ繧ゅ∝�逅�ｼ｢縺九ｉ縺ｯ隕九∴縺ｾ縺帙ｓ�井ｽｿ縺医∪縺帙ｓ��
縺｡縺ｪ縺ｿ縺ｫ荳願ｨ倥�繧医≧縺ｫ Sub �� End Sub 縺ｧ譖ｸ縺九ｌ縺滂ｼ代▽�代▽縺ｮ蜃ｦ逅�腰菴阪�莠九ｒ
縲後�繝ｭ繧ｷ繝ｼ繧ｸ繝｣縲阪→蜻ｼ縺ｳ縺ｾ縺吶�
莉翫�"繝輔か繝ｼ繝�"縺ｨ縺�≧蝣ｴ謇縺ｮ荳ｭ縺ｫ Private Sub CmdTouroku_Click() 縺ｨ
Private Sub UserForm_Initialize() 縺ｮ�偵▽縺ｮ繝励Ο繧ｷ繝ｼ繧ｸ繝｣縺悟ｭ伜惠縺励∪縺吶′縲�
縺薙��偵▽縺ｮ繝励Ο繧ｷ繝ｼ繧ｸ繝｣縺梧嶌縺九ｌ縺ｦ縺�ｋ�代▽縺ｮ蝣ｴ謇縺ｮ縺薙→繧偵後Δ繧ｸ繝･繝ｼ繝ｫ縲阪→
險縺�∪縺吶�
縺薙ｌ縺ｯ縺�ｍ繧薙↑險縺�婿縺後≠繧翫∪縺吶′(^^;)
萓九∴縺ｰ縲後�繝ｭ繧ｷ繝ｼ繧ｸ繝｣縺碁寔縺ｾ縺｣縺溘ｂ縺ｮ縺後Δ繧ｸ繝･繝ｼ繝ｫ縺�縲阪→縺九�
縺�縺｣縺溘ｉ縲後�繝ｭ繧ｷ繝ｼ繧ｸ繝｣縺鯉ｼ代▽縺励°辟｡縺代ｌ縺ｰ繝｢繧ｸ繝･繝ｼ繝ｫ縺ｨ縺ｯ險繧上ｓ縺ｮ縺九阪→險繧上ｌ
繧後�縲√◎繧薙↑縺薙→縺ｪ縺�〒縺吶＠繝ｻ繝ｻ繝ｻ
縺ｧ縺吶�縺ｧ縲�"縺ｾ縺壹�縺倥ａ縺ｫ繝｢繧ｸ繝･繝ｼ繝ｫ縺ゅｊ縺�"縺ｪ繧薙〒縺吶ｈ縺ｭ縲ゅΔ繧ｸ繝･繝ｼ繝ｫ縺ｨ縺�≧菴懈･ｭ
繧ｹ繝壹�繧ｹ繧堤畑諢上＠縺ｦ縺翫＞縺ｦ縲√◎縺薙↓繝励Ο繧ｷ繝ｼ繧ｸ繝｣縺ｨ縺�≧�代▽縺ｮ蜃ｦ逅�腰菴阪ｒ縲√＞縺上▽
繧よ嶌縺�※縺�￥縺ｨ縺�≧縲�
蜈育ｨ九∝ｮ壽焚繝ｻ螟画焚縺ｮ螳｣險縺ｧ縲碁夊ｲｨ縲阪�萓九ｒ蜃ｺ縺励∪縺励◆縺後√∪縺溘◆縺ｨ縺医※險縺�↑繧峨�縲�
縲後Δ繧ｸ繝･繝ｼ繝ｫ縺� "蝗ｽ" 縺ｧ縲√�繝ｭ繧ｷ繝ｼ繧ｸ繝｣縺� "蜷��驕灘ｺ懃恁"縲阪→縺�≧諢溘§縺ｧ縺励ｇ縺�°縲�
蜀阪�隧ｱ繧呈綾縺励∪縺吶′繝ｻ繝ｻ繝ｻ
荳願ｨ倥�蜃ｦ逅�ｼ｡縺ｨ蜃ｦ逅�ｼ｢縺ｮ繧医≧縺ｫ縲∝�逅�ｼ｡縺ｮ荳ｭ縺ｧ螳夂ｾｩ縺輔ｌ縺溷ｮ壽焚縺ｯ縲√◎縺ｮ縺ｾ縺ｾ縺ｮ迥ｶ諷�
縺ｧ縺ｯ縲∝�逅�ｼ｢縺九ｉ縺ｯ隕九ｋ縺薙→縺後〒縺阪∪縺帙ｓ縲ゅ％縺ｮ蝣ｴ蜷医√←縺薙↓螳夂ｾｩ繧呈嶌縺代�縺�＞縺�
縺ｨ險縺医�縲後◎縺ｮ螟悶↓譖ｸ縺代�繧医＞縲阪→縺�≧縺薙→縺ｫ縺ｪ繧翫∪縺吶�
縲悟､悶阪▲縺ｦ縺ｩ縺薙〒縺励ｇ縺�ｼ�
Private Sub UserForm_Initialize() 縺ｮ蜃ｦ逅�ｒ譖ｸ縺城圀縺ｫ縲∝承蛛ｴ縺ｮ繧ｳ繝ｳ繝懊�繝�け繧ｹ繧�
蜍輔°縺励∪縺励◆繧医� d(^-^ ) (Click 竊� Intitialize 縺ｫ螟画峩縺励◆)
莉雁ｺｦ縺ｯ蟾ｦ蛛ｴ縺ｮ繧ｳ繝ｳ繝懊�繝�け繧ｹ繧偵け繝ｪ繝�け縺励※縲�(General)縲阪→縺�≧陦ｨ遉ｺ縺ｫ蛻�ｊ譖ｿ縺医※
縺ｿ縺ｾ縺励ｇ縺��
縺ｩ縺�〒縺吶°�� 繧ｫ繝ｼ繧ｽ繝ｫ縺ｮ菴咲ｽｮ縺� Private Sub CmdTouroku_Click() 縺ｮ荳翫↓譚･縺ｦ縺�∪
縺吶ｈ縺ｭ縲ゅ◎縺励※蜿ｳ蛛ｴ縺ｮ繧ｳ繝ｳ繝懊�繝�け繧ｹ縺ｮ蛟､縺後�(Declarations)縲阪↓螟牙喧縺励※縺�ｋ縺ｨ
諤昴＞縺ｾ縺吶�
縺薙�蝣ｴ謇縺後＞繧上ｆ繧九悟､悶阪→縺�≧縺薙→縺ｫ縺ｪ繧翫∪縺吶�
縺昴＠縺ｦ縺薙�蝣ｴ謇縺ｫ
'*** 襍ｷ蜍墓凾縺ｮ繝ｬ繧ｳ繝ｼ繝芽｡御ｽ咲ｽｮ ***
Const cInitRow = 2
'*** 繝ｬ繧ｳ繝ｼ繝芽｡御ｽ咲ｽｮ ***
Dim LngRecRow As Long
縺ｨ蜈･蜉帙＠縺ｦ縺ｿ縺ｦ荳九＆縺�ゅ◎縺励※ Private Sub CmdTouroku_Click() 縺ｮ荳ｭ縺ｫ縺ゅｋ
'*** 襍ｷ蜍墓凾縺ｮ繝ｬ繧ｳ繝ｼ繝芽｡御ｽ咲ｽｮ ***
Const cInitRow = 2
'*** 繝ｬ繧ｳ繝ｼ繝芽｡御ｽ咲ｽｮ ***
Dim LngRecRow As Long
縺ｯ縲∝�鬆ｭ縺ｫ ' 繧貞�繧後※繧ｳ繝｡繝ｳ繝郁｡後↓縺励※縺翫＞縺ｦ荳九＆縺��
縺昴≧縺吶ｋ縺ｨ蜈ｨ菴薙�繧ｳ繝ｼ繝峨�
'*** 襍ｷ蜍墓凾縺ｮ繝ｬ繧ｳ繝ｼ繝芽｡御ｽ咲ｽｮ ***
Const cInitRow = 2
'*** 繝ｬ繧ｳ繝ｼ繝芽｡御ｽ咲ｽｮ ***
Dim LngRecRow As Long
Private Sub CmdTouroku_Click()
'*** 繝��繧ｿ蛻励�螳夂ｾｩ ***
Const cNameDataCol = 1 '豌丞錐
Const cMailDataCol = 2 '繝｡繝ｼ繝ｫ繧｢繝峨Ξ繧ｹ
Const cBirthDataCol = 3 '隱慕函譌･
' '*** 襍ｷ蜍墓凾縺ｮ繝ｬ繧ｳ繝ｼ繝芽｡御ｽ咲ｽｮ ***
' Const cInitRow = 2
'
' '*** 繝ｬ繧ｳ繝ｼ繝芽｡御ｽ咲ｽｮ ***
' Dim LngRecRow As Long
'
'*** 繝��繧ｿ逋ｻ骭ｲ蜃ｦ逅� ***
Cells(LngRecRow, cNameDataCol).Value = TxtName.Text
Cells(LngRecRow, cMailDataCol).Value = TxtEmail.Text
Cells(LngRecRow, cBirthDataCol).Value = TxtBirthday.Text
'*** 陦御ｽ咲ｽｮ繧剃ｸ九↓遘ｻ蜍� ***
LngRecRow = LngRecRow + 1
'*** 繝�く繧ｹ繝医�繝�け繧ｹ縺ｮ蛟､繧ｯ繝ｪ繧｢ ***
TxtName.Text = ""
TxtEmail.Text = ""
TxtBirthday.Text = ""
End Sub
Private Sub UserForm_Initialize()
'*** 陦御ｽ咲ｽｮ縺ｮ蛻晄悄蛹� ***
LngRecRow = cInitRow
End Sub
縺ｨ縺ｪ繧翫∪縺吶�縲ゅ％繧後〒螳溯｡後＠縺ｦ縺ｿ縺ｾ縺励ｇ縺��
縺吶ｋ縺ｨ繝ｻ繝ｻ繝ｻ縲√♀縺峨♂��!!蜍輔＞縺溘〒縺ｯ縺ｪ縺�〒縺吶°縲ゅヱ繝√ヱ繝√ヱ繝�(^縲�^*)
縺輔※縲√↑縺懷虚縺�◆縺ｮ縺ｧ縺励ｇ縺�ｼ溘�繧､繝ｳ繝医�縺ｩ縺薙↓��
縺昴�隗｣隱ｬ縺ｯ谺｡蝗槭�縺頑･ｽ縺励∩�樞飭(^^)/~
 |
 |
TOP �� �ｶ�｢�｡縺ｧ繝ｩ繧ｯ縺励◆縺� �霸art 2��