[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『行の右上がり罫線を数えて表示』(ど素人)
ど素人の質問ですみません
勤務シフト表で
D E F G H I J K …
6 / / 有給 /
7 / 有給 /
8
9
10
D6に E6:AI6の右上がり罫線の数と有給の数を数えて
3+1 のように[右上がり罫線の数+有給の数]を表示するにはどうすればよいのでしょうか。
D6〜D13 まで
スラッシュではなく、罫線です。
説明もど素人ですみません。
VBAは コピーして数字を変える程度の知識です。
何卒、ご教授 お願い申しあげます。
< 使用 Excel:Excel2007、使用 OS:Windows7 >
Sub test() Dim c As Range Dim n As Long
For Each c In Range("E6:AI6") If c.Borders(xlDiagonalUp).LineStyle <> xlNone _ Or c.Value = "有給" Then n = n + 1 End If Next MsgBox "右上がり罫線は" & n & "個"
End Sub
(マナ ) 2015/03/26(木) 21:41
Sub test2() Dim r As Range Dim c As Range Dim n As Long
For Each r In Range("E6:AI6").Rows For Each c In r.Cells If c.Borders(xlDiagonalUp).LineStyle <> xlNone _ Or c.Value = "有給" Then n = n + 1 End If Next r.Cells(1, 0).Value = n n = 0 Next
End Sub
(マナ ) 2015/03/26(木) 22:02
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.