Excel VBA質問箱 IV

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

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


13772 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   ▼kanabun さん:
>▼Zenji さん: こんにちは〜
>
>> 以下のようにコードを作成しました
>
>回答でなくてすみませんが、
>このコードはどこに書かれていますか?
> 標準モジュール?

  標準モジュールに書いています
>変数F_Name はどこで値を代入されてますか?
  F_Name="集計表.xls" としています
>変数Sheet1 は Sheet1オブジェクトというのがあるから、まずいのでは?
  すいませんでした Sheet1は変数ではなく シート名でした
  よろしくお願いします
  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 発言

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