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...