前提 Excel表 実施したいこと ANS Q A Q A Q A Q A ChatGPTとの会話ログ。あとで精査 前提 下記のエクセルの表があります。 Excel表 MCompGrp | ID | GName | Code | | ----- | ----- | ---------- | | Head | 本社 | 〒xxx-xxxx | | Tokyo | 東京 | 〒yyy-y…

前提 下記構成のエクセルファイルがある シート Sheets1 シート名: "シート1" VBAの構成 Sheets1(シート1)のマクロ Public Function SheetOneFunc() MsgBox "This is SheetOneFunc." End Function このとき標準モジュールから、SheetOneFunc()を呼び出したい…

完成形イメージ コード Sub 作業用シート作成() ' シートのすべてのセルの幅を設定 Cells.ColumnWidth = 2.2 ' 見出しのスタイルと値を設定 With Range("A1") .Style = "見出し 1" .Value = "1" End With With Range("B1") .Style = "見出し 2" .Value = "2"…

つくるもの 作業するときに、エクセルでメモを残しながらやっている。 セルの書式毎に「疑問」とか「解決済み」とかタグをつけながらやっている。 発散してくると、「疑問点何個残ってるんだっけ？」となるので集計したい。 いつもの作業イメージ いつもの作…

作るもの マクロコード抜粋 感想 改訂履歴 作るもの こんな感じのQA表テンプレートを作るためのマクロを実装 QA表シート pulldown用のシート マクロコード抜粋 Sub QA表作成() Dim NewSheet As Worksheet Dim ActiveSheetIndex As Long ' アクティブシートの…