Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8480 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【33036】Worksheets(1).UsedRange.Rows.Countで ゼロイオン 05/12/29(木) 16:15 質問[未読]
【33037】Re:Worksheets(1).UsedRange.Rows.Countで Ｐｏ 05/12/29(木) 16:55 発言[未読]
【33038】Re:Worksheets(1).UsedRange.Rows.Countで Kein 05/12/29(木) 17:07 回答[未読]
【33040】Re:Worksheets(1).UsedRange.Rows.Countで Jaka 05/12/29(木) 17:26 発言[未読]
【33042】Re:Worksheets(1).UsedRange.Rows.Countで ゼロイオン 05/12/29(木) 17:58 お礼[未読]
【33036】Worksheets(1).UsedRange.Rows.Countで
質問  ゼロイオン  - 05/12/29(木) 16:15 -
引用なし
パスワード
   Worksheets(1).UsedRange.Rows.Count
で行数を数えようとしているのですが、
正確にかぞえられません。
他のセルは値を消すのではな
なくセル自体を削除してデータを消そうとしているのですが
自分が予定している数よりすくなくカウントされています。
しかもたまにこのような現象がおこるみたいです。
なにが原因か？みなさんわかりませんか？
【33037】Re:Worksheets(1).UsedRange.Rows.Countで
発言  Ｐｏ  - 05/12/29(木) 16:55 -
引用なし
パスワード
   ▼ゼロイオン さん：

これで正しいと思いますが…
MsgBox Worksheets(1).UsedRange.Rows.Count

使用されている行数のカウントですね。
例えばA3からD10に何らかの使用セルがあれば
「８」とでます。

最下行の表示ではないですね…

>Worksheets(1).UsedRange.Rows.Count
>で行数を数えようとしているのですが、
>正確にかぞえられません。
>他のセルは値を消すのではな
>なくセル自体を削除してデータを消そうとしているのですが
>自分が予定している数よりすくなくカウントされています。
>しかもたまにこのような現象がおこるみたいです。
>なにが原因か？みなさんわかりませんか？
【33038】Re:Worksheets(1).UsedRange.Rows.Countで
回答  Kein  - 05/12/29(木) 17:07 -
引用なし
パスワード
   ちょっと長くなるけど

MsgBox Worksheets(1).Cells.Find("*", , xlValues, , , xlPrevious).Row

で、どうでしょーか ?
【33040】Re:Worksheets(1).UsedRange.Rows.Countで
発言  Jaka  - 05/12/29(木) 17:26 -
引用なし
パスワード
   ▼ゼロイオン さん：
>Worksheets(1).UsedRange.Rows.Count
>で行数を数えようとしているのですが、
>正確にかぞえられません。
数えられますよ。
単にUsedRangeの意味を取り違えているのでは、
例えば、B5:B10を使った他場合は、５です。

UsedRangeの最終行なら、ここのSelectionをUsedRangeに変えるだけです。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=78;id=FAQ
【33042】Re:Worksheets(1).UsedRange.Rows.Countで
お礼  ゼロイオン  - 05/12/29(木) 17:58 -
引用なし
パスワード
   ▼Jaka さん：
>▼ゼロイオン さん：
>>Worksheets(1).UsedRange.Rows.Count
>>で行数を数えようとしているのですが、
>>正確にかぞえられません。
>数えられますよ。
>単にUsedRangeの意味を取り違えているのでは、
>例えば、B5:B10を使った他場合は、５です。
>
>UsedRangeの最終行なら、ここのSelectionをUsedRangeに変えるだけです。
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=78;id=FAQ

なるほど！Jakaさんの回答でなっとくいきました！
私の勘違いだったようです。
MsgBox Worksheets(1).Cells.Find("*", , xlValues, , , xlPrevious).Row
も使えそうなので知識としていだだきます♪
答えてくださった皆さんありがとうございました♪
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8480 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free