Excel VBA質問箱 IV

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

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


72433 / 76732 ←次へ | 前へ→

【8783】Re:セルについて
回答  Hirofumi E-MAIL  - 03/11/3(月) 10:21 -

引用なし
パスワード
   選択している範囲が1つの方形なら
こんなのでも善いかも?

Public Sub Test()

  Dim i As Long
  Dim lngScopeRowTop As Long
  Dim lngScopeRowEnd As Long
  Dim lngScopeColTop As Long
  Dim lngScopeColEnd As Long
  Dim rngTarget As Range
  Dim blnContain As Boolean
  
  '例としてブロックの範囲が"C5:F15"の場合の各Row、Column位置
  lngScopeRowTop = 5
  lngScopeRowEnd = 15
  lngScopeColTop = 3
  lngScopeColEnd = 6
  
  Set rngTarget = Selection
  With rngTarget
    If lngScopeRowTop <= .Row _
        And (.Row + .Rows.Count - 1) <= lngScopeRowEnd Then
      If lngScopeColTop <= .Column _
          And (.Column + .Columns.Count - 1) _
                      <= lngScopeColEnd Then
        blnContain = True
      End If
    End If
  End With
  Set rngTarget = Nothing
  
  If blnContain Then
    MsgBox "1のメッセージ"
  Else
    MsgBox "2のメッセージ"
  End If
  
End Sub
0 hits

【8685】セルについて ひよこ 03/10/29(水) 12:07 質問
【8687】Re:セルについて よろずや 03/10/29(水) 12:36 回答
【8701】Re:セルについて ひよこ 03/10/29(水) 15:51 質問
【8781】Re:セルについて しのしの 03/11/3(月) 3:41 回答
【8788】Re:セルについて ちゃっぴ 03/11/3(月) 15:24 回答
【8782】Re:セルについて caution 03/11/3(月) 7:43 回答
【8783】Re:セルについて Hirofumi 03/11/3(月) 10:21 回答
【8856】Re:セルについて ひよこ 03/11/6(木) 11:30 お礼

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