Excel VBA質問箱 IV

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

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


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

12319 / 76734

←次へ　｜　前へ→


	【69941】Re:オートフィルタがおかしい

かかこ - 11/9/26(月) 16:27 -


	引用なし

	パスワード

何度もすみません

とりあえず列は関係ないので下記コードを書いて試しにやってみました

Sub sample15()
　　MyValue = ActiveSheet.AutoFilter.Range.Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1). _
　　 Offset(1).Columns(7).SpecialCells(xlCellTypeVisible).Cells(1).Row
　　lastcell = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeVisible). _
　　SpecialCells(xlCellTypeLastCell).Row

MsgBox MyValue
MsgBox lastcell
End Sub

開始行MyValueは何ら問題ありませんが、
最後の行lastcellは236行目を選んでしまいます
何行目のデータでフィルタをかけてもlastcellは236目になります。
例えばオートフィルタで100行目のデータを抽出したあとこのコードを走らせると
Myvalue = 100
lastcell = 236
となり、データが137件もあることになってしまうのです。
今までちゃんと動いていたのに・・・不安定なコードなんでしょうか？

6 hits

▼

【69940】オートフィルタがおかしい かかこ 11/9/26(月) 15:22