계산 만 볼 수 세포

그래서이 그냥 여기, 다 여기에 누군가가 나를 도울 수있을 것이라고 기대하는 것입니다 수 없습니다 생각하기 시작하고있다.계산 만 볼 수 세포

그것의 JIST은 내가 필터링 SharePoint 목록에서 데이터를 가져, 내가 일하고 엑셀 2013 응용 프로그램을 가지고있다. 이 목록의 두 열에 조건부 서식을 적용하여 셀의 텍스트를 기반으로 배경색을 녹색 또는 빨강으로 채우기 만하면됩니다. 다음으로, 서식이 지정된 모든 셀이 아닌 보이는 셀의 평균을 구해야합니다. 적용한 필터를 통해 표시되는 셀만 표시됩니다. 어쨌든

, 내 코드 : 조건부 서식에 의해 주어진

Dim rng As Range 
Dim i As Integer 
Dim row As Range 

Set rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible) 
'Set rng = Range("A5:A150") 
'For i = 1 To rng.Areas.count 

For i = 1 To rng.Areas.Count 
    ActiveSheet.Cells(Rows.Count, 1).End(xlUp)(1).Resize(rng.Areas(i).Rows.Count, rng.Areas(i).Columns.Count) _ 
    = rng.Areas(i).Value 

    f = ActiveSheet.Cells(i, i).Value 
    If f = "" Then 
     f = "<DIV style='font-weight:bold; font-size:24px; font-size:24px; color:orange;'>•</DIV>" 
    End If 

    c = ("<DIV style='font-weight:bold; font-size:24px; font-size:24px; color:green;'>•</DIV>") 
    s = f 

    If s = c Then 
     Count = Count + 1 
    Else 
     count2 = count2 + 1 
    End If 
Next

출처

2016-06-08 Mike

하자 이야기 할 때마다. 세포를 채색하는 데 사용하는 공식 중 하나의 예를 들어 보겠습니다. –

어떤 식 으로든 도움을 주려면 조건부 서식 중 하나에 어떤 수식을 사용해야합니까? 은색 총알이 없습니다. 그 수식을 사용하여 다른 수식을 수정하여 원하는 것을 얻을 수 있도록해야합니다. –

확실한 것. 스프레드 시트는 셰어 포인트 목록에서 가져 오므로 서식은 작성한 대시 보드에서 가져옵니다.

•

및

•

– Mike

색상은 VBA를 통해 읽을 수 없습니다.
그러나, 당신은 당신이 시도하지 않는 이유에 앞서 그에 대한 데이터를 필터링 할 경우 이러한 의견이 아닌 핑 Sgdva에서

SpecialCells(xlCellTypeVisible)

출처

2016-06-08 16:51:39 Sgdva

코드를 읽으면 OP는'Set rng = ActiveSheet.UsedRange.SpecialCells (xlCellTypeVisible)'을 가지고 있습니다. – findwindow

나쁜데, 첫번째 줄을 읽지 않았을뿐입니다. f = ""그렇다면 f = "

•

" 그러나 여기에있는 색상은 결코 해결되지 않을 것입니다. 그러나 오렌지색으로 이미 필터 된 필터가 다시 색상을 확인해야하는 이유는 무엇입니까? **에서 [Range.DisplayFormat 속성]을 사용 VBA를 통해 읽을 수있는 포맷으로 주어진 조건 – Sgdva

컬러 (https://msdn.microsoft.com/en-us/library/office/ff838814.aspx). – Jeeped

계산 만 볼 수 세포

답변

관련 문제