Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

72439 / 76738

←次へ　｜　前へ→


	【8783】Re:セルについて

Hirofumi

- 03/11/3(月) 10:21 -


	引用なし

	パスワード

選択している範囲が１つの方形なら
こんなのでも善いかも？

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 "２のメッセージ"
　　End If
　　
End Sub

0 hits

▼

【8685】セルについて ひよこ 03/10/29(水) 12:07