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 質問
【46660】Re:ComboBoboxで選択するときに、既にAuto... MOON 07/2/9(金) 22:35 回答
【46666】Re:ComboBoboxで選択するときに、既にAuto... ToShiYo 07/2/10(土) 19:29 お礼
【46701】Re:ComboBoboxで選択するときに、既にAuto... MOON 07/2/12(月) 19:12 回答
【46744】Re:ComboBoboxで選択するときに、既にAuto... ToShiYo 07/2/13(火) 19:56 お礼

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