소프트웨어 Excel 도형문자(?) 바꾸기 질문입니다.
2023.04.26 13:53
Excel 도형문자(?) 바꾸기 질문입니다.
엑셀에서 메타분석한 결과에서 나온 도형인데, 아래처럼 문자로 변환하기를 원합니다.
첨부한 파일을 도형처럼 보이는데, 바꾸기 안됩니다.
! -> Some concerns
+ -> High risk
- -> Low risk
댓글 [6]
-
지후빠 2023.04.26 17:56
-
파풍초 2023.04.26 19:35
지후빠님께,
늘 도움에 감사드립니다.
문자가 아니라서 그런지 VBA까지 동원되네요.
귀한 시간 도움 주셔서 고맙습니다.
Happy day!
P.S.: 문자는 바뀌었는데, 도형(?)은 남아 있네요. 많은 내용이라 수작업이 시간이 걸리네요.
도형(?)도 단번에 없애는 방법이 있을까요?
-
지후빠 2023.04.26 19:51
실행후 개체가 선택되어 있기 때문에 delete 키만 누르면 될것 같습니다.
이미 선택 해제되었으면 ctr+g 이동옵션에서 개체로 실행해서 선택되면 지울 수 있습니다(폰이라 기억에 의존해서 …) -
파풍초 2023.04.26 20:04
빠른 도움 감사드립니다.
아예 처음부터 치환할 때, 도형을 바로 문자로 바꾸는 매크로가 되면 더 좋을 것 같은데,
가능할까요?
-
지후빠 2023.04.26 20:37
확인하시라고 남겨뒀습니다. 한 줄 obj.Delete 추가하면 됩니다. 안전 장치로 if 문 추가하였습니다.
Sub drawing2string()
If TypeName(Selection) = "Range" Then ActiveSheet.DrawingObjects.Select
For Each obj In Selection
Select Case obj.Text
Case "!": v = "Some concerns"
Case "+": v = "High risk"
Case "-": v = "Low risk"
Case Else: v = "else"
End Select
If v <> "else" Then obj.TopLeftCell = v: obj.Delete
Next
End Sub
-
파풍초 2023.04.27 09:23
지후빠님께,
도움에 정말 감사드립니다.
한큐에 해결이 됐네요.
Happy day!
번호 | 제목 | 글쓴이 | 조회 | 등록일 |
---|---|---|---|---|
[공지] | 질문과 답변 게시판 이용간 유의사항 | gooddew | - | - |
8030 | 하드웨어| PC케이스 내부온도와 팬에 관한 문의 [2] | 영감-2 | 300 | 09-04 |
8029 | 윈 도 우| 갑자기 윈도우 11 작업표시줄이 먹통이 되는 문제가 생기신... [2] | 낭만도동넘 | 300 | 09-04 |
8028 | 윈 도 우| 윈도우11 기능 질문? [3] | blue~~ | 300 | 12-21 |
8027 | 윈 도 우| suk님 글 중에서 질문입니다. [5] | 양치기영감 | 300 | 05-20 |
8026 | 윈 도 우| Windows 10 lite 버전을(커스텀 OS) 만들고 싶습니다. [7] | 마을버스25 | 300 | 04-21 |
8025 | 윈 도 우| 작업표시줄 프로그램 아이콘 우클릭 먹통 증상 [4] | 오호라7 | 300 | 05-17 |
8024 | 기 타| 유튜브 질문이요 [2] | 달그림 | 300 | 04-14 |
8023 | 윈 도 우| 트루이미지 새하드 복원시 질문입니다 [2] | 다월드 | 300 | 02-12 |
8022 | 소프트웨어| 리눅스 부팅해서 윈도우 이미지 복구 할 수 있는 툴 아시는... [3] | 썩기 | 300 | 02-05 |
8021 | 소프트웨어| hwinfo64 Sensor Only 로 실행이 안됨니다, [4] | 좋은데이 | 300 | 03-06 |
8020 | 윈 도 우| 윈도우10 알림센터 알림 질문입니다. [3] | 준이오빠 | 300 | 10-22 |
8019 | 소프트웨어| Rai drive 설정파일 백업할 수 있나요? [2] | nadaeri | 300 | 10-20 |
8018 | 하드웨어| LG 블루레이를 사용하면 4K 영화 싶게 볼수 있는지요? [7] | joe | 300 | 09-30 |
8017 | 기 타| HDMI 티비 연결 문의 [2] | 도미닉 | 300 | 07-13 |
8016 | 하드웨어| 파워의 문제이겠죠? [3] | 1500dnjs | 300 | 09-10 |
8015 | 윈 도 우| ide ata/atapi 컨트롤러가 표준으로 수정이 안 되네요 [2] | 해리파러 | 300 | 08-23 |
8014 | 하드웨어| 혹시 cnps10x에 amd am4 kit 조립방법 아시나요? [4] | brucex | 300 | 06-21 |
8013 | 기 타| VLC나 AIMP로 들으려는데 주소를 모르겠네요. [10] | 감춰둔그리 | 300 | 06-13 |
8012 | 윈 도 우| 시놀로지 나스 백업 [2] | 슈머슈마 | 300 | 05-16 |
8011 | 소프트웨어| 백업프로그램 문의 [1] | 한스 | 300 | 03-27 |
alt + F8 매크로에서 drawing2string 매크로를 실행합니다.^^
- 셀을 선택한 상태에서 실행하면 모든 drawing에 대해 실행하고,
- drawing 중 일부만 선택하고 실행하면 해당 drawing 에만 적용됩니다.
Sub drawing2string()
If TypeName(Selection) = "Range" Then ActiveSheet.DrawingObjects.Select
For Each obj In Selection
Select Case obj.Text
Case "!": v = "Some concerns"
Case "+": v = "High risk"
Case "-": v = "Low risk"
End Select
obj.TopLeftCell = v
Next
End Sub