1 Part１は丸囲みを動かすマクロが出力シートのモジュールにイベントとして記載済のものを流用するため回りくどかったため、今回は入力シートにすべて書きこんでスッキリさせた。 2 シート構成など。 入力シートと出力シート２つ。出力シートは自動給紙設定…

（作成中） 1 目的 Windows標準環境下で、Microsoft edgeのFnキー押下をマウスジェスチャーに割り当てたかった。しかし、新たなソフトもインストールできないユーザー端末ではマウスジェスチャーは厳しそうなので、Fnキー押下の効果のバッチファイル を作り…

(動作せず。ダメ） 0 準備 たとえば、対象として「locked.xlsm」ファイルを解除したいなら、名前の変更で「locked.xlsm.zip」に変更し、ダブルクリックで解凍し、xlフォルダ内のvbaProject.binファイルに対して変更処理を行うためのコードをchatGpt4に教えて…

１ 転記項目が多いときにセル番号を直打ちしていると、後から修正訂正が発生したとに大変なことになる。そこで、セル番地を定数として登録してから行動する。 ２ シートのイベントを使う場合、シートモジュールを使う。標準モジュールとシートモジュールを同…

1 シートモジュールのselectionchangeのtargetを実行トリガーとしたいセルの1つ下のセルにする。Enerを押す前のセルを掴むのは工夫が必要なので、Enterを押した後のセルをトリガーにする。 2シートモジュールのchangeのtargetに何らかの値（「1」など）を入…

Option Explicit '図形をShift+ドラッグは比率維持,Alt+ドラッグはぴったり移動、Ctr＋ドラッグはコピー'Ctr＋クリックで、マクロを実行することなくボタンを選択できる。'マクロをショートカットキーに登録することもできる。クイックアクセスツールバーに…

1 原義シートやデータシートを使って出力シートを日次で作成した後、次に使用前に前回の出力シートを削除してから始める。 2 削除しないシート名をマクロ記述の中に含めるか、エクセルシートにマクロを使わずに書いておくか。 3 検討中

1 現状 Excelの出力シートに、項目が6個くらい書き出してありケースごとにどの項目に該当するかをオートシェイプの丸をマウスで動かしてから印刷している。 2 対策 入力セルに値を入れて、その値によってオートシェイプ図形を動かす。 3 （構想中） sub 'ど…

敬称略 薬袋善郎 名詞節［］、形容詞節（）、副詞節〈〉

1 ひな型から同じブック内に複数シート作成 出力用のひな型シートには、あらかじめJ1セルを参照するVlookupを埋め込んである。削除してはまずい一覧シートやひな型シートは、シート名の冒頭に●をつけてある。 2 コード Option Explicit Sub ひな型シートを同…

１ 原義シート（ひな型シート）以外を削除 残したい原義シート（ひな型シート）やマスターシートには、そのシート名に●をつけておき、他の作業シートを削除する。 ２ コード Option Explicit Sub シート名が●で始まらないものを削除() Application.ScreenUpd…

Sub 目次作成() Dim ws目次 As Worksheet: Set ws目次 = Thisworkbook.Sheets("目次") ws目次.Range("A:A").ClearContents Dim i As Integer For i = 1 To ThisWorkbook.Sheets.Count '目次シート作成 With ws目次 .Hyperlinks.Add Anchor:=.Range("A" & i),…

1 前提 SaveAsメソッドによる保存でファイル名(ここでは、myFileNameとする）を指定するとき、ファイル名に拡張子まで含めることもできるし、拡張子の付加はSaveAsメソッドに任せることもできる。 ２ 課題 しかし、引数FileFormatの内容（FileFormatを省略し…

１ エラーメッセージ 実行時エラー’お1004 並べ替えの参照が正しくありません。参照が並べ替えるデータ内にあることと、[最優先されるキー]ボックスが空白でないことを確認してください。 ２ 原因 表をSortメソッドで並べ替えたしたときに発生。 最初はセル…

１ ２コード '** '*機能：入力セルに値を増やしながら代入して印刷をループする '*要確認事項 '*@inputCell(入力セル） '*@NUM_DIFF(No.の増差) '*Wait(待機）する秒数 '* Sub 帳票数字代入印刷マクロ() 'プリンタ設定確認 Dim m As String: m = "" m = m & …

１ 選択範囲をintersectでC列に限定しないで、Rows.Rowで掴むことで、無駄なmsgboxを減らした。ただし、１つの列に絞っていないので、同じ行のセルをわざわざCtrを押して離れて選択すると、Rows.rowは重複した行番号を返してしまう。これは無視した。 ２コー…

1 2レコード単位で処理を繰り返す cntの数え方を要改善 2 Sub 背表紙2枚セット印刷() Dim Sh1 As Worksheet: Set Sh1 = Sheets("Sheet1") Dim Sh2 As Worksheet: Set Sh2 = Sheets("Sheet2") With Sh1 '初期化 .Range("E7:E8").ClearContents 'tRng(targetRa…

１ 転記元シートから転記先シートへの転記 ２ コード Option Explicit '転記先シートのシートモジュールに記載 'シート跨ぎ転記 Private Sub Worksheet_Activate() '転記元シート Dim wsFrom As Worksheet: Set wsFrom = Sheets("sheet1") With wsFrom Dim l…

１ ２ ３ コード '** '*抽出後に、選択したデータでラベルを印刷する '* Sub 抽出後に､選択したデータでラベル印刷する() 'targetRange→tRng Dim tRng As Range: tRng = Selection.SpecialCells(xlCellTypeVisible) tRng = Intersect(tRng, Columns(1)) 'tar…

1 よく使うコードの整理 2コード (1)xlsx保存 Sub TanakaMondai4() Dim i As Long For i = 2 To Sheets.Count ThisWorkbook.Sheets(i).Copy With ActiveWorkbook .SaveAs "C:\Work\" & ActiveSheet.Name & ".xlsx" .Close End With Next End Sub (2)PDF保存 …

１ 並べ替えて、保存するマクロ 指定の順序で並べ替え。指定のフォルダ（シート内にアドレスを記載）に保存。 ２コード Sub 引継簿並べ替え() '並べ替え With ThisWorkbook.Sheets("引継簿") .Range("A5").Sort key1:=Range("G5"), order1:=xlAscending, _ k…

１ 機能 特定の列のセルをダブルクリックしたときに、「○」を入力するイベントマクロ ２ 方針 シートモジュールにイベントマクロを記述する。ダブルクリックしたのが特定の列かどうかを判定する方法が複数ある。ダブルクリックなので、セル範囲を考慮する必…

１ For Eachの各シートからの戻りは，sheet(1)から順に終わりまで．順番は保障されているわけではない．戻る順番はコレクションオブジェクトにに依存するらしい。 VBA For Eachが順番を保証しない理由を自作のコレクションで説明 - t-hom’s diary sheetsコレ…

Option Explicit '** '* 画像貼付のセル結合対応版 '* 貼付順をコントロールするためにファイル名に数字をふること '* 画像があったら，そのセルを飛ばして下のセルに貼る． Sub 画像貼付12() ' Application.ScreenUpdating = False '前提：MicroSoft Script…

１ その３の経緯 その２では画像があったら勝手に消した．さすがに乱暴なので，消すか消さないか選択できるようにしようかと考えたが，画像があったらジャンプして下に行けばよいことに気付いた． ２ コード (1)同一フォルダ内の画像を貼付 '** '* 画像貼付…

１ 目的 特定のイベントのオンオフを切り替えるワンタッチで切替えつつ，現在オンなのかオフなのかが分かるようにしたい．そこで，ボタンを設置して，ボタンの表示をその都度変えることにする． ２ コード 開発タブ，挿入，フォームコントロール，から「ボタ…

1 エビデンスを取るのにEasyShotを使うとき，ワンタッチで保存先フォルダを切替えながらとれるようにするのが目的．エビデンスを取り中にちょこっと分岐したエビデンスをとるときに，取ったエビデンスを後から見ると混乱するし，保存フォルダを切り替えるの…

１ 前回より学習が進んだので，記述を整理した． 使い方は，Excelファイルの入っているフォルダと同じフォルダ内に取り込みたいファイルを格納する．貼付開始セルをクリックした状態で，マクロを起動すると，下方向に画像ファイルを貼り付ける．貼り付けの順…

１ エクセルからワードへ差し込む方法を調べたところ，先人がたくさんいたので，列記した． ２ Wordのオブジェクトについて MyRecord Excel VBA Wordを操作する主なプロパティとメソッド MicroSoft Word Visual Basic for Applications (VBA) リファレンス |…

１ 帳票様式がWordで提供されており，線種や表の高さ，幅，折り返し，ファイルの更新などの懸念があるため，ひな型をExcelに取り込むのを避けたい場合．同一のExcelブック内のリストに基づいてひな型のExcelシートへ差し込むのではなく，ExcelのリストからWo…