[[20070705194412]]　『シート名変更するとコード記載のシート名も変更？』（レディーコング）　ページの最後に飛ぶ

『シート名変更するとコード記載のシート名も変更？』（レディーコング）

印刷プレビューがみれるマクロを各シートに作っています。シート名が後で変更された場合、それに連動してコードに記載してあるシート名も変更出来たりしますか？
誰か教えて下さい！
XP/2000

 どこかのセルに、シート名を記載、または関数で表示しておくのはいかがでしょう？
　
 マクロでのシート名の取得
 ActiveSheet.Name
　
 関数でのシート名取得
 =RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1)))
　
 （キリキ）（〃⌒o⌒)b

（キリキ）（〃⌒o⌒)bさん、ありがとうございます。
ごめんなさい。 ActiveSheet.Name　をどこに組み込めばいいか分かりません。
下のような感じのコードなんですが…

Sub 問い合わせするメッセージボックス()

    タイトル = "選択"
    メッセージ = "印刷プレビュー確認OK？ はい → 印刷 ／ いいえ → プレビューで確認後印刷"
    スタイル = vbYesNo + vbQuestion + vbDefaultButton1 + vbApplicationModal
        yesno = MsgBox(メッセージ, スタイル, タイトル)
        If yesno = vbYes Then
        Application.Dialogs(xlDialogPrint).Show
        Else
        Sheets("報告書").PrintPreview
        Application.Dialogs(xlDialogPrint).Show

    End If

End Sub

ごめんなさい、教えて下さい！

 Sheets("報告書").PrintPreview→ActiveSheet.PrintPreview 
 Application.Dialogs(xlDialogPrint).Show は必要ですか？
[[20070705181805]] の続きでですよね HNが違うのはなぜでしょうか。
(TT)

コメント返信：

[ 一覧(最新更新順) ]

[[20070705194412]] 『シート名変更するとコード記載のシート名も変更？』（レディーコング） ページの最後に飛ぶ

[[20070705194412]]　『シート名変更するとコード記載のシート名も変更？』（レディーコング）　ページの最後に飛ぶ