↓ランダムに並んでいるシートを ↓並べ替えました。もう少しスマートな方法があるのかもしれませんが、取り急ぎ備忘まで。 Sub シートを並べ変える() With ActiveWorkbook.Worksheets("作業用") Dim cnt As Long cnt = 1 Dim ws As Worksheet For...

下図のように、セルＡ１～Ａ５内のデータで、Ｅ１～最終行の文字と同じものがあれば、そこだけ色を赤に変えるようにしました。 （以前は入っている文字を一つだけ変えるようにしていましたが、2020年2月12日より、検索文字が入っている分だけ、色が変わるように変更しました。 また、VBAは一回走らせると「元に戻す」ができません。...

変数の宣言、上でまとめてすれば便利だ！と思いずっとそうしてきたのですが･･･ わかりにくいんですよね。 同じことを考えて質問してくださっていた方がいました。 見やすい 変数の 宣言位置 それに答えてくださるサイトさまが。 VBA ローカル変数は使用する直前で宣言する また、上記質問で、宣言がどこにどう対応しているかみる...

相対的にブックを設定することができました。 相対パスでのハイパーリンクの作成 第95回.ハイパーリンク（Hyperlink）...

おおもとは、「ExcelVBAでIE」の本からですが、さらに後のリンクをクリックする方法が知りたくて検索しました。 開いているページURL(アドレス)を取得 下記質問から、三流君HPにてダウンロードする方法を知りました。 IEでファイルダウンロードするときに出てきた URLDownloadToFile APIを使用して...

配列の要素数が何番かを確認する EXCEL VBAで、値（数値データ）が、配列の何番目に入っているか 配列で並び替えをする 配列のデータを並べ替える...

Sub test() With ActiveSheet If .AutoFilterMode Then .AutoFilterMode = False End If .UsedRange.AutoFilter End With End Sub 参考にさせていただきました。ありがとうござました！ オートフィルタの状況を調...

Excelで入力していない（HPをコピペなど）データに振り仮名を振る方法を探していたら、見つけました！ありがとうございます！ VBAでふりがなを取得する方法 ためしにセルA1のデータのを出してみました。 msgbox Application.GetPhonetic(range("A1").value) 出た！初めて知り...

JSを勉強していて、VBAから上記URLエンコードする方法を探していたら、見つかりました。ありがとうございます！ 日本語をURL変換する関数 会社のIE上にあるファイルパス名がエンコードされているようなので、それを引っ張りたくて。...

訳あって、セルに罫線が引かれているかどうかの判定をどうするかわからず。 某質問サイトさまでわかりました。ありがとうございます。 罫線が引かれているセルの個数を調べるには if Range("A1").Borders(xlEdgeTop).LineStyle <> xlNone then msgbox "〇"...