[[20150326203619]] 『行の右上がり罫線を数えて表示』(ど素人) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『行の右上がり罫線を数えて表示』(ど素人)

ど素人の質問ですみません
勤務シフト表で
   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


マナさん
ありがとうございます
結果をD6セルに表示させたいです
どのようにしたらよろしいでしょうか
(ど素人) 2015/03/26(木) 21:48

質問をよく読んでいませんでした。

 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


マナさん、
先が見えてきました
ご親切にご教授くださいまして
誠にありがとうございました。
(ど素人) 2015/03/26(木) 22:12

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.