소프트웨어 엑셀 매크로 좀 여쭤보겠습니다 (특정셀에 조건에 맞는 값 입력).
2022.01.12 13:09
안녕하세요...
엑셀 매크로 좀 아시는 분 있으면 도움 좀 청하겠습니다.
위와 같이 A1에는 드롭다운으로 A,B,C 값이 입력되어 있습니다.
매크로를 이용하여 버튼을 누르게 되면 저 A1 셀을 확인해서 B2셀에 A일때 100, B일때 200, C일때 300 이 입력되게 하고 싶습니다.
혹시 방법이 있을까요?
댓글 [9]
-
me2 2022.01.12 16:14
-
오후9시7분 2022.01.12 17:00
매크로로 값을 넣으시려면 다음 코드를 넣고 실행시키시면 됩니다.
-
바이오스 2022.01.12 21:38
감사합니다.
-
지후빠 2022.01.12 18:22
Sub ABC()
If Range("A1") = "A" Then Range("B1") = 100
If Range("A1") = "B" Then Range("B1") = 200
If Range("A1") = "C" Then Range("B1") = 300
End Sub
-
바이오스 2022.01.12 21:40
감사합니다.
혹시 이렇게도 가능할까요? 아래의 그림에서 A1~A10 까지 검색해서 "C"값을 가진 녀석만 기존값 대신 "10"으로 입력되게 매크로로 가능할까요?
-
지후빠 2022.01.12 22:28
A1:A10 셀을 선택하고 다음 매크로를 실행하시면 될 것 같습니다.
Sub C_10()
For Each cel In Selection
If cel = "C" Then cel(1, 2) = 10
Next
End Sub
-
바이오스 2022.01.12 23:07
아... 감사합니다.
근데, 혹시 A1:A10 이 고정셀 이라 가정하고, 사용자가 버튼만 누르면 자동으로 변경되게 할 순 없는지요... 부탁드립니다 ㅡㅡ;;
-
지후빠 2022.01.12 23:12
Sub C_10()
For Each cel In Range("A1:A10")
If cel = "C" Then cel(1, 2) = 10
Next
End Sub
-
바이오스 2022.01.12 23:14
해결해서 삭제 하려고 했는데, 이미 답을 주셨네요. 감사합니다.
for 위에 Range("A1:A15").Select 를 추가해서 해도 되더군요. 정말 감사합니다 ㅎㅎ
번호 | 제목 | 글쓴이 | 조회 | 등록일 |
---|---|---|---|---|
[공지] | 질문과 답변 게시판 이용간 유의사항 | gooddew | - | - |
92235 | 소프트웨어| 아크로니스 질문드려요...ㅜㅜ [5] | 알고싶삼 | 392 | 01-13 |
92234 | 윈 도 우| 사운드에서 usb 오디오 디바이스 어떻게 나오게 하는지요? [4] | joe | 387 | 01-13 |
92233 | 하드웨어| 듀얼 모니터 질문입니다. 노트북 델 꺼고요. [2] | 나노오백 | 272 | 01-13 |
92232 | 윈 도 우| 윈도우 11 부팅이 되지 않습니다 ㅠㅠ [10] | kargan | 543 | 01-13 |
92231 | 기 타| 오랜만에 유튭 로그인 할려니 이 모양 입니다. [4] | 어쭈 | 273 | 01-13 |
92230 | 소프트웨어| 맥 프로그램 [2] | 박종민 | 285 | 01-13 |
92229 | 윈 도 우| 순정설치 버전 추천 부탁드립니다. [5] | 신작로 | 430 | 01-13 |
92228 | 기 타| 프린터 PCL6 에러코드 해결좀 해주실 윈포회원님ㅜㅜ 부탁... [3] | 크론베리 | 2151 | 01-13 |
92227 | 기 타| 레미스킨 날씨가 잘 되었는데 어느날 갑자기 안나오고 있어요. [3] | 토니™짱야 | 261 | 01-13 |
92226 | 윈 도 우| 윈도우 업데이트 21h2, 설치해도 괜찮나요? [3] | brucex | 381 | 01-13 |
92225 | 소프트웨어| chm 도움말 파일이 일반 유저 계정으로는 보기 힘듭니다. | shot4u | 162 | 01-13 |
92224 | 소프트웨어| 비주얼 스튜디오 번호줄 설정방법 [1] | rthgh | 245 | 01-12 |
92223 | 소프트웨어| 크롬 확장프로그램 실행 [3] | 소녀시대 | 492 | 01-12 |
92222 | 소프트웨어| USB Rufus로 멀티부팅 도와주세요 [6] | 렛고 | 530 | 01-12 |
92221 | 윈 도 우| 크리스탈인포로 Disk64를 통해 SSD상태를 확인했습니다. [11] | iGreenPC | 615 | 01-12 |
92220 | 기 타| kt모뎀과 이지빌 [3] | 왕자님 | 666 | 01-12 |
92219 | 하드웨어| 애플TV에 블루투스 키보드 연결할 경우 테스트 부탁합니다. | asklee | 263 | 01-12 |
92218 | 윈 도 우| 윈10 트레이아이콘(작업표시줄아이콘) 찌꺼기 제거 안됨 ㅠㅠ, [4] | 도다리 | 624 | 01-12 |
» | 소프트웨어| 엑셀 매크로 좀 여쭤보겠습니다 (특정셀에 조건에 맞는 값 ... [9] | 바이오스 | 431 | 01-12 |
92216 | 기 타| 쓰리디칩 구버전 이거 [2] | nissan | 392 | 01-12 |
혹시 옵션- 수식-계산옵션-통합문서계산-자동
이 부분이 다른 것으로 되어 있는지도 확인해보세요