|
▼ヤマ さん:
こんにちは。
>If M.Range("C12") <> "NO TRANSACTION TO BE REPORTED" Then
>Do Until D2 > 500
>Dim CMB2 As Object
>M.Rows(15).RowHeight = 18.25
>Set CMB2 = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=True, DisplayAsIcon:=False, Left:=192, Top:=180, Width:=450, Height:=18)
> With CMB2
> .ListFillRange = "LIST!$A$1:$A$11"
> .LinkedCell = M.Cells(D2, 10)
.object.listindex=0 'でいいと思います
> End With
>CMB2.Select
>If M.Cells(D2, 3) = "REASON:" Then
>Selection.Copy
>M.Cells(D2, 3).Select
>ActiveSheet.Paste
>M.Rows(D2).RowHeight = 18.25
>End If
>D2 = D2 + 6
>Loop
>End If
>
>
>上記のようなループで回しているのですが、一番最初のコンボボックスをセットする際に何も指定しないとコンボボックスには何も表示されていないと思いますが
>これを一番上にあるアイテムを表示したいのです。(Please Selectという言葉が入っています)
>Please Selectを表示させたままloopでコピーペーストしていきたいのですが
>どうやったらいいんでしょうか?お手数おかけします。
|
|