![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.2ベストアンサー
- 回答日時:
こんにちは。
最初に、正しく、Set rng = Range(....) の部分を設定してください。
シート・モジュール
Sub EnterData2Combo()
Dim Ar() As Variant
Dim rng As Range
Dim i As Long
Set rng = Range("A1:A10")
ReDim Ar(rng.Rows.Count - 1)
For i = 0 To rng.Rows.Count - 1
Ar(i) = rng.Cells(i + 1).Value
Next i
Babble_Sort Ar()
Me.ComboBox1.List = Ar()
End Sub
Sub Babble_Sort(ByRef Ar())
Dim u As Long
Dim i As Long
Dim j As Long
Dim t As Variant
u = UBound(Ar())
i = LBound(Ar())
Do While i < u
j = u
Do While j > i
If Ar(j) > Ar(i) Then '降順
t = Ar(j)
Ar(j) = Ar(i)
Ar(i) = t
End If
j = j - 1
Loop
i = i + 1
Loop
End Sub
Wendy02 さん どうも有難うございました
遅くなりました。しばらく入院していまして 確認する事が出来ませんでした。
退院後早々と 確認してみます。
No.3
- 回答日時:
#2の訂正
もし、Form が、Excel VBA の UserForm を指すのでしたら、
Sub EnterData2Combo()
↓
Private Sub UserForm_Initialize()
に変えてください。
No.1
- 回答日時:
こんにちは。
エクセルでのVBAでのリストボックスやコンボボックスに対しSort(Sortedプロパティ)が無いのでコントロール内での設定では出来ません。
また、VBではSortedでのソートは昇順になります。よって降順での最も簡易な方法はシート上でソートをVBAにて行い、その後AddItemにてコントロールに乗せる事が最も簡単です。
コードはマクロの記録など用いると簡単に出来ると思いますので、頑張って下さい。
WWolf さん 有難うございます
マクロの記録を用いて 行います。
最近VBAを夢中で勉強してます。
凄く奥深くて 感動です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの祝日に色が反映しない 4 2022/05/18 09:58
- Visual Basic(VBA) ExcelVBA ドロップボックスで月を選択するとそれ以降のデータが残るようにしたい。 3 2022/12/16 14:53
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
- その他(プログラミング・Web制作) python コードについて(初学者です) 3 2023/07/20 14:44
- Visual Basic(VBA) Excel VBAで並べ替えをしたい 3 2023/02/25 09:31
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) 複数のExcelブックのシート1の内容を1つのExcelブックにコピー貼り付けたいのでvbaコードを 7 2023/02/10 23:20
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける 3 2022/09/10 07:55
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
コンボボックスの中身を任意順で並べ替え VBA
Excel(エクセル)
-
コンボボックスのソートについて
Access(アクセス)
-
Accessでリストの並び順を変更したい
Excel(エクセル)
-
-
4
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
5
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
6
Excel VBA コンボボックスで空白を削除
その他(Microsoft Office)
-
7
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
8
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
9
リストボックス内を昇順並べる方法
Excel(エクセル)
-
10
VBAのTextBoxに半角数字のみ入力したい
Visual Basic(VBA)
-
11
IF関数で空欄(")の時、Nullにしたい
その他(Microsoft Office)
-
12
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
13
ユーザーフォーム、コンボボックスで重複せず選択リストを表示させるには
Excel(エクセル)
-
14
Listviewのデータを上から順番に取得 VBA
Visual Basic(VBA)
-
15
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
16
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
17
VBAでユーザーフォームを再表示させたい。
Excel(エクセル)
-
18
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
19
【excelVBA】Findメソッドで検索対象を複数列
Excel(エクセル)
-
20
VB.NETでフォーム上にExcelのような表を表示する方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access-VBAでExcelファイ...
-
EXCELに関する質問
-
エクセルVBAでオブジェクトが必...
-
Excelの各シートの一覧シートの...
-
マクロのイベントトリガー
-
マクロでフォルダ内のExcelを全...
-
マクロ実行後、画面がちかちか...
-
【EXCEL-VBA】ワークシートに別...
-
Excel(M365) Vlookup/セル反転(...
-
Excel 範囲指定スクショについ...
-
エクセルで特定の文字列が入っ...
-
EXCEL VBA 文中の書式ごと複写...
-
エクセル マクロ オートフィ...
-
「段」と「行」の違いがよくわ...
-
あああ..ああい..ああう とい...
-
Excelで、あるセルの値に応じて...
-
VBAマクロ実行時エラーの修正に...
-
Excel UserForm の表示位置
-
エクセルファイルを開いた回数...
-
excelのデータで色つき行の抽出...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access-VBAでExcelファイ...
-
コンボボックスへ降順に表示す...
-
エクセルVBAでオブジェクトが必...
-
マクロのコマンドボタン《Activ...
-
複数シートを一括で保護を掛け...
-
エクセルで品番を入れると、そ...
-
マクロ実行後、画面がちかちか...
-
エクセルのVBAについて教えてく...
-
エクセルマクロ 変数をワーク...
-
VBAでVlookup機能を使うときに...
-
エクセルマクロ(超初心者)
-
エクセルを共有にすると、シー...
-
Excelに関数使用を調べる方法
-
Excell VBA にて配列に定数を代...
-
エクセルVBA 別シートの最終セ...
-
Excelの各シートの一覧シートの...
-
エクセルVBAでフォームの無効化...
-
マクロのイベントトリガー
-
マクロでフォルダ内のExcelを全...
-
エクセル マクロについて、 Inp...
おすすめ情報