Excel VBA質問箱 IV

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

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


2292 / 13644 ツリー ←次へ | 前へ→

【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")

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

"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")
>
>上のようにあるシートをコピーして入れ込んだシートに新たにシート名を付けたいのですが、その入れ込んだシートの位置は”Sheet1”の前というのは決まっていますが、場所が何番目と特定するものではありません。このような時、どのように指定すればよいのでしょうか?
>
>"Activewindow.selectedsheet"では、だめでした。
>
>ご教示下さい。

前にCopyしたのであれば、
Sheets("Sheet1").Previous.Name = "名前"
でいいでしょうかね?
ただ、Sheet1が非表示だと違ってくるかもしれません。

【68920】Re:シート名をつける
お礼  もも  - 11/4/27(水) 19:19 -

引用なし
パスワード
   皆様ありがとうございました。

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

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

お世話様でした。

2292 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free