[[20090524234944]]　『マクロでファイル名+日付を組みたい』（Taro nippon）　ページの最後に飛ぶ

『マクロでファイル名+日付を組みたい』（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)

お礼が遅くなりました
ありがとうございました。
お蔭様で希望通りのファィル名貼付が出来ました
感謝致します。

コメント返信：

[ 一覧(最新更新順) ]

[[20090524234944]] 『マクロでファイル名+日付を組みたい』（Taro nippon） ページの最後に飛ぶ

[[20090524234944]]　『マクロでファイル名+日付を組みたい』（Taro nippon）　ページの最後に飛ぶ