현재파일이회사에 보안걸려서업로드를못하네요..
Private Sub worksheet_selectionchange(ByVal target As Range) If Not Intersect(target,Range("A1:A25")) Is Nothing Then If target.Cells.Count > 1 Then Exit Sub If target.Value = "☆" Then target.Value = "♡" Else target.Value = "♡" End If End Sub
코드가이겁니다.
근데어제물어보던질문외에문제가더있는것같아요.
개체가필요하다고뜰때도있고
범위를바꾸니작동안할때도있더라구요..
제가원하는건 저기입력되어있는
기호2가지만 클릭시 변환되고, 지정범위내에있는 다른셀은 클릭시 기호가없을경우 변환되지않고
그대로있기를원합니다..기호가있다면 저 두가지로만 변환되구요..ㅠㅠ 코드좀 내려서 만들어주시면 응용해보겠습니다.여러모로 감사합니다
커뮤니티 전체
Vba질문요..
dud**** Lv.4
📅 2022년 02월 06일 23:48
👁 조회 1,273
댓글을 작성하려면 로그인이 필요합니다.
게시글 목록
페이지 1 / 976게시글 제목
날짜
조회
추천
7시간 전
조회 33
0
답글 1
11시간 전
조회 80
0
답글 2
12시간 전
조회 70
0
답글 6
해결
13시간 전
조회 31
0
답글 0
2일 전
조회 182
0
답글 8
해결
엑셀 자동화서식만들기
[1]
[1]
3일 전
조회 125
0
답글 1
3일 전
조회 107
0
답글 1
4일 전
조회 146
0
답글 1
4일 전
조회 193
0
답글 3
해결
5일 전
조회 164
0
답글 2
해결
5일 전
조회 161
0
답글 2
요일색칠
[2]
[2]
6일 전
조회 176
0
답글 2
2026.04.07
조회 530
0
답글 5
해결
2026.04.04
조회 237
0
답글 0
2026.04.03
조회 224
0
답글 1
2026.04.02
조회 218
0
답글 0
2026.04.01
조회 285
0
답글 1
오답체크를 위한 조건부 서식
[5]
[5]
2026.04.01
조회 300
0
답글 5
2026.04.01
조회 213
0
답글 0
2026.04.01
조회 270
0
답글 3
Private Sub worksheet_selectionchange(ByVal target As Range) If Not Intersect(target,Range("A1:A25")) Is Nothing Then If target.Cells.Count > 1 Then Exit Sub If target.Value = "☆" or target.Value = "♡" Then target.Value = "♥" End Sub다음부터는 코드를 조금 정리해서 올려주시면 좋을 것 같고.. 위에 처럼 수정해보시면 될 것 같습니다 도움이 되셨길..^^