過去ログ

                                Page     194
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼Sheet名変更は可能?  123 02/10/11(金) 17:19
   ┣Re:Sheet名変更は可能?  ぴかる 02/10/11(金) 17:31
   ┗Re:Sheet名変更は可能?  つん 02/10/11(金) 17:34
      ┗Re:きっき基本的なことだったんですね  123 02/10/11(金) 18:51

 ───────────────────────────────────────
 ■題名 : Sheet名変更は可能?
 ■名前 : 123
 ■日付 : 02/10/11(金) 17:19
 -------------------------------------------------------------------------
   新しいBookを名前を付けて保存するコマンドボタンを
つくりました。
名前は InputBox で指定します。
この指定したBook名(InputBoxに入力した名前)を(利用して)
その新規Bookの sheet1 のsheet名にすることは可能でしょうか。

sheet名を取得する方法はいろんなところに書いてあるのですが、
sheet名を変更するコードが見つかりません。
宜しくお願いします。
 ───────────────────────────────────────  ■題名 : Re:Sheet名変更は可能?  ■名前 : ぴかる  ■日付 : 02/10/11(金) 17:31  -------------------------------------------------------------------------
   123さん、こんにちは。

マクロ記録してみました。こんなんでどう?。
  Sheets("Sheet1").Name = "SheetA"
 ───────────────────────────────────────  ■題名 : Re:Sheet名変更は可能?  ■名前 : つん <honey@sweetparty.ne.jp>  ■日付 : 02/10/11(金) 17:34  -------------------------------------------------------------------------
   123 さん、こんにちは、

>sheet名を取得する方法はいろんなところに書いてあるのですが、
>sheet名を変更するコードが見つかりません。

Nameプロパティに代入するだけです♪

 ActiveWorkbook.Worksheets("Sheet1").Name = "こんばんは"

これで、アクティブブックのSheet1のシート名を変更できます。
新規に作成したブックのSheet1を指定して、
インプットボックスで取得した文字列を代入すればOK!

こんなじゃダメですか?
 ───────────────────────────────────────  ■題名 : Re:きっき基本的なことだったんですね  ■名前 : 123  ■日付 : 02/10/11(金) 18:51  -------------------------------------------------------------------------
   ▼ぴかるさん、つん さん:
こんばんは。

基本的なことだったんですね。
頭が固く...

ありがとうございました。(とほほっ)
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 194