下記のVBAはWORDファイル内の青文字で書かれた登録日を検索し、MSGBOXに表示するもので、正常に使えています。 しかし、MSGBOX内の表示がファイル内での順番になっています。昇順または降順表示にしたいのですが、 ネット検索してトライしましたが結果が得られていません。ご指導いただければ大変たすかります。よろしくお願いします。
Sub TEST()
'検索 青文字「ABC」+ 日付
Dim vv As Variant
Dim i As Integer
i = 0
ReDim vv(i)
ActiveDocument.Range(0, 0).Select
With Selection.Find
.Font.Color = wdColorBlue
.Text = "登録日 202[0-9]/[0-9]{1,2}/[0-9]{1,2}"
.MatchFuzzy = False
.MatchWildcards = True
Do While Selection.Find.Execute
vv(i) = Selection
i = i + 1: ReDim Preserve vv(i)
Loop
End With
MsgBox "登録日" + vbCrLf + vbCrLf + Join(vv, vbCrLf)
End Sub
No.2ベストアンサー
- 回答日時:
ごめんなさい 訂正いたします
If arrData(i) > arrData(j) Then
swap = arrData(i)
arrData(i) = arrData(j)
arrData(j) = swap
End If
なので
QuickSortではなくBubble_Sort ですね
(ファンクション名を訂正してください)
参考:
https://daitaideit.com/vba-array-sort/
No.3
- 回答日時:
>検索結果が重複して有る場合、1つだけ表示することができるのでしょうか?
WORDファイル内でメッセージ作成の処理とすでに出来ている処理を考えると4,5行のVBA処理コードで容易にできると思います
データの重複処理と言うとCollectionオブジェクトやDictionaryオブジェクトを使う例があります
今回既に配列を作成するロジック
vv(i) = Selection
i = i + 1: ReDim Preserve vv(i)
がありますのでKey自体の取り出しが不要でItem要素が無いので重複分岐のトリガーとして使えば良さそうです
(一度オブジェクトに登録したデータをソートするのは少し複雑になるため分岐処理のトリガーとして使うのが簡単です)
具体的な例などは私が対応できるかわかりませんが別スレッドを建てる方が良いでしょう
ご質問の追加に関してはサイトの規約に抵触する可能性が高いのです
ご質問表題、キーワードなどから来る後の訪問者の為に、
追加質問に対しての回答をベストアンサーに選ばない様にしてください
No.1
- 回答日時:
Wordでのテストが出来ないので未検証ですが
配列vvをMsgBox前でソートする方法でいかがでしょうか
ソートについては下記をじっくり読んでください
参考 https://excel-ubara.com/excelvba5/EXCELVBA228.html
ExcelVBAですが今回は問題ないと思います
サンプル Function扱いとしています(昇順)
Function Array_QuickSort(arrData As Variant) As Variant()
Dim i As Long, j As Long
Dim swap As Variant
For i = LBound(arrData) To UBound(arrData)
For j = UBound(arrData) To i Step -1
If arrData(i) > arrData(j) Then
swap = arrData(i)
arrData(i) = arrData(j)
arrData(j) = swap
End If
Next j
Next i
Array_QuickSort = arrData
End Function
呼び出し位置
ご質問コード下部
i = i + 1: ReDim Preserve vv(i)
Loop
End With
vv = Array_QuickSort(vv)
MsgBox "登録日" + vbCrLf + vbCrLf + Join(vv, vbCrLf)
End Sub
Qchan1962様
早速ご連絡いただきありがとうございました。Wordで検証したところ、希望通りの結果となりました。arrData(i) > arrData(j)をarrData(i) < arrData(j)にすることにより、降順にすることも確認できました。大変に助かります。 もう一つ教えていただきたいのですが、検索結果が重複して有る場合、1つだけ表示することができるのでしょうか? 甘えてすいませんがよろしくご教授いただけますでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2024/01/16 10:30
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) VBAに関して 2 2023/11/09 20:57
- Visual Basic(VBA) マクロについて教えてください。 下記のマクロは以前教えて頂いたマクロです。 マクロを実行すると 指定 6 2024/01/17 17:50
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/11/09 11:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2024/01/12 16:09
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
-
4
エクセルの合計を自動で表示させたいです
Visual Basic(VBA)
-
5
VBAの質問になります Userform内で
Visual Basic(VBA)
-
6
VBAで質問があります
Visual Basic(VBA)
-
7
VBAユーザーホームテキストボックスにカーソルを自動で表示したい
Visual Basic(VBA)
-
8
Excel VBA マクロ あるフォルダー内の複数のファイルを統合したいです
Visual Basic(VBA)
-
9
以下のコードを実行しても、オブジェクト変数または、withブロック変数が設定されていませんとエラーが
Visual Basic(VBA)
-
10
VBAコードについて
Visual Basic(VBA)
-
11
Excelで、10000,20000,30000と表示されているのですが、時々10000,20000
Excel(エクセル)
-
12
CADシステムに図面番号を入力してドキュワークスに落とす作業を行っています。 CADシステムには1個
Visual Basic(VBA)
-
13
VBA listBoxについて
Visual Basic(VBA)
-
14
左右の表のキー位置を合わせたい
Visual Basic(VBA)
-
15
Excel vbaのテキストボックスの扱い
Excel(エクセル)
-
16
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
17
Sub 要具ライフ() ActiveSheet.Cells.Find(what:=TOPゴム")."
Visual Basic(VBA)
-
18
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
19
エクセルVBAにて =A1=B1とすれば A1とB1のセル内容が一緒だった場合 TRUE 違っていれ
Visual Basic(VBA)
-
20
エクセルのマクロについて教えてください。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Latexで図番号だけを「図1.1」...
-
公文書のxmlファイルの開き方が...
-
#include <Windows.h>というヘ...
-
Word VBA MSGBOX 内で降順表示
-
binファイルを解凍したいの...
-
参照するファイルをワイルドカ...
-
C言語---ファイルに出力したデ...
-
アクセス 壊れた? 「ファイ...
-
CSSを1ページに1枚作るのって変...
-
【VBS】 iniファイルの特定部...
-
エクセルファイルが複数同時に...
-
.NETアプリを作ったときの .man...
-
バッチ処理で追記コピーしたい
-
JRのjsonファイルって使って大...
-
jarファイル
-
コマンドプロンプトで、指定し...
-
exeファイルが作れない(windows10)
-
ラッパーって何なんでしょう・...
-
warファイルをEclipseでプロジ...
-
jarファイルはzipファイルと同...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
iPhoneでXMLファイルを開くには...
-
公文書のxmlファイルの開き方が...
-
binファイルを解凍したいの...
-
アクセス 壊れた? 「ファイ...
-
.NETアプリを作ったときの .man...
-
リンクの張り付けかたを教えて...
-
#include <Windows.h>というヘ...
-
jarファイル
-
Seasar2のdiconファイルの読み方
-
Word VBA MSGBOX 内で降順表示
-
監視ツールを入れさせられまし...
-
CSSを1ページに1枚作るのって変...
-
コマンドプロンプトで、指定し...
-
ファイルが開かれているかどう...
-
exeファイルをデータ転送サービ...
-
パイソンでpy ファイルと p...
-
exeファイルの中身を見る方法は...
-
Latexで図番号だけを「図1.1」...
-
参照するファイルをワイルドカ...
-
バッチ処理で追記コピーしたい
おすすめ情報