Excel VBA質問箱 IV

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

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


5924 / 13645 ツリー ←次へ | 前へ→

【48186】最終行の取得 マキチャン 07/4/7(土) 9:19 質問[未読]
【48188】Re:最終行の取得 ウッシ 07/4/7(土) 11:24 発言[未読]
【48191】Re:最終行の取得 マキチャン 07/4/7(土) 13:43 お礼[未読]

【48186】最終行の取得
質問  マキチャン  - 07/4/7(土) 9:19 -

引用なし
パスワード
   最終行の取得について教えてください。
たとえばA列にデータ(セルに文字などが)が
入っている場合、その最終行は
last = Range("A65536").End(xlUp).Row
などで、取得できますが、データーの下に
写真を累計していきたいと思います。
写真があっあた時、その写真の最終行を
取得する方法を教えてください。

【48188】Re:最終行の取得
発言  ウッシ  - 07/4/7(土) 11:24 -

引用なし
パスワード
   こんにちは

A列写真の最終行

Sub test()
  Dim v  As Object
  Dim low As Long
  Dim r  As Range
  For Each v In ActiveSheet.DrawingObjects
    If v.TopLeftCell.Column = 1 Then
      If (v.Top + v.Height) > low Then
         low = v.Top + v.Height
         Set r = Intersect( _
              v.TopLeftCell.EntireColumn, _
              v.BottomRightCell.EntireRow)
      End If
    End If
  Next
  If Not r Is Nothing Then
    MsgBox r.Address
    Set r = Nothing
  End If
End Sub

他にもっといい方法が有るような気がします。他の方のレスも待って下さい。

【48191】Re:最終行の取得
お礼  マキチャン  - 07/4/7(土) 13:43 -

引用なし
パスワード
   ウッシさん、早速、回答ありがとうございます。
 なるほど、これで確かに、最終行が得られますね。
助かりました。ありがとうございます。

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