Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2308 / 13660 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【68844】シート名をつける もも 11/4/22(金) 15:19 質問[未読]
【68848】Re:シート名をつける neptune 11/4/22(金) 15:55 回答[未読]
【68894】Re:シート名をつける teian 11/4/24(日) 18:27 発言[未読]
【68920】Re:シート名をつける もも 11/4/27(水) 19:19 お礼[未読]
【68844】シート名をつける
質問  もも E-MAIL  - 11/4/22(金) 15:19 -
引用なし
パスワード
   　　Sheets(2).Copy Before:=Sheets("Sheet1")
　　ActiveWindow.SelectedSheet.Name = InputBox("シート名を入れてね。", Default:="【御参考】yymmdd")

上のようにあるシートをコピーして入れ込んだシートに新たにシート名を付けたいのですが、その入れ込んだシートの位置は”Sheet１”の前というのは決まっていますが、場所が何番目と特定するものではありません。このような時、どのように指定すればよいのでしょうか？

"Activewindow.selectedsheet"では、だめでした。

ご教示下さい。
【68848】Re:シート名をつける
回答  neptune  - 11/4/22(金) 15:55 -
引用なし
パスワード
   ▼もも さん：
名前を付けるだけのサンプル

Public Sub t1()
　　Dim objSh As Worksheet
　　
　　Set objSh = ThisWorkbook.Sheets.Add(, , 1, xlWorksheet)
　　objSh.Name = "test3"
　　Set objSh = Nothing
End Sub
【68894】Re:シート名をつける
発言  teian  - 11/4/24(日) 18:27 -
引用なし
パスワード
   ▼もも さん：
>　　Sheets(2).Copy Before:=Sheets("Sheet1")
>　　ActiveWindow.SelectedSheet.Name = InputBox("シート名を入れてね。", Default:="【御参考】yymmdd")
>
>上のようにあるシートをコピーして入れ込んだシートに新たにシート名を付けたいのですが、その入れ込んだシートの位置は”Sheet１”の前というのは決まっていますが、場所が何番目と特定するものではありません。このような時、どのように指定すればよいのでしょうか？
>
>"Activewindow.selectedsheet"では、だめでした。
>
>ご教示下さい。

前にCopyしたのであれば、
Sheets("Sheet1").Previous.Name = "名前"
でいいでしょうかね？
ただ、Sheet1が非表示だと違ってくるかもしれません。
【68920】Re:シート名をつける
お礼  もも  - 11/4/27(水) 19:19 -
引用なし
パスワード
   皆様ありがとうございました。

私が希望していたのは、“名前を指定しない”ことで、シートの名前は、ボックスから入力して付ける方法をとっています。

activesheetで任意のシートを指定出来ることを思い出し解決しました。

お世話様でした。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2308 / 13660 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free