『オブジェクトが必要です』(ちー)
はじめまして。
下記のようなデータが書かれたシートがあります。
B列 C列 13行目 ABCDEFGHIJKL000 あいうえお 14行目 ABCDEFGHIJKL001 かきくけこ 15行目 ABCDEFGHIJKL002 さしすせそ 16行目 AAAAAAAAAAAA000 たちつてと 17行目 AAAAAAAAAAAA001 なにぬねの
下記のコードを実行すると、「オブジェクトが必要です」と
エラーが表示されます。
Private Sub UserForm_Initialize()
Dim BlastRow As Long, i As Long, j As Long
With cbKison .ColumnCount = 2 .ColumnWidths = "40;50" End With
With ActiveSheet BlastRow = .Range("B" & Rows.Count).End(xlUp).Row j = 0 For i = 13 To BlastRow If Right(.Cells(i, 2), 3) = "000" Then j = j + 1 cbKison.AddItem .Cells(i, 2) cbKison.List(j - 1, 1) = .Cells(i, 2) cbKison.List(j - 1, 2) = .Cells(i, 3) End If Next i End With
End Sub
どう修正したらいいのかわからず・・・。
お助けいただけますと嬉しいです。
よろしくお願いいたします。
< 使用 Excel:Microsoft365、使用 OS:Windows11 >
引き続きよろしくお願いいたします。
(ちー) 2024/04/04(木) 15:11:07
この実行というのは具体的にどのような手順でしましたか。
ちなみに、質問内容とは関係ないですが、
cbKison.AddItem .Cells(i, 2) cbKison.List(j - 1, 1) = .Cells(i, 2) cbKison.List(j - 1, 2) = .Cells(i, 3)
の部分は、下記が正しい記述です。
cbKison.AddItem .Cells(i, 2) cbKison.List(j - 1, 1) = .Cells(i, 3)
Listプロパティの配列のインデックスは 0 から始まりますので。
(hatena) 2024/04/04(木) 16:09:55
Listプロパティに関する誤記について、ご指摘ありがとうございます。
修正致しました。
(ちー) 2024/04/04(木) 16:14:49
(?) 2024/04/04(木) 16:47:06
(mm) 2024/04/04(木) 17:10:12
都合により、以降の返信が4/8(月)になってしまいます。
皆様、ありがとうございました。
引き続きよろしくお願いいたします。
(ちー) 2024/04/04(木) 17:27:24
また何かありましたら、よろしくお願いいたします。
(ちー) 2024/04/08(月) 11:45:03
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.