[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロでファイル名+日付を組みたい』(Taro nippon)
1.[ファイル名.xls (シート名)] <日付> が表示できるようなマクロを
どなたか教えて頂けませんか
2.エクセルで作成の帳票に どんな場所にでも、呼び出し使いたいのですが・・・・
宜しくお願い致します。
こんなことでしょうか? (Hatch) MsgBox "[" & ActiveWorkbook.Name & "(" & ActiveSheet.Name & ")]<" & Date & ">"
早々に有り難う御座いました 表示形式は 誠に結構です。感謝いたします・・・・ 実は、私の質問の仕方が悪かったと思いますが メッセージボックスの表示ではなく、アクティブシートに貼付たいのですが 教えて頂けませんか わがままで申し訳ございません
セルに表示したいということなら、数式ではダメなんでしょうか。 [[20060517095038]] 『シート名称を特定セルに表示するには?』(AMG) (みやほりん)(-_∂)b
有り難う御座いました 上記の案内で実施しましたがシート名しかなりませんでした 最初のメッセージボックスのような表示順序では無理でしょうか。 アイコンボタンにマクロ登録して、アクティブシート上使いたいのですが? [ファイル名.xls (シート名)] <日付> すみません 宜しくお願い致します。
シート上のどこ(どのセル?)に表示させたいのか 書いていないので、Hatchさんは メッセージボックスに表示するコードを 書かれたのではないでしょうか。
(HANA)
ごめんなさい シート上どこのセルでも表示貼付たいのです
ActiveCell.FormulaR1C1 = "=""Filename= ""&REPLACE("" ""&LEFT(CELL(""filename""),FIND (""]"",CELL(""filename""))+7),1,FIND(""["",CELL(""filename"")),)" Selection.Font.Italic = True 教えて頂いた通り、上記で作ってみましたが、このあとに続く<日付>が出し方がわかりませ 宜しくお願い致します。
>シート上どこのセルでも 「その時々でかわる」ってことですか? それとも「決められたあるセル」ってことですか?
「ActiveCell.FormulaR1C1」 ってことは、「アクティブセルに」ってことなんですかね・・・?
日付は ワークシート関数では TODAY()で表示できます。 TEXT関数と組み合わせて文字列の状態で「&」で結合させて下さい。
ただし、数式のままだと 今日の日付(明日になったら、明日の日付) になるので、値化しておく必要があります。
(HANA)
説明は長くなってもよいので、なるべく相手に伝わるように書くようにされたほうが 解決が早いかと思います。
「シート上のどこのセルでも」という表現だけではなかなか、真意が伝わりません。 マクロを実行したときに、選択されているセルに というように、なるべく具体的にされた方が良いでしょう。
Hatchさんの回答をもう少し調べたり試したりすれば、いろいろとわかると思うのですが、 下記のようなことでしょうか。
Sub Taro() With ActiveCell .Value = ThisWorkbook.Name & _ "(" & ActiveSheet.Name & ")" & _ "<" & Format(Date, "yyyy/mm/dd") & ">" .Font.Italic = True End With End Sub (Mook)
有り難う御座いました 質問が下手ですみません いままで試しましたが分かりませんでした。 上記ですと、そのワークシートのファィル名が確かに表示され満足です そのマクロを パーソナル.xlsのマクロに組み込み どのワークシートでも使用したいのですが・・・・。 パーソナル.xlsでマクロをアイコンに登録後<別ファィルを開き、マクロを実行すると いつまでもパーソナル名が残り そのファィル名になりません。 宜しくお願い致します。
MookさんのコードのThisWorkbook.NameをActiveWorkbook.Nameに変えららどうなりますか? (Hatch) Sub Taro_改() With ActiveCell .Value = "[" & ActiveWorkbook.Name & "(" & ActiveSheet.Name & ")]<" & Date & ">" .Font.Italic = True End With End Sub
最初の Hatch さんのは ActiveWorkbook になっていたのに、私が余計なことをして しまったようですね^^;;。
もうすでにお分かりになったと思いますが、Active*** というのが現在選択されて いるものを指します。 #こそっと関数名を修正 (Mook)
一応、数式では・・・。
TODAY()で今日の日付が得られます。 しかし ="<"&TODAY()&">" では 日付部分がシリアル値になってしまいますので TEXT関数で文字列に変更して TEXT(TODAY(),"yyyy/mm/dd") 前後に<>をつけます。
さらに、ファイル・シート名の式を前に置くと ="Filename= "&REPLACE(" "&LEFT(CELL("filename"),FIND("]",CELL("filename"))+7),1,FIND("[",CELL("filename")),)&"<"&TEXT(TODAY(),"yyyy/mm/dd")&">"
ただし、この状態だと 次の日には「TODAY()」が次の日の日付に成ってしまいますので 固定させておきたい場合は コピー→右クリック→形式を選択して貼り付け と進み、値として貼り付けます。
(HANA)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.