[[20240404140941]]　『オブジェクトが必要です』（ちー）　ページの最後に飛ぶ

『オブジェクトが必要です』（ちー）

はじめまして。

下記のようなデータが書かれたシートがあります。

       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 ＞

me.cbKison
？？
（たぶん） 2024/04/04(木) 15:02:38

ありがとうございます。
試してみたのですが、同様の結果となってしまいました。

引き続きよろしくお願いいたします。
（ちー） 2024/04/04(木) 15:11:07

cbKison これ自体がよくわからんのです
多分コンボボックスだろうと判断した次第です
（たぶん） 2024/04/04(木) 15:23:18

返信ありがとうございます。
説明不足で申し訳ありません。
ご認識の通り、コンボボックスです。
（ちー） 2024/04/04(木) 15:38:07

そのエラーが表示されたとき、デバッグボタンを押したら、どの行が反転表示されますか。
（hatena） 2024/04/04(木) 15:56:03

返信ありがとうございます。
デバッグボタンは表示されず、OKボタン・ヘルプボタンが表示されます。
なので、どの行も反転表示されないのです。
（ちー） 2024/04/04(木) 16:01:51

＞下記のコードを実行すると、「オブジェクトが必要です」と
＞エラーが表示されます。

この実行というのは具体的にどのような手順でしましたか。

ちなみに、質問内容とは関係ないですが、

                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

返信ありがとうございます。
UserForm_Initialize のコードにカーソルがある状態で
ツールバーにある「Sub/ユーザーフォームの実行」をクリックしました。

Listプロパティに関する誤記について、ご指摘ありがとうございます。
修正致しました。

（ちー） 2024/04/04(木) 16:14:49

＞修正致しました。
でどうなったんですか。
「オブジェクトが必要です」ではなく「変数が定義されていません」の表示が出ましたけど。

（?） 2024/04/04(木) 16:47:06

返信ありがとうございます。
変わらず、「オブジェクトが必要です」と表示されています。
一致しないですね･･･。
（ちー） 2024/04/04(木) 17:00:32

何らか理由でcbKisonが棄損している前提で、
（まさかコンボボックスのオブジェクト名がcbKisonではないうことはないでしょうが）
万が一に備え、ファイルのバックアップを必ず取ったうえで、
・cbKisonを削除
・新規Comboboxを作成し、オブジェクト名をcbKisonに変更して実行（F5）では？

（mm） 2024/04/04(木) 17:10:12

返信ありがとうございます。
試してみたのですが、結果は同じでした。
フォームをはじめから作り直してみたのですが
それも結果は同じでした･･･。

都合により、以降の返信が4/8(月)になってしまいます。
皆様、ありがとうございました。
引き続きよろしくお願いいたします。
（ちー） 2024/04/04(木) 17:27:24

＞オブジェクト名をcbKisonに変更して実行
これで試してみた。
エラーは回避できましたよ。
Combobox の中身はあやしいです。
（?） 2024/04/04(木) 18:53:24

返信が遅くなり申し訳ありませんでした。
モジュールの先頭にOption Explicit を入れると
思い通りの動作をしてくれるようになりました。
皆様ありがとうございました！

また何かありましたら、よろしくお願いいたします。
（ちー） 2024/04/08(月) 11:45:03

コメント返信：

[ 一覧(最新更新順) ]

[[20240404140941]] 『オブジェクトが必要です』（ちー） ページの最後に飛ぶ

[[20240404140941]]　『オブジェクトが必要です』（ちー）　ページの最後に飛ぶ