Results of 1 - 1 of about 295 for cell filename (0.001 sec.)
cell (1170), filename (1981)
- [[20070705194412]]
- #score: 11170
- @digest: 390696c6f60053183080d0c61ca4b82e
- @id: 31930
- @mdate: 2007-07-05T11:20:54Z
- @size: 1431
- @type: text/plain
- #keywords: xldialogprint (12162), 20070705181805 (7748), 刷/ (6721), 認ok (5440), vbapplicationmodal (5365), 得ac (5112), dialogs (4454), ス() (4137), レデ (3997), ー確 (3788), yesno (3778), 得= (3676), 後印 (3532), vbdefaultbutton1 (3469), 刷" (3344), 更? (3212), ジ= (3093), printpreview (2968), 書") (2319), 告書 (1971), 択" (1877), 認後 (1635), ド記 (1518), 名取 (1465), 刷プ (1411), 更出 (1338), 名変 (1319), vbquestion (1270), レビ (1187), ト名 (1013), ビュ (1012), filename (955)
- 『シート名変更するとコード記載のシート名も変更?』(レディーコング)
印刷プレビューがみれるマクロを各シートに作っています。シート名が後で変更された場合、それに連動してコードに記載してあるシート名も変更出来たりしますか? 誰か教えて下さい! 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) ...
-
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200707/20070705194412.txt
- [detail]
- similar
PREV
NEXT
Powered by
Hyper Estraier 1.4.13, with 97013 documents and 608132 words.
訪問者: