A列にある会社名から(株)やカッコ等をとり、B列にふりがなをひらがなにして出力するエクセルVBAです。 主にChatGPTに書いてもらいましたが、今回はふりがなをふるのはVBAだけでは難しいとか、ごねられました。なんとかしましたが。こういう日本語特有のことは苦手なんでしょうか。 Sub 特殊文字を削除し振り仮名を出力(...
新着記事
訳あって、セルに罫線が引かれているかどうかの判定をどうするかわからず。 某質問サイトさまでわかりました。ありがとうございます。 罫線が引かれているセルの個数を調べるには Sub 罫線がセルの上に引かれているか() If Range("A1").Borders(xlEdgeTop).LineStyle...
エクセルVBAを使用して、ワード内の文章にあるキーワードを置換します。 このVBA記入ファイル内に「作業シート」という名のシートがあります。 そのシートのA列に検索値を、B列に置換する文字が記入してあります。 尚、こちらのコードは、ほとんどChatgptを使って作成しました。 Sub ReplaceTextInWord...
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...
タイトル通りです。 Aセルの文字ごとに設定されている書式を、B1セルに反映させます。 (VBAは1回動作させると、元に戻せません。試される場合は、1回保存するなど、 やり直しのきく状態にしていただくことを強くおすすめします。) クラスを使いますが、大したことないですので、ご安心ください。 右クリックでクラスモジュールを...
F8キーで1行ずつ再生している時、途中をすっとばしたい、と思われることがありませんか? そんな時は、移動したい行にカーソルを置き、「Ctrl+F9」キーを押せばOK牧場です。 但し、宣言行(Dim~ではじまる)にカーソルを置いて、上記ショートカットキーを押すと、エラーが出てしまいますので、それ以外の行にしてください。 ...
最近、やっとシグマが理解できるようになりましたので、備忘まで。 1+2+3+・・と表記の長いものを、シグマ記号ですっきり表せるのが便利です。 1+2+3+4+5を下記にシグマ記号で表しました。 ①の数値(この場合1)からはじまり、②(この場合5)で終わる。その間、1ずつ増やしながら足していきます。(iは別にkでもjでも...
💃管理人
🔎検索
🏠カテゴリー
アーカイブ