昨日に

引き続き、きょうもこれと云ってナニもない。 仕事もぼちぼち。 鬼のような数のコンボボックスにシートのデータを詰める処理があるんだけど、

    With hogehoge
        .ColumnCount = 1
        .RowSource = "hogehogeSheet!A1:A" & 100
    End With

これで突っ込むことが出来る。 AddItemでちまちまやらなきゃと思っていたので助かった。 因みに"hogehoge"がコンボボックスのコントロール名、そこに”hogehogeSheet”のA1からA100のデータが突っ込まれる。
--
☁