�ｶ�｢�｡縺ｧ繝ｩ繧ｯ縺励◆縺� �霸art 2��

縺ｨ繧翫≠縺医★縺ｯ螳梧�繧偵∩縺溘％縺ｮ蜈･蜉帙ヵ繧ｩ繝ｼ繝�縺ｧ縺吶′縲√％繧後°繧画峩縺ｫ縺｡繧�％縺｡繧�％逶ｴ縺励※縺�″縺ｪ縺後ｉ縲�
�ｶ�｢�｡縺ｮ蜍牙ｼｷ繧帝€ｲ繧√※縺�″縺溘＞縺ｨ諤昴＞縺ｾ縺吶€�

縺ｨ縺�≧繧上￠縺ｧ縲∫悄縺｣蜈医↓逶ｴ縺輔↑縺代ｌ縺ｰ繧､繧ｱ繝翫う縺ｨ縺薙ｍ縺九ｉ逶ｴ縺励※縺�″縺ｾ縺励ｇ縺�€�

縲後∴�溘◎繧後▲縺ｦ繝舌げ縺倥ｃ縺ｪ縺���溘€阪→縺�≧繝�ャ繧ｳ繝溘�縺ｪ縺励�(^-^;


縺ｾ縺壹�繝輔か繝ｼ繝�繧定ｵｷ蜍輔＠縺ｦ譎ｮ騾壹↓繝��繧ｿ蜈･蜉帙ｒ陦後▲縺ｦ縺ｿ縺ｦ縺上□縺輔＞縲る€壼ｸｸ縺ｮ菴ｿ縺�婿縺�縺ｨ迚ｹ縺ｫ蝠城｡後�
辟｡縺�〒縺吶ｈ縺ｭ縲�

縺昴％縺ｧ隧ｦ縺励↓繝��繧ｿ繧剃ｽ輔ｂ蜈･繧後★縺ｫ縲檎匳骭ｲ縲阪ｒ�灘屓遞区款縺励※縺ｿ縺ｦ荳九＆縺�€�

繝ｬ繧ｳ繝ｼ繝臥分蜿ｷ/蜈ｨ繝ｬ繧ｳ繝ｼ繝画焚繧ゆｽ輔ｂ螟牙喧縺ｯ隕九ｉ繧後∪縺帙ｓ繧医�縲ゅ◎縺�＠縺ｦ縺九ｉ縲√∪縺溘ョ繝ｼ繧ｿ繧貞�蜉帙＠縲�
逋ｻ骭ｲ繧定｡後▲縺ｦ縺ｿ縺ｦ荳九＆縺�€�

繝ｻ繝ｻ繝ｻ縺吶ｋ縺ｨ縺ｩ縺�〒縺励ｇ縺�ｼ� 譛€蛻昴↓逋ｻ骭ｲ縺励◆繝ｬ繧ｳ繝ｼ繝峨→縲∽ｽ輔ｂ蜈･繧後★縺ｫ縲檎匳骭ｲ縲阪ｒ謚ｼ縺励◆蠕後↓蜈･蜉�
縺励◆繝ｬ繧ｳ繝ｼ繝峨→縺ｮ髢薙′�楢｡檎ｩｺ縺�※縺励∪縺｣縺ｦ縺�∪縺吶€�

縺薙ｌ縺ｯ蜈･蜉帙ョ繝ｼ繧ｿ縺ｮ譛臥┌縺ｫ髢｢繧上ｉ縺壹€∫匳骭ｲ繧呈款縺呎ｯ弱↓迴ｾ蝨ｨ縺ｮ繝ｬ繧ｳ繝ｼ繝我ｽ咲ｽｮ繧� �具ｼ� 縺励※縺励∪縺｣縺ｦ縺�
繧九％縺ｨ縺悟次蝗�縺ｨ縺ｪ縺｣縺ｦ縺�∪縺吶€�

繧ゅ■繧阪ｓ縺吶∋縺ｦ縺ｮ蝣ｴ蜷医↓縺翫＞縺ｦ縲∫ｩｺ逋ｽ縺ｧ繝ｬ繧ｳ繝ｼ繝峨ｒ逋ｻ骭ｲ縺吶ｋ縺ｮ縺後う繧ｱ繝翫う縺薙→縺九→險€縺医�縲√◎縺�〒
縺ｯ縺ゅｊ縺ｾ縺帙ｓ縲ゅ％縺ｮ繧ｷ繧ｹ繝�Β縺ｮ繧医≧縺ｪ繧ｱ繝ｼ繧ｹ縺ｧ縺吶→繝槭ぜ繧､縺ｮ縺ｧ縺吶€�

縺ｪ縺懊°縺ｨ險€縺�∪縺吶→縲√％縺ｮ繧ｷ繧ｹ繝�Β縺ｧ縺ｯ蜈ｨ繝ｬ繧ｳ繝ｼ繝画焚縺ｮ繧ｫ繧ｦ繝ｳ繝医ｒ陦後≧縺溘ａ縺ｫ CurrentRegion 繧�
菴ｿ縺｣縺ｦ縲∝ｯｾ雎｡遽�峇繧貞叙蠕励＠縺ｦ縺�∪縺吶€�CurrentRegion 縺ｮ菴ｿ縺�婿縺ｫ縺､縺�※縺ｯ縲∽ｻ･蜑肴嶌縺�◆繧ゅ�繧偵＃隕ｧ
縺�◆縺�縺阪◆縺��縺ｧ縺吶′縲∬ｦ√�"蜷�ョ繝ｼ繧ｿ縺後▽縺ｪ縺後▲縺ｦ縺�ｋ迥ｶ諷九〒縺ｪ縺�→菴ｿ縺医↑縺�"縺ｮ縺ｧ縺吶€�

繝倥ち縺ｫ遨ｺ逋ｽ陦後↑縺ｩ縺悟�縺｣縺ｦ縺励∪縺�→縲√◎縺薙〒繝��繧ｿ縺ｮ縺､縺ｪ縺後ｊ縺悟�繧後※縺励∪縺�◆繧√€∵怙邨ゅΞ繧ｳ繝ｼ繝�
菴咲ｽｮ縺ｪ縺ｩ繧呈ｭ｣縺励￥蜿門ｾ励☆繧九％縺ｨ縺後〒縺阪∪縺帙ｓ縲�


縺ｨ縺�≧縺薙→縺ｧ縲√％縺ｮ蝠城｡後ｒ隗｣豸医☆繧九◆繧√↓�偵▽縺ｮ髱｢縺九ｉ繧｢繝励Ο繝ｼ繝√＠縺ｦ縺�￥縺薙→縺ｨ縺励∪縺励ｇ縺�€�


�懊◎縺ｮ�托ｼ櫁�蜍墓治逡ｪ縺吶ｋ

縺､縺ｾ繧頑眠隕上〒繝ｬ繧ｳ繝ｼ繝峨′逋ｻ骭ｲ縺輔ｌ繧句ｺｦ縺ｫ縲∝ｼｷ蛻ｶ逧�↓騾壹＠逡ｪ蜿ｷ繧偵�縺｣縺ｦ縺励∪縺翫≧縺ｨ縺�≧繧�ｊ譁ｹ縺ｧ縺吶€�

縺昴≧縺吶ｌ縺ｰ縲�€比ｸｭ縺ｧ縺ｾ繧九▲縺阪ｊ遨ｺ逋ｽ縺ｮ繝ｬ繧ｳ繝ｼ繝峨′逋ｻ骭ｲ縺輔ｌ繧医≧縺ｨ逡ｪ蜿ｷ縺ｯ騾泌�繧後∪縺帙ｓ縺九ｉ縲∵ｭ｣縺励＞
邨先棡繧貞叙蠕励〒縺阪ｋ縺ｯ縺壹〒縺吶€�

縺昴ｌ縺ｧ縺ｯ螳滄圀縺ｫ繧�▲縺ｦ縺ｿ縺ｾ縺帙≧縲�

譛€蛻昴↓閠�∴繧九�縺ｯ縲後◎縺ｮ逡ｪ蜿ｷ繧偵←縺薙↓蜈･繧後ｋ縺九€阪→縺�≧縺薙→縺ｧ縺吶€�
繧�▲縺ｱ繧企€壹＠逡ｪ蜿ｷ縺ｨ縺上ｌ縺ｰ縲∽ｸ€逡ｪ蟾ｦ蛛ｴ縺ｫ縺ゅ▲縺ｦ縺ｻ縺励＞縺ｨ縺�≧縺ｮ縺御ｺｺ諠�〒縺吶ｈ縺ｭ(^^;)

縺励°縺礼樟蝨ｨ縲�ｼ大�逶ｮ縺ｮ繝��繧ｿ縺ｯ縲梧ｰ丞錐縲阪→縺�≧縺薙→縺ｫ縺ｪ縺｣縺ｦ縺�∪縺吶€�

縺ｩ縺�＠縺溘ｉ縺�＞縺ｧ縺励ｇ縺�°��


縺昴≧! 縺薙％縺ｧ蛻昴ａ縺ｦ"螳壽焚"縺ｧ螳夂ｾｩ縺励◆諢冗ｾｩ縺ｨ縺�≧繧ゅ�縺悟�縺ｦ縺上ｋ繧薙〒縺吶��槭€�

繧ｳ繝ｼ繝峨�荳ｭ縺ｧ縺ｯ縲∫峩謗･�大�逶ｮ縺ｨ縺具ｼ貞�逶ｮ縺ｨ縺玖ｦ九↓縺�▲縺ｦ繧九ｏ縺代〒縺ｯ縺ｪ縺�〒縺吶ｈ縺ｭ縲ゅ≠縺上∪縺ｧ
cNameDataCol 縺ｨ縺九�蛟､繧定ｦ九※縲∽ｽ咲ｽｮ繧呈ｱｺ螳壹＠縺ｦ縺�ｋ縺�縺代〒縺吶€�

縺ｧ縺吶°繧峨◎縺ｮ螳壽焚縺ｮ蛟､繧貞､画峩縺吶ｋ縺�縺代〒縲√き繝ｳ繧ｿ繝ｳ縺ｫ陦ｨ遉ｺ菴咲ｽｮ繧貞､峨∴繧九％縺ｨ縺悟�譚･繧九�縺ｧ縺吶€�

縺ｨ縺�≧縺薙→縺ｧ縲∵里蟄倥�螳壽焚縺ｮ蛟､繧貞､画峩縺励※縺ｿ縺ｾ縺励ｇ縺�€�


    '*** 繝��繧ｿ蛻励�螳夂ｾｩ ***
    Const cNameDataCol = 2  '豌丞錐
    Const cMailDataCol = 3   '繝｡繝ｼ繝ｫ繧｢繝峨Ξ繧ｹ
    Const cBirthDataCol = 4  '隱慕函譌･


谺｡縺ｫ騾壹＠逡ｪ蜿ｷ縺ｮ蛻励ｒ螳夂ｾｩ縺吶ｋ縺溘ａ縺ｮ螳壽焚繧定ｿｽ蜉�縺励∪縺励ｇ縺�€�

    Const cRecNumCol = 1     '騾壹＠逡ｪ蜿ｷ

縺昴＠縺ｦ繝ｯ繝ｼ繧ｯ繧ｷ繝ｼ繝医�隕句�縺励ｂ螟画峩縺励※縺翫￥蠢�ｦ√′縺ゅｊ縺ｾ縺吶�縲�
�大�逶ｮ縺ｫ譁ｰ縺励＞蛻励ｒ謖ｿ蜈･縺励€�ｼ題｡檎岼縺ｫ縲君o縲阪→縺�≧隕句�縺励ｒ縺､縺代∪縺励ｇ縺�€�
隕句�縺励�蟾ｦ縺九ｉ鬆�↓ No縲∵ｰ丞錐縲・-Mail縲∬ｪ慕函譌･ 縺ｨ縺ｪ繧翫∪縺吶€�


縺薙％縺ｾ縺ｧ縺ｧ縺阪◆繧峨€∝ｾ後�閾ｪ蜍墓治逡ｪ縺ｮ蜃ｦ逅�ｒ霑ｽ蜉�縺吶ｋ縺�縺代〒縺吶€�

逡ｪ蜿ｷ繧偵�繧句�逅��縲檎匳骭ｲ縲阪�譎ゅ↓陦後∴縺ｰ縺�＞縺ｧ縺吶ｈ縺ｭ縲ゅ€御ｿｮ豁｣縲阪�迴ｾ蝨ｨ縺ｮ繝��繧ｿ繧貞､画峩縺吶ｋ縺�縺代〒
縺吶＠縲√€悟炎髯､縲阪ｒ縺吶ｌ縺ｰ迴ｾ蝨ｨ縺ｮ逡ｪ蜿ｷ繧り�蜍慕噪縺ｫ豸医∴縺ｾ縺吶＠縲�


縺ｦ縺ｪ繧上￠縺ｧ縲，mdAddNew_Click 縺ｮ荳€逡ｪ荳翫↓

    '*** 閾ｪ蜍墓治逡ｪ蜃ｦ逅� ***
    Cells(LngRecRow, cRecNumCol).Value = LngCurRecNumDsp

繧定ｿｽ蜉�縺励∪縺励ｇ縺�€�


蛟､縺ｨ縺励※ LngCurRecNumDsp 繧剃ｽｿ縺｣縺ｦ縺�ｋ縺ｮ縺後Α繧ｽ縺ｧ縺吶�(^-^

縺薙�螟画焚縺ｯ蟶ｸ縺ｫ蜈ｨ繝ｬ繧ｳ繝ｼ繝画焚�具ｼ代ｒ遉ｺ縺励∪縺吶°繧峨€�ｼ蝉ｻｶ縺ｮ譎ゅ��代↓縺ｪ繧翫∪縺吶ｈ縺ｭ縲ゅ◎縺�☆繧九→逡ｪ蜿ｷ
繧抵ｼ代°繧峨�繧翫◆縺��ｴ蜷医↓驛ｽ蜷医′縺�＞繧上￠縺ｧ縺吶€�

縺ｧ縲∽ｸ願ｨ倥�繧ｳ繝ｼ繝峨ｒ霑ｽ蜉�縺励◆ CmdAddNew_Click 縺ｯ縺薙■繧俄�

-----------------------------------------------------------------------------------------
Private Sub CmdAddNew_Click()

    '*** 閾ｪ蜍墓治逡ｪ蜃ｦ逅� ***
    Cells(LngRecRow, cRecNumCol).Value = LngCurRecNumDsp

    '*** 繝��繧ｿ逋ｻ骭ｲ蜃ｦ逅� ***
    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 = ""
    
    '*** 逋ｻ骭ｲ貂医�繝ｬ繧ｳ繝ｼ繝我ｻｶ謨ｰ蜿門ｾ�(隕句�縺苓｡悟�髯､縺�) ***
    LngAllRecCnt = Range("A1").CurrentRegion.Rows.Count - 1
    '*** 陦ｨ遉ｺ逕ｨ繝ｬ繧ｳ繝ｼ繝画焚繧貞､画焚縺ｫ繧ｻ繝�ヨ ***
    LngCurRecNumDsp = LngAllRecCnt + 1  '迴ｾ蝨ｨ縺ｮ繝ｬ繧ｳ繝ｼ繝臥分蜿ｷ
    LngAllRecCntDsp = LngAllRecCnt + 1  '蜈ｨ繝ｬ繧ｳ繝ｼ繝我ｻｶ謨ｰ
    '*** 繝ｬ繧ｳ繝ｼ繝我ｻｶ謨ｰ陦ｨ遉ｺ ***
    TxtRecCnt.Text = LngCurRecNumDsp & "莉ｶ逶ｮ/蜈ｨ" & LngAllRecCntDsp & "莉ｶ"

    
End Sub
-----------------------------------------------------------------------------------------

螳壽焚繧定ｿｽ蜉�繝ｻ菫ｮ豁｣縺励◆螳｣險€驛ｨ縺ｯ縺薙■繧俄�
-----------------------------------------------------------------------------------------
    '====== 螳壽焚螳｣險€驛ｨ ======

    '*** 襍ｷ蜍墓凾縺ｮ繝ｬ繧ｳ繝ｼ繝芽｡御ｽ咲ｽｮ ***
    Const cInitRow = 2
    '*** 隕句�縺苓｡御ｽ咲ｽｮ ***
    Const cMidasiRow = 1
    '*** 繝��繧ｿ蛻励�螳夂ｾｩ ***
    Const cRecNumCol = 1     '騾壹＠逡ｪ蜿ｷ
    Const cNameDataCol = 2   '豌丞錐
    Const cMailDataCol = 3   '繝｡繝ｼ繝ｫ繧｢繝峨Ξ繧ｹ
    Const cBirthDataCol = 4  '隱慕函譌･
    '*** 繝輔か繝ｼ繝�繧定ｵｷ蜍輔☆繧句�ｴ謇€�医す繝ｼ繝亥錐��***
    Const cFrmOpnSheet = "Sheet1"
    '*** 繝��繧ｿ繧堤匳骭ｲ縺吶ｋ蝣ｴ謇€�医す繝ｼ繝亥錐��***
    Const cDatWriSheet = "Sheet1"
-----------------------------------------------------------------------------------------

縺�°縺後〒縺励ｇ縺�°�� 縺薙≧縺�≧譁ｹ豕輔ｂ隕壹∴縺ｦ縺翫＞縺ｦ繧ｽ繝ｳ縺ｯ縺ｪ縺�〒縺励ｇ縺� d(^-^ )


縺昴ｌ縺ｧ縺ｯ谺｡蝗槭∪縺ｧ縺斐″縺偵ｓ繧医♂��(^^)/~