For m = 0 To 3
For i = 0 To 5
If 입력.Range("A2").Offset(m, 0) = 입력.Range("A16").Offset(i, 0) Then
For j = 0 To 4
For k = 0 To 6
'==
If 입력.Range("B1").Offset(0, j) = 입력.Range("B15").Offset(0, k) Then
입력.Range("B2").Offset(m, j) = 입력.Range("B16").Offset(i, k)
If IsNumeric(입력.Range("B16").Offset(i, k)) = False Then
입력.Range("B2").Offset(m, j) = 0
End If
커뮤니티 전체
vba 코드 주석이나 코드 설명 좀 상세하게 알려주세요~
qkrwo**** Lv.4
📅 2022년 02월 07일 14:42
👁 조회 1,599
댓글을 작성하려면 로그인이 필요합니다.
게시글 목록
페이지 1 / 976게시글 제목
날짜
조회
추천
10시간 전
조회 38
0
답글 1
15시간 전
조회 84
0
답글 2
15시간 전
조회 73
0
답글 6
해결
16시간 전
조회 34
0
답글 0
2일 전
조회 182
0
답글 8
해결
엑셀 자동화서식만들기
[1]
[1]
3일 전
조회 125
0
답글 1
3일 전
조회 109
0
답글 1
4일 전
조회 146
0
답글 1
4일 전
조회 196
0
답글 3
해결
5일 전
조회 164
0
답글 2
해결
5일 전
조회 164
0
답글 2
요일색칠
[2]
[2]
6일 전
조회 179
0
답글 2
2026.04.07
조회 531
0
답글 5
해결
2026.04.04
조회 238
0
답글 0
2026.04.03
조회 224
0
답글 1
2026.04.02
조회 219
0
답글 0
2026.04.01
조회 285
0
답글 1
오답체크를 위한 조건부 서식
[5]
[5]
2026.04.01
조회 302
0
답글 5
2026.04.01
조회 215
0
답글 0
2026.04.01
조회 273
0
답글 3
If 함수는 논리문입니다
따라서 아래와 같이 응용가능하겠죠?
Offset은 해당셀에서 행/열 만큼 이동하는 속성입니다
Range("A1").Offset(1,1) -> B2셀나머지는 코드에 직접 응용해서 살펴보시면 바로 해결되실겁니다 ^^