Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50532 / 76738

←次へ　｜　前へ→


	【31094】シート名の重複

もだ - 05/11/11(金) 15:58 -


	引用なし

	パスワード

テンプレートのSheet(1)に作成したものを
別の特定のブックに、次々に"BN"という変数の
名前を付けて保存していきたいと思っています。

"BN"の取得は作成中のSheet(1)内の特定のセルから取得します。

その名前が重複する場合、同じシート名では保存ができません。

同じシート名だと、保存できませんよ。というメッセージが出たら
"BN"その１
"BN"その２
"BN"その３

・・・のように、対応を変えていく方法はありますでしょうか？
エラーハンドリング？ってそれでしょうか？

For L = Start_cell To end_cell Step 1
counter = counter + 1

　　Windows(register).Activate
　　Sheets(sheet_thismonth).Select
　　Range("C" & L).Select
　　BN = ActiveCell.Value
　　Windows(template).Activate
　　Worksheets(sheet_payment_temp).Range("B11").Value = BN

'シートに名前を付ける

　　Windows("テンプレート.xls").Activate
　　Sheets(sheet_1).Select
　　Sheets(sheet_1).Copy Before:=Workbooks(save_name).Sheets(1)
　　Sheets(sheet_1).Select
　　Sheets(sheet_1).Name = BN　※ここで、同じ値が入るとエラーがでます。
　　BN = 0
　　
Next L

すみません、わかりにくい説明かもしれません。
情報がたりなければ、言ってください。

よろしくお願いします。

0 hits

▼

【31094】シート名の重複 もだ 05/11/11(金) 15:58

≪