|
簡単な質問だと思いますが悩んでます
よろしくお願いします。(質問内容は中段です)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Dim xx As Variant
Dim r_size As Long
Dim myCol As Integer
If Intersect(Target, Range("D10:O30,D32:M38")) Is Nothing Then Exit Sub
For Each r In Target
If Not Intersect(r, Range("D10:O30,D32:M38")) Is Nothing Then
With r
myCol = IIf(.Column <= 8, 4, 9)
r_size = IIf(.Row > 30, 3, IIf(myCol = 4, 5, 7))
================↑========↑==========↑=============この文の
条件設定を教えていただきたいのですが現在の設定は
30行より下段は3列拡張
30行より上はmycolがD列ですと5列拡張、I列ですと7列拡張という
条件ですが、これを"30行より下段は3列拡張"の部分を条件"無し"とし
"30行までですとmycolがD列ですと5列拡張、I列ですと7列拡張"の条件
は残す場合どのように修正すればいいのでしょうか。
Select Case True
Case .Value Like "*見*": xx = Array(37, 10, True)
Case .Value Like "*議*": xx = Array(35, 0, False)
Case Else: xx = Array(xlNone, 0, False)
End Select
With Cells(.Row, myCol).Resize(, r_size)
.Interior.ColorIndex = xx(0)
.Font.ColorIndex = xx(1)
.Font.Bold = xx(2)
End With
End With
End If
Next
End Sub
|
|