[퀴즈] 한자에 괄호넣기

VBA
작성자
마법의손
작성일
2024-08-15 11:20
조회
266
엑셀버전 : 엑셀2010 이전

운영체제 : 윈도우10

질문 요약 : 주어진 문장에서 한자에 괄호치기

[퀴즈] A열을 B열처럼 만드는 수식이나 VBA를 올려보세요.

(25레벨이상이신 분들은 보자마자 대충 답 아실 듯하므로 08-15일 오후 6시 이후에 댓글 달아주세요..~)

 

 

신고
스크랩
공유
전체 17

  • 2024-08-16 10:39

    [답안]

    정규표현식 한자범위

    =RegReplaceFunc(A2,"([\u2E80-\u2EFF\u3400-\u4DBF\u4E00-\u9FFF\uF900-\uFAFF]+)","($1)")

     

    Function RegReplaceFunc(Data, StrRegExp As String, s)
    With CreateObject("VBScript.RegExp")
    .ignorecase = False ' Case-sensitive search
    .Pattern = StrRegExp ' Set the regular expression pattern
    .Global = True ' Replace all occurrences
    RegReplaceFunc = .Replace(Data, s)
    End With
    End Function

     

    EgTools에서는 빈칸과 바꿀내용이 없는 경우에, 입력문장그대로 나타나면 좋겠어요..

     

    첨부파일 : 퀴즈1_한자괄호넣기.xlsm


    • 2024-08-16 15:06

      @마법의손 님 RegExReplace 함수는 쓰는 방법을 몰라서 개발할 때만 확인해보고 잘 안쓰게 되었는데,
      그룹지정이 이렇게 작동하는 것을 알게 되네요...
      감사합니다.


      • 2024-08-16 15:14

        @원조백수 님  

        저도 어제 퀴즈낸 이유가 지식인 질문은 간단한 거였는데..

        위질문처럼 확장해보니... 노가다로 삽질하다가 ($1)이 생각나서 적용했던 겁니다.. 저도 $1 사용하는건 첨입니다..^^;;

         


  • 2024-08-15 13:50

    @마법의손 님 첨부 참조

     

    첨부파일 : 한자-괄호치기.xlsm


    • 2024-08-15 14:21

      @김재규 님 대부분 정상적으로 나오는데  중간중간에 괄호가 ((2개짜리, (((3개짜리로 나옵니다..


    • 2024-08-15 14:37

      @김재규 님 한자/중국어의 Unicode 구간입니다.
      2EFF와 FAFF 뒷 부분에 글자가 몇 개 없지만,,,

      코드는 나중에 올릴게요


  • 2024-08-15 17:51

    @마법의손 님 외출해야 해서...

    Option Explicit
     
    Function ReplaceHanza(Text As String)
        Dim i As Long, t As String, n As Long, X As String
        For i = 1 To Len(Text)
            t = Mid(Text, i, 1)
            n = UCode(t)
            If n < 0 Then n = 32768 * 2 + n
            Select Case n
            Case 11904 To 12301, 13312 To 19903, 19968 To 40959, 63744 To 64255
                        X = X & "(" & t & ")"
            Case 40:    X = X & "{{"
            Case 41:    X = X & "}}"
            Case Else:  X = X & t
            End Select
        Next i
        X = Replace(Replace(Replace(X, ")(", ""), "}}", ")"), "{{", "(")
        ReplaceHanza = X
    End Function
     
    Function UCode(ByVal aChar As String)
        Dim n As Long
        n = AscW(Left(aChar, 1))
        If n > 65533 Then UCode = CVErr(xlErrNA): Exit Function
        If n < 0 Then n = 32768# * 2 + n
        If n >= 0 Then UCode = n Else UCode = CVErr(xlErrNA)
    End Function

     


  • 2024-08-15 21:11
    채택된 답변

    @마법의손 님 저는 VBA는 못하고해서   EGTools의 StrEXt 함수로 한자뽑아 괄호붙여보았습니다.
    StrExt에 한자가 있었는지 몰라서 헤매다가..... 찾아보니 있더라고요ㅎ
    원조백수님 항상 감사합니다.

    B2 =LET(t, A2,   h,TEXTJOIN(",",,UNIQUE(TEXTSPLIT(StrExt(t,"H",","),,","))),
    IFERROR(REDUCE(t, TEXTSPLIT(h,,","),LAMBDA(a,b, SUBSTITUTE(a,b, "("&TRIM(b)&")"))),""))

    첨부파일 : 수정_퀴즈1_한자괄호.xlsx


    • 2024-08-15 23:04

      @츠츠°º⁰ 님 헐... 만든 놈보다 낫네요. ^^


    • 2024-08-16 12:10

      @츠츠°º⁰ 님 unique했을때 괄호해야할 한자들중에  아래처럼 겹치는 경우가 있을때 중복으로 substitute가 되어서 생긴 괄호네요..

      젤 잘 만드셨습니다..^^


      • 2024-08-18 14:18

        @마법의손 님 substitute중첩은 안될거 같아서,  한자/비한자 나눠서 vstack/wrapcols방식으로 해보았습니다.
        조잡해보이지만  많은공부가 되네요.

        첨부파일 : 수정3_퀴즈1_한자괄호.xlsx


  • 2024-08-15 11:42

    @마법의손 님 마손님 개인적으로 궁금한게 있어요! 혹시 유투브에 우노사설님이랑 같은분일까요!?

    뭔가 분위기가 비슷해서요!!  불편하시다면 답변안하셔도 됩니다!


    • 2024-08-15 11:44

      @채원석 님 그 분 아닙니다... 전 유튜브 없어요...^^;;


전체 16,941
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚진짜쓰는 실무엑셀] 2024년 엑셀 공부, 이 책 한권으로 마스터하세요! (291)
오빠두엑셀 | 2022.02.03 | 추천 554 | 조회 846778
오빠두엑셀 2022.02.03 554 846778
공지사항 문서서식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197)
오빠두엑셀 | 2021.10.28 | 추천 304 | 조회 31522
오빠두엑셀 2021.10.28 304 31522
74638 피벗테이블
New 피벗테이블 날짜 그룹화 원치 않는 범위가 뜹니다.
단팥빵 | 2024.10.31 | 추천 0 | 조회 9
단팥빵 2024.10.31 - 9
74633 문서서식
New 안녕하세요 게임 시스템 테이블 작성 배우고 있는데 기초적인 부분을 잘 모르겠어서 질문 드립니다! 첨부파일 (1) 답변완료
코니 | 2024.10.31 | 추천 0 | 조회 42
코니 2024.10.31 - 42
74632 기능/도구
New 챗gpt 연동해서 이미지로 된 표의 데이터를 가져오려고 합니다.
김수현 | 2024.10.31 | 추천 0 | 조회 44
김수현 2024.10.31 - 44
74628 구글시트
New IMPORTRANGE 함수에서 칸을 늘리면 사라지는데 고정하는 방법은 없을까요? (3)
야망이 | 2024.10.31 | 추천 0 | 조회 50
야망이 2024.10.31 - 50
74627 문서서식
New 조건부 서식 문의 엑셀파일첨부파일 (1)
배고픈짐승 | 2024.10.31 | 추천 0 | 조회 72
배고픈짐승 2024.10.31 - 72
74626 파워쿼리/피벗
New [파워쿼리] 여러 파일 한번에 불러올 때 데이터 유실 첨부파일 (3)
naa**** | 2024.10.31 | 추천 0 | 조회 63
naa**** 2024.10.31 - 63
74625 VBA
New 시트이동시 유저폼 실행방법 문의 (2) 답변완료
땡이 | 2024.10.31 | 추천 0 | 조회 61
땡이 2024.10.31 - 61
74621 기능/도구
New 4개의 열 에서 같은 이름 가로로 정렬 (3)
Bukonge | 2024.10.31 | 추천 0 | 조회 61
Bukonge 2024.10.31 - 61
74618 VBA
New 유저폼에 바코드스캔시 입력속도 개선방법? (5) 답변완료
땡이 | 2024.10.31 | 추천 0 | 조회 58
땡이 2024.10.31 - 58
74616 함수/공식
New Rawdata 첨부파일 (4)
HIHUGO | 2024.10.31 | 추천 0 | 조회 66
HIHUGO 2024.10.31 - 66
74604 문서서식
New 간트차트 조건부서식 이용 문의 엑셀파일첨부파일 (3)
배고픈짐승 | 2024.10.30 | 추천 0 | 조회 79
배고픈짐승 2024.10.30 - 79
74599 함수/공식
New 이런 경우에는 무슨 함수를 써야할까요..? (2)
iwnqn | 2024.10.30 | 추천 0 | 조회 99
iwnqn 2024.10.30 - 99
74598 문서서식
New 엑셀 유효성 검사 뛰어 쓰기 문제 엑셀파일 (2) 답변완료
퉁퉁이 | 2024.10.30 | 추천 0 | 조회 72
퉁퉁이 2024.10.30 - 72
74592 함수/공식
New 여러 값들 중에서 원하는 값을 찾고 싶어요 도와주세요! 첨부파일 (9) 답변완료
저도해볼게요 | 2024.10.30 | 추천 0 | 조회 99
저도해볼게요 2024.10.30 - 99
74589 구글시트
New 한셀에 줄바꿈으로 있는 여러데이터를 한셀에 한데이터 들어가게끔 일괄로 하고 싶습니다 첨부파일 (4) 답변완료
스톤스톤 | 2024.10.30 | 추천 0 | 조회 60
스톤스톤 2024.10.30 - 60
74585 VBA
New UserForm 크기질문 첨부파일 (5)
땡이 | 2024.10.30 | 추천 0 | 조회 74
땡이 2024.10.30 - 74
74583 함수/공식
New XLOOKUP 함수의 다중조건을 잘 모르겠습니다 첨부파일 (6)
qlcc**** | 2024.10.30 | 추천 0 | 조회 90
qlcc**** 2024.10.30 - 90
74582 함수/공식
New filter 함수에 대해 문의드립니다 (5)
김은상 | 2024.10.30 | 추천 0 | 조회 71
김은상 2024.10.30 - 71
74581 구글시트
New 구글폼 견적서 자동화 관련, 폼에서 입력된 이미지 파일을 견적서에 넣는 방법 좀 알려주시면 감사하겠습니다.
| 2024.10.30 | 추천 0 | 조회 56
2024.10.30 - 56
74572 차트/그래프
New 꺽은선 그래프의 레이블이 원복이 됩니다. 첨부파일 (3)
구리구리이 | 2024.10.30 | 추천 0 | 조회 63
구리구리이 2024.10.30 - 63
74570 함수/공식
New 배수 금액으로 순번 정하기 알려 주세요...ㅠ 엑셀파일첨부파일 (3) 답변완료
서기 | 2024.10.30 | 추천 0 | 조회 60
서기 2024.10.30 - 60
74566 함수/공식
New 두개의 열에 입력된 데이터를 순서 바꿔서 입력으로 중복일 때 골라내는 법 엑셀파일첨부파일 (1) 답변완료
문과적남자 | 2024.10.30 | 추천 0 | 조회 61
문과적남자 2024.10.30 - 61
74564 함수/공식
New 각 열별로 합 구하는 방법 첨부파일 (2) 답변완료
라핼 | 2024.10.30 | 추천 0 | 조회 78
라핼 2024.10.30 - 78
74563 함수/공식
New 필터 적용시 중복값 제외 카운트 되는 법 좀 알려주세요 ㅠㅠ 첨부파일 (1)
정재욱 | 2024.10.30 | 추천 0 | 조회 74
정재욱 2024.10.30 - 74
74558 함수/공식
New 문자와 숫자가 섞여있는 열의 합계와 평균을 구하는 방법을 알려주세요!! 첨부파일 (9)
침착해 | 2024.10.30 | 추천 0 | 조회 79
침착해 2024.10.30 - 79
74556 함수/공식
New 세트상품 마진율 구하기 (2)
ek02 | 2024.10.30 | 추천 0 | 조회 66
ek02 2024.10.30 - 66
74543 기능/도구
New 문자와 숫자 혼합된 셀에서 숫자만 따로 따올수 있는 기능이 있을까요? 첨부파일 (4)
야만용사 | 2024.10.29 | 추천 0 | 조회 100
야만용사 2024.10.29 - 100
74542 기능/도구
New 엑셀 백분율 숫자로변경 (3)
rarara | 2024.10.29 | 추천 0 | 조회 92
rarara 2024.10.29 - 92
74540 함수/공식
New ★데이터 가공★ 잘못된 데이터를 올바른 데이터로 변환하는 과정을 도와주세요 ㅠㅠ 엑셀파일첨부파일 (11)
| 2024.10.29 | 추천 0 | 조회 133
2024.10.29 - 133
74539 함수/공식
New 안녕하세요 INDEX, MATCH 다중조건 질문드립니다! 엑셀파일 (3)
gys**** | 2024.10.29 | 추천 0 | 조회 102
gys**** 2024.10.29 - 102