Excel VBA質問箱 IV

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

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


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

35267 / 76732

←次へ　｜　前へ→


	【46666】Re:ComboBoboxで選択するときに、既にAutofilterをかけた後の状態を表示したい

ToShiYo - 07/2/10(土) 19:29 -


	引用なし

	パスワード

▼MOON さん：
貴重なご指導有難うございました。素晴らしいコードを頂き、今後参考にさせていただき、活用させていただきます。
また、小生なりに次のようにコードを一部変更して何とかComboBoxに項目行が重複するものを除きました。でもコードそのものが、いまいちダサイです。
何かもう少し美しくする方法がありましたら、小生のコードでご指摘いただければありがたいのですが・・・
Private Sub UserForm_Initialize()
Dim LASROW As Long
Dim myDRange As String

'With ListBox1　'4列を表示したいと思いこのコードを追加しましたが
'　　.ColumnCount = 4　　'上手くいきませんでした
'　　.ColumnWidths = "50;50;50;50"
'End With

LASROW = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
　Range("A7:A" & LASROW).AdvancedFilter Action:=xlFilterInPlace, Unique:=True　'重複をなくし

　myDRange = Range(Range("A7"), Range("A7").End(xlDown)).Address'この行を追加しました、何とか重複行が出ないようになりました

　ComboBox1.RowSource = myDRange

If Worksheets("Sheet1").Range("A7").Value = "" Then
　ComboBox1.RowSource = ""　
End If
End Sub

1 hits

▼

【46659】ComboBoboxで選択するときに、既にAutofilterをかけた後の状態を表示したい ToShiYo 07/2/9(金) 21:24