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

印刷設定につきまして、色々と調べました。 VBAにて、一番オーソドックスなのはこちらかと。 印刷ダイアログボックスを表示するには ただ複数シートを選択した際そのすべてに印刷設定をし、さらにそのプリンター独自の設定をしたい場合は、以下がご参考になるようです。 複数シート印刷時のページ設定 で、上記は2003くらいの記述な...

エクセルのVBAを打っていて、上記エラーにぶち当たりました。 いや、あるのに！ イミディエイトウィンドウに workbooks.open filename:=thisworkbook.path & "＼kuma.xlsx" と打って、エンターを押すとちゃんとファイルが開くのに、ないって言われても…（涙） ちなみ...

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

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

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

シート名だけ取得している変数等から、ブック名を見るにはどうすればいいのか…と悩んでいたら、下記サイトさまが。いつもお世話になっております。 VBAのParentとは 「Parent」プロパティを使えばよいということですね。 msgbox range("A1").parent.parent.name と入力すると、ブック...

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