Excel VBA質問箱 IV

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

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


21096 / 76736 ←次へ | 前へ→

【61045】Re:オートフィルタ抽出したデータをコピーしたい
発言  かみちゃん  - 09/4/5(日) 18:27 -

引用なし
パスワード
   こんにちは。かみちゃん です。

> 枚数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 のご質問とダブっていますので、向こうは、解決済みにして
おいていただけませんか?

0 hits

【60970】オートフィルタ抽出したデータをコピーしたい [名前なし] 09/3/28(土) 19:27 質問
【60971】Re:オートフィルタ抽出したデータをコピー... かみちゃん 09/3/28(土) 19:35 発言
【60972】Re:オートフィルタ抽出したデータをコピー... [名前なし] 09/3/28(土) 22:31 発言
【60973】Re:オートフィルタ抽出したデータをコピー... かみちゃん 09/3/28(土) 22:46 発言
【60974】Re:オートフィルタ抽出したデータをコピー... [名前なし] 09/3/28(土) 23:36 質問
【61037】Re:オートフィルタ抽出したデータをコピー... aribaba 09/4/5(日) 10:31 質問
【61038】Re:オートフィルタ抽出したデータをコピー... かみちゃん 09/4/5(日) 12:02 発言
【61040】Re:オートフィルタ抽出したデータをコピー... aribaba 09/4/5(日) 16:29 発言
【61041】Re:オートフィルタ抽出したデータをコピー... かみちゃん 09/4/5(日) 16:54 発言
【61042】Re:オートフィルタ抽出したデータをコピー... aribaba 09/4/5(日) 17:23 お礼
【61039】Re:オートフィルタ抽出したデータをコピー... かみちゃん 09/4/5(日) 12:43 発言
【61043】Re:オートフィルタ抽出したデータをコピー... aribaba 09/4/5(日) 17:51 質問
【61044】Re:オートフィルタ抽出したデータをコピー... aribaba 09/4/5(日) 17:53 質問
【61045】Re:オートフィルタ抽出したデータをコピー... かみちゃん 09/4/5(日) 18:27 発言
【61351】Re:オートフィルタ抽出したデータをコピー... aribaba 09/4/29(水) 13:58 お礼

21096 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free