EXCEL VBA 문제?

코드는 아래에 쓸 수 있지만, 이 함수를 사용하면 저장 카드가 매우 강력할 수 있습니다. 특히 데이터 양이 많은 경우 셀 형식을 하나씩 감지하는 데 시간이 많이 걸리기 때문입니다.

코드를 작성한 후 저장할 때의 실행 효과는 다음과 같습니다.

—채우기 색상이 있는 셀로 이동하여 저장할 수 없다는 메시지를 표시한 다음 로 돌아갑니다.

코드 위치는 다음과 같습니다. 위치의 중요성에 유의하십시오.

코드 텍스트는 다음과 같습니다.

명시적 옵션

개인 하위 통합 문서 _BeforeSave(ByVal SaveAsUI 는 부울, Cancel 은 부울)

Dim ST 를 워크시트로, RNG 를 범위로

테이블의 각 ST 에 대해 다음을 수행합니다

St.Name = "Dian 1 "또는 st.name = "Dian2" 또는 st.name = "Dian3 3 "인 경우.

St.UsedRange.Cells 의 각 RNG 에 대해 다음을 수행합니다

Rng 인 경우. 인테리어. 색상<& gt 167772 15 그리고

신청하다. Rng 로 이동

MsgBox "이 셀에는 채우기 색상이 있어 저장할 수 없습니다."

취소 = 참

출구 커넥터

만약 ... 끝날거야

다음 RNG

만약 ... 끝날거야

다음 거리

끝단 접합