makotoym

自己紹介が苦手なので、谷川俊太郎さんの「33の質問」に答えます。 すこしずつ、記事とし…

makotoym

自己紹介が苦手なので、谷川俊太郎さんの「33の質問」に答えます。 すこしずつ、記事として投稿します。 https://note.com/makotoym/n/n2bcb7c746a2d?sub_rt=share_pb

マガジン

  • 自己紹介

    自己紹介の代わりに33の質問に答えます。 人間(わたし)が回答メモをつくり、 それをPerplexityなどのAIで小説にしてもらいました。 画像はChatGPTで作りました。 よろしくお願いいたします。

最近の記事

文字化けした「入社」を編集する

この説明は、ChatGPTで作成しています。 このVBAプロシージャは、Excelで選択されたセル範囲に対して、文字化けした「?社」を「入社」に自動で置き換えるものです。 手順の概要 画面更新の停止 処理中の画面更新を停止することで、操作をスムーズに進めます。 正規表現オブジェクトの作成 VBScript.RegExp という特別な機能を使って、特定の文字パターンを探す設定を行います。この例では、「?社」という文字列を探す設定をしています。 選択されたセルの範囲を繰

    • 文字化けした手続きを編集する

      この説明は、ChatGPTで作成しています。 このプロシージャは、Excelのセル内の文字列を修正するためのものです。具体的には、*「?続き」という文字列が入ったセルの内容を、自動的に「手続き」*という文字に置き換える処理を行います。 仕組みの説明 画面更新の停止: 処理の速度を上げるために、*「Application.ScreenUpdating = False」*で画面更新を一時的に停止します。これにより、処理中の画面のちらつきが防止されます。 正規表現オブジェ

      • ※注記の数を数えて連番をつけるよ

        この説明は、ChatGPTで作成しています。 このVBAコードは、「※」マークを含むセルの内容に対して、「※」マークが出現するたびに、連番をつける機能を持っています。例えば、セルに「今日は※晴れ※です※」といったテキストがあれば、「今日は※1晴れ※2です※3」というように、「※」マークごとに番号が自動的に追加されます。 プロシージャの仕組み 画面更新の停止: `Application.ScreenUpdating = False`で、処理中の画面更新を一時的に停止します

        • 彼女がついていない彼だけを編集する

          この説明は、ChatGPTで作成しています。 このプロシージャは、Excel VBAを使って、選択されたセルの内容を特定のルールに基づいて変更する仕組みです。具体的には、セル内のテキストで「彼」という単語が出現し、その後に「(女)」が付いていない場合に、自動的に「(女)」を付け加える動作を行います。 プロシージャの概要 画面の更新 を一時的に停止して、処理速度を向上させています。 `VBScript.RegExp` というオブジェクトを使って、特定のパターンを探すため

        文字化けした「入社」を編集する

        マガジン

        • 自己紹介
          8本

        記事

          全角スラッシュを改行に置換するよ

          この説明は、ChatGPTで作成しています。 このプロシージャは、Excelで選択したセルの中に含まれる*全角スラッシュ(/)を改行(Enterキーを押したときと同じ動作)*に置き換えるものです。 仕組みの説明 画面更新の停止 Application.ScreenUpdating = False は、マクロの実行中に画面がチラつかないように、画面更新を一時的に停止する命令です。 正規表現オブジェクトの作成 CreateObject("VBScript.RegExp

          全角スラッシュを改行に置換するよ

          全角スラッシュで囲まれた文章を隣列に移動して削除するよ

          この説明は、ChatGPTで作成しています。 このプロシージャは、ExcelのVBAを使って、セル内の文章から全角スラッシュ(/ と \)で囲まれた部分を探し出し、それを隣のセルに移動して、元のセルからは削除する処理を行います。 仕組み 正規表現の設定: このプロシージャでは、正規表現を使って全角スラッシュで囲まれた文章を見つけます。 `Set reg = CreateObject("VBScript.RegExp")` で、正規表現を扱うためのオブジェクトを作成し、次

          全角スラッシュで囲まれた文章を隣列に移動して削除するよ

          全角スラッシュで囲まれた文章を隣列にだすよ

          この説明は、ChatGPTで作成しています。 このVBAコードは、全角スラッシュ (/と\) で囲まれたテキストを見つけ、そのテキストを隣の列に表示するためのものです。 仕組みの説明 画面更新の停止: 最初に `Application.ScreenUpdating = False` とすることで、処理中に画面がチラつくのを防ぎます。 正規表現オブジェクトの作成: `CreateObject("VBScript.RegExp")` で、正規表現を使えるようにします。

          全角スラッシュで囲まれた文章を隣列にだすよ

          全角スラッシュで囲まれた文章を削除するよ

          この説明は、ChatGPTで作成しています。 このプロシージャは、Excelのセル内にある全角スラッシュ(「/」と「\」)で囲まれた文章を自動的に削除するものです。 仕組みの説明 画面の更新を一時的に停止して、作業中に画面がちらつかないようにします。 VBScript.RegExp という機能を使って、正規表現を扱うオブジェクトを作成します。このオブジェクトは、特定のパターンに一致するテキストを検索・置換するために使います。 正規表現パターン「/([\s\S]*?)

          全角スラッシュで囲まれた文章を削除するよ

          主婦の表記ゆれをなるべく整えるよ

          この説明は、ChatGPTで作成しています。 このプロシージャ「主婦の表記ゆれをなるべく整えるよ」は、Excelのシート内で特定の言葉を統一的に変換するためのコードです。特に、「主婦」「主夫」などの表記揺れを、「主婦(夫)」という形に統一します。例えば、「ママパパ」や「奥さん」という言葉も一律で変換されます。 プロシージャの仕組み 画面更新を停止する 最初に `Application.ScreenUpdating = False` で画面の更新を一時的に停止します。これ

          主婦の表記ゆれをなるべく整えるよ

          エックスの有無て追加するSNSを切り替えるよ

          この説明は、ChatGPTで作成しています。 "X"および"Twitter"は、X Corp.の登録商標です。 "Facebook"は、Meta Platforms, Inc.の登録商標です。 "LINE"は、LINE株式会社の登録商標です。 このマクロ「エックスの有無て追加するSNSを切り替えるよ」は、選択したセルの中に「X(Twitter)」という文字列があるかどうかを確認し、それに応じてSNSの情報を追加するものです。具体的には、以下の手順で動作します。 画面更新を

          エックスの有無て追加するSNSを切り替えるよ

          ツイッターをエックスに編集する

          この説明は、ChatGPTで作成しています。 "X"および"Twitter"は、X Corp.の登録商標です。 このプロシージャは、Excel VBAを使って、選択したセル範囲に含まれる「ツイッター」や「Twitter」という単語を、自動的に「X(Twitter)」に置き換える仕組みです。たとえば、セルに「Twitterでつぶやく」と書かれている場合、このプロシージャを実行すると「X(Twitter)でつぶやく」というように変わります。 手順の流れ: 画面更新の停止:

          ツイッターをエックスに編集する

          受動喫煙対策があったらセルを青色にするよ

          この説明は、ChatGPTで作成しています。 このVBAプロシージャは、選択されたセルの内容に「受動喫煙対策」が含まれているかを調べ、特定の条件に一致する場合、そのセルの背景色を青色に変更するものです。コードの中身を詳しく見てみましょう。 1. 画面更新の停止 最初に Application.ScreenUpdating を False に設定して、処理が終わるまで画面の更新を一時的に停止します。これにより、処理速度が向上し、画面のちらつきを防ぎます。 2. 正規表現

          受動喫煙対策があったらセルを青色にするよ

          禁煙喫煙だけを赤字にするよ

          この説明は、ChatGPTで作成しています。 このプロシージャは、選択したセル範囲の中から「禁煙」または「喫煙」という文字を見つけ、それを赤い文字に変更するためのものです。具体的には、以下のような流れで動作します。 画面更新の停止: Application.ScreenUpdating = False の部分で、処理中に画面の更新を止めます。これにより、処理速度が向上します。 範囲の指定と変数の初期化: myRng という変数に、選択範囲のセルを1つずつ格納していきます

          禁煙喫煙だけを赤字にするよ

          年代の部分だけを編集する

          この説明は、ChatGPTで作成しています。 このVBAプロシージャ「年代の部分だけを編集する」は、Excelのセルにある「○代」や「○~○代」といった年齢を示す表現を、*「●●」*という文字に置き換える仕組みです。たとえば、「20~30代」や「40代」という文字が含まれているセルを選択すると、その部分が「●●」に変わります。 以下、プロシージャの流れを簡単に説明します。 画面の更新を停止: プロシージャの最初と最後で `Application.ScreenUpdati

          年代の部分だけを編集する

          夫がついていない主婦だけを編集する

          この説明は、ChatGPTで作成しています。 このプロシージャは、Excelシート内で「主婦」という単語を探し、その後に「(夫)」が付いていない場合に「(夫)」を追加するものです。以下に、その仕組みをわかりやすく説明します。 プロシージャの動作 画面更新の停止: `Application.ScreenUpdating = False` は、処理中の画面のチラつきを防ぐために画面更新を一時停止します。 正規表現オブジェクトの作成: `CreateObject("VB

          夫がついていない主婦だけを編集する

          歓迎だけを赤字にするよ

          この説明は、ChatGPTで作成しています。 このプロシージャは、Excelのセルにある文字列の中で「歓迎」という文字を見つけ、それを赤色に変更するものです。具体的な動作を以下に説明します。 画面更新の停止: `Application.ScreenUpdating = False` この行は、プロシージャの実行中に画面の更新を停止し、動作を速くするためのものです。 変数の宣言: `myRng`: 選択された範囲の各セルを指します。 `myStr`: 現在チェックして

          歓迎だけを赤字にするよ