[[20160824131654]] 『印刷マクロ』(ハイチュウ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『印刷マクロ』(ハイチュウ)

エクセルファイルは3つのシートがあります。

sheet1=宛名印刷フォーマット
sheet2=変更届フォーマット
sheet3=住所録元データ

・宛名印刷ボタン/変更届ボタンの2つ作りたい
※住所録から通番を使用して、sheet1/sheet2のフォーマットへ転記してます

・住所録元データの”C2”セルに印刷したい通番を記載”C3”に枚数を記載
上記のようなマクロを作りたい。

標準モジュールへ貼り付けをするVBAを教えてください。
よろしくおねがいします。

< 使用 Excel:unknown、使用 OS:unknown >


 Sub test()
    With ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
        Left:=65.25, Top:=24, Width:=82.5, Height:=32.25)
        .Object.Caption = "宛名印刷"
    End With
    With ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
        Left:=65.25, Top:=60, Width:=82.5, Height:=32.25)
        .Object.Caption = "変更届"
    End With

    With Sheets("住所録元データ")
        .Range("C2") = "印刷したい通番"
        .Range("C3") = "枚数"
    End With
 End Sub
(???) 2016/08/24(水) 13:42

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.