Excel VBA質問箱 IV

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

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


48305 / 76732 ←次へ | 前へ→

【33363】Re:Buttonクリックでシート名を変更する方法を教えて下さい
発言  かみちゃん  - 06/1/9(月) 18:06 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>必ず『With Workbooks("test.xls").Sheets(Format(strName, "@"))』でエラーが出てしまいます。

何をされているのか、よくわからないのですが、
UserFormのあるブックとTest.xlsは別ブックなのですか?

どういうエラーメッセージが出るのですか?
それくらいは書きましょうね。

それとご提示のコード

> For i = 1 To 100
>  'シート名が存在しない場合もあるので
>  On Error Resume Next
>  Sheets(Format(i, "@")).Name = strName
>  On Error GoTo 0

これだと、i が 2になったときに、エラーになるはずです。
なぜなら、i が 1のときにすでに strName の値にシート名を変更して、
i が 2のときに、また strName の値にシート名を変更しようとして、すでにシー
ト名が存在するからエラーになるはずです。

また、このコードも
>With Workbooks("test.xls").Sheets(Format(strName, "@"))

With Workbooks("test.xls").Sheets(strName)
でいいのではないでしょうか?
ただし、当然のことながら、test.xls に strName(数字か文字列か知りません
が)の値の名前になっているシートが存在することです。
0 hits

【33344】Buttonクリックでシート名を変更する方法を教えて下さい 初心者 06/1/9(月) 16:38 質問
【33345】Re:Buttonクリックでシート名を変更する方... かみちゃん 06/1/9(月) 16:48 発言
【33353】Re:Buttonクリックでシート名を変更する方... 初心者 06/1/9(月) 17:18 質問
【33355】Re:Buttonクリックでシート名を変更する方... かみちゃん 06/1/9(月) 17:21 発言
【33359】Re:Buttonクリックでシート名を変更する方... お願いします。 06/1/9(月) 17:56 質問
【33362】Re:Buttonクリックでシート名を変更する方... (゜Д゜)ハァ? 06/1/9(月) 18:00 発言
【33363】Re:Buttonクリックでシート名を変更する方... かみちゃん 06/1/9(月) 18:06 発言

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