아 진짜 따라하기 너무 좋네요 .. 강의 계속 올려주세요 너무 좋습니다 ㅠㅠㅠ 감사합니다 실전에 응용할 아이디어가 막 떠올라요.. 책으로 봐도 잘 몰랐던 변수에관한 내용들 반복문 등등 따라해봐도 무슨말인지 몰랐는데 직접 실습해보면서 말씀도 들으면서 하니까 금방 알아듣네요 감사합니다
도형 색 바꾸기 Sub test() Dim sh As Object Dim i As Long
For Each sh In ActiveSheet.Shapes For i = 3 To 5 If sh.Name = Range("h" & i) Then sh.Fill.ForeColor.RGB = Range("i" & i).Interior.Color End If Next Next End Sub for each문과 for 문을 모두 활용해보았습니다. 감사합니다!
4강 강의 감사합니다. 넘 재미있어 밤 새우는 중입니다. 과제1 Sub test_3() Dim v As Long Dim h As Long For v = 3 To 11 For h = 3 To 11 If Cells(v, h) < 500 Then Cells(v, h).Font.Color = 255
End If Next Next End Sub 예제2 Sub test_5() Dim sh As Object For Each sh In ActiveSheet.Shapes If sh.Name = Range("H3") Then sh.Fill.ForeColor.RGB = Range("i3").Interior.Color ElseIf sh.Name = Range("H4") Then sh.Fill.ForeColor.RGB = Range("i4").Interior.Color ElseIf sh.Name = Range("H5") Then sh.Fill.ForeColor.RGB = Range("i5").Interior.Color End If Next End Sub
Sub Test_2() Dim i, j As Long For i = 3 To 11 For j = 3 To 11 Sheet4.Cells(i, j) = Sheet2.Cells(i, 3) * Sheet3.Cells(3, j) If Sheet4.Cells(i, j) < 250000 Then Sheet4.Cells(i, j).Font.Color = 255 End If Next Next
End Sub 아직 가르쳐주시지 않는 내용이지만 시트 별로 표를 배치했을 때, 그 시트에 있는 셀을 갖고오려면 어떻게 해야할까? 싶어서 sheet. 을 이용했는데 먹혀들었네요! ㅎㅎㅎ 저는 sheet2 에는 세로 데이터, sheet3에는 가로 데이터를 넣었고, sheet4에다가 지점, 월 이 함께 행렬형태로 있는 표를 만들어 배치했습니다. 그리고 가로, 세로 데이터에서 500미만을 저조로 표시했으니 500*500= 250,000 을 빨간 색으로 표시했습니다!
엑사님 질문이요.... Sub macro() Dim sh As Object For Each sh In ActiveSheet.Shapes If sh.Name = Range("F3") Then sh.Fill.ForeColor.RGB = Range("G3").Interior.Color ElseIf sh.Name = Range("F4") Then sh.Fill.ForeColor.RGB = Range("G4").Interior.Color ElseIf sh.Name = Range("F5") Then sh.Fill.ForeColor.RGB = Range("G5").Interior.Color End If Next End Sub 이렇게 작성하고 실행 했는데.... 왜 메크로가 반응이 없을까요? 틀린게 있나요?
파일을 봐야 쉽게 확인이 가능합니다 아래 오챗방 활용 부탁드립니다 안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니드 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
Sub Test_4() Dim i As Long Dim j As Long i = 3 j = 3 For i = 3 To 11 For j = 3 To 11 If Cells(i, j) < 500 Then Cells(i, j).Font.Color = 255 ElseIf Cells(i, j) > 800 Then Cells(i, j).Font.Color = 12874308 End If Next Next End Sub 높은 수치에도 파란색글씨가 표시되게 해보았습니다! 1강부터 매일 하나씩 따라하고있어요 어렵지 않게 알려주셔서 감사합니다
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 답변이 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
Sub macro() Dim k As Long Dim t As Long For k = 3 To 11 For t = 3 To 11 Cells(k, t) = k * t If Cells(k, t) < 30 Then Cells(k, t).Font.Color = 255 End If Next Next End Sub 다른분들은 잘 따라 가는것 같은데 왜 전 어려울까요? ㅠㅠ
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 도움되는 답변을 받으실 수 있습니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
너무 재밌습니다 ㅎㅎㅎ 과제1) Sub test_1() Dim i As Long Dim j As Long
For i = 3 To 11 For j = 3 To 11 If Cells(i, j) < 500 Then Cells(i, j).Font.Color = 255 End If Next Next
End Sub 도형1) Sub test_1() Dim sh As Object
For Each sh In ActiveSheet.Shapes If sh.Name = Range("g2") Then sh.Fill.ForeColor.RGB = Range("h2").Interior.Color ElseIf sh.Name = Range("g3") Then sh.Fill.ForeColor.RGB = Range("h3").Interior.Color ElseIf sh.Name = Range("g4") Then sh.Fill.ForeColor.RGB = Range("h4").Interior.Color End If Next End Sub
안녕하세요 엑사남입니다^^ 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 답변이 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
For를 i로 먼저 시작하면 Next에서는 왜 i로 먼저 시작하면 안되죠? 처음 이렇게 해서 안되어서 한참 고민하다가 여러번 시행착오 끝에 다른것 참조하여 Next에서 j를 먼저하니 구동이 되는데 왜그러죠? Sub 구구단() Dim i As Long Dim j As Long
안녕하세요, 강의 동영상 너무 잘 보면서 따라해보고 있습니다. 그런데 혹시 cells와 range의 차이는 무엇인가요? cells는 cells(m,n)처럼 행번호 열번호를 넣는것 같고, range는 range("A" & i) 이런 식으로 특정 열번호에 대해서만 고정해서 사용할 수 있는 것인가요? range를 이용할 때도 행번호와 열번호를 동시에 쓸 수는 없는지 궁금합니다.
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니드 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
그리고 수직작업할때는 주로 Range쓰고 수평작업할때는 cells을 쓰나요? 해당 영상 예제에서 수평작업할때 dim a as spring 하고 for a = A to G , if range(a & 1) > 300 이런식으로 할 수 없는 것은 문자로는 for next 코드를 만들 수 없어서 인가요??
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니드 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
아 네네 참고로 안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니드 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
항상 감사합니다 ------------------------------------------------------------------------------------------------------------------------------- Sub cycle() Dim lngZ As Long Dim lngQ As Long Dim lngA As Long Dim lngB As Long lngQ = Range("C1000").End(xlUp).Row lngZ = Range("Z" & lngQ).End(xlToLeft).Column For lngA = 3 To lngQ For lngB = 3 To lngZ If Cells(lngA, lngB).Value < 500 Then Cells(lngA, lngB).Font.Color = vbRed End If
Next Next Range("B2").CurrentRegion.HorizontalAlignment = xlCenter End Sub --------------------------------------------------------------------------------------------------- Sub shapes_color2() '' 도형마다 이름지정을 해주는게 중요 '' 셀에 색깔을 넣어서 도형이름과 동일할경우 셀 색깔로 입히는 작업 Dim sh As Object Dim lngA As Long
For lngA = 3 To 5 For Each sh In ActiveSheet.Shapes
If sh.Name = Range("H" & lngA).Value Then sh.Fill.ForeColor.RGB = Range("I" & lngA).Interior.Color ''SchemeColor 를 이용하면 범위를 벗어나게 되니 RGB 이용 End If Next Next End Sub
네 강의를 계속 듣다보면 알게 되시겠지만... 간단히 설명드리면 프라스틱숟가락과 쇠숟가락의 차이가 뭔가요? 정도가 되겠네요 둘다 용도는 동일하지만 뜨거운국물을 뜰때는 쇠숟가락이 좋겠지요 ^^ Range 는 직관적으로 셀 이름을 사용할 수 있습니다 "A1" 이렇게요. Cells 는 행과 열의 번호를 사용함으로써 For문에 사용하기 용이한 방법입니다. 사용 용도에 따라서 선택하여 사용하면 됩니다.
4강 숙제 Sub 지점3() Dim c As Long Dim d As Long For c = 3 To 11 For d = 3 To 11 If Cells(c, d) < 500 Then Cells(c, d).Font.Color = 255 End If Next Next End Sub
역시 날카로운 질문입니다. 일반적으로 제공되는 유저폼의 리스트 박스는 개별 설정은 없습니다만 꼭 필요하다면 Class 모듈 이라는것을 이용해서 가능합니다. 그런데 구지....복잡해서... 일반적인 실무 사용은 유저폼의 리스트 박스에서 크게 문제가 없으나 질문하신것 처럼 디테일한 설정은 Listview 라는 컨트롤을 참조하여 폼을 사용하면 원하는 기능 구현도 가능하며, 또한 더 디테일한 구체적인 변경도 가능합니다. 이부분은 아직 따로 강의 계획은 없으며 만약 필요하다면 제 강의를 다 듣고나면 스스로 찾아서 적용할 능력이 되리라 생각됩니다 구글에 ListView 검색하시면 친절한 설명 많이 있을거에요 좋은 밤 되세요 ^^
If Cells(i, j) < 500 Then Cells(i, j).Font.Color = 255 End If
Next Next
End Sub 많이 배우고 있습니다. 감사합니다. 제가 부족해서 한 가지 질문 드리는데, 상기 코드에서 For i = 3 To 11 For j = 3 To 11 ~~~~ next next 이렇게 for, next 부분을 tab 없이 연달아 쓰면 오류가 나는데 그 이유가 무엇인지 궁금합니다
이것저것 같이 해보니 재밌습니다 :) Sub Gugudan_test() Dim i As Long Dim J As Long For i = 3 To 11 For J = 3 To 11 Cells(i, J) = (i - 2) * (J - 2) If Cells(i, J) > 20 Then Cells(i, J).Font.Color = 255 Cells(i, J).Font.Bold = True Cells(i, J).Interior.Color = 30 End If Next Next
좋은 강의 감사합니다. 다음껀 숙제에요 ㅎㅎ Sub Homewokr_1() Dim i As Long Dim j As Long For i = 1 To 10 For j = 1 To 10 If Cells(i, j) < 500 Then Cells(i, j).Font.Color = 255 Cells(i, j) = "저조" End If Next i Next j End Sub
Sub Check_04() Dim A As Long Dim B As Long For A = 1 To 9 Cells(1, A) = A For B = 1 To 9 Cells(B, A) = A * B If Cells(B, A) > 50 Then Cells(B, A).Font.Color = 255 End If Next Next End Sub 뭔가 만들면서 하니까 확실히 재미가 붙어지는군요. 강의 감사합니다.
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니드 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
이렇게 훌륭한 강의가 4년전에 있었는데, 제가 지금껏 모르고 있었네요. 뒤늦게 깊은 감사를 전합니다.
선생님 안녕하세요. 재능기부 해 주신 덕분에 재밌게 VBA 공부하고 있습니다. 아직 4강까지 밖에 안 봤지만, 올려주신 영상 모두 보고, 반복숙달하여 업무에 활용할 수 있도록 노력해보겠습니다. 정말 감사합니다!
생초보인데 설명을 알기쉽게 해주셔서 두려움없이 VBA 공부를 재미있게 잘하고 있습니다. 감사합니다.
대한민국 넘 좋은분들이 많아서 좋은 나라입니다. 정말 배우기 어려운 분야를 쉽고 흥미로운 예제로 잘 가르쳐 주셔서 감사드립니다.
아 진짜 따라하기 너무 좋네요 .. 강의 계속 올려주세요 너무 좋습니다 ㅠㅠㅠ 감사합니다 실전에 응용할 아이디어가 막 떠올라요.. 책으로 봐도 잘 몰랐던 변수에관한 내용들 반복문 등등 따라해봐도 무슨말인지 몰랐는데 직접 실습해보면서 말씀도 들으면서 하니까 금방 알아듣네요 감사합니다
네 감사합니다
꼭 활용하시기 바래요
50대 중반인데, 엑셀 따라하다가 이렇게 VBA로 까지 와 버렸네요... 님 덕분에 잘 배우고 있습니다. 끝까지 완주해 보겠습니다. 감사합니다.
오늘 드디어 숙제를 했어요!
이상한 코딩이었지만 답은 나왔어요 ㅎㅎ
프로그래밍에 재능이 없나 검색하다가 아닥하고 고고하기했어요
샘 기초강의 다 듣고 숙제도 꼬박꼬박하고 그때포기해도 늦지않는걸로!
좋은 강의 감사합니다 ^^
셀 색깔을 바꾸는 것으로 해봤습니다. 강의 너무 좋습니다. 숙제까지 내주시다니!!! 대박입니다.
강의 효율이 2배네요
최고입니다.
Sub Test1()
Dim i As Long
Dim v As Long
For i = 3 To 11
For v = 3 To 11
If Cells(v, i) < 500 Then
Cells(v, i).Interior.Color = 255
End If
Next
Next
End Sub
네네 끝까지 포기하지 않고 달려요~~~~
vga 공부는 완전 처음입ㅌ니다. 책도 없이 강의보면서 연습하고 있습니다. 감사합니다
\
VBA를 배우고 싶었지만 다른강의는 따라가지 못하겠던데 강사님 덕분에 희망이 보입니다. 감사합니다.
정말 잘 짜여진 강의 입니다. 재능을 이렇게 기여해주시니 감사드리며~
저는 열심히 숙제 올려야죠 ^^
Sub test_1()
Dim i As Long
Dim j As Long
For i = 3 To 11
For j = 3 To 11
If Cells(i, j) < 500 Then
Cells(i, j).Font.Color = 255
End If
Next
Next
End Sub
감사합니다.. 차근 차근 쫒아가고 있습니다. 요번엔 꼭 마무리 질랍니다.
하다보면 어려운것도 나올거에요
끝까지 퐈이팅입니다
다른 분들은 쉽게 따라가시는거 같아 부럽습니다ㅠㅠ
숙제 내주실때마다 참조하여 보고있네요
다운받기 귀찮으신분들은 랜덤으로 생성해서 시행해보세요!
지점 작성후 cell 안에 =Round(rand(),1)*100
조건을 < 50 으로 거시면 됩니다
안녕하십니까?
마지막 도형 채우기 부분 쌤의 For 함수 응용하여
IF sh.name = range()에 넣어서 성공했습니다.
더 간단한 구문을 만들 수 있게 되었습니다.
잘 가르쳐 주셔서 이렇게 하나씩 응용 할 수 있게 되었습니다.
사랑합니다
이게 다좋은데 자막이 소스코드 창을 좀 가리네요.^^ 내용은 참 좋아요. 제가 찾는 내용은 아닌데, 검색하다가 혹시나 해서 들어와보고 정주행 하구 가영
네 초기에는 서툴렀습니다 ㅜㅜ
뒤부터 신경써서 올렸습니다
감사합니다
도형 색 바꾸기
Sub test()
Dim sh As Object
Dim i As Long
For Each sh In ActiveSheet.Shapes
For i = 3 To 5
If sh.Name = Range("h" & i) Then
sh.Fill.ForeColor.RGB = Range("i" & i).Interior.Color
End If
Next
Next
End Sub
for each문과 for 문을 모두 활용해보았습니다. 감사합니다!
어렵지만, 열심히 따라 가보고 있습니다. 감사 감사합니다.
엑셀 고수 되고자 강의 열심히 듣고 있습니다. 감사합니다!!
숙제는 좀 어렵지만 일단은 완강해보렵니다
조은 강의 감사합니다. 마지막 강의까지 열공하겠습니당😅
여태까지 본 VBA강의 중에서 제일 이해하기 쉬워요..!
와 넘 재밌어요 강사님.. VBA 시도하려다가 포기 많이 했는데 이렇게 배웠어야 했던거였어요!!!
vba 관심 있어서 1강부터 보고 있습니다~ 이해하기 쉽고 좋아요~
4강 강의 감사합니다. 넘 재미있어 밤 새우는 중입니다.
과제1
Sub test_3()
Dim v As Long
Dim h As Long
For v = 3 To 11
For h = 3 To 11
If Cells(v, h) < 500 Then
Cells(v, h).Font.Color = 255
End If
Next
Next
End Sub
예제2
Sub test_5()
Dim sh As Object
For Each sh In ActiveSheet.Shapes
If sh.Name = Range("H3") Then
sh.Fill.ForeColor.RGB = Range("i3").Interior.Color
ElseIf sh.Name = Range("H4") Then
sh.Fill.ForeColor.RGB = Range("i4").Interior.Color
ElseIf sh.Name = Range("H5") Then
sh.Fill.ForeColor.RGB = Range("i5").Interior.Color
End If
Next
End Sub
늦깍이 만학도에게도 큰 도움이 되는 자료 입니다.
감사합니다 선생님
ㅇ 가로세로로 되어있는 자료 평가하여 색상 변경하기
Sub test_3()
'선언하기
Dim i As Long
Dim h As Long
‘i, h 변수 설정
For i = 3 To 11
'가로열 3부터 11
For h = 3 To 11
'세로열 3부터 11
If Cells(i, h) < 500 Then
'500점보다 낮으면
Cells(i, h).Font.Color = 65535
' 글자색깔 노란색으로
End If
‘if문 닫기
Next
Next
End Sub
‘선언 종료
리얼 정주행하고 있습니다!!! 코로나 때문에 심심해서 유튜브 둘러보다 1편봐서 그냥 따라하고 있는데 재밌네요 ㅎㅎ
끝까지 가야 찐입니다 ^^
잘 보고있습니다
감사합니다
네 감사합니다
즐겁게 하고 있습니다 감사합니다
최고입니다!
잘 보고 있습니다 감사합니다..
선생님의 강의 마지막까지 정주행후 다시 복습을 하는데 모르는게 또나오네요~~ for if문은 이해되는데 선생님의 with구문을 사용해 보려는데 아무리 해도 이해가~~
Dim sh As Object
For Each sh In ActiveSheet.Shapes
If sh.Name = Range("H3") Then
ElseIf sh.Name = Range("H4") Then
ElseIf sh.Name = Range("H5") Then
With sh.Fill.ForeColor.RGB
.Range("I3").Interior.Color
.Range("I4").Interior.Color
.Range("I5").Interior.Color
End With
End If
With sh.Fill.ForeColor
.RGB = Range("I3").Interior.Color
.RGB = Range("I4").Interior.Color
.RGB = Range("I5").Interior.Color
End With
이렇게 해야 합니다
재밌습니다 실습파일이 있으니, 따라하기도 훨씬 좋아요! 감사합니다
네 감사합니다
응원할께요
Sub color()
Dim shpe As Object
Dim lngt As Long
For lngt = 3 To 5
For Each shpe In ActiveSheet.Shapes
If shpe.Name = Range("H" & lngt) Then
shpe.Fill.ForeColor.RGB = Range("I" & lngt).Interior.color
Else
End If
Next shpe
Next lngt
End Sub
변수 하나 추가해서도 해봤습니다. 작동 잘하네요 ㅎㅎ
아주 좋습니다
안녕하세요~~
감사합니다~~~
열심히 배울께요~~~~
정주행 하고 있습니다~ 도움 많이 되고 있어요ㅎㅎ 좋은 강의 감사합니다~!
네 감사합니다
진짜 최고입니다...!
점심시간 때 마다 1강씩 보면서 공부하고 있습니당
감사합니다.
네 감사합니다
실습을 해야 효과가 배입니다
Sub Test_2()
Dim i, j As Long
For i = 3 To 11
For j = 3 To 11
Sheet4.Cells(i, j) = Sheet2.Cells(i, 3) * Sheet3.Cells(3, j)
If Sheet4.Cells(i, j) < 250000 Then
Sheet4.Cells(i, j).Font.Color = 255
End If
Next
Next
End Sub
아직 가르쳐주시지 않는 내용이지만 시트 별로 표를 배치했을 때, 그 시트에 있는 셀을 갖고오려면 어떻게 해야할까? 싶어서 sheet. 을 이용했는데 먹혀들었네요! ㅎㅎㅎ 저는 sheet2 에는 세로 데이터, sheet3에는 가로 데이터를 넣었고, sheet4에다가 지점, 월 이 함께 행렬형태로 있는 표를 만들어 배치했습니다. 그리고 가로, 세로 데이터에서 500미만을 저조로 표시했으니 500*500= 250,000 을 빨간 색으로 표시했습니다!
너무 좋은 강의 감사합니다!
Sub test_3()
Dim i As Long
Dim j As Long
For i = 3 To 11
For j = 3 To 11
If Cells(i, j) < 500 Then
Cells(i, j).Font.Color = 251
End If
Next
Next
End Sub
정주행하면서 배우고 있습니다.
재밌네요. 감사합니다.
Sub test_3() '조건별 서식지정
Dim i As Long
Dim j As Long
For i = 3 To 11 '3행 부터 11행
For j = 3 To 11
If Cells(i, j) < 500 Then
Cells(i, j).Font.Color = 255
Cells(i, j).Interior.Color = 65535 ' 추가 연습
ElseIf Cells(i, j) > 800 Then ' 추가 연습
Cells(i, j).Font.Color = 12611584 ' 추가 연습
Cells(i, j).Interior.Color = 49407 ' 추가 연습
End If
Next
Next
End Sub
엑사님 질문이요....
Sub macro()
Dim sh As Object
For Each sh In ActiveSheet.Shapes
If sh.Name = Range("F3") Then
sh.Fill.ForeColor.RGB = Range("G3").Interior.Color
ElseIf sh.Name = Range("F4") Then
sh.Fill.ForeColor.RGB = Range("G4").Interior.Color
ElseIf sh.Name = Range("F5") Then
sh.Fill.ForeColor.RGB = Range("G5").Interior.Color
End If
Next
End Sub
이렇게 작성하고 실행 했는데.... 왜 메크로가 반응이 없을까요? 틀린게 있나요?
파일을 봐야 쉽게 확인이 가능합니다
아래 오챗방 활용 부탁드립니다
안녕하세요
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 풀이 및 이해가 가능합니드
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
도형이름 설정이 잘못 되지 않았나 싶습니다 :)
너무 재밌게 잘 따라하고 있어요! 딱 눈높이 교육이네요ㅠㅠ 정말 감사합니다!!!
Sub Test_4()
Dim i As Long
Dim j As Long
i = 3
j = 3
For i = 3 To 11
For j = 3 To 11
If Cells(i, j) < 500 Then
Cells(i, j).Font.Color = 255
ElseIf Cells(i, j) > 800 Then
Cells(i, j).Font.Color = 12874308
End If
Next
Next
End Sub
높은 수치에도 파란색글씨가 표시되게 해보았습니다!
1강부터 매일 하나씩 따라하고있어요
어렵지 않게 알려주셔서 감사합니다
정말 도움되는 강의를 찾았네요. 무료로 이런 강좌를 볼 수 있게 해주셔서 감사합니다!
이런 소중한 댓글을 주셔서 감사합니다
끝까지 같이 하세요
응원하겠습니다
감사합니다 예제는 어디에서 다운 받을 수 있나요?
Sheet3 과제 주신 문제 해결은 했는데요, 구간설정 (400 과 500 사이) 코드 궁금합니다.
안녕하세요
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 답변이 가능합니다.
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
혹시 자막 안보이게 할 수 있나요? 자막에 가리네요 ㅠㅠ
Sub test1()
Dim i As Long
For i = 3 To 11
If Range("C" & i) > 500 Then
Range("C" & i).Font.Color = 255
Range("E" & i) = "good"
End If
If Range("C" & i) < 400 Then
Range("C" & i).Font.Color = 15773696
Range("E" & i) = "Bad"
End If
Next
End Sub
조금 응용해서 빨간색과 파란색을 같이 표현하는 걸 써봤는데, 이것보다 더 간단한 방법이 있을까영 ?? 이번 강의도 잘들었습니당 ㅋ
잘 하셨습니다
내용 감사합니다....많이많이 올려주세요...열심히 보겠습니다
네네 감사합니다
열심히 올릴께요
친절한 설명 감사합니다. 힘들게나마 따라가려고 합니다. 감사합니다
과제물 올립니다.
Sub test_1()
Dim i As Long
Dim j As Long
For i = 3 To 11
For j = 3 To 11
If Cells(i, j) < 500 Then
Cells(i, j).Font.Color = 255
End If
Next
Next
End Sub
저 궁금한게 있는데 range와 cells의 차이점은 뭔가요~ 제가 회사에서 무음으로 영상만 보고있어서 음성 설명을 못듣고 있어서 말씀하셨을 수도 있는데 ;; 궁금해서요~
방법의 차이입니다
c5 셀 기준으로
Range("C5") 라고 할 수도 있고
Cells(5,3) 이라고 할 수도 있습니다
보통
cells 구문은 for 반복문에서 많이 사용합니다
@@excelloveman-3399 아 무슨 말인지 이해햇습니다 감사해욧
Sub macro()
Dim k As Long
Dim t As Long
For k = 3 To 11
For t = 3 To 11
Cells(k, t) = k * t
If Cells(k, t) < 30 Then
Cells(k, t).Font.Color = 255
End If
Next
Next
End Sub
다른분들은 잘 따라 가는것 같은데 왜 전 어려울까요? ㅠㅠ
ActiveSheet는.. 예약어인가요?
정주행중 감사합니다^^
감사합니다
현란하게 보여주시는 와중에 Cells와 Range 사용하는거 알게됐네요^^
네 숨은 팁들도 많으니 꼼꼼하게 봐주세요
감사합니다
질 좋은 강의 감사드립니다.
직접 실행창에서 실행을 하니 "이 프로젝트에 있는 매크로는 사용할 수 없다"고 나오는데 해결방법 좀 부탁드립니다.
감사합니다.
안녕하세요
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
도움되는 답변을 받으실 수 있습니다.
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
'엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
어렵지 않게 이해하기 쉽게 설명 해주셔서 감사합니다 ~ ^^
안녕하세요 ^^
더 쉽게 노력할께요
건승하세요
회사에서 한가한 시간에 게임이나 웹툰을 보지 않고 엑셀만 만지는 선배가 있습니다. 저도 vba라는걸 하면서 업무 능률좀 늘리고 싶습니다.
너무 재밌습니다 ㅎㅎㅎ
과제1)
Sub test_1()
Dim i As Long
Dim j As Long
For i = 3 To 11
For j = 3 To 11
If Cells(i, j) < 500 Then
Cells(i, j).Font.Color = 255
End If
Next
Next
End Sub
도형1)
Sub test_1()
Dim sh As Object
For Each sh In ActiveSheet.Shapes
If sh.Name = Range("g2") Then
sh.Fill.ForeColor.RGB = Range("h2").Interior.Color
ElseIf sh.Name = Range("g3") Then
sh.Fill.ForeColor.RGB = Range("h3").Interior.Color
ElseIf sh.Name = Range("g4") Then
sh.Fill.ForeColor.RGB = Range("h4").Interior.Color
End If
Next
End Sub
이해하기 쉽고 좋네요^^ 글자색 말고 셀의 색을 바꿀려면 어떻게 하나요??
강의 쭉 보시다보면
다 나와요 ^^
@@excelloveman-3399 알겠습니다^^
과제에 대한 영상도 있었으면 좋겠습니다.
답을 알려달라는게 아닌 강사님은 어떻게 생각해서
저렇게 했나가 궁금해서요
아주 좋은 생각이신데... 시간이 너무 많이 걸릴거 같아서
오픈채팅방에서 서로 의견 나누고
문의하시면 됩니다. ^^
부담없이 모로가도 결과만 잘나오면 장땡입니다.
잘 보고 있어요 좋은 강의 감사합니다!
네 감사합니다
sheet2 예제할 때 range를 사용하지 못하는 이유가 뭘까요？
안녕하세요
제가 올린 강의지만 정황을 모르고는
확인이 쉽지 않습니다
오픈채팅방 엑사남 방을 통해 질문해주시면
좋은 답변 받으실 수 있습니다
입장하시고 공지도 꼭 읽어보세요
Sub test_1()
Dim r, c As Long
For c = 3 To 11
For r = 3 To 11
If Cells(r, c).Value < 500 Then
Cells(r, c).Font.Color = 5296274
End If
Next r
Next c
End Sub
여러번 풀어보다보니 점점 익숙해 지네요. 진심 감사합니다.
ragne(a1) // range("a1") // cells("a", 1) // cells(a, 1)
요거 어떻게 암기하면 될까요^^. ㅋㅋ 그냥 cells 만 사용해도 상관없나요??
엑사남님, 강의 정말 잘 보고 있습니다. 그리고 감사합니다. 그런데 밑에 회색으로 띄워주는 설명창이 코딩하는 모습을 가려서 잘 보이지 않습니다.
설명창을 없애주시면 안될까요. 회색 설명창은 도움이 안되는 것 같은데......나만 그런가요? ^^
자막 말씀이시라면
중반 강의부터는 투명하게 적용하였습니다
대부분 자막이 도움된다는 의견이어서
그대로 사용하고 있습니다
감사합니다!
강사님.
Access의 VBA도 같이 진행해 주십시오.
열심히 공부하고 싶습니다.
엑셀도 아직 못한게 더 많아서요
엑세스 vba 는 어려울듯 싶습니다
재밌어서 연달아서 보게되네요 감사합니다
Cells(a,b)일때 a가 세로축인가요??
행,열 순입니다
3행 5열이면 E3입니다
@@excelloveman-3399 아아 먼가 착각하고 있었나봐요 감사합니다!
아...range는 (a1) (a2) 형식...cells는 (1,1) (1,2) 형식으로 작동 하는 거 같네요
선생님...저는 나이 좀 있는 사람입니다. 감사합니다. 혹시 교재 있으면 구입 하고 싶습니다.
3번째 과제물에서 Activecell.Font.Color=255 이렇게 하는건 왜 값이 다르게 나올까요?
설명좀 부탁드립니다.
Range와 Cells를 사용하는것에 어떤 차이가 있을까요? 요즘 집밖에 나가지도 못하지만 덕분에 열심히 VBA공부하고 있어요 재미있네요! :)
range 구문은 "A1" 과 같은 셀주소를 사용하고
cells 는 r1c1 주소방식인 1,3 처럼 행번호 열번호를 사용하는
방식의 차이입니다
상황에 따라 적절한 주소를 사용하시면 됩니다
참고로
[A1] 잘 사용하지는 않지만 이렇게 써도 인식됩니다
엑사남ExcelLoveMan- 괄호 뒤에 쓰는 방식이 다른거지 똑같이 인식/적용 되는 거군요! 감사합니다 또하나 배워갑니다. 강의 쉽게 설명해주셔서 정말 많이 도움 됩니다!!
438 런타임 오류가 발생하였습니다
개체가 이 속성 또는 메서드를 지원하지 않습니다
라는 메세지가 나오는 뭐가 문제인지 도움을 받을 수 있는지요?
도와 주세요...
안녕하세요 엑사남입니다^^
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 답변이 가능합니다.
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
For를 i로 먼저 시작하면 Next에서는 왜 i로 먼저 시작하면 안되죠?
처음 이렇게 해서 안되어서 한참 고민하다가 여러번 시행착오 끝에 다른것 참조하여 Next에서 j를 먼저하니 구동이 되는데 왜그러죠?
Sub 구구단()
Dim i As Long
Dim j As Long
For i = 1 To 9
For j = 1 To 9
Cells(i, j) = i * j
Next j
Next i
End Sub
안녕하세요, 강의 동영상 너무 잘 보면서 따라해보고 있습니다. 그런데 혹시 cells와 range의 차이는 무엇인가요? cells는 cells(m,n)처럼 행번호 열번호를 넣는것 같고, range는 range("A" & i) 이런 식으로 특정 열번호에 대해서만 고정해서 사용할 수 있는 것인가요? range를 이용할 때도 행번호와 열번호를 동시에 쓸 수는 없는지 궁금합니다.
안녕하세요
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 풀이 및 이해가 가능합니드
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
안녕하세요. 아래처럼 코드를 짜봤는데, 실제 실행해보니, 쓴 것처럼 400이상 600이하에 해당되는 셀만 폰트샐깔변화, good표시 되는게 아니라 전부가 그렇게 되는데 뭐가 문제일까요??
Sub forif_Practice()
Dim i As Long
For i = 2 To 15
If 400 < Range("B" & i) < 600 Then
Range("B" & i).Font.Color = 200
Range("C" & i) = "good"
End If
Next
End Sub
그리고 수직작업할때는 주로 Range쓰고 수평작업할때는 cells을 쓰나요? 해당 영상 예제에서 수평작업할때 dim a as spring 하고 for a = A to G , if range(a & 1) > 300
이런식으로 할 수 없는 것은 문자로는 for next 코드를 만들 수 없어서 인가요??
안녕하세요
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 풀이 및 이해가 가능합니드
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
꾸역꾸역 하고 있는데. 정말 많이 도움이 됩니다.
그런데 i, j 등의 열 관리? 는 어떻게 하면 좋을지 궁금하네요. 숙제 올립니다.
Sub homework()
Dim i As Long
Dim j As Long
For i = 3 To 11
For j = 3 To 11
If Cells(i, j) < 500 Then
Cells(i, j).Font.Color = 255
Else: Cells(i, j).Font.Color = 15773696
End If
Next
Next
End Sub
열관리가 뭘까요?
@@excelloveman-3399 아닙니다. 무시하셔도 될 것 같습니다. 계속 다른강좌 숙제 진행하곘습니다. 감사합니다.
아 네네 참고로
안녕하세요
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 풀이 및 이해가 가능합니드
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
첫번째 과제 하기와 같이 해결 했습니다.
아직 브린이라... 좀 허접하네요^^;
Sub test2()
Dim a As Long
Dim b As Long
For a = 3 To 11
For b = 3 To 11
If Cells(b, a) < 500 Then
Cells(b, a).Font.Color = 255
End If
Next
Next
End Sub
잘하셨는데
안에 for 문은 들여쓰기요
5강 기대 됨니다!!
네 준비중입니다
금일 중으로 업로드 예정입니다
감사합니다
Hyeong IK Jeon 금일 중으로 업로드 예정이었으나
PC녹화 소프트웨어 이상으로 영상을 찍을수가 없었네요. 최대한 빠르게 업로드 하겠습니다.
강의 감사합니다 :)
Sub Test_1()
Dim i As Long
Dim j As Long
For i = 3 To 11
For j = 3 To 11
If Cells(i, j) < 500 Then
Cells(i, j).Font.Color = 255
ElseIf Cells(i, j) > 700 Then
Cells(i, j).Font.Color = 12611584
End If
Next
If Cells(i, j) < 500 Then
Cells(i, j).Font.Color = 255
ElseIf Cells(i, j) > 700 Then
Cells(i, j).Font.Color = 12611584
End If
Next
End Sub
감사합니다^^
진짜 진짜 초보입니다. 열심히 해보려고 노력중입니다. ^^; 이런 질문 해도 되는지 모르겠는데...혹시 테스트로 실행해보다가 실수로 데이타가 변경 된 경우에 되돌리기가 안되는데...이럴땐 어떻게 해야할까요?^^;;
네 vba 로 실행된 결과는 되돌리기가 되지 않습니다
항상 실행하기전 저장하는 버릇을 들이시면
실행이 잘못되었을경우
그냥 닫고 다시 열어서 볼 수 있습니다
실행전 저장 잊지마세요
선생님과 똑같이 입력 후 실행하였는데, 실제 도형과 "도형이름"과의 매칭이 안되는 것 같네요. 코드 오류는 뜨지는 않아요~ 오피스2010입니다.
너무 도움이 많이 됩니다 감사합니다 ^^
도움 되신다니 다행입니다
응원하겠습니다
Sub test_3()
Dim sh As Object
For Each sh In ActiveSheet.Shapes
If sh.Name = "타원" Then
sh.Fill.ForeColor.RGB = Range("H2").Interior.Color
E1self sh.Name = "사각형" Then
sh.Fill.ForeColor.RGB = Range("H3").Interior.Color
E1self sh.Name = "삼각형" Then
sh.Fill.ForeColor.RGB = Range("H4").Interior.Color
End If
Next
End Sub
타원 , 사각형 , 삼각형 이름 정의 후 했는데 컴파일 오류 나요 ㅠㅠ 타원 하나만 하면 정사으로 되요
Then 여기서 오류가 나는데 왜 나는 걸까요 ?
E1self sh.Name = "사각형" Then 을 Elseif sh.Name = "사각형" Then으로 바꾸세요.
그 다음 삼각형도 마찬가지로 알파벳 엘(l)을 숫자 1로, 알파벳 아이(I)를 소문자 엘(l)로 잘못 적으셔서 오류가 생기시네요.ㅠ
저도 초보라
ㅋㅋㅋㅋ 날 무시하는 말투가 더 공부하게 만듭니다
다 작전인거 알아요
알아주시니 감사합니다^^
항상 감사합니다
-------------------------------------------------------------------------------------------------------------------------------
Sub cycle()
Dim lngZ As Long
Dim lngQ As Long
Dim lngA As Long
Dim lngB As Long
lngQ = Range("C1000").End(xlUp).Row
lngZ = Range("Z" & lngQ).End(xlToLeft).Column
For lngA = 3 To lngQ
For lngB = 3 To lngZ
If Cells(lngA, lngB).Value < 500 Then
Cells(lngA, lngB).Font.Color = vbRed
End If
Next
Next
Range("B2").CurrentRegion.HorizontalAlignment = xlCenter
End Sub
---------------------------------------------------------------------------------------------------
Sub shapes_color2()
'' 도형마다 이름지정을 해주는게 중요
'' 셀에 색깔을 넣어서 도형이름과 동일할경우 셀 색깔로 입히는 작업
Dim sh As Object
Dim lngA As Long
For lngA = 3 To 5
For Each sh In ActiveSheet.Shapes
If sh.Name = Range("H" & lngA).Value Then
sh.Fill.ForeColor.RGB = Range("I" & lngA).Interior.Color
''SchemeColor 를 이용하면 범위를 벗어나게 되니 RGB 이용
End If
Next
Next
End Sub
감사요~~~~~~
시트 3 range와 cells 둘 다 써도 결과값은 똑같이 나오는데, 차이가 뭔지 궁금하네요^^ 문과대학 출신이라서 어렵지만 열심히 연습 중입니다
네 강의를 계속 듣다보면 알게 되시겠지만... 간단히 설명드리면
프라스틱숟가락과 쇠숟가락의 차이가 뭔가요? 정도가 되겠네요
둘다 용도는 동일하지만 뜨거운국물을 뜰때는 쇠숟가락이 좋겠지요 ^^
Range 는 직관적으로 셀 이름을 사용할 수 있습니다 "A1" 이렇게요.
Cells 는 행과 열의 번호를 사용함으로써 For문에 사용하기 용이한 방법입니다.
사용 용도에 따라서 선택하여 사용하면 됩니다.
4강 숙제
Sub 지점3()
Dim c As Long
Dim d As Long
For c = 3 To 11
For d = 3 To 11
If Cells(c, d) < 500 Then
Cells(c, d).Font.Color = 255
End If
Next
Next
End Sub
역시 날카로운 질문입니다.
일반적으로 제공되는 유저폼의 리스트 박스는 개별 설정은 없습니다만
꼭 필요하다면 Class 모듈 이라는것을 이용해서 가능합니다.
그런데 구지....복잡해서...
일반적인 실무 사용은 유저폼의 리스트 박스에서 크게 문제가 없으나
질문하신것 처럼 디테일한 설정은
Listview 라는 컨트롤을 참조하여 폼을 사용하면
원하는 기능 구현도 가능하며,
또한
더 디테일한 구체적인 변경도 가능합니다.
이부분은 아직 따로 강의 계획은 없으며
만약 필요하다면
제 강의를 다 듣고나면 스스로 찾아서 적용할 능력이 되리라 생각됩니다
구글에 ListView 검색하시면 친절한 설명 많이 있을거에요
좋은 밤 되세요 ^^
감사합니다.
네 저도 감사합니다
강의 너무 감사합니다 :)
Sub Test_1()
Dim i As Long
Dim j As Long
For i = 3 To 11
For j = 3 To 11
If Cells(i, j) < 500 Then
Cells(i, j).Font.Color = 255
Cells(i + 10, j) = "부족"
Cells(i + 10, j).Font.Color = 255
Else: Cells(i + 10, j) = "충분"
If Cells(i, j) > 900 Then
Cells(i, j).Font.Color = 12611584
Cells(i + 10, j) = "베리굿"
Cells(i + 10, j).Font.Color = 12611584
End If
End If
Next j
Next i
End Sub
열심히 따라하겠습니다. 복 받으실 꺼예요.
Sub test_3()
Dim i As Long
Dim j As Long
For i = 3 To 11
For j = 3 To 11
If Cells(i, j) < 500 Then
Cells(i, j).Font.Color = 255
End If
Next
Next
End Sub
range 와 cells 의 차이가 뭘까요
Sub Test_3()
Dim i As Long
Dim j As Long
For i = 3 To 11
For j = 3 To 11
If Cells(i, j) < 500 Then
Cells(i, j).Font.Color = 255
End If
Next
Next
End Sub
많이 배우고 있습니다. 감사합니다.
제가 부족해서 한 가지 질문 드리는데, 상기 코드에서
For i = 3 To 11
For j = 3 To 11
~~~~
next
next
이렇게 for, next 부분을 tab 없이 연달아 쓰면 오류가 나는데 그 이유가 무엇인지 궁금합니다
똑 같이 했은데 왜 컴파일 오류가 떠요
End sub가 필요합니다 라고 뜰까요 ??
이것저것 같이 해보니 재밌습니다 :)
Sub Gugudan_test()
Dim i As Long
Dim J As Long
For i = 3 To 11
For J = 3 To 11
Cells(i, J) = (i - 2) * (J - 2)
If Cells(i, J) > 20 Then
Cells(i, J).Font.Color = 255
Cells(i, J).Font.Bold = True
Cells(i, J).Interior.Color = 30
End If
Next
Next
좋은 강의 감사합니다. 다음껀 숙제에요 ㅎㅎ
Sub Homewokr_1()
Dim i As Long
Dim j As Long
For i = 1 To 10
For j = 1 To 10
If Cells(i, j) < 500 Then
Cells(i, j).Font.Color = 255
Cells(i, j) = "저조"
End If
Next i
Next j
End Sub
Next j 다음에 Next i 로 해야할 것 같아요
Sub Check_04()
Dim A As Long
Dim B As Long
For A = 1 To 9
Cells(1, A) = A
For B = 1 To 9
Cells(B, A) = A * B
If Cells(B, A) > 50 Then
Cells(B, A).Font.Color = 255
End If
Next
Next
End Sub
뭔가 만들면서 하니까 확실히 재미가 붙어지는군요.
강의 감사합니다.
네 감사합니다.
만들면서 재미를 느끼셨다면 진짜 시작되신거네요.
응원하겠습니다.
덕분에 쉽게 잘 배우고 있습니다. 감사합니다.
Sub test_1()
Dim i, j As Long
For i = 3 To 11
For j = 3 To 11
If Cells(i, j) < 500 Then
Cells(i, j).Font.Color = 255
End If
Next
Next
End Sub
시간 비교 해서 어떤 결과를 얻고자 하는데 단순 이프문 만으론 작동이 안되네요 ㅜㅜ
안녕하세요
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 풀이 및 이해가 가능합니드
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
f5로 실행할때 어떨땐 한번에 실행이 되고 어떨 때는 매크로 이름 입력창이 나와서 실행버튼을 눌러줘야 실행이 되는데 무슨 차이가 있는 걸까요?
커서의 위치가 실행하려는 매크로 안에 있는지 확인해보세요