|
▼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
' ~~~~~~~~~~~~~~~~~~~~~~
に置き換えてください。
これで予備のシートを外すことができます。
修正が適切でなくて、すみませんでした。
|
|