강사님의 말씀에 따라 저도 타이핑하여 성공하였습니다. Sub test_222() Dim i, j As Long Dim LngR As Long Dim LngC As Long
LngR = Range("B1000000").End(xlUp).Row ' MsgBox (LngR) LngC = Range("xfd2").End(xlToLeft).Column ' MsgBox (LngC) For i = 2 To LngR For j = 2 To LngC If Cells(i, j).Value >= 70 Then Cells(i, j).Font.ColorIndex = 3 End If Next j Next i End Sub 감사합니다.
5강도 잘 배웠습니다! Sub 시작셀찾기() 'lngR 위치 UP으로 찾기 Dim i As Long Dim lngR As Long lngR = Range("B10000").End(xlUp).Row 'lngR은 B10000에서 위로올라가 첮번째 데이터가 행의 위치 For i = 2 To lngR If Cells(i, 2)
좋은 강의..감사합니다.. ------------------------------------------------------------------------------------------------------------------------------ Sub test01() Dim i As Long Dim lngR As Long lngR = Range("b10000").End(xlUp).Row For i = 2 To lngR If Cells(i, 2)
살짝 바꾸었는데 처음으로 오류 없이 한꺼번에 코딩을 완료했습니다. 기념으로^^ 초보라 cells랑 range도 햇갈리고 "="을 넣어야 하는지도 햇갈리고 ㅠㅠ 항상 명강의 감사드립니다. 이번에 VBA를 함 입문해 보려구요. Sub FontColor_test5() Dim i As Long Dim j As Long
Sub test5() Dim R, C As Long Dim lngR As Long Dim lngC As Long lngR = Range("D10000").End(xlUp).Row lngC = Range("IV14").End(xlToLeft).Column For R = 2 To lngR For C = 2 To lngC If Cells(R, C) < 80 Then Cells(R, C).Font.Color = 255 End If Next Next End Sub실행확인 했습니다. 친절한 설명 늘 감사드려요!
강좌 잘보고 있습니다. 지루하지 않게 따라하면서 개념 잡으니까 훨씬 낫네요!!! 저는 끝을 구하는 식?을 반대로 생각해 봤습니다. 오른쪽에서 왼쪽이 아니고 아래서 위가 아닌 왼쪽에서 시작해서 오른쪽끝을 위에서 시작해서 아래쪽 끝을 확인하는 식으로... 과제입니다. Sub test03() '가로세로 Dim i As Long Dim j As Long Dim lngR As Long Dim lngC As Long
고맙습니다. 습관이 되도록 몇번이고 계속 반복연습하며 공부하고 있습니다 ^^ 숙제~~ Sub test04() Dim i, j As Long Dim lngR, lngC As Long Dim A, B As Long lngR = Cells(Rows.Count, "b").End(xlUp).Row '이 부분은 선생님을 답글을 보고 응용^^ lngC = Cells(2, Columns.Count).End(xlToLeft).Column A = Range("조건점수1") B = Range("조건점수2") Range("b2:h20000").Font.ColorIndex = 1 Range("b2:h20000").Font.Bold = False For i = 2 To lngR For j = 2 To lngC If Cells(i, j) = B Then Cells(i, j).Font.ColorIndex = 5 Cells(i, j).Font.Bold = True End If Next j Next i End Sub 건강 조심하세요^^
정말 재밌는 강의 잘봤습니다. 고맙습니다. Sub test12() Dim lngC, lngR As Long Dim i, j ' Dim sh As Object 'Dim strA, strB As String strA = "test5" Worksheets(strA).Activate lngR = Range("c10000").End(xlUp).Row lngC = Range("zz3").End(xlToLeft).Column 'row i column j
For j = 3 To lngC For i = 3 To lngR If Cells(i, j) < 200 Then Cells(i, j).Font.ColorIndex = 3 End If
5강도 넘 재미나게 해봤네요. 늘 감사드립니다. 과제입니다. Sub test_05() Dim l_r As Long Dim l_c As Long Dim lngR As Long Dim lngC As Long lngR = Range("B10000").End(xlUp).Row lngC = Range("iv2").End(xlToLeft).Column
실력이 안되고 머리도 늙어서 따라가기 힘들지만 엑사남님의 엑셀 왕초보 39강까지 끝마치고 VBA코스 열심히 따라하고 있습니다. 소중한 강의 그리고 이해하기 쉬운 설명 정말로 존경스럽네요. 참고로 저는 53세이지만 열심히 끝까지 해보겠습니다. 5강 숙제 올려봅니다. 틀린부분있으면 수정 부탁드립니다. Sub test() Dim i As Long Dim j As Long
양질의 강의 정말 감사드립니다! Sub hw() Dim i As Long Dim j As Long Dim lngC As Long Dim lngR As Long lngR = Range("B10000").End(xlUp).Row lngC = Range("XFD1").End(xlToLeft).Column For i = 2 To lngR For j = 2 To lngC If Cells(i, j)
강의 감사합니다. 매일 한 강의씩 공부하고 있습니다. 변수지정 할때도 lng_i, lng_j 이런식으로 쓰니까 셀주소 표시하는 lng_r, lng_c과 헷갈리네요 아래 과제물은 엑셀에서 돌려보고 정상적으로 변환되기에 올린건데 셀주소 표시하는 lng_r, lng_c는 Dim으로 변수지정 안했는데도 변환되던데, 그래도 차후에는 변수지정하는게 맞겠죠? Sub test1() Dim lng_i As Long Dim lng_j As Long
오늘도 좋은 것 많이 배워 갑니다! 감사합니다~ Sub test02() Dim i As Long Dim k As Long Dim lngR As Long Dim lngC As Long lngR = Range("B10000").End(xlUp).Row lngC = Range("IV2").End(xlToLeft).Column For i = 2 To lngR For k = 2 To lngC If Cells(i, k)
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 도움되는 답변을 받으실 수 있습니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
Sub Test4() Dim i As Long Dim k As Long Dim lngr As Long Dim lngc As Long lngr = Range("B10000").End(xlUp).Row lngc = Range("iv2").End(xlToLeft).Column For i = 2 To lngr For k = 2 To lngc If Cells(i, k)
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 답변이 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
쉽게 따라가수 있게 설명해주셔서 감사합니다. Sub test06() Dim i As Long Dim j As Long Dim lngR As Long Dim lngC As Long lngR = Range("B10000").End(xlUp).Row lngC = Range("iv2").End(xlToLeft).Column For i = 2 To lngR For j = 2 To lngC If Cells(i, j)
이번 강의도 잘 배웠습니다. 아래는 숙제 ㅎ_ㅎ)ㅋ.. 강의 다시 보다보니 lngR이랑 lngC 변수 선언 빠져서 아래 추가함요^^ Sub Score_Table_Homework01() Dim i As Long Dim j As Long Dim lngR As Long Dim lngC As Long lngR = Range("B10000").End(xlUp).Row lngC = Range("IV2").End(xlToLeft).Column For i = 2 To lngR For j = 2 To lngC If Cells(i, j)
안녕하세요 엑사남입니다^^ 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 답변이 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
이해하기 쉬운 강의 잘 들었습니다! 감사합니다 ㅎㅎ Sub sheet5() Dim i As Long Dim j As Long Dim lngR As Long Dim lngC As Long lngR = Range("B10000").End(xlUp).Row lngC = Range("iv2").End(xlToLeft).Column
따라가는 중입니다. Sub TEST03() Dim i As Long '행에 대한 변수 Dim j As Long '열에 대한 변수 Dim lngR As Long '행의 대한 범위 변수 Dim lngC As Long '열에 대한 범위 변수
lngR = Range("B100000").End(xlUp).Row 'B10000행을 끝으로 옆으로 첫번째 데이터가 있는 row 찾아서 lngR에 넣어라 lngC = Range("IV2").End(xlToLeft).Column 'iv2열을 끝으로 옆으로 첫번째 데이터가 있는 cell 찾아서 lngC에 넣어라
For i = 2 To lngR '마지막 row에 대한 for 반복문 For j = 2 To lngC '마지막 cell에 대한 for 반복문 If Cells(i, j)
엑사남님 항상 양질의 강의 감사드립니다 제가 개인적으로 책으로도 따로 독학을 하면서 유튜브로 강의도 챙겨보고 있는데요... 아무래도 문제를 풀면서 실력이 는다고 생각해서 vba로 해결 가능한 예제들을 찾아보는데 생각보다 많지가 않더군요... vba의 여러 기능을 복합적으로 사용해서 해결 가능한 예제들을 모아놓은 사이트나 자료 등은 없을까요?
책은 vba 바이블이 정석이긴 한데요 내 업무상 필요에 의해서, 또는 내가 기획한 뭔가를 만들기 위해서 하나 하나 찾아서 적용하는게 빠르긴 합니다 싸이트는 엑사모가 그때 그때 질문하거나 글도된 강좌 보기에 좋고요 또는 우노엑셀21 이건 평생회원 5만원 정도인데 고급수준입니다 엑셀장인촬스 또는 오빠두엑셀 등의 강의도 좋을듯 하고요 요즘은 찾아보면 엄청 많지요 좋은 결과 있기를 응원하겠습니다
와우 감사합니다. 제가 일하는 곳에서는 스캔 데이터가 하루가 3만~5만건 정도로 변동되는데 마지막 셀 찾는게 일이었어요. 한 개 필드에는 10개 데이터세트가 있고, 레코드가 한 시간에 4천 여개씩 증가하고 파일이 두 개씩 만들어집니다. (출고 라인 스캐너가 두 개) 택스트 색깔 말고, 특정 조건(구간) 데이터만 추출해서 복사하고, 카운트 하려면 어찌 하면 될지요? 예를 들어서 스캔 데이터가 12자리 숫자로 구성되는데, 왼쪽 4자리가 1100××××××××이면 1열에 차례로 정렬, 2200××××××××이면 2열에 차례로 정렬,3300xxxxxxxx이면 3열에 정렬 이런 식입니다. 가끔 8자리 데이터도 발생하곤 해서 왼쪽만 읽으면 오류가 날 수가 있습니다. 그렇게 된다면 1시간마다(또는 10분,1분마다) 1100xxxxxxxx몇 개, 2200xxxxxxxx 몇 개 이란 통계를 내서 대시보드에 표출할 수 있겠죠. (단순 카운트가 아니고 정렬하는 이유는 출고리스트를 보고서로 만들어야 하기 때문입니다) 이런 실시간 통계 및 보고서를 하려면 오늘 가르쳐 주신 것이 아주 효과적입니다. 감사합니다.
잘 지내셨어요?전에 강의듣다가 중단했는데 다시해보고 있습니다. 새해복많이 받으십시오.우선~~ 질문드릴게 있는데 1004 런타임 오류가 발생하네요.ㅇ떤 세팅이 잘못된것인지 모르겠습니다. 마음에 걸리는것은 엑셀 시트에 숫자입력을 모듈만 설정하고 엑셀 아이콘 눌러서 빈셀에다가 적어주고 실행해서 그런것같기도 하고 그리고 이상하게 대문자로 영어가 바뀌는것은 바뀌는데 소문자 대문자 구별이 없어서 그런것인지도 헷갈리네요. 1강부터 정독하고 있는데 질문드려보아요. Sub Test01() Dim i As Long Dim lngC As Long
end 뒤에 xltoleft 에서 xl 의 엘이 숫자 1인듯 보이는데 아닌가요? 그리고 강의관련 질문은 안녕하세요 엑사남입니다^^ 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 답변이 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
안녕하세요 질문 있습니다 :) 첫번째 For 만든 것에서 "Next i" 대신 Next 만 써도 이상없이 되던데 무슨 차이가 있을까요? 한개 코드 안에 For 문이 많을 경우가 생길수 있으므로 Next i 라고 쓰는 연습을 하는게 좋을까요? 오늘도 정말 많이 배우고 갑니다! 좋은 강의 감사합니다! ==== Sub test() Dim i As Long Dim j As Long Dim lngV As Long Dim lngH As Long lngH = Range("ZZ1").End(xlToLeft).Column lngV = Range("a10000").End(xlUp).Row For j = 2 To lngH For i = 2 To lngV If Cells(i, j)
공부 열심히 하고 있습니다. Sub test_01() Dim i As Long Dim j As Long Dim lngR As Long Dim lngC As Long lngR = Range("b10000").End(xlUp).Row lngC = Range("iv2").End(xlToLeft).Column For i = 2 To lngR For j = 2 To lngC If Cells(i, j) >= 85 Then Cells(i, j).Font.ColorIndex = 7 End If Next Next End Sub
Sub test01() 가로세로열 Data찾기 Sub test10() Dim i As Long Dim x As Long Dim lngR As Long Dim lngc As Long lngR = Range("B1000").End(xlUp).Row lngc = Range("iv2").End(xlToLeft).Column
Sub test2() Dim i As Long Dim j As Long Dim lngR As Long Dim lngC As Long lngR = Range("b1048576").End(xlUp).Row lngC = Range("xfd2").End(xlToLeft).Column For i = 2 To lngR For j = 2 To lngC
양질의 강의 감사합니다! Sub test02() Dim i As Long Dim j As Long Dim lngR As Long Dim lngC As Long lngR = Range("B10000").End(xlUp).Row lngC = Range("IV2").End(xlToLeft).Column For i = 2 To lngR For j = 2 To lngC If Cells(i, j) < 60 Then Cells(i, j).Font.ColorIndex = 46 End If Next Next End Sub
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 답변이 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
![[현장사례로 이해하는 적산과 견적실무] '이것'을 알지 못하면 견적조건을 충족할 수 없다?😱 어서 들어와서 보고 가세요!](http://i.ytimg.com/vi/VSDRzITewAU/mqdefault.jpg)
![Noob To Max With DRAGON REWORK In Blox Fruits [FULL MOVIE]](http://i.ytimg.com/vi/LnBMOinoOvA/mqdefault.jpg)
강사님의 말씀에 따라 저도 타이핑하여 성공하였습니다.
Sub test_222()
Dim i, j As Long
Dim LngR As Long
Dim LngC As Long
LngR = Range("B1000000").End(xlUp).Row
' MsgBox (LngR)
LngC = Range("xfd2").End(xlToLeft).Column
' MsgBox (LngC)
For i = 2 To LngR
For j = 2 To LngC
If Cells(i, j).Value >= 70 Then
Cells(i, j).Font.ColorIndex = 3
End If
Next j
Next i
End Sub
감사합니다.
5강도 잘 배웠습니다!
Sub 시작셀찾기()
'lngR 위치 UP으로 찾기
Dim i As Long
Dim lngR As Long
lngR = Range("B10000").End(xlUp).Row 'lngR은 B10000에서 위로올라가 첮번째 데이터가 행의 위치
For i = 2 To lngR
If Cells(i, 2)
코딩이 처음이 아니시죠? ㅎㅎ
헐 저도 맞췄어요!
한동안 vba 멀리하다 최근 다시 공부하고 있는데, 정말 필요한 것만 명확하게 잘 가르치시네요. 감사합니다 ^^
숙제 제출합니다.
Sub test1()
Dim i As Long
Dim j As Long
lngR = Cells(Rows.Count, 1).End(xlUp).Row
lngC = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 2 To lngR
For j = 2 To lngC
If Cells(i, j)
오늘은 숙제 쉽게 해냈어요! 이 성취감!!
처음엔 동영상보고 따라하고
두번째는 동영상보면서 메모하면서 공부했어요
샘 말대로 반복!!! 잊지않을께요 ^^
네네 축하드려요~
손가락이 기억할때까지
반복이 답입니다 ^^
포기만 안하면 다 됩니다
이제막 입문 원하는 사람들에게 흥미를 잃지 않게 중점을두고 하시는강의 정말 재미있게 보고 있습니다
감사합니다
토요일 하루 종일 선생님 강의를 반복해서 듣고 실습하고 있습니다. 이제 5강까지 왔습니다.
하루에 하나씩 열심히 듣고 있습니다.
감사합니다
Sub Homework_end()
Dim i As Long
Dim k As Long
Dim C As Range
Dim R As Range
Set C = Cells(2, Columns.Count).End(xlToLeft)
Set R = Cells(Rows.Count, "B").End(xlUp)
For i = 2 To C
For k = 2 To R
If Cells(i, k) >= 55 Then
Cells(i, k).Font.Color = 255
End If
Next
Next
End Sub
좋은 강의..감사합니다..
------------------------------------------------------------------------------------------------------------------------------
Sub test01()
Dim i As Long
Dim lngR As Long
lngR = Range("b10000").End(xlUp).Row
For i = 2 To lngR
If Cells(i, 2)
어깨 넘어로 배운 vba로 저도 최근에 업무를 효율적으로 진행하고 있습니다만 기본이 없어서 구글링을 통해서 배우고 있었습니다.
덕분에 기본부터 착실하게 배우게 되었네요. 앞으로 더 효율적으로 업무를 진행할 수 있을 것 같네요.
감사합니다.
도움되셔서 다행입니다
구독자 100만명 기원합니다. 정말 감사하고 많이 배워가겠습니다.
감사합니다
어렵더라도 포기만 안하시길 바랍니다
살짝 바꾸었는데 처음으로 오류 없이 한꺼번에 코딩을 완료했습니다. 기념으로^^
초보라 cells랑 range도 햇갈리고 "="을 넣어야 하는지도 햇갈리고 ㅠㅠ
항상 명강의 감사드립니다. 이번에 VBA를 함 입문해 보려구요.
Sub FontColor_test5()
Dim i As Long
Dim j As Long
Dim lngA As Long
Dim lngB As Long
lngA = Range("A1").End(xlDown).Row
lngB = Range("A1").End(xlToRight).Column
For i = 2 To lngA
For j = 2 To lngB
If Cells(i, j)
홋!!! 응원합니다
강사님 이번 강의도 너무 감사드립니다!!
Sub assignment()
Dim i As Long
Dim j As Long
Dim lngA As Long
Dim lngB As Long
lngA = Range("b60000").End(xlUp).Row
lngB = Range("zz2").End(xlToLeft).Column
For i = 2 To lngA
For j = 2 To lngB
If Cells(i, j) = 90 Then
Cells(i, j).Interior.Color = 255
End If
Next
Next
End Sub
저도 감사드려요
열심히 공부하시는 분들을 보면 저도 힘이 납니다.
숙제 했습니다요~~
Sub macro()
Dim i As Long
Dim k As Long
Dim lngr As Long
Dim lngt As Long
With Range("c3").CurrentRegion
.Interior.ColorIndex = 0
.Font.ColorIndex = 0
End With
lngr = Range("xfd4").End(xlToLeft).Column
lngt = Range("d10000").End(xlUp).Row
For i = 2 To lngr
For k = 2 To lngt
If Cells(k, i)
강의 너무 쏙쏙들어옵니다 감사합니다
Sub test01()
Dim i As Long
Dim j As Long
Dim lngR As Long
Dim lngC As Long
lngR = Range("a10000").End(xlUp).Row
lngC = Range("ix1").End(xlToLeft).Column
For i = 2 To lngR
For j = 2 To lngC
If Cells(i, j)
미루고 미루다 너무나 좋은 강의 만나 다시 시작합니다. 정말 감사합니다! :)
Sub test5()
Dim R, C As Long
Dim lngR As Long
Dim lngC As Long
lngR = Range("D10000").End(xlUp).Row
lngC = Range("IV14").End(xlToLeft).Column
For R = 2 To lngR
For C = 2 To lngC
If Cells(R, C) < 80 Then
Cells(R, C).Font.Color = 255
End If
Next
Next
End Sub실행확인 했습니다. 친절한 설명 늘 감사드려요!
강좌 잘보고 있습니다.
지루하지 않게 따라하면서 개념 잡으니까 훨씬 낫네요!!!
저는 끝을 구하는 식?을 반대로 생각해 봤습니다.
오른쪽에서 왼쪽이 아니고 아래서 위가 아닌 왼쪽에서 시작해서 오른쪽끝을 위에서 시작해서 아래쪽 끝을 확인하는 식으로...
과제입니다.
Sub test03() '가로세로
Dim i As Long
Dim j As Long
Dim lngR As Long
Dim lngC As Long
lngR = Range("b1").End(xlDown).Row '배운대로라면 Range("b10000").End(xlUp).Row
lngC = Range("b1").End(xlToRight).Column '배운대로라면 Range("iv2").End(xlToLeft).Column
For i = 2 To lngR
For j = 2 To lngC
If Cells(i, j)
정말 고맙습니다 셈 ㅎ ㅎ
오랜 시간 오프라인 ,온라인, 유튜브 많은 강의를 봤지만 이렇게 팩트로 쉽게 하시는건 처음 봤습니다. 정말 감사합니다.
좋게 봐주셔서 감사합니다
더욱 노력할께요
응원합니다
감사합니다 공부하는데 정말 많이 도움이 됩니다
고맙습니다.
습관이 되도록 몇번이고 계속 반복연습하며 공부하고 있습니다 ^^
숙제~~
Sub test04()
Dim i, j As Long
Dim lngR, lngC As Long
Dim A, B As Long
lngR = Cells(Rows.Count, "b").End(xlUp).Row '이 부분은 선생님을 답글을 보고 응용^^
lngC = Cells(2, Columns.Count).End(xlToLeft).Column
A = Range("조건점수1")
B = Range("조건점수2")
Range("b2:h20000").Font.ColorIndex = 1
Range("b2:h20000").Font.Bold = False
For i = 2 To lngR
For j = 2 To lngC
If Cells(i, j) = B Then
Cells(i, j).Font.ColorIndex = 5
Cells(i, j).Font.Bold = True
End If
Next j
Next i
End Sub
건강 조심하세요^^
네 제일 중요합니다
반복 반복 반복
열심히 정주행중입니다. 올려주셔서 감사합니다.
Sub Test01()
Dim i As Long
Dim l As Long
Dim lngC As Long
Dim lngD As Long
lngC = Range("B10000").End(xlUp).Row
lngD = Range("iv2").End(xlToLeft).Column
For i = 2 To lngC
For l = 2 To lngD
If Cells(i, l)
정말 재밌는 강의 잘봤습니다. 고맙습니다.
Sub test12()
Dim lngC, lngR As Long
Dim i, j
' Dim sh As Object
'Dim strA, strB As String
strA = "test5"
Worksheets(strA).Activate
lngR = Range("c10000").End(xlUp).Row
lngC = Range("zz3").End(xlToLeft).Column
'row i column j
For j = 3 To lngC
For i = 3 To lngR
If Cells(i, j) < 200 Then
Cells(i, j).Font.ColorIndex = 3
End If
Next
Next
End Sub
5강도 넘 재미나게 해봤네요. 늘 감사드립니다.
과제입니다.
Sub test_05()
Dim l_r As Long
Dim l_c As Long
Dim lngR As Long
Dim lngC As Long
lngR = Range("B10000").End(xlUp).Row
lngC = Range("iv2").End(xlToLeft).Column
For l_r = 2 To lngR
For l_c = 2 To lngC
If Cells(l_r, l_c)
차분하게 설명을 잘해주시네요. 1강부터 5강까지 실습하며 쭉 따라왔는데 초보인 저도 이해가 잘 되네요^^ 감사합니다.
네 감사합니다
더욱 신경써서 준비할께요
이 강의를 늦게 안게 아쉽네요...그래도 열심히 따라 하고 있습니다.
Sub test_04()
Dim i As Long
Dim j As Long
Dim lngR As Long
Dim lngC As Long
lngR = Range("B10000").End(xlUp).Row
lngC = Range("XFD2").End(xlToLeft).Column
For i = 2 To lngR
For j = 2 To lngC
If Cells(i, j)
실력이 안되고 머리도 늙어서 따라가기 힘들지만 엑사남님의 엑셀 왕초보 39강까지 끝마치고 VBA코스 열심히 따라하고 있습니다.
소중한 강의 그리고 이해하기 쉬운 설명 정말로 존경스럽네요. 참고로 저는 53세이지만 열심히 끝까지 해보겠습니다.
5강 숙제 올려봅니다. 틀린부분있으면 수정 부탁드립니다.
Sub test()
Dim i As Long
Dim j As Long
Dim lngR As Long
Dim lngC As Long
lngR = Range("b10000").End(xlUp).Row
lngC = Range("iv2").End(xlToLeft).Column
For i = 2 To lngR
For j = 2 To lngC
If Cells(i, j)
네 끝까지가 중요하시죠
끝까지 못하는 분들이 대부분이라
끝까지만 하셔도 탑입니다
응원할께요
진심 알고싶은 거였는데~~ 과제 드디어 한 번에 성공했어요~~
이 영광을 선생님께 돌립니다^^
Sub Test01()
Dim i As Long
Dim j As Long
Dim lngC As Long
Dim lngR As Long
lngR = Range("B10000").End(xlUp).Row
lngC = Range("IV2").End(xlToLeft).Column
For i = 2 To lngC
For j = 2 To lngR
If Cells(j, i)
good ~~ ^^
양질의 강의 정말 감사드립니다!
Sub hw()
Dim i As Long
Dim j As Long
Dim lngC As Long
Dim lngR As Long
lngR = Range("B10000").End(xlUp).Row
lngC = Range("XFD1").End(xlToLeft).Column
For i = 2 To lngR
For j = 2 To lngC
If Cells(i, j)
감사합니다
강의 감사합니다.
매일 한 강의씩 공부하고 있습니다.
변수지정 할때도 lng_i, lng_j 이런식으로 쓰니까
셀주소 표시하는 lng_r, lng_c과 헷갈리네요
아래 과제물은 엑셀에서 돌려보고
정상적으로 변환되기에 올린건데
셀주소 표시하는 lng_r, lng_c는 Dim으로 변수지정 안했는데도
변환되던데, 그래도 차후에는 변수지정하는게 맞겠죠?
Sub test1()
Dim lng_i As Long
Dim lng_j As Long
lng_r = Range(" b10000").End(xlUp).Row
lng_c = Range("ix2").End(xlToLeft).Column
For lng_j = 2 To lng_c
For lng_i = 2 To lng_r
If Cells(lng_i, lng_j)
정말 알고 싶은 내용 잘 배웠습니다 ~
정주행 하고 있습니다. 좋은 강의 감사합니다.!!
네 감사합니다
감사합니다. 선생님.
덕분에 잘 배우고 있습니다.
Sub Test_2()
Dim lngR As Long
Dim IngC As Long
IngR = Range("B1000").End(xlUp).Row
IngC = Range("xfd2").End(xlToLeft).Column
For i = 2 To IngR
For j = 2 To IngC
If Cells(i, j) < 70 Then
Cells(i, j).Font.ColorIndex = 3
End If
Next j
Next i
End Sub
오늘도 좋은 것 많이 배워 갑니다! 감사합니다~
Sub test02()
Dim i As Long
Dim k As Long
Dim lngR As Long
Dim lngC As Long
lngR = Range("B10000").End(xlUp).Row
lngC = Range("IV2").End(xlToLeft).Column
For i = 2 To lngR
For k = 2 To lngC
If Cells(i, k)
덕분에 미루고 있던 VBA공부를 이제서야 제대로 시작하네요. 좋은 강의 올려 주셔서 고맙습니다. 포기하지 않고 열심히 따라 가겠습니다!
네 포기하지 않는다는 말이 제일 좋습니다.
감사합니다.
응원할께요.
진짜 초보인데 너무 잘 보고있습니다 !
좋은 강의 고맙습니다
명강의 너무 감사하게 잘 보고 있습니다.
쉽게 설명해주셔서 이해하기가 좋습니다. 감사합니다.~~실무에서 응용하여 잘 사용하겠습니다.
네 도움되시길 바랍니다
감사합니다 VBA에 관해 아무것도 몰랐지만 쉽고 빠르게 이해할 수 있게 됐습니다.
과제
Sub Test01()
Dim i As Long
Dim j As Long
Dim lngA As Long
Dim lngC As Long
lngA = Range("B10000").End(xlUp).Row
lngC = Range("AA2").End(xlToLeft).Column
For i = 2 To lngA
For j = 2 To lngC
If Cells(i, j)
네 다행입니다
앞으로도 포기하지 말고 끝까지 가시죠 ㅎㅎ
엔지니어링 하다가 IT 어드민에 지원하면서 프로그래밍 기초부터 공부하고 있는데 정말 설명을 너무 잘해주시네요! 잘 배우고 있어요 감사합니다!
네 감사합니다
훌륭한강의감사합니다
덕분에 잘 배우고 있어요. 혹시 유선 통화도 가능한가요?
안녕하세요
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
도움되는 답변을 받으실 수 있습니다.
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
'엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
우와 대박 엄첨쉽게 알려주시네요 감사합니다
감사합니다 잘 배우고 있습니다.
Sub Test_1()
Dim i, j As Long
Dim lngC, lngR As Long
lngR = Cells(10000, 1).End(xlUp).Row
lngC = Cells(1, 1000).End(xlToLeft).Column
For i = 2 To lngR
For j = 2 To lngC
If Cells(i, j) < 70 Then
Cells(i, j).Font.ColorIndex = 3
End If
Next
Next
End Sub
감사히 잘 보고 있습니다. 숙제를 못풀 것 같아도 생각하면서 하니까 또 되네요 ㅎㅎ
뒤돌아 서면 까먹어도 강의 들으며 직접 타이핑 하고 생각하는 맛으로 재미있게 듣고 있습니다. 감사합니다 ^^
Sub test01()
Dim i As Long
Dim j As Long
Dim lngc As Long
Dim lngr As Long
lngr = Range("b1000").End(xlUp).Row
lngc = Range("iv" & lngr).End(xlToLeft).Column
For i = 2 To lngr
For j = 2 To lngc
If Cells(i, j) < 50 Then
Cells(i, j).Font.ColorIndex = 3
End If
Next j
Next i
End Sub
네네 저도 수천번 그렇게 지나왔습니다
힘내세요~~~
감사합니다. 답을 찾아 완성하는 기쁨이 있네요.^^ 아래는 과제와 초기화 코딩입니다.
'70이하값 빨강색
Sub test_5x()
Dim i As Long
Dim j As Long
Dim l_c As Long
Dim l_r As Long
l_c = Range("xx2").End(xlToLeft).Column
l_r = Range("b10000").End(xlUp).Row
For i = 2 To l_c
For j = 2 To l_r
If Cells(j, i)
Sub Test4() Dim i As Long
Dim k As Long
Dim lngr As Long
Dim lngc As Long
lngr = Range("B10000").End(xlUp).Row
lngc = Range("iv2").End(xlToLeft).Column
For i = 2 To lngr
For k = 2 To lngc
If Cells(i, k)
고맙습니다....매일 내용 기다리고 있습니다..열공합니다..
네네
항상 응원하겠습니다
리스펙이네요 진짜 ! 신세계를 보여주시네요~!
앞으로도 더욱 더 ㅎㅎ
오늘도 열심히 따라했습니다 감사합니다
안녕하세요 vba 공부하다 궁금한 점 있어서 댓글남깁니다 텍스트와 숫자를 같이 폰트색을 바꾸는 방법도 가능할까요? 예를들어 불합격자 버튼을 누르면 이름과 점수 모두 빨갛게 표시될수 있도록이요. 강의 감사합니다 잘 보고 있습니다 !
안녕하세요
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 답변이 가능합니다.
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
좋은자료 감사합니다.
직접 해보다가 계속 오류가 나서 다른 분들 댓글 찬스로 완성했습니다.
철자 하나 오류에도 작동이 안되니 주의해야 하네요.
이전에도 VBA를 몇 번 도전하다가 포기했는데, 이번에는 꼭 차근차근 습득해서 업무에 활용하겠습니다.
사람이면 대충 알아듣겠지만
모든 프로그래밍 언어가
정확한거 좋아하는 컴퓨터에게
말하는거라 그렇습니다
Sub test01()
Dim i As Long
Dim n As Long
Dim lngC As Long
Dim lngR As Long
lngR = Range("b100000").End(xlUp).Row
lngC = Range("iv2").End(xlToLeft).Column
For i = 2 To lngC
For n = 2 To lngR
If Cells(n, i)
쉽게 따라가수 있게 설명해주셔서 감사합니다.
Sub test06()
Dim i As Long
Dim j As Long
Dim lngR As Long
Dim lngC As Long
lngR = Range("B10000").End(xlUp).Row
lngC = Range("iv2").End(xlToLeft).Column
For i = 2 To lngR
For j = 2 To lngC
If Cells(i, j)
형님 감사합니다. 대학원생인데 많은 도움이 되고 있습니다. 정말로 감사합니다.
도움 된다는 말보다 기쁜말은 없습니다.
감사합니다.
Sub Test01()
Dim I As Long
Dim j As Long
For I = 2 To Range("A1").End(xlDown).Row
For j = 2 To Range("A1").End(xlToRight).Column
If Cells(I, j)
너무 쉬운설명 감사드립니다ㅠ 회사에서 VBA 이용하며 자료 작성하는데에 많은 도움이 되었습니다.
과제 코드는 아래와 같이 입력하였습니다.
Sub test2()
Dim i As Long
Dim c As Long
Dim lngR As Long
Dim lngC As Long
lngR = Range("B100").End(xlUp).Row
lngC = Range("R5").End(xlToLeft).Column
For i = 2 To lngR
For c = 2 To lngC
If Cells(i, c) > 100 Then
Cells(i, c).Font.ColorIndex = 3
End If
Next
Next i
End Sub
감사합니다.
넵 도움 되신다니 다행입니다
이번 강의도 잘 배웠습니다. 아래는 숙제 ㅎ_ㅎ)ㅋ.. 강의 다시 보다보니 lngR이랑 lngC 변수 선언 빠져서 아래 추가함요^^
Sub Score_Table_Homework01()
Dim i As Long
Dim j As Long
Dim lngR As Long
Dim lngC As Long
lngR = Range("B10000").End(xlUp).Row
lngC = Range("IV2").End(xlToLeft).Column
For i = 2 To lngR
For j = 2 To lngC
If Cells(i, j)
정석이네요 좋습니다
잘 보고있습니다. 이번엔 포기하지 않고 엑사남님 따라서 끝까지 한 번 가보려고 합니다.^^
네네 함께 가자구요
퐈이팅입니다
과제 완료하였습니다. 감사합니당.
Sub test04()
Dim i As Long
Dim j As Long
Dim lngR As Long
Dim lngC As Long
lngR = Range("B1048576").End(xlUp).Row
lngC = Range("XFD2").End(xlToLeft).Column
For i = 2 To lngR
For j = 2 To lngC
If Cells(i, j)
VBA 프로그램을 만들고 적용할 때, 같은 파일안의 다른 시트를 열고 실행하면 그 시트에도 동일 매크로가 적용이 되는건가요?? 한 파일 안에서는 동일한 매크로 작업을 해야하는 건가요? 아직 뒷부분 배우지 않았지만 현재 궁금한 부분이 생겨서 질문 남깁니다.
안녕하세요 엑사남입니다^^
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 답변이 가능합니다.
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
마지막 행과 열 잘 배워갑니다.
Sub Test()
Dim i As Long
Dim l As Long
Dim lngA As Long
Dim lngB As Long
lngA = Range("B10000").End(xlUp).Row
lngB = Range("AA2").End(xlToLeft).Column
For i = 2 To lngA
For l = 2 To lngB
If Cells(i, l) >= 80 Then
Cells(i, l).Font.ColorIndex = 3
End If
Next l
Next i
End Sub
네 정말 중요한 구문입니다
퐈이팅 입니다
VBA 언어 배워서 개꿀 !!
꼭 필요하고 많이 쓰는 쉽게 쓰는법을 알려주셨네요 감사합니다
네 최대한 노력중입니다
많은 관심 부탁드려요 ^^
재밌게 잘 배우고 있습니다^^
Sub test()
Dim lngRow_Test, lngColumn_Test As Long
Dim i, j As Long
lngRow_Test = Cells(10000, 2).End(xlUp).Row
lngColumn_Test = Cells(2, 10000).End(xlToLeft).Column
For i = 2 To lngRow_Test
For j = 2 To lngColumn_Test
If Cells(i, j)
감사합니다
이해하기 쉬운 강의 잘 들었습니다! 감사합니다 ㅎㅎ
Sub sheet5()
Dim i As Long
Dim j As Long
Dim lngR As Long
Dim lngC As Long
lngR = Range("B10000").End(xlUp).Row
lngC = Range("iv2").End(xlToLeft).Column
For i = 2 To lngR
For j = 2 To lngC
If Cells(i, j)
5강 까지 듣고 벌써 실무에 적용 중입니다 감사합니다 ^^
네 다행입니다
앞으로 더 긴 여정을 가야합니다
고수는 못되도라도 중수까지라도 함께 가시죠
응원합니다
감사합니다~^^
Sub example()
Dim lngR As Long
Dim lngC As Long
Dim a As Long
Dim b As Long
lngR = Range("B10000").End(xlUp).Row
lngC = Range("iv2").End(xlToLeft).Column
For a = 2 To lngR
For b = 2 To lngC
If Cells(a, b)
감사합니다
저도요 ^^
궁금했던 건데 정말 감사합니다!
따라가는 중입니다.
Sub TEST03()
Dim i As Long '행에 대한 변수
Dim j As Long '열에 대한 변수
Dim lngR As Long '행의 대한 범위 변수
Dim lngC As Long '열에 대한 범위 변수
lngR = Range("B100000").End(xlUp).Row
'B10000행을 끝으로 옆으로 첫번째 데이터가 있는 row 찾아서 lngR에 넣어라
lngC = Range("IV2").End(xlToLeft).Column
'iv2열을 끝으로 옆으로 첫번째 데이터가 있는 cell 찾아서 lngC에 넣어라
For i = 2 To lngR '마지막 row에 대한 for 반복문
For j = 2 To lngC '마지막 cell에 대한 for 반복문
If Cells(i, j)
출퇴근시간 때 보고 있습니당 ㅎ 자동화의 신세계네용 감사합니다!!
네 저도 감사드립니다
엑사남님 항상 양질의 강의 감사드립니다 제가 개인적으로 책으로도 따로 독학을 하면서 유튜브로 강의도 챙겨보고 있는데요... 아무래도 문제를 풀면서 실력이 는다고 생각해서 vba로 해결 가능한 예제들을 찾아보는데 생각보다 많지가 않더군요... vba의 여러 기능을 복합적으로 사용해서 해결 가능한 예제들을 모아놓은 사이트나 자료 등은 없을까요?
책은 vba 바이블이 정석이긴 한데요
내 업무상 필요에 의해서,
또는 내가 기획한 뭔가를 만들기 위해서
하나 하나 찾아서 적용하는게 빠르긴 합니다
싸이트는 엑사모가 그때 그때 질문하거나
글도된 강좌 보기에 좋고요
또는 우노엑셀21 이건 평생회원 5만원 정도인데
고급수준입니다
엑셀장인촬스 또는 오빠두엑셀 등의 강의도 좋을듯 하고요
요즘은 찾아보면 엄청 많지요
좋은 결과 있기를 응원하겠습니다
엑사남ExcelLoveMan- 헉 항상 친절한 답변 너무 감사합니다!! 엑사남님 따라서 꼭 엑셀 고수가 되겠습니다 ㅠㅠ
강의 정말 감사합니다 .돈 내고도 볼 수 있겠네요!! 정말 유익합니다 ㅎㅎ
잘 듣고 있습니다. 요점만 잘 해 주시니 너무 감사^^
잘 들어주시니 너무 감사^^
쉽게 설명해주셔서 ~~~~너무 잘배우고 있어요 🤗🤗🤗🤗🤗
네 도움 되신다니 저도 감사합니다
와우 감사합니다.
제가 일하는 곳에서는 스캔 데이터가 하루가 3만~5만건 정도로 변동되는데 마지막 셀 찾는게 일이었어요. 한 개 필드에는 10개 데이터세트가 있고, 레코드가 한 시간에 4천 여개씩 증가하고 파일이 두 개씩 만들어집니다. (출고 라인 스캐너가 두 개)
택스트 색깔 말고, 특정 조건(구간) 데이터만 추출해서 복사하고, 카운트 하려면 어찌 하면 될지요?
예를 들어서 스캔 데이터가 12자리 숫자로 구성되는데, 왼쪽 4자리가 1100××××××××이면 1열에 차례로 정렬, 2200××××××××이면 2열에 차례로 정렬,3300xxxxxxxx이면 3열에 정렬 이런 식입니다.
가끔 8자리 데이터도 발생하곤 해서 왼쪽만 읽으면 오류가 날 수가 있습니다.
그렇게 된다면 1시간마다(또는 10분,1분마다) 1100xxxxxxxx몇 개, 2200xxxxxxxx 몇 개 이란 통계를 내서 대시보드에 표출할 수 있겠죠.
(단순 카운트가 아니고 정렬하는 이유는 출고리스트를 보고서로 만들어야 하기 때문입니다)
이런 실시간 통계 및 보고서를 하려면 오늘 가르쳐 주신 것이 아주 효과적입니다.
감사합니다.
잘 지내셨어요?전에 강의듣다가 중단했는데 다시해보고 있습니다.
새해복많이 받으십시오.우선~~
질문드릴게 있는데 1004 런타임 오류가 발생하네요.ㅇ떤 세팅이 잘못된것인지 모르겠습니다.
마음에 걸리는것은 엑셀 시트에 숫자입력을 모듈만 설정하고 엑셀 아이콘 눌러서 빈셀에다가 적어주고 실행해서 그런것같기도 하고
그리고 이상하게 대문자로 영어가 바뀌는것은 바뀌는데 소문자 대문자 구별이 없어서 그런것인지도 헷갈리네요.
1강부터 정독하고 있는데 질문드려보아요.
Sub Test01()
Dim i As Long
Dim lngC As Long
lngC = Range("iv2").End(x1ToLeft).Column
For i = 2 To lngC
If Cells(2, i)
end 뒤에 xltoleft 에서
xl 의 엘이 숫자 1인듯 보이는데 아닌가요?
그리고 강의관련 질문은
안녕하세요 엑사남입니다^^
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 답변이 가능합니다.
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
@@excelloveman-3399 네 알겠습니다.
그렇게 하겠습니다.채팅방이 있어서 다행입니다.
@@excelloveman-3399 네 비번이 있어야 입장가능하다고 하네요.
열심히 해서 끝까지 모든강의 정독해보겠습니다.
@@조스티브-u3f 네 서로 소통을 위한 최소한의 경계입니다
조금만 하시면 알 수 있으실 거에요~~~
@@excelloveman-3399 네 비번^^ 이 있어야 입장가능할텐데 아직 자격이 안되는건가요?
안녕하세요 질문 있습니다 :)
첫번째 For 만든 것에서 "Next i" 대신 Next 만 써도 이상없이 되던데 무슨 차이가 있을까요? 한개 코드 안에 For 문이 많을 경우가 생길수 있으므로 Next i 라고 쓰는 연습을 하는게 좋을까요?
오늘도 정말 많이 배우고 갑니다! 좋은 강의 감사합니다!
====
Sub test()
Dim i As Long
Dim j As Long
Dim lngV As Long
Dim lngH As Long
lngH = Range("ZZ1").End(xlToLeft).Column
lngV = Range("a10000").End(xlUp).Row
For j = 2 To lngH
For i = 2 To lngV
If Cells(i, j)
네 맞습니다
안써도 됩니다
가독성을 위해서 멓는것이 좋습니다
하위 for 문은 들여쓰기 해주는게 좋을것 같아요 ^^
if 문 안에 구문도요
잘 보고 있습니다. 좋은 강의 정말 감사합니다!
과제:
Sub homework()
Dim i As Long
Dim j As Long
Dim lngR As Long
Dim lngC As Long
lngR = Range("a10000").End(xlUp).Row
lngC = Range("iv1").End(xlToLeft).Column
For i = 2 To lngR
For j = 2 To lngC
If Cells(i, j)
어느 부분이 오류가 있나요?
코드상으로는 오류는 없어보입니다
다만 컬러가 2 이면 글씨색이 흰색으로 변경되어서
텍스트가 지워진거처럼 보이겠네요
공부 열심히 하고 있습니다.
Sub test_01()
Dim i As Long
Dim j As Long
Dim lngR As Long
Dim lngC As Long
lngR = Range("b10000").End(xlUp).Row
lngC = Range("iv2").End(xlToLeft).Column
For i = 2 To lngR
For j = 2 To lngC
If Cells(i, j) >= 85 Then
Cells(i, j).Font.ColorIndex = 7
End If
Next
Next
End Sub
응원합니다
꼼꼼히 하나 버리지 말고 들으세요
중간에 빼먹는게 있으면
이어서 어려워 집니다
@@excelloveman-3399 여기는 베트남입니다. 감사합니다.
와 베트남... 치안도 좋고
한번 가보고 싶은 곳입니다
감사합니다 ^^
넵 감사합니다
이거 뙇 궁금했는데, 컨텐츠 감사합니다.^^
혹시 10000 이런식으로 숫자말고, row와 column 의 "max"에 해당하는 키워드가 있나요? 계산효율에 영향이 있나요?
간단한 질문이니 댓글로 드릴께요
cells(rows.count,"A")
cells(1,columns.count)
즐거운 하루 되세요
잘 보고있습니다. 재미있네요
next i 는 왜 써주는것이죠? 댓글에는 가독성의 차이라는데 i를 붙여주면 무슨 효과가 있는 것인지요??
i 를 빼도 상관은 없지만
for 문 안에 for문을 중첩 사용 할 경우
현재의 next 가 어떤 변수의 for 문이다 라고
직관적으로 알 수 있습니다
늦었지만 저도 숙제 했습니다. ^^
Sub test_1()
Dim i As Long
Dim h As Long
Dim lngR As Long
Dim lngC As Long
lngR = Range("B10000").End(xlUp).Row
lngC = Range("IV2").End(xlToLeft).Column
For i = 2 To lngR
For h = 2 To lngC
If Cells(i, h)
늦는건 없어요
응원합니다
Sub test01() 가로세로열 Data찾기
Sub test10()
Dim i As Long
Dim x As Long
Dim lngR As Long
Dim lngc As Long
lngR = Range("B1000").End(xlUp).Row
lngc = Range("iv2").End(xlToLeft).Column
For i = 2 To lngR
For x = 2 To lngc
If Cells(i, x)
혹시 등차수열처럼 -100~100범위를 원하는 같은 간격으로 나누는 함수가 잇을가요?? -100 -50 0 50 100 이런식으로여..!!
Sub test2()
Dim i As Long
Dim j As Long
Dim lngR As Long
Dim lngC As Long
lngR = Range("b1048576").End(xlUp).Row
lngC = Range("xfd2").End(xlToLeft).Column
For i = 2 To lngR
For j = 2 To lngC
If Cells(i, j)
if 셀값 >=70 and 셀값
네 감사합니다.
저도 댓글이 있어서 좀 마무리가 되었네요. 알듯하면서도 어렵네요..ㅎㅎ 여기서 궁금한것이 있는데요.. 그럼 마지막 열과 행은 찾았지만 제가 찾는 값이 마지막 행에서 위로 3번째 행까지 적용하려면 어떻게 해야 하죠?? 너무 앞서갔나요? ^^;;;
마지막행번호 -3 하면 되겠지요
@@excelloveman-3399 감사합니다
Sub test_01()
Dim i As Long
Dim j As Long
Dim lngr As Long
Dim lngc As Long
lngr = Range("B10000").End(xlUp).Row
lngc = Range("IV2").End(xlToLeft).Column
For j = 2 To lngc
For i = 2 To lngr
If Cells(i, j)
양질의 강의 감사합니다!
Sub test02()
Dim i As Long
Dim j As Long
Dim lngR As Long
Dim lngC As Long
lngR = Range("B10000").End(xlUp).Row
lngC = Range("IV2").End(xlToLeft).Column
For i = 2 To lngR
For j = 2 To lngC
If Cells(i, j) < 60 Then
Cells(i, j).Font.ColorIndex = 46
End If
Next
Next
End Sub
좋게 봐주시니 감사합니다
응원하겠습니다
안녕하세요. 2년이 지난 지금도 잘 배우고 있습니다. 다름아니고, 아래와 같이 변수선언을 따로 하지 않았는데도 잘 적용이 되던데 왜 그런지 알 수 있을까요? cells를 썼기 때문에 알아서 인식하는 건가요?
Sub test01()
For i = 2 To 14
For j = 2 To 4
If Cells(i, j)
안녕하세요
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 답변이 가능합니다.
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
한번에 되어서 기쁜 마음에 댓글 남겨요~
저도 과제를 해결했습니다~
Sub 열행마지막()
Dim i As Long
Dim j As Long
Dim lngR As Long
Dim lngC As Long
lngR = Range("b10000").End(xlUp).Row
lngC = Range("zz2").End(xlToLeft).Column
For i = 2 To lngR
For j = 2 To lngC
If Cells(i, j)
천단위가 넘어서 시작하면 매번 메뉴얼로 바꿔줘야하나요 ㅠㅠ? 위에서 아래로 잡는방법도 알려주셨으면 좋겠어용
좋은 영상 정말 감사합니다~
네 저도 감사해요
응원합니다
아 다시 답안을 보고 생각해 보니 구구단이랑 원리가 똑같군요 ㅋㅋ 조금만 더 생각해 볼 걸... 아침이라서 욕심만 앞섰네요 너무 재밌네요 vba
네네 다행입니다 휴~~~
응원하겠습니다 질문 있으심 언제든 올려주세요
@@excelloveman-3399 해결 됐습니다 제가 철자 하나를 잘못 넣었네요 ㅎㅎ
좋은 강의 너무 감사합니다 강의가 쏙쏙 들어와요!!! 최고입니다~
네 감사합니다
더 성의껏 준비할께요