Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1132 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【76275】usedrange ふめい 14/10/23(木) 17:41 質問[未読]
【76277】Re:usedrange kanabun 14/10/23(木) 18:44 発言[未読]
【76281】Re:usedrange ふめい 14/10/24(金) 10:57 お礼[未読]
【76275】usedrange
質問  ふめい  - 14/10/23(木) 17:41 -
引用なし
パスワード
   With ABC　
lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
End With

と

With ABC.UsedRange
　lastrow=.Rows(.Rows.Count).Row
End With


は同じですよね？
【76277】Re:usedrange
発言  kanabun  - 14/10/23(木) 18:44 -
引用なし
パスワード
   ▼ふめい さん：
>With ABC　
> lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
>End With
>
>と
>
>With ABC.UsedRange
>　lastrow=.Rows(.Rows.Count).Row
>End With
>
>
>は同じですよね？

(1)
　　Set ABC = ActiveSheet
　　With ABC
　　　　lastRow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
　　End With

と
(2)
　　Set ABC = ActiveSheet
　　With ABC.UsedRange
　　　　lastRow = .Rows(.Rows.Count).Row
　　End With

と
(3)
　　Set ABC = ActiveSheet
　　With ABC.UsedRange.Rows
　　　　lastRow = .Item(.Count).Row
　　End With

は同じです。

(2) できれば (3) を推奨。
【76281】Re:usedrange
お礼  ふめい  - 14/10/24(金) 10:57 -
引用なし
パスワード
   わかりました。
丁寧な回答
ありがとうございます。


▼kanabun さん：
>▼ふめい さん：
>>With ABC　
>> lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
>>End With
>>
>>と
>>
>>With ABC.UsedRange
>>　lastrow=.Rows(.Rows.Count).Row
>>End With
>>
>>
>>は同じですよね？
>
>(1)
>　　Set ABC = ActiveSheet
>　　With ABC
>　　　　lastRow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
>　　End With
>
>と
>(2)
>　　Set ABC = ActiveSheet
>　　With ABC.UsedRange
>　　　　lastRow = .Rows(.Rows.Count).Row
>　　End With
>
>と
>(3)
>　　Set ABC = ActiveSheet
>　　With ABC.UsedRange.Rows
>　　　　lastRow = .Item(.Count).Row
>　　End With
>
>は同じです。
>
>(2) できれば (3) を推奨。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1132 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free