|
▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>> 枚数6から50までになるときはどうすればよろしいですか?
>
>意味が全くわかりません。
>枚数6から50までのときどうなってほしいのかの説明が一切ないからです。
>
>> 枚数6から50まで7段階で分けてしたい。枚数5枚でひとつのボダンにしたい
>
>これも意味がわかりません。
>7段階とは何ですか?
>5枚でひとつのボタンとは?
>
>もっとしたいことを詳しく説明しないと誰もわかりませんよ。
>レスが私以外つかないのも、その所為かもしれません。
>
>ただ、繰り返し処理と分岐処理のことだけをいえば、
>For intData = 2 To 4
>を
>For intData = 6 To 50
>と、
>Case 2
>の部分を
>Case 6
>などと、L列の値によって分岐するように記述します。
>
>For 〜 Next
>と
>Select Case
>のヘルプを確認してください。
>
>> Set rngData = WS1.Range("A1", rngLast.Offset(, 17))
>> このコードは17の数字の意味よくわかりません
>
>Offsetプロパティのヘルプは確認されていますか?
>(少し説明が難しいのかもしれませんが・・・)
>
>Range("$A$1:$R$1552").AutoFilter
>という記述をされていたので、A1セルから、A列の最終行の17行右方向のセルまでの範囲
>と理解したので、このようなコードになっています。
>
>Set rngData = WS1.Range("A1:R1").Resize(rngLast.Row)
>としたほうがよかったでしょうか?
>
>※【再度のお願いです】
>投稿の際、引用は、最低限のものだけで結構です。
>スレッド全体を見ればわかることですので。
>また、[名前なし]さんは、aribabaさんだったのですか?
>それであれば、60977 のご質問とダブっていますので、向こうは、解決済みにして
>おいていただけませんか?
本当にありがとうございました。無事にうまくできました。
|
|