No.3
- 回答日時:
#2の訂正
もし、Form が、Excel VBA の UserForm を指すのでしたら、
Sub EnterData2Combo()
↓
Private Sub UserForm_Initialize()
に変えてください。
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.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も見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
コンボボックスの中身を任意順で並べ替え VBA
Excel(エクセル)
-
コンボボックスのソートについて
Access(アクセス)
-
Accessでリストの並び順を変更したい
Excel(エクセル)
-
-
4
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
5
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
6
リストボックス内を昇順並べる方法
Excel(エクセル)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
ExcelのComboboxでマウスのスクロールを有効にしたい
Excel(エクセル)
-
9
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
10
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
11
Excel VBA コンボボックスで空白を削除
その他(Microsoft Office)
-
12
【VBAユーザーフォームで閉じるボタンを表示したくない】
Visual Basic(VBA)
-
13
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
14
ACCESS フォームをそのまま印刷について
その他(データベース)
-
15
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
16
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
17
VBAのTextBoxに半角数字のみ入力したい
Visual Basic(VBA)
-
18
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
19
ユーザーフォーム、コンボボックスで重複せず選択リストを表示させるには
Excel(エクセル)
-
20
Listviewのデータを上から順番に取得 VBA
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access-VBAでExcelファイ...
-
エクセルVBAでオブジェクトが必...
-
コンボボックスへ降順に表示す...
-
Excel VBAでのWorksheet_Change...
-
電話番号の入力方式が違うデー...
-
VLOOKUPの列番号の最大は?
-
マクロの「SaveAs」でエラーが...
-
VBAで色の付いているセルの行削除
-
Worksheets メソッドは失敗しま...
-
ワイルドカード「*」を使うとう...
-
AのセルとB行を比較して、一致...
-
エクセルVBAが途中で止まります
-
VBA 空白行に転記する
-
[EXCEL]ボタン押す→時刻が表に...
-
(マクロ)データをAブックからB...
-
エクセルVBA 配列からセルに「...
-
あああ..ああい..ああう とい...
-
エクセルで離れた列を選択して...
-
VBAマクロ実行時エラーの修正に...
-
「段」と「行」の違いがよくわ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access-VBAでExcelファイ...
-
エクセルVBAでオブジェクトが必...
-
エクセルマクロ(超初心者)
-
複数シートを一括で保護を掛け...
-
コンボボックスへ降順に表示す...
-
エクセルのVBAについて教えてく...
-
エクセルを共有にすると、シー...
-
マクロのコマンドボタン《Activ...
-
Excell VBA にて配列に定数を代...
-
エクセルマクロ 変数をワーク...
-
VBAでVlookup機能を使うときに...
-
エクセルVBAでフォームの無効化...
-
エクセルで品番を入れると、そ...
-
EXCELに関する質問
-
エクセルVBA 別シートの最終セ...
-
【EXCEL-VBA】ワークシートに別...
-
マクロでフォルダ内のExcelを全...
-
マクロ実行後、画面がちかちか...
-
エクセル マクロについて、 Inp...
-
エクセルで特定の文字列が入っ...
おすすめ情報