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携帯番号ここの部分を消し
登録してみると登録ができるのですが・・・
わからなくなり書き込みました
宜しくお願いします
お礼
ありがとうございます。 試してみましたが、エラーになります。 検索しながら頑張ります。 また、心折れた時には今度は自分の考えた構文を載せてみます。 素早い回答ありがとう御座いまいた。