Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13503 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5098】日付をシート名にしたいのですが papasos 03/4/22(火) 11:46 質問
【5099】Re:日付をシート名にしたいのですが こう 03/4/22(火) 12:03 回答
【5101】Re:日付をシート名にしたいのですが papasos 03/4/22(火) 12:18 お礼
【5107】Worksheets("Sheet1").Range(&qu... こう 03/4/22(火) 13:17 回答
【5112】ありがとうございました papasos 03/4/22(火) 15:29 お礼
【5098】日付をシート名にしたいのですが
質問  papasos E-MAIL  - 03/4/22(火) 11:46 -
引用なし
パスワード
   日々の集計表を作成したいのです＝複製のシート名が作成日の日付
シート1の「あるセル」に表示された作成当日の日付が
複製した際に複製のシート名と言うものです。
複製のシート名にどうやったら日付が入れられるのでしょうか
どなたかお教えください
このページを53ページまで遡って探しましたが
見当たりませんでした
よろしくお願いいたします
【5099】Re:日付をシート名にしたいのですが
回答  こう E-MAIL  - 03/4/22(火) 12:03 -
引用なし
パスワード
   >複製のシート名にどうやったら日付が入れられるのでしょうか

シートの最後に挿入して，そのシート名称をdd(日付)にします。
　　dd = "20030327"
　　Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
　　Worksheets(Worksheets.Count).Name = dd
【5101】Re:日付をシート名にしたいのですが
お礼  papasos E-MAIL  - 03/4/22(火) 12:18 -
引用なし
パスワード
   ありがとうございます、早速やってみます
申し訳ありませんがもうひとつ質問なんですが
セル上にある日付を利用したシート名入力の記述は
どうしたらよいのでしょうか
初歩的質問だと思いますが、非常に恐縮です
【5107】Worksheets("Sheet1").Range(&...
回答  こう E-MAIL  - 03/4/22(火) 13:17 -
引用なし
パスワード
   >セル上にある日付を利用したシート名入力の記述は
>どうしたらよいのでしょうか

いろいろと方法や環境による制約はあると思いますが，お手軽なら
　　　dd = Worksheets("Sheet1").Range("A1").Value
>>　　Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
>>　　Worksheets(Worksheets.Count).Name = dd

上記例でA1セルが「日付形式」の場合，このままだと"2003/4/22"が
設定され，シート名称設定時にエラーになりますので，
Format(Worksheets("Sheet1").Range("A1").Value,"YYYYMMDD")
とかに型変換してみてください。
【5112】ありがとうございました
お礼  papasos E-MAIL  - 03/4/22(火) 15:29 -
引用なし
パスワード
   こう様
大変参考になりました
ありがとうございました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13503 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free