Excel VBA質問箱 IV

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

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


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

30654 / 76807

←次へ　｜　前へ→


	【51418】IIF条件の設定教えて下さい

中田 - 07/9/16(日) 11:27 -


	引用なし

	パスワード

簡単な質問だと思いますが悩んでます
よろしくお願いします。（質問内容は中段です）
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

0 hits

▼

【51418】IIF条件の設定教えて下さい 中田 07/9/16(日) 11:27

≪