[[20090524234944]] 『マクロでファイル名+日付を組みたい』(Taro nippon) >>BOT

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

 

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