|
▼ぴかる さん、みなさん、こんにちは。
ひょっとしてこういうことでしょうか?
'====================================================
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target.Cells(1, 1)
If (.Value = "") And (Range("N" & .Row).Cells(1, 1).Value <> "") And _
(.Row >= 19) And (.Row <= 28) And (.Column = 16) Then
'項目表示ON '処理マクロ
MsgBox "'処理マクロ"
End If
If (.Column = 14) Or (.Column = 17) Then
MsgBox "SendKeys ""%{DOWN}"", True"
End If
End With
AAA:
End Sub
ちなみに上のコードでは呼び出していませんが、以下は
りんさんのコードで作ったFunctionです。
'==============================================================
Function mergechk(rng As Range, r_rng As Range) As Long
' INPUT : 調査セル範囲
' OUTPUT: mergechk
' 0-単一セル
' 1-複数セル
' 2-結合セル
' 3-結合セルを含む複数セル
' r_rng
' 型に合わせた操作可能なセル
Dim wk As Variant '何でも来い型
With rng
wk = .MergeCells
If TypeName(wk) = "Null" Then
mergechk = 3
Else
If wk = True Then
mergechk = 2
Else
If .Cells.Count = 1 Then
mergechk = 0
Else
mergechk = 1
End If
End If
End If
End With
Set r_rng = rng.Cells(1, 1)
End Function
|
|