自分用です。 ファイル名に空白が入っていれば取るようにします。 直下のフォルダと更に下のフォルダがあり、更に下のフォルダには回覧板まとめという語を含みます。 今日ファイルが更新された時点で取ります。 Option Explicit Dim monitoringDone1 As Boolean Dim monitorin...
自分用です。 乱数で3ケタコードを出力します。 すべて違う数値を組み合わせる、ぞろ目にしない、123,456などにしない、最後を0にしないという条件です。 Sub ランダムな3桁コードを付ける() Dim シート名 As String シート名 = "コード一覧" Dim 新規シート As Work...
A列にある会社名から(株)やカッコ等をとり、B列にふりがなをひらがなにして出力するエクセルVBAです。 主にChatGPTに書いてもらいましたが、今回はふりがなをふるのはVBAだけでは難しいとか、ごねられました。なんとかしましたが。こういう日本語特有のことは苦手なんでしょうか・・・。 Sub 特殊文字を削除し振り仮名を...
訳あって、セルに罫線が引かれているかどうかの判定をどうするかわからず。 某質問サイトさまでわかりました。ありがとうございます。 罫線が引かれているセルの個数を調べるには Sub 罫線がセルの上に引かれているか() If Range("A1").Borders(xlEdgeTop).LineStyle...
ChatGPTに 「エクセルのシート1のA1からE10のデータをCSVファイルにし、メモ帳で開くVBAコードを書いてください。」 とお願いしたところ、以下のコードを書いてもらいました。 Sub ExportToCSVAndOpenNotepad() Dim ws As Worksheet Dim rng As Rang...
自分用のメモ書きです。 A1セルに他ファイルのリンクが入った数式がある場合、そのリンクのファイルがあるかを判断するコードをChatGPTに書いてもらいました。 数式例は「='C:\hogehoge\soresore\Sheet2'!B1」です。 Sub CheckLink() Dim cell As Range Dim...