エクセルの学校：全文検索：Hyper Estraier： cell filename

Results of 1 - 1 of about 295 for cell filename (0.001 sec.)

cell (1170), filename (1984)

[[20090524234944]]: #score: 11157; @digest: 21577f3d1cf08dc0ccd4f09321be6dc2; @id: 43573; @mdate: 2009-05-26T12:06:03Z; @size: 4375; @type: text/plain; #keywords: 名)] (14010), 付> (12563), ァィ (12397), ソナ (9147), filename (2543), ナル (2248), 名. (1965), ジボ (1928), ル. (1643), ト上 (1482), activeworkbook (1427), cell (1408), ル名 (1400), today (1303), ブシ (1254), activecell (1219), formular1c1 (1090), ーソ (971), パー (970), 貼付 (950), 御座 (932), 日付 (892), ファ (871), イコ (860), hatch (814), クテ (769), 明日 (751), ト名 (723), クシ (713), ィブ (706), シー (675), ッセ (660); 『マクロでファイル名+日付を組みたい』（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) ---- お礼が遅くなりましたありがとうございました。お蔭様で希望通りのファィル名貼付が出来ました感謝致します。 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200905/20090524234944.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ