Excel VBA質問箱 IV

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

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


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

55066 / 76732

←次へ　｜　前へ→


	【26446】Re:売上の一覧を販売者単位でシートに集...

yasu - 05/7/5(火) 20:08 -


	引用なし

	パスワード

▼kobasan さん：
今晩は。
ロングランの質問にいつも丁寧にご返事いただきありがとうございました。
これからもよろしくご指導の程お願いします。
あと一つご質問させていただきたいのですが･･･

貴兄から頂きましたコードで
Sheets.Add before:=Sheets(シート数 - 1)

　　Sheets(シート数 - 1).Name = ST_Name
の部分ですが、
シートがメインのシート（「売上一覧」だけ）だけの時に
この部分で、エラーがでます。
現在、このメインシート以外に一枚シートを作って「予備」(名前は何でも
良いようですが）という名前でシートを二枚にしておくと問題なくマクロが
作動してくれます。これで当分使用しますが、この予備のシートを外す
ためのマクロにするにはどのようにすると良いのでしょうか？

if を使って場合分けをしたのですが･･･だめでした
次のようなコードを書いたのですが、何処を訂正すれば良いか
もしご解答いただけるようでしたらお願いします。
本当にありがとうございました。失礼します。

　　On Error Resume Next

　　If Sheets(シート数) > 1 Then　
　　Sheets.Add before:=Sheets(シート数 - 1)

　　Sheets(シート数 - 1).Name = ST_Name
　　Error.Clear
　　Else　　　
　　Sheets.Add before:=Sheets(シート数)

　　Sheets(シート数).Name = ST_Name
　　End If

1 hits

▼

【26342】売上の一覧を販売者単位でシートに集計する yasu 05/7/2(土) 8:32