chatgptに書いてもらったのですが、画面サイズを大きくしている関係で、スクショが1.5倍になってしまい大苦戦！Geminiに等倍にするよう助けてもらいました。備忘です。 画面上の「見た目」の数値を指定のところは、お好みの数値になるのですが、これはまた後日に。 Option Explicit #If VBA7 The...

社名の横に数式を入れると、まずは（株）等を取り出した会社名、次の列に（株）等を表示させます。 Function ExtractNameWithLog(ByVal txt As String) As Variant Dim s As String s = txt Dim kinds As Variant Dim k As...

タイトルどおりです。 chatgptに書いてもらいました。 Sub SendToTeams() Dim olApp As Object Dim olMail As Object Dim teamsAddress As String Dim bodyText As String ' Teamsチャネルのメールア...

Ａ1-Ａ100の最初と最後が空白の場合、その空白を取ります。 空白を取る前と取った後のデータを作業シートに残します（確認用）。 Sub 前後空白削除_変更行のみ出力() Dim wsSrc As Worksheet Dim wsWork As Worksheet Dim cell As Range Dim r As L...

Excel VBAでコードを書いているときに、 「ファイルが見つかりません」 というエラーに遭遇しました。 いやいや、ファイルはちゃんとそこにあるのに…！（涙） 試しにイミディエイトウィンドウ（表示されない場合は Ctrl+G）に、次のように入力してみます。 workbooks.open filename:=Thisw...

田中先生のコラムより、「DisplayFormat」で見ればいいことがわかりました。 「Excel 2007のSortオブジェクト」 あと、インストラクターのネタ帳さんの 条件付き書式の数式を取得するExcelマクロ から、数式を引っ張り出して、確認用に使用させていただきました。...

で調べていたら、「.xls（古いバージョン）」と「.xlsx（新しいバージョン）」の違いからくる不具合のようで… 古い方はセルの数が少なくて、新しい方は多いというところで整合性がないので、エラーになるということでした。 ファイルを互換性バージョンにすればよいようです。...

自分用です。 ウィンドウをＡ１に持って行く方法 Sub MoveWindowToA1() ' A1セルをアクティブにして表示位置を移動 Application.Goto Reference:=Range("A1"), Scroll:=True End Sub Sub ScrollToA1(...