縲御ソョ豁」縲阪�繧ソ繝ウ縺ョ蜃ヲ逅�
蜑榊屓菴懈�縺励◆縲悟炎髯、縲阪�繧ソ繝ウ縺ョ蜃ヲ逅�↓縺、縺�※縺ッ縲√∪縺�闍・蟷イ縺ョ菫ョ豁」蛟区園縺梧ョ九&繧後※縺�∪縺�(^^;)
縺頑ー励▼縺阪↓縺ェ縺」縺滓婿繧ゅ>繧峨▲縺励c繧九→諤昴>縺セ縺吶′縲√←繧薙←繧灘炎髯、繧堤カ壹¢縺ヲ縺�¥縺ィ縺励∪縺�↓縺ッ隕句�縺�
繧貞炎髯、縺励◆縺ゅ£縺上↓繧ィ繝ゥ繝シ縺ァ關ス縺。縺溘j縺励∪縺吶�(( ((( 繝ス(;^^)繝�
縺薙�霎コ縺ッ蜷�さ繝ウ繝医Ο繝シ繝ォ縺ョ菴ソ逕ィ縺ョ蜿ッ荳榊庄繧貞�繧頑崛縺医k縺薙→縺ァ蟇セ蠢懊@縺溘>縺ィ諤昴▲縺ヲ縺セ縺吶�
縺後√■繧�▲縺ィ縺�縺大セ後↓蝗槭@縺ヲ縺翫″縺セ縺吶�縲�
縺ィ縺�≧縺ョ縺ッ蛻�j譖ソ縺医�繧ソ繧、繝溘Φ繧ー縺」縺ヲ謨ー邂�園縺ョ繝励Ο繧キ繝シ繧ク繝」縺ァ陦後>縺セ縺吶�縺ァ縲∝�菴薙�蜍輔″繧偵b縺�ク
蠎ヲ遒コ隱阪@縺ヲ縺九i菫ョ豁」縺ョ譁ケ繧貞�繧後◆縺�→諤昴>縺セ縺吶�
���繝サ繝サ繧�▲縺ア縺励∬。後″蠖薙◆繧翫�縺」縺溘j豌怜袖縺ョWebMasterマ�(^_^;)
縺ィ縺�≧縺薙→縺ァ縲∽サ雁屓縺ッ縺セ縺�蜈ィ縺乗焔繧偵▽縺代※縺�↑縺九▲縺溘御ソョ豁」縲阪�繧ソ繝ウ縺ョ蜃ヲ逅�r菴懊▲縺ヲ縺励∪縺�%縺ィ縺ォ
縺�◆縺励∪縺帙≧縲�
縺セ縺壹�莉墓ァ倥�遒コ隱阪°繧�
笳�御ソョ豁」縲阪�繧ソ繝ウ 繧ッ繝ェ繝�け譎�
繝サ繝ャ繧ウ繝シ繝峨�迴セ蝨ィ菴咲スョ繧堤、コ縺吝、画焚縺ョ蛟、繧貞盾辣ァ縺吶k
繝サ繝ッ繝シ繧ッ繧キ繝シ繝医�蟇セ雎。陦御ス咲スョ縺ォ縲∫樟蝨ィ陦ィ遉コ荳ュ縺ョ繝ャ繧ウ繝シ繝峨r荳頑嶌縺阪☆繧�
繝サ逕サ髱「陦ィ遉コ縺ッ縺昴�縺セ縺セ縺ィ縺吶k
縺薙l縺ォ蝓コ縺・縺�※譖ク縺�※縺ソ縺セ縺励g縺��
Private Sub CmdUpdate_Click()
'*** 繝��繧ソ菫ョ豁」蜃ヲ逅� ***
Cells(LngRecRow, cNameDataCol).Value = TxtName.Text
Cells(LngRecRow, cMailDataCol).Value = TxtEmail.Text
Cells(LngRecRow, cBirthDataCol).Value = TxtBirthday.Text
End Sub
縺ェ繧薙°隕九◆縺薙→縺ゅk繧医≧縺ェ繧ウ繝シ繝峨@縺区嶌縺�※縺セ縺帙s縺�(( ((( 繝ス(;^^)繝弱せ繧ソ繧ウ繝ゥ繧オ繝�し
迴セ蝨ィ謫堺ス懷ッセ雎。縺ィ縺ェ縺」縺ヲ縺�k繝ャ繧ウ繝シ繝峨r繝輔か繝シ繝�縺ョ繝��繧ソ縺ァ鄂ョ縺肴鋤縺医k縺�縺代〒縺吶°繧峨√%繧後□縺代〒
縺�>縺ィ縺�≧縺薙→縺ッ縲√↑繧薙→縺ェ縺上♀蛻�°繧翫>縺溘□縺代k縺ィ諤昴>縺セ縺�(^-^;A繧「繧サ繧「繧サ
��焔謚懊″縺ァ繧上#縺悶>縺セ縺帙〓繝サ繝サ繝サ
縺薙%縺ァ縺ッ"逕サ髱「陦ィ遉コ縺ッ縺昴�縺セ縺セ縺ィ縺吶k"縺ィ縺�≧莉墓ァ倥〒縺吶′縲√%繧後b螂ス縺ソ縺悟�縺九l繧九→縺薙m縺�縺ィ諤昴>縺セ
縺吶�縲ゅ碁」邯壹@縺ヲ菫ョ豁」縺励◆縺�°繧峨∵ャ。縺ョ繝ャ繧ウ繝シ繝峨r陦ィ遉コ縺吶k繧医≧縺ォ縺励※縺上l縲阪▲縺ヲ險繧上l縺溘j繧ゅ☆
繧九°繧ゅ@繧後∪縺帙s縺励�繝サ繝サ縲�
縺昴≧縺�≧蝣エ蜷医↓縺ッ荳玖ィ倥�繧医≧縺ェ蜃ヲ逅�r霑ス蜉�縺吶l縺ー蟇セ蜃ヲ縺ァ縺阪∪縺�
'*** 迴セ蝨ィ縺ョ繝ャ繧ウ繝シ繝我ス咲スョ繧医j�代▽蠕� ***
If LngRecRow < LngAllRecCnt + 1 Then
LngRecRow = LngRecRow + 1
'*** 繝ャ繧ウ繝シ繝芽。ィ遉コ蜃ヲ逅� ***
TxtName.Text = Cells(LngRecRow, cNameDataCol).Value
TxtEmail.Text = Cells(LngRecRow, cMailDataCol).Value
TxtBirthday.Text = Cells(LngRecRow, cBirthDataCol).Value
'*** 陦ィ遉コ逕ィ繝ャ繧ウ繝シ繝画焚繧貞、画焚縺ォ繧サ繝�ヨ ***
LngCurRecNumDsp = LngRecRow - 1 '迴セ蝨ィ縺ョ繝ャ繧ウ繝シ繝臥分蜿キ
'*** 繝ャ繧ウ繝シ繝我サカ謨ー陦ィ遉コ ***
LblRecCnt.Caption = LngCurRecNumDsp & "莉カ逶ョ/蜈ィ" & LngAllRecCntDsp & "莉カ"
End If
縺サ縺ィ繧薙←縺御スソ縺�∪繧上@迥カ諷九�繧ウ繝シ繝峨↓縺ェ縺」縺ヲ縺翫j縺セ縺吶�縺ァ縲∬ゥウ縺励>隱ャ譏弱�蜑イ諢帙&縺帙※縺�◆縺�縺阪∪
縺吶�(^^;)
繝昴う繝ウ繝医→縺励※縺ッ縲∵ャ。縺ョ繝ャ繧ウ繝シ繝峨↓遘サ蜍輔@縺溘→縺阪�縺ソ陦ィ遉コ縺ョ譖エ譁ー繧定。後▲縺ヲ縺�k縺ィ縺薙m縺上i縺�〒縺励g
縺�°縲�
縺。繧�▲縺ィ遏ュ縺�〒縺吶′縲√く繝ェ縺梧が縺��縺ァ邯壹″縺ッ谺。蝗槭∈(( ((( 繝ス(;^^)繝弱せ繧ソ繧ウ繝ゥ繧オ繝�し
 |
 |
TOP �� �カ�「�。縺ァ繝ゥ繧ッ縺励◆縺� �霸art 2��
|
|