소프트웨어 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 | - | - |
97006 | 윈 도 우| 윈도우11 최신 베타빌드 위치추적 아이콘이 사라지지않아요 [1] | 그림같은남 | 331 | 05-29 |
97005 | 소프트웨어| usb 악성코드 검사 질문드립니다 [1] | 화양연화 | 400 | 05-28 |
97004 | 하드웨어| 사무용 노트북 의견 바랍니다. 모델 추천도 받아요 [4] | 술잔3 | 374 | 05-28 |
97003 | 윈 도 우| 프로시저 시작점을 찾을수 없습니다. [1] | 삼바바 | 240 | 05-28 |
97002 | 하드웨어| 델 모니터 구입 시 차이점 아시는 분 [2] | 귀신 | 362 | 05-28 |
97001 | 소프트웨어| 쳇 GPT 에 대해서 도움을 부탁합니다, [7] | 좋은데이 | 401 | 05-28 |
97000 | 윈 도 우| VHD 파일3개에 대한 질문 입니다. [9] | 거스 | 391 | 05-28 |
96999 | 하드웨어| USB타입C 포트에 꼽힌 NVME가 부팅할때만 프리징현상이 있... [15] | 질치 | 434 | 05-28 |
96998 | 소프트웨어| idm 쓰는데 이런 에러가 뜹니다. [1] | High][Land | 389 | 05-28 |
96997 | 윈 도 우| 윈도우 알림영역아이콘 질문있습니다 [1] | 넥스트타인 | 293 | 05-28 |
96996 | 기 타| ReNamer을 사용하여 이름 바꾸기 사용법을 알려 주십시오 [13] | hwangsan | 445 | 05-27 |
96995 | 윈 도 우| 웨일 스페이스바 스크롤 문제 [1] | 번개 | 174 | 05-27 |
96994 | 윈 도 우| 컴퓨터 멈춤 증상 [6] | 크런치 | 685 | 05-27 |
96993 | 소프트웨어| 유튜브 여러개 동시 다운 프로그램 문의 [10] | 뷰티블마인 | 541 | 05-27 |
96992 | 소프트웨어| 윈도우 메모장 삭제 복구 [4] | 즐거운컴 | 378 | 05-27 |
96991 | 하드웨어| [질문] 컴이 자꾸 멈춤니다. [4] | kuky1006 | 484 | 05-27 |
96990 | 소프트웨어| ToolsEL 바탕화면 바로가기 질문입니다 [2] | ksire | 235 | 05-26 |
96989 | 소프트웨어| Reservation Master Pro 질문입니다. | 모모나무 | 140 | 05-26 |
96988 | 기 타| cmd DeviceID추출 for /f "tokens=2 delims==" ... [24] | 세이퍼컴 | 412 | 05-26 |
96987 | 기 타| 외장하드에서 어느 폴더에 접근할때 권한을 요구 [2] | 줄기야 | 289 | 05-26 |
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