TOP > Up > Today 

Date:  Fri, 15 Feb 2008 09:58:13 +0900
From:  no@ann.co.jp
Subject:  [pasml 284620] Re: エクセルのＣＯＵＮＴＩＦ関数について
To:  pasml@ann.co.jp
Message-Id:  <200802150058.m1F0wDEY002586@pas2.jp>
X-Mail-Count: 284620

名前: 酢吉 BBSから
質問:http://pasokoma.jp/44/lg440082#440108
携帯:http://pasokoma.jp/m?num=440108&ope=v
--
私だったらこうするってことで

Sub aka_sagasu()
Dim col0, low0 As Long
Dim col1, low1 As Long
Dim L, C As Long
Dim A As Long

col0 = 1  '範囲の起点になる列番号
low0 = 1  '範囲の起点になる行番号
col1 = 5  '範囲の終点になる列番号
low1 = 10 '範囲の終点になる行番号
A = 0
With ThisWorkbook.Worksheets(&quot;Sheet1&quot;)
    
   For L = low0 To low1
      For C = col0 To col1
        If .Cells(L, C).Interior.ColorIndex = &quot;3&quot; Then
           A = A + 1
        Else
        End If
      Next C
   Next L
   
MsgBox A

End With
End Sub
--
== 掲示板ＵＲＬ： http://pasokoma.jp/bbs ==
   配信の停止： http://pasokoma.jp/taikai
   本メールマガジンへの返信はなさらないで下さい
== 投稿はパソコン困りごと掲示板でお願い致します ===
TOP > Up > Today