質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VB

VB(ビジュアルベーシック)はマイクロソフトによってつくられたオブジェクト指向プログラミング言語のひとつで、同社のQuickBASICが拡張されたものです。VB6の進化版といわれています。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

3回答

2220閲覧

VBA

退会済みユーザー

退会済みユーザー

総合スコア0

VB

VB(ビジュアルベーシック)はマイクロソフトによってつくられたオブジェクト指向プログラミング言語のひとつで、同社のQuickBASICが拡張されたものです。VB6の進化版といわれています。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2015/11/16 12:23

お世話になっております。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

イメージ説明

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答3

0

.ListIndex(terGetIndex, 1) = txtGoods.Text
ここは
.List(terGetIndex, 1) = txtGoods.Text
ではないですかね
試していないのでわかりませんが

投稿2015/11/16 12:28

trick

総合スコア366

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

「デバッグ」ボタンを押してください。
すると、エラー部分がハイライト表示されますので、そのスクリーンショットを貼り付けてください。

投稿2015/11/16 12:29

退会済みユーザー

退会済みユーザー

総合スコア0

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

ベストアンサー

.ListIndex(terGetIndex, 1) = txtGoods.Textではなく、
.List(terGetIndex, 1) = txtGoods.Textとするべきでした!!

投稿2015/11/16 12:29

退会済みユーザー

退会済みユーザー

総合スコア0

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

退会済みユーザー

退会済みユーザー

2015/11/21 15:55

既に同じ回答がでている。質問者が本人。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問