VBAのサブプロシージャの登録

質問

初めてのExcelVBAで学習しておりますが、最終まとめ問題がうまく作動しませんので、ご教授お願いします。
会員名簿を専用画面で作成する方法。sheet1と2は会員名簿・基本データを入力してあります。sheet1には会員登録コマンドボタン作成しましたが、登録できてないので、画面表示されません。マクロをコマンドボタンの登録方法も教えてください。
下記にプロシージャを記載しておきます。
cobbandbutton1も大文字になりません。
宜しくお願いします。
Private Sub CommandOk_Click()
Dim Row As Integer

Row = Range("d1").Value + 3
If 会員登録画面.氏名カナ.Value = Empty Then
MsgBox ("氏名カナが空欄です")
Exit Sub

End If
If 会員登録画面.氏名漢字.Value = Empty Then
MsgBox ("氏名漢字が空欄です")
Exit Sub
End If
If Not IsDate(会員登録画面.年.Value & _
"/" & 会員登録画面.月.Value & _
"/" & 会員登録画面.日.Value) Then
MsgBox ("生年月日の形式が正しくありません")
Exit Sub
End If

Cells(Row, 1).Value = 会員登録画面.会員番号.Value
Cells(Row, 2).Value = 会員登録画面.氏名カナ.Value
Cells(Row, 3).Value = 会員登録画面.氏名漢字.Value
If 会員登録画面.男.Value = True Then
Cells(Row, 4).Value = "男"
Else
Cells(Row, 4).Value = "女"
End If
Cells(Row, 5).Value = DateValue(会員登録画面.年.Value & _
"/" & 会員登録画面.月.Value & _
"/" & 会員登録画面.日.Value)

Cells(Row, 6).Value = 会員登録画面.都道府県.Value
Cells(Row, 7).Value = 会員登録画面.電話番号.Value
If 会員登録画面.スポーツ観戦.Value = True Then
Cells(Row, 8).Value = "○"
End If
If 会員登録画面.映画鑑賞.Value = True Then
Cells(Row, 9).Value = "○"
End If
If 会員登録画面.読書.Value = True Then
Cells(Row, 10).Value = "○"
End If
If 会員登録画面.釣り.Value = True Then
Cells(Row, 11).Value = "○"
End If
If 会員登録画面.ドライブ.Value = True Then
Cells(Row, 12).Value = "○"
End If
If 会員登録画面.旅行.Value = True Then
Cells(Row, 12).Value = "○"
End If
Range("d1").Value = rnge("d1").Value + 1
Call 画面初期化

End Sub

回答No.1

pbforce · ベストアンサー

>　マクロをコマンドボタンの登録方法も教えてください。

デザインモードでコマンドボタンをダブルクリックして出て来たモジュールに書き込めばOKです。

専用画面が会員登録画面で会員番号とか氏名漢字とかがテキストボックスでしょうか？
そうだとすると、.Valueではなくて.Textでやってみてください。

お礼

お返事遅くなりました。
ユーザーフォームにテキストボックスコントロールを作成し、オブジェクト名として会員番号・氏名カナ等を入力しておりますが、会員登録画面作成のサブプロシージャを作成後、登録ボタンを押しても、記入されません？ご教授お願いします。

回答No.2

pbforce

#1です。

.Valueを.Textにかえるのは、テキストボックスに対してだけです。
セルにに対してはそのまま.Valueを使用してください。