今日の日付とキーワード（この場合は「kuma」）が入ったファイルを開き、一番左にあるシートのA1セルの文字を、msgboxで表示するコードです。 このマクロを書いたファイルと同じ場所にあるファイルが対象です。 尚、ファイルを探す方法は、エクセルレジェンドの田中先生のマクロを参考にさせていただきました。 ファイルの一覧を...

シートの名前に使っていた漢字が違ったため（爆）、シートの漢字を直したく、VBAで作りました。 お試しになる場合は、ファイルを保存するか、間違っても良いようにしてから、お試しください。（VBAは再生後、元に戻るができないため。） before_wordに置換前の文字列を、after_wordに置換後の文字列をお入れくださ...

↓「作業用」シートを用意していただき、A1セルに「シート名」とご入力なさってください。 ↓作業用ファイルにシート名を書き出した後、シート名を並べ替え、それに併せてシートを並べ替えました。 もう少しスマートな方法があるのかもしれませんが、取り急ぎ備忘まで。 Sub シートを並べ変える() With ActiveWorkb...

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

変数の宣言、上でまとめてすれば便利だ！と思い込み、ずっとそうしてきたのですが･･･ わかりにくいんですよね。 結論から言いますと、使用する直前で宣言するのが良いようです。 実際自分でも試してみましたが、直前の方が分かりやすくて良かったです。 マクロの一部をコピーしたい時も、さっと一部を選択できるので、便利です。 以下、...

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

タイトル通り、フィルタ確認し、ついていたら取って付け直すのは、 以下のコードになります。 Sub test() With ActiveSheet If .AutoFilterMode Then .AutoFilterMode = False End If .UsedRange.AutoFilter End With E...

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

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

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