お世話になっております。pipiでございます。
Excel VBAで簡単なシステムの作成を行っておりますが、型が一致しませんと表示されてしまって困っています。昨日、一日中考えたのですが、まったく分からない状態です。
どなたかご教授下さい。
vba
1'商品マスタを開いたと同時にリストボックス内に登録情報を表示。 2Private Sub UserForm_Initialize() 3 Worksheets("商品マスタ").Select 4 5With ListBox1 6 .Font.Size = 10 7 .ColumnCount = 7 8 .ColumnWidths = "50;100;80;80;100;30;70" 9 .TextAlign = fmTextAlignLeft 10 .Font.Name = "MS ゴシック" 11 12 Dim i As Integer 13 Dim LastLow As Integer 14 LastLow = Range("A60000").End(xlUp).Row 15 For i = 2 To LastLow 16 .AddItem Cells(i, 1).Value 17 .List(.ListCount - 1, 1) = Cells(i, 2).Value 18 .List(.ListCount - 1, 2) = Cells(i, 3).Value 19 .List(.ListCount - 1, 3) = Cells(i, 4).Value 20 .List(.ListCount - 1, 4) = Cells(i, 5).Value 21 .List(.ListCount - 1, 5) = Cells(i, 6).Value 22 .List(.ListCount - 1, 6) = Cells(i, 7).Value 23 Next 24End With 25 26txtID.Enabled = False 27End Sub 28 29 30'修正ボタンを押した時の処理。 31Private Sub btnUPdate_Click() 32 Dim msg As String, title As String 33 msg = "修正します。よろしいですか?" 34 title = "修正の確認" 35 36 Dim res As Integer 37 res = MsgBox(msg, vbYesNo + vbInformation, title) 38 39 If res = vbNo Then Exit Sub 40 41 With ListBox1 42 Dim terGetIndex As Integer 43 terGetIndex = .ListIndex 44 'MsgBox terGetIndex 45 .ListIndex(terGetIndex, 1) = txtGoods.Text ’修正ボタンを押すと、型が一致しません。 46 .ListIndex(terGetIndex, 2) = cboCategory.Text 47 .ListIndex(terGetIndex, 3) = txtMaker.Text 48 .ListIndex(terGetIndex, 4) = Format(txtPrice.Text, "#,##0") 49 .ListIndex(terGetIndex, 5) = txtUnit.Text 50 .ListIndex(terGetIndex, 6) = txtRemark.Text 51 52 Dim tergetRow As Integer 53 tergetRow = CInt(txtID.Text) 54 MsgBox terGetIndex 55 MsgBox tergetRow 56 End With 57end sub 58 59
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。