こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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携帯番号ここの部分を消し
登録してみると登録ができるのですが・・・
わからなくなり書き込みました
宜しくお願いします

大変申し訳ございませんが、この投稿に添付された画像や動画などは、「BIGLOBEなんでも相談室」ではご覧いただくことができません。 OKWAVEよりご覧ください。

マルチメディア機能とは?

投稿日時 - 2016-10-01 12:19:24

QNo.9236661

困ってます

質問者が選んだベストアンサー

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

投稿日時 - 2016-10-03 12:16:08

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.2

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

投稿日時 - 2016-10-01 21:47:33

補足

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

投稿日時 - 2016-10-03 11:47:25

ANo.1

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

投稿日時 - 2016-10-01 13:08:45

あなたにオススメの質問