여기에 처음 게시합니다. 여기 내 문제가 있습니다. 컬러 셀을 세는 사용자 지정 함수를 입력했습니다.
Function COUNTIFCOLOUR(Colour As Range, rng As Range) As Long
Application.Volatile
Dim NoCells As Long
Dim CellColour As Long
Dim rngCell As Range
CellColour = Colour.Interior.Color
For Each rngCell In rng
If rngCell.Interior.Color = CellColour Then
NoCells = NoCells + 1
End If
Next
COUNTIFCOLOUR = NoCells
End Function
여태까지는 그런대로 잘됐다. 변경시 자동으로 계산하기 위해이 코드를 사용했습니다.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Calculate
End Sub
문제는 ActiveSheet.Calculate 코드를 사용한 후 클립 보드를 통해 할 수 있지만 복사 한 내용을 Excel에서 붙여 넣을 수 없다는 것입니다. ActiveSheet.Calculate 코드를 삭제하면 모든 것이 정상으로 돌아갑니다. 즉, Ctrl + C 및 Ctrl + V (또는 마우스를 사용하여 복사, 붙여 넣기)를 수행 할 수 있습니다.
아무도 이것으로 나를 도울 수 있습니까? 코드 작성 방법을 모른다는 점을 명심하십시오. 온라인에서 미리 만들어진 모든 것을 찾았습니다. Microsoft Office 2019를 사용하고 있습니다.
문제 없어요!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
ActiveSheet.Calculate
Application.EnableEvents = True
End Sub
불필요하게 많은 계산이 수행되어 스프레드 시트가 느리다면 대신 시도해보십시오.
ActiveSheet.Cells(1, 1).Calculate
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다