Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2362 / 13644 ﾂﾘｰ

←次へ　｜　前へ→

▼

【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


	【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


	【68461】Re:ComboBoxに同じ値を入れない

kanabun - 11/3/9(水) 11:16 -


	引用なし

	パスワード

▼Zenji さん：こんにちは～

> 以下のようにコードを作成しました

回答でなくてすみませんが、
このコードはどこに書かれていますか？
　UserFormモジュール？
　標準モジュール？
　シートモジュール？

変数F_Name はどこで値を代入されてますか？
変数Sheet1 は Sheet1オブジェクトというのがあるから、まずいのでは？


	【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


	【68465】Re:ComboBoxに同じ値を入れない

kanabun - 11/3/9(水) 12:06 -


	引用なし

	パスワード

▼Zenji さん：

>>このコードはどこに書かれていますか？
>
>　標準モジュールに書いています
標準モジュールですか？？
私はまた、UserForm1のボタンを押すと一連の処理を実行するのかと
想像してました。

UserForm1がすでに開いている前提で、

'----------------------- 標準モジュール
Option Explicit
Sub ComboBox_Setting()
　Dim Ws As Worksheet
　Dim i As Long, j As Long
　Dim LastRow As Long
　Dim v As Variant, ss As String
　Dim dic(2 To 9) As Object
　For i = 2 To 9
　　Set dic(i) = CreateObject("Scripting.Dictionary")
　Next
　
　Set Ws = ActiveWorkbook.Worksheets("Sheet1")
　'LastRow=Noが書かれている最下行
　LastRow = Ws.Range("B7").CurrentRegion.Rows.Count
　For i = 7 To LastRow
　　v = Ws.Cells(i, 2).Value
　　If Not IsEmpty(v) Then
　　　If v <> "No" Then
　　　　For j = 3 To 10
　　　　　ss = Ws.Cells(i, j).Value
　　　　　If Len(ss) > 0 Then
　　　　　　dic(j - 1)(ss) = Empty
　　　　　End If
　　　　Next j
　　　End If
　　End If
　Next i
　For i = 2 To 9
　　　UserForm1.Controls("ComboBox" & i).List = dic(i).Keys()
　Next
　Erase dic

End Sub
'-------------------
とすると、ComboBox2～ComboBox9 にリストが作成されます。
つまり、このばあい、最初 ComboBoxにはアイテムが一つもない状態を
仮定しています。

そうではなく、
すでにComboBoxどもに、アイテムがAddItem されていて、
そこに Sheet1 からアイテムを追加したい（重複せずに）ということであれば、
別の方法を（ちょっと思いつきませんが）考える必要があります。

この点（新規リスト作成か／すでにあるリストに追加か）をご確認ください。


	【68467】Re:ComboBoxに同じ値を入れない

Zenji - 11/3/9(水) 12:39 -


	引用なし

	パスワード

▼kanabun さん：
ありがとうございました

＞すでにComboBoxどもに、アイテムがAddItem されていて、
＞そこに Sheet1 からアイテムを追加したい（重複せずに）ということであれば、
　Sheet1 からアイテムを追加したい（重複せずに）のです
　追加した後重複したアイテムを削除する　などの方法は
　あるのでしょうか
　また
　（　新規リスト作成か／すでにあるリストに追加か）の確認は
　どのようにするのでしょうか
すいません　よろしくお願いいたします


	【68468】Re:ComboBoxに同じ値を入れない

kanabun - 11/3/9(水) 12:57 -


	引用なし

	パスワード

▼Zenji さん：

>＞すでにComboBoxどもに、アイテムがAddItem されていて、
>＞そこに Sheet1 からアイテムを追加したい（重複せずに）ということであれば、
>　Sheet1 からアイテムを追加したい（重複せずに）のです
良いアイデアが浮かばないので、先ほどのDictioanryを使った
方法の応用です。
今度は、すでにComboBoxたちにリストがあるということなので、
はじめにDictionaryに各ComboBoxのリストを格納しておき、
追加したいセルの文字列が Dictionaryになかったら、
ComboBox.AddItem する、というふうに使います。

'-------------------------------- 標準モジュール（追加プロシージャ）
Sub ComboBox_AddItem()
　Dim Ws As Worksheet
　Dim i As Long, j As Long
　Dim LastRow As Long
　Dim v As Variant, ss As String
　Dim dic(2 To 9) As Object
　
　'現在の各ComboBoxのリストをDictioanryに記憶
　For i = 2 To 9
　　Set dic(i) = CreateObject("Scripting.Dictionary")
　　With UserForm1.Controls("ComboBox" & i)
　　　　For j = 0 To .ListCount - 1
　　　　　　dic(i)(.List(j)) = Empty
　　　　Next
　　End With
　Next
　
　Set Ws = ActiveWorkbook.Worksheets("Sheet1")
　LastRow = Ws.Range("B7").CurrentRegion.Rows.Count
　For i = 7 To LastRow
　　v = Ws.Cells(i, 2).Value
　　If Not IsEmpty(v) Then
　　　If v <> "No" Then
　　　　For j = 3 To 10
　　　　　ss = Ws.Cells(i, j).Value
　　　　　If Not dic(j - 1).Exists(ss) Then
　　　　　　　UserForm1.Controls("ComboBox" & j - 1) _
　　　　　　　　　.AddItem ss
　　　　　End If
　　　　Next j
　　　End If
　　End If
　Next i
　Erase dic

End Sub


	【68476】Re:ComboBoxに同じ値を入れない

kanabun - 11/3/9(水) 17:00 -


	引用なし

	パスワード

すみません。↑のコードに一行追加させてください

>　　　　For j = 3 To 10
>　　　　　ss = Ws.Cells(i, j).Value
>　　　　　If Not dic(j - 1).Exists(ss) Then
>　　　　　　　UserForm1.Controls("ComboBox" & j - 1) _
>　　　　　　　　　.AddItem ss
　　　　　　　 dic(j - 1)(ss) = Empty　'◆この行追加
>　　　　　End If
>　　　　Next j


	【68482】Re:ComboBoxに同じ値を入れない

Zenji - 11/3/9(水) 23:21 -


	引用なし

	パスワード

▼kanabun さん：
急遽出かけてしまい
お返事遅くなり申し訳ありません
明日早速実行してみたいと思っています
また、何かありましたら教えてください
ありがとうございました


	【68484】Re:ComboBoxに同じ値を入れない

teian - 11/3/9(水) 23:43 -


	引用なし

	パスワード

>＞すでにComboBoxどもに、アイテムがAddItem されていて、
>＞そこに Sheet1 からアイテムを追加したい（重複せずに）ということであれば、
>　Sheet1 からアイテムを追加したい（重複せずに）のです
>　追加した後重複したアイテムを削除する　などの方法は
>　あるのでしょうか
>　また
>　（　新規リスト作成か／すでにあるリストに追加か）の確認は
>　どのようにするのでしょうか

ComboboxのValue値にセットしてみて、ListIndex > -1　なら既に設定済みと判断してはどうですか？

例です。

　　Dim r As Range, c As Range
　　Dim v As Variant
　　
　　Set r = Sheets("Sheet1").Range("A1").CurrentRegion.Resize(, 1)
　　With ComboBox1
　　　　For Each c In r
　　　　　　v = c.Value
　　　　　　.Value = v
　　　　　　If .ListIndex < 0 Then
　　　　　　　　.AddItem v
　　　　　　End If
　　　　Next
　　　　.ListIndex = -1
　　End With

（注意）
ただ、ComboboxのChangeイベントが書いている場合には、再帰に注意してください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2362 / 13644 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free