Excel VBA質問箱 IV

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

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


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

55068 / 76738

←次へ　｜　前へ→


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

kobasan - 05/7/5(火) 21:01 -


	引用なし

	パスワード

▼yasu さん　　今晩は。

>シートがメインのシート（「売上一覧」だけ）だけの時に
>この部分で、エラーがでます。
>現在、このメインシート以外に一枚シートを作って「予備」(名前は何でも
>良いようですが）という名前でシートを二枚にしておくと問題なくマクロが
>作動してくれます。これで当分使用しますが、この予備のシートを外す
>ためのマクロにするにはどのようにすると良いのでしょうか？
>
>if を使って場合分けをしたのですが･･･だめでした
>次のようなコードを書いたのですが、何処を訂正すれば良いか
>もしご解答いただけるようでしたらお願いします。
>本当にありがとうございました。失礼します。

【26359】のこーどで

>Sub 売上氏名単位集計()
>
>　　Dim i As Integer
　　Dim St_Name As String
　　Dim シート数 As Integer　'<=======削除してください

　　シート数 = Sheets.Count　'<=======削除削除してください
　　　　　・
　　　　　・
　　　　　・
　　　　　・
>　　Sheets.Add before:=Sheets(シート数 - 1)　'<=======修正
>　　　　　　　　　　　　　　　~~~~~~~~~~~~~~~~~~~~~~
>　　Sheets(シート数 - 1).Name = St_Name　'<=======修正
　　　~~~~~~~~~~~~~~~~~~~~~~
を
　　Sheets.Add before:=Sheets(Sheets.Count)
'　　　　　　　　　　　　　　~~~~~~~~~~~~~~~~~~~~~~
　　Sheets(Sheets.Count).Name = St_Name
'　　~~~~~~~~~~~~~~~~~~~~~~
に置き換えてください。
これで予備のシートを外すことができます。
修正が適切でなくて、すみませんでした。

0 hits

▼

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