自分用です。タイトル通りです。 Sub CopyWordTableCellToExcelCell() Dim wdApp As Object ' Word.Application Dim wdDoc As Object ' Word.Document Dim wordFilePath As Stri...

エクセルvbaを使用し、同じフォルダ内のファイルで、一番行数が多いシート名と行数を取得し、ファイル名と共に記入します。 マクロファイル内に「集計」シートを作ってください。 また、１行目のＡ-Ｃ列に、ブック名、シート名、行数と入れてください。（お手数をおかけいたします。。。）２行目からはじめます。 参考サイトさん ファイ...

自分用です。 ファイル名に空白が入っていれば取るようにします。 直下のフォルダと更に下のフォルダがあり、更に下のフォルダには回覧板まとめという語を含みます。 今日ファイルが更新された時点で取ります。 Option Explicit Dim monitoringDone1 As Boolean Dim monitorin...

自分用です。 乱数で３ケタコードを出力します。 すべて違う数値を組み合わせる、ぞろ目にしない、123，456などにしない、最後を0にしないという条件です。 Sub ランダムな3桁コードを付ける() Dim シート名 As String シート名 = "コード一覧" Dim 新規シート As Work...

A列にある会社名から（株）やカッコ等をとり、Ｂ列にふりがなをひらがなにして出力するエクセルＶＢＡです。 主にChatGPTに書いてもらいましたが、今回はふりがなをふるのはＶＢＡだけでは難しいとか、ごねられました。なんとかしましたが。こういう日本語特有のことは苦手なんでしょうか･･･。 Sub 特殊文字を削除し振り仮名を...

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

エクセルVBAを使用して、ワード内の文章にあるキーワードを置換します。 このVBA記入ファイル内に「作業シート」という名のシートがあります。 そのシートのＡ列に検索値を、Ｂ列に置換する文字が記入してあります。 尚、こちらのコードは、ほとんどChatgptを使って作成しました。 Sub ReplaceTextInWord...

ChatGPTに 「エクセルのシート1のA1からE10のデータをＣＳＶファイルにし、メモ帳で開くＶＢＡコードを書いてください。」 とお願いしたところ、以下のコードを書いてもらいました。 Sub ExportToCSVAndOpenNotepad() Dim ws As Worksheet Dim rng As Rang...