| |
こんにちは。かみちゃん です。
> 枚数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 のご質問とダブっていますので、向こうは、解決済みにして
おいていただけませんか？
|
|
かみちゃん
- 09/4/5(日) 18:27 -
