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(アクセス)
-
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
-
4
Accessでリストの並び順を変更したい
Excel(エクセル)
-
5
Excel VBA コンボボックスで空白を削除
その他(Microsoft Office)
-
6
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
7
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
8
リストボックス内を昇順並べる方法
Excel(エクセル)
-
9
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
10
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
11
VBAのTextBoxに半角数字のみ入力したい
Visual Basic(VBA)
-
12
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
13
ExcelのComboboxでマウスのスクロールを有効にしたい
Excel(エクセル)
-
14
IF関数で空欄(")の時、Nullにしたい
その他(Microsoft Office)
-
15
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
16
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
17
ユーザーフォーム、コンボボックスで重複せず選択リストを表示させるには
Excel(エクセル)
-
18
Listviewのデータを上から順番に取得 VBA
Visual Basic(VBA)
-
19
VBAでユーザーフォームを再表示させたい。
Excel(エクセル)
-
20
Enterキーでマクロを起動さす。
その他(ソフトウェア)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロのコマンドボタン《Activ...
-
マクロ実行後、画面がちかちか...
-
Access-VBAでExcelファイ...
-
【マクロ】アクティブセルにブ...
-
Excelのマクロについて教えてく...
-
Excelのマクロについて教えてく...
-
Worksheets メソッドは失敗しま...
-
エクセルで特定の文字列が入っ...
-
特定の色のついたセルを削除
-
特定の文字がある行以外を削除...
-
あああ..ああい..ああう とい...
-
エクセル マクロで数値が変っ...
-
Excelで、あるセルの値に応じて...
-
エクセル マクロ オートフィ...
-
「段」と「行」の違いがよくわ...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセルVBAが途中で止まります
-
Cellsのかっこの中はどっちが行...
-
vba 2つの条件が一致したら...
-
VBAで色の付いているセルの行削除
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access-VBAでExcelファイ...
-
コンボボックスへ降順に表示す...
-
エクセルVBAでオブジェクトが必...
-
マクロのコマンドボタン《Activ...
-
複数シートを一括で保護を掛け...
-
エクセルで品番を入れると、そ...
-
マクロ実行後、画面がちかちか...
-
エクセルのVBAについて教えてく...
-
エクセルマクロ 変数をワーク...
-
VBAでVlookup機能を使うときに...
-
エクセルマクロ(超初心者)
-
エクセルを共有にすると、シー...
-
Excelに関数使用を調べる方法
-
Excell VBA にて配列に定数を代...
-
エクセルVBA 別シートの最終セ...
-
Excelの各シートの一覧シートの...
-
エクセルVBAでフォームの無効化...
-
マクロのイベントトリガー
-
マクロでフォルダ内のExcelを全...
-
エクセル マクロについて、 Inp...
おすすめ情報