셀에 틱과 크로스 표시를 빠르게 삽입하는 방법은 무엇입니까?

워크시트에서 기본적으로 심볼 기능을 사용하여 틱과 크로스 표시를 삽입할 수 있지만, 한 번에 하나의 기호만 삽입할 수 있다면 지루할 것입니다. 이 문서에서는 Excel에서 틱과 크로스 표시를 빠르게 삽입하기 위한 몇 가지 팁에 대해 설명하겠습니다.

단축 문자를 사용하여 셀에 틱과 크로스 표시 삽입

VBA 코드를 사용하여 셀에 틱과 크로스 표시 삽입

단축 문자를 사용하여 셀에 틱과 크로스 표시 삽입

틱과 크로스 표시를 빠르게 삽입하려면 단축키 “a”와 “r”을 사용할 수 있습니다. 아래와 같이 진행하세요:

1. 틱과 크로스 표시를 삽입하려는 열 셀을 선택하고 홈 탭에서 Webdings 글꼴을 선택합니다. 스크린샷 참고:

2. 이제 셀에 문자 “a”를 입력하면 틱 표시로 변하고, 문자 “r”을 입력하면 크로스 표시가 됩니다. 스크린샷 참고:

VBA 코드를 사용하여 셀에 틱과 크로스 표시 삽입

여기 클릭만으로 틱과 크로스 표시를 삽입할 수 있는 또 다른 빠르고 쉬운 방법이 있습니다.

1. 틱과 크로스 표시를 삽입하려는 시트 탭을 마우스 오른쪽 버튼으로 클릭하고, 컨텍스트 메뉴에서 View Code를 선택합니다. 열린 Microsoft Visual Basic for Applications 창에서 다음 코드를 복사하여 빈 모듈에 붙여넣습니다:

VBA 코드: 셀에 틱과 크로스 표시 삽입:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, Range("B2:B12")) Is Nothing Then
            With Target
                .Font.Name = "Wingdings"
                .Font.Size = 12
                If .FormulaR1C1 = " û " Then
                    .FormulaR1C1 = "ü"
                Else
                    .FormulaR1C1 = " û "
                End If
            End With
        End If
        Cancel = True
    End If
End Sub

참고: 위의 코드에서 B2:B12는 틱과 크로스 표시를 삽입하려는 셀입니다. 필요에 따라 셀 참조를 변경할 수 있습니다.

2. 그런 다음 코드를 저장하고 닫습니다. 이제 셀을 한 번 더블 클릭하면 크로스 표시가 삽입되고, 두 번째로 더블 클릭하면 틱 표시가 나타납니다. 스크린샷 참고: