VBA マクロ 修正

質問

Private Sub UserForm_Initialize()
Me.lbl行番号.Caption = Worksheets("顧客情報").Range("A1").CurrentRegion.Rows.Count + 1
End Sub
Private Sub cmd検索_Click()
frm顧客検索.Show vbModal
If rtnNo > 1 Then
With Worksheets("顧客情報")
Me.lbl行番号.Caption = rtnNo
Me.txt顧客番号 = .Cells(rtnNo, 1)
Me.txt顧客名 = .Cells(rtnNo, 2)
Me.txt生年月日 = .Cells(rtnNo, 3)
Me.txt年齢 = .Cells(rtnNo, 4)
Me.txt性別 = .Cells(rtnNo, 5)
Me.txt郵便番号 = .Cells(rtnNo, 6)
Me.txt住所 = .Cells(rtnNo, 7)
Me.txt電話番号1 = .Cells(rtnNo, 8)
Me.txt電話番号2 = .Cells(rtnNo, 9)
Me.txt携帯番号 = .Cells(rtnNo, 10)
End With
End If
End Sub
Private Sub cmd登録_Click()
Dim wRow As Long
If Me.txt顧客番号 = "" Then
MsgBox "顧客番号を入力してください。", vbExclamation + vbOKOnly, "入力エラー"
Exit Sub
End If
If Me.txt顧客名 = "" Then
MsgBox "顧客名を入力してください。", vbExclamation + vbOKOnly, "入力エラー"
Exit Sub
End If
With Worksheets("顧客情報")
wRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Cells(wRow, 1) = Me.txt顧客番号
.Cells(wRow, 2) = Me.txt顧客名
.Cells(wRow, 3) = Me.txt生年月日
.Cells(wRow, 4) = Me.txt年齢
.Cells(wRow, 5) = Me.txt性別
.Cells(wRow, 6) = Me.txt郵便番号
.Cells(wRow, 7) = Me.txt住所
.Cells(wRow, 8) = Me.txt電話番号1
.Cells(wRow, 9) = Me.txt電話番号2
.Cells(wRow, 10) = Me.txt携帯番号
End With
Unload Me
End Sub

エクセルのマクロを設定しました。
登録時ここでエラーがでてしまうのですがなぜでしょうか？
Cells(wRow, 10) = Me.txt携帯番号

Cells(wRow, 10) = Me.txt携帯番号ここの部分を消し
登録してみると登録ができるのですが・・・
わからなくなり書き込みました
宜しくお願いします

回答No.3

ushi2015 · ベストアンサー

こんにちは
エラーからすると、「txt携帯番号」というテキストボックスが無いという事では？
オブジェクト名を良く確認してみて下さい。

回答No.2

ushi2015

こんばんは
どのようなエラーですか？
Me.txt携帯番号の「txt携帯番号」は「Me.」と入力した時点でインテリセンスで
表示されたものですか？
シートは保護されていないですか？
Cells(wRow, 10)　のJ列のセルは入力可能ですか？

補足

コンパイル　エラー
メドット　データメンバーが見つかりませんと
でてきます
J列は入力可能です
シートも保護していないです

回答No.1

IDii24

型指定がしてないですし、すべてが曖昧ですし、エラー内容もわからないので何とも言えませんが、携帯番号だけが数値とテキストで型が違うのでは？入力側がテキストなのか数値なのか、セル側が数値なのかテキストなのかわかりませんが。
Cstrなどでテキストに整えるとかClngなどで数値にするとかしてみるとか。