본문 바로가기

Excel VBA/VBA 예제

(29)
구글 스프레드시트 세로값 펼치기 =TRANSPOSE(INDIRECT("D"&((row(E9)-8)*10)&":D"&((row(E9)-8)*10)+9)) https://docs.google.com/spreadsheets/d/19jkZJda4X8eXbIZWVzaIC-qyxT6Zt7kEO6JWMMcWdhk/edit?usp=sharing 세로를 가로로 시트1 1,d=1,d=1,이로케 한담에 2,d=2,d=2,값붙여넣기 3,d=3,d=3 살인발생,살인검거,강도발생,강도검거,강간발행,강간검거,절도발생,절도검거,폭력발생,폭력검거 관서명,죄종,발생검거,건수,0,0,6,6,173,87,1061,489,1198,1024 중부,살인,발생,0,5,3,5,4,131,103,910,360,1220,1059 중부,살인,검거,0,1,0,3,3,94,62,785,4..
unique뽑아내기 12345678Sub 주소_시이름unique에넣기() Sheets("unique").Cells.Clear Count = Sheets("raw_data").Range("a1").CurrentRegion.Rows.Count Sheets("raw_data").Range("B1:B" & Count).advancedFilter _ Action:=xlFilterCopy, _ CopyToRange:=Range("A1"), _ Unique:=TrueEnd SubColored by Color Scriptercs
excel vba 정렬 Sub 정렬() Range("a8").CurrentRegion.Sort key1:=Range("G9"), order1:=xlAscending, _ key2:=Range("H9"), order2:=xlAscending, _ key3:=Range("R9"), order3:=xlAscending, Header:=xlYes End Sub12345678910111213Sub 정렬() Worksheets("filter").Sort.SortFields.Clear Worksheets("filter").Sort.SortFields.Add2 Key:=Range("H9"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWo..
excel vba function 예제 - 사칙연산 123456789101112131415161718192021222324252627Sub main_function() Cells.Clear result = plus(10, 20) result2 = minus(10, 20) result3 = multiple(10, 20) result4 = divide(10, 20) Range("a1").Value = result Range("a2").Value = result2 Range("a3").Value = result3 Range("a4").Value = result4End Sub Function plus(val1, val2) plus = val1 + val2End Function Function minus(val1, val2) minus = val1 - val2En..
열개수 숫자를 알파벳으로 ex)27 -> AA 열개수 숫자를 알파벳으로 ex)27 -> AA 123456789Function getColumunAddress(p_colno) getColumunAddress = Split(Cells(, p_colno).Address, "$")(1)End Function Sub testGetColumnAddress() 컬럼숫자 = 27 result = getColumunAddress(컬럼숫자) MsgBox (result)End SubColored by Color Scriptercs 결과 end.
excel vba 글자 나누기 Split() excel vba 글자 나누기 Split()123456789Sub main() 대상값 = Range("a1").Valuear = Split(대상값, ",") Range("c1").Value = ar(0)Range("c2").Value = ar(1) End Subcs 결과abcdefgh end.
excel vba 날짜 다루기 now, string -> dateObject date add 123456789101112Sub datetimeNow() Date2 = DateTime.DateValue(DateTime.Now) Debug.Print (Date2) dateString = "20180619" dateObjct = DateSerial(CInt(Left(dateString, 4)), CInt(Mid(dateString, 5, 2)), CInt(Right(dateString, 2))) Debug.Print (dateObject) End Sub Colored by Color Scriptercs 현재 날짜와 지정한 날짜의 차의를 계산 하고 싶을 때 1.현재 날짜를 dateObject로 만들어야 하고2.원하는 날짜를 dateObject로 만들어서 그 차이를 계산 해야 한다. 그게 1번과 2번이다..
excel vba regexp 12345678910111213141516171819Sub regexp_test() str1 = "system(bla/bla2)" str2 = "()" result = getInnerBracketText(str1) Debug.Print (getInnerBracketText(str1)) Debug.Print (getInnerBracketText(str2))End Sub Function getInnerBracketText(str) As String occurOpenBracket = InStr(str, "(") occurCloseBracket = InStr(str, ")") If occurOpenBracket