Excel VBA質問箱 IV

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

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


13774 / 76732 ←次へ | 前へ→

【68460】ComboBoxに同じ値を入れない
質問  Zenji  - 11/3/9(水) 11:06 -

引用なし
パスワード
   ComboBoxに書く値を以下のようにコードを作成しました
この時読込む値が同じであればComboBoxに入れないようにしたい
のですが
ちなみに列の値は別途作成された表から取得しています

  Set Ws = Workbooks(F_Name).Worksheets(Sheet1)
  Ws.Activate
  With Worksheets(Sheet1)
    'LastRow=Noが書かれている最下行
   LastLow = .Range("B7").CurrentRegion.Rows.Count
   列 = 3
   For i = 7 To LastLow
    If Worksheets(Sheet1).Cells(i, 2) <> "No" _
            And Worksheets(Sheet1).Cells(i, 2) <> "" Then
      For j = 2 To 9
       If Ws.Cells(i, 列) <> "" Then
        UserForm1.Controls("ComboBox" & j).AddItem .Cells(i, 列)
       End If
       列 = 列 + 1
      Next j
    End If
    列 = 3
   Next i
  End With

0 hits

【68460】ComboBoxに同じ値を入れない Zenji 11/3/9(水) 11:06 質問
【68461】Re:ComboBoxに同じ値を入れない kanabun 11/3/9(水) 11:16 発言
【68462】Re:ComboBoxに同じ値を入れない Zenji 11/3/9(水) 11:36 質問
【68465】Re:ComboBoxに同じ値を入れない kanabun 11/3/9(水) 12:06 発言
【68467】Re:ComboBoxに同じ値を入れない Zenji 11/3/9(水) 12:39 質問
【68468】Re:ComboBoxに同じ値を入れない kanabun 11/3/9(水) 12:57 発言
【68476】Re:ComboBoxに同じ値を入れない kanabun 11/3/9(水) 17:00 発言
【68482】Re:ComboBoxに同じ値を入れない Zenji 11/3/9(水) 23:21 お礼
【68484】Re:ComboBoxに同じ値を入れない teian 11/3/9(水) 23:43 発言

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