excel VBA 日付印マクロの作り方

excel VBAで作る日付印マクロの作り方です。

日付印はオートシェイプで作成しグループ化しておきます。

C2セルの日付表示は書式設定のユーザー定義で「yyyy.mm.dd」にしておくと「/」スラッシュを「.」ピリオドで表示させることができます。

作成ボタンにマクロを登録しておきます。

以下、フローです。

・作成ボタンを押す

・オートシェイプの日付をC2セルの値に変更

・日付のオートシェイプのグループをコピー

・コピーしたグループを写真で貼り付け

・貼り付けた写真をコピーで保持

上記で、コピー状態になっていますので、対象のファイルに張り付ければ完了です。

サンプルプログラム

Sub 日付印作成()

    '画面更新をOFF

    Application.ScreenUpdating = False

    '今日の日付をセルに入力

    Cells(2, 3).Value = Date

    'シェイプの日付テキストボックスを選択

    ActiveSheet.Shapes.Range(Array("TextBox 2")).Select

    '年月日を取得して変更

    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Cells(2, 3).Text

    Cells(3, 3).Select

    'シェイプをコピー

    ActiveSheet.Shapes.Range(Array("Group 1")).Select

    Selection.Copy

    'セルを選択

    Range("B6").Select

    '写真で貼り付け

    ActiveSheet.Pictures.Paste.Select

    'コピーを保持

    Selection.Copy

    '画面更新をON

    Application.ScreenUpdating = True

End Sub

オートシェイプ名の"TextBox 2"と"Group 1"はマクロの記録で選択して確認し、変更してください。