Excel VBA質問箱 IV

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

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


1581 / 13644 ツリー ←次へ | 前へ→

【73314】罫線の引かれた一番下のセルを見つけるには ブーチー 12/12/19(水) 21:00 質問[未読]
【73317】Re:罫線の引かれた一番下のセルを見つける... UO3 12/12/20(木) 6:11 発言[未読]
【73335】Re:罫線の引かれた一番下のセルを見つける... ブーチー 12/12/21(金) 10:53 お礼[未読]

【73314】罫線の引かれた一番下のセルを見つけるに...
質問  ブーチー  - 12/12/19(水) 21:00 -

引用なし
パスワード
   例えばA列において、
罫線の引かれたセルのうち、一番下のセルを見つけるにはどうすればよいのでしょうか?

【73317】Re:罫線の引かれた一番下のセルを見つけ...
発言  UO3  - 12/12/20(木) 6:11 -

引用なし
パスワード
   ▼ブーチー さん:

おはようございます

これは、ちょっとやっかいでしょうね。
調べたい列の下から丹念にセルの罫線有無をチェックします。
でも、エクセルの本当の最終行から調べますと、膨大な数の行になりますので
せめてということで、そのシートで使われている実際の最大行の下のセルから調べましょう。

Sub Sample()
  Dim r As Range
  Dim i As Long
  Dim flag As Boolean
  Dim z As Long
  
  With ActiveSheet.UsedRange
    z = .Rows.Count + .Row - 1 'シート上の使用領域の一番下の行番号
  End With
  
  Set r = Selection(1).EntireColumn.Resize(z)
  For i = r.Cells.Count + 1 To 1 Step -1
    If r.Cells(i).Borders(xlEdgeTop).LineStyle <> xlNone Then
      flag = True
      MsgBox i & "行目のセルの上の罫線がもっとも下にある罫線です。"
      Exit For
    End If
  Next
  If Not flag Then MsgBox "指定の列には罫線はありません"
  
End Sub

【73335】Re:罫線の引かれた一番下のセルを見つけ...
お礼  ブーチー  - 12/12/21(金) 10:53 -

引用なし
パスワード
   ▼UO3 さん 回答ありがとうございます。
使われているセルという切り口で罫線も引っ掛けることができるのですね。

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