[VBA] 액셀(Excel)에서 이모지(Emoji) 사용하는 방법

액셀(Excel)에서 이모지(Emoji) 사용하는 방법

들어가며

• 액셀에서 VBA 작업을 할 때, 이모지(Emoji)를 사용하는 방법에 대해 정리해본다.
• VBA 작업을 할 때, 코드 창에 이모지를 복사하여 붙여넣을 경우 ??로 표시된다.

If chkbox보관판매.Value = True Then
    Sheets("1월").Cells(입력행, 1) = ??    '이모지를 넣었을 경우 ??로 표시됨.
End If

• 따라서 이모지를 표시되도록 하려면 특별한 작업을 해줘야 한다.

 

방법

• FileFormat.Info 사이트에 들어가서 원하는 이모지를 검색한다.
  • https://www.fileformat.info/index.htm
• 예를 들어, Thumbsup(👍)  이모지를 검색해본다.

 

• UTF-16(decimal) 또는 UTF-16(hex) 부분의 두 숫자(55,357, 56,397)를 기억한다.
• VBA 코드를 작성할 때, 다음과 같이 ChrW() 함수를 조합하여 사용하면 된다.

If chkbox보관판매.Value = True Then
    Sheets("1월").Cells(입력행, 1) = ChrW(55357) & ChrW(56397)    'ChrW(&HD83D) & ChrW(&HDC4D)도 가능
End If

 

참고

• https://stackoverflow.com/questions/55195005/can-anyone-explain-how-to-insert-emojis-to-vba-excel

Can anyone explain how to insert emojis to VBA Excel?