Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8819 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【30973】シートの名前 pen 05/11/8(火) 15:54 質問[未読]
【30975】Re:シートの名前 Jaka 05/11/8(火) 16:06 質問[未読]
【31004】Re:シートの名前 awu 05/11/8(火) 23:23 回答[未読]
【31010】Re:シートの名前 pen 05/11/9(水) 9:16 お礼[未読]
【30973】シートの名前
質問  pen  - 05/11/8(火) 15:54 -
引用なし
パスワード
   新規でシートを作成して、そのシート名は
指定したセルに入っている値にしたいのですが、
下記のマクロでは動きません。
どのようにしたら日付を持ってくることができるのでしょうか？
（A2には2005/11/1といったような日付が入力されています）

よろしくお願いします。
Sheets("test1").Select
シート名 = ActiveSheet.Name
Worksheets.Add after:=Worksheets(シート名)
　　
'新規で作成されたシートには、test1シートのA2値の名前に。
ActiveSheet.Name = Sheets("test1").Range("A2").Value & "〜"
【30975】Re:シートの名前
質問  Jaka  - 05/11/8(火) 16:06 -
引用なし
パスワード
   ▼pen さん：
>新規でシートを作成して、そのシート名は
>指定したセルに入っている値にしたいのですが、
>下記のマクロでは動きません。
>どのようにしたら日付を持ってくることができるのでしょうか？
>（A2には2005/11/1といったような日付が入力されています）

シート名がわかっているんだから、直接書けばいいです。
>Worksheets.Add after:=Worksheets("test1")

これでどこが不満なのでしょうか？
>'新規で作成されたシートには、test1シートのA2値の名前に。
>ActiveSheet.Name = Sheets("test1").Range("A2").Value & "〜"

シートの名前付けには規則があります。
１度、新規ブックにて命名したいシート名に手作業で変えてみてください。
ある程度の規則が解ると思います。
【31004】Re:シートの名前
回答  awu  - 05/11/8(火) 23:23 -
引用なし
パスワード
   こんな感じで如何でしょうか。
2005.11.08〜 のようにしてますが・・・

Sub test()
With Worksheets.Add(after:=Worksheets("test1"))
　　.Name = Format(Worksheets("test1"). _
　　　　　　Range("A2").Value, "yyyy.mm.dd") & "〜"
End With
End Sub
【31010】Re:シートの名前
お礼  pen  - 05/11/9(水) 9:16 -
引用なし
パスワード
   解決しました。
とても助かりました。
どうもありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8819 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free