변수로 색상 값 저장 필터

-1

매크로 레코더가 켜져 있으면 색상별로 범위를 필터링 할 때 다음 코드를 캡처 할 수있었습니다. 이 필터가 설정되면 RGB 값을 변수로 캡처 할 수 있습니까?변수로 색상 값 저장 필터

ActiveSheet.Range("$A$1:$AF$1191").AutoFilter Field:=5, Criteria1:=RGB(255 _ 
     , 199, 206), Operator:=xlFilterCellColor

출처

2017-11-28 peter.domanico

코드는 이미 캡처 된 것입니다. – harun24hr

맞네요. 이 RGB 값을 자체 변수로 저장할 수 있는지 묻습니다. 이렇게하면 나중에이 값을 다시 불러올 수 있습니다. –

셀의 'interior.color' 속성을 문자열로 내 보내면 자동으로 작동하는 숫자로 변환되어 불러올 수 있습니다. –

이렇게하면 ActiveCell의 색상을 기준으로 표가 필터링됩니다. 이 파일이 내 파일이라면, 예를 들어 AH1과 같이 테이블 외부에 작업 셀을 놓은 다음 코드를 str=range("AH1").interior.color으로 변경하면 AH1의 색을 기반으로 테이블을 필터링 할 수 있습니다.

Sub testy() 
Dim str As String 

str = ActiveCell.Interior.Color 

ActiveSheet.Range("$A$1:$AF$1191").AutoFilter Field:=5, Criteria1:=str, Operator:=xlFilterCellColor 

End Sub

출처

2017-11-28 15:44:34

감사합니다. 이 문제는 필터 색상이 무엇인지 알 수 없다는 것입니다. 내 목표는 사용자가 설정 한 필터링 된 색상 값을 캡처하는 것입니다. 이 경우 색상이 어떻게 될지 절대 알 수 없습니다. –

아, 내가 가지고 있다고 생각해. 사용 된 범위가 색상을 기준으로 필터링되는 경우 해당 색상의 열의 모든 셀 내부 색상 만 캡처 할 수 있습니다. –

사용자가 열 필터를 변경할 때 직접 매크로를 호출 할 방법이 없습니다. 사용자가 단추를 클릭 할 때 매크로 내부에서 필터링을 처리 한 다음 도우미 셀의 색을 기반으로 필터를 적용하는 것이 좋습니다 (즉, 사용자가 시트의 데이터를 직접 필터링하지 못하도록 할 수 있지만 사용자 폼을 팝업 할 수 없음). 열을 필터링하십시오). –

답변

관련 문제