Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


28811 / 76738 ←次へ | 前へ→

【53218】Re:コンボボックス内の値取得
発言  ichinose  - 07/12/21(金) 14:30 -

引用なし
パスワード
   こんいちは。
これに付け加えるなら・・・、

>1列の値を以下によって
  Dim cv(1 To 2) As Variant
  Dim r As Range
  Dim myDic1 As Object
  Set myDic1 = CreateObject("Scripting.Dictionary")
  For Each r In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
    cv(1) = r.Value
    cv(2) = r.Offset(0, 1).Value
    myDic1(r.Value) = cv()
  Next
  With Application
    UserForm1.ComboBox1.ColumnCount = 2
    UserForm1.ComboBox1.List = .Transpose(.Transpose(myDic1.items))
    End With
  Erase cv()

これで試してみてください。


>コンボボックスに表示させました
>以下のような2列を
>
>A列 B列
>100 la
>200 la
>300 ha
>400 ha
>300 la
>
>コンボボックス内に取得するにはどうするのですか?
>教えてください

0 hits

【53212】コンボボックス内の値取得 わかんちゃん 07/12/21(金) 13:27 質問
【53218】Re:コンボボックス内の値取得 ichinose 07/12/21(金) 14:30 発言
【53249】Re:コンボボックス内の値取得 ponpon 07/12/22(土) 23:57 発言

28811 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free