본문 바로가기

Excel VBA/VBA 예제

(29)
excel vba array, redim예제 excel vba array, redim예제 1234567891011121314151617181920212223242526272829303132Function get제품명(브랜드명) Sheets("filter_제품코드제품명").Range("a2:e7").ClearContents Sheets("filter_제품코드제품명").Range("d2").Value = 브랜드명 Call advancedFilter("제품코드제품명", "filter_제품코드제품명") 행개수 = Sheets("filter_제품코드제품명").Range("a8").CurrentRegion.Rows.Count - 1 Dim 데이터개수 As Integer 데이터개수 = 행개수 - 1 Dim ar() As String ReDim ar(데이터개수)..
excel vba 시트 개수 세기, 시트 이름 출력하기 시트개수 = ActiveWorkbook.Worksheets.Count
excel vba 차트 이동하기 ActiveChart.Parent.top = 200ActiveChart.Parent.Left = 200 차트를 위에서 200피셀 만큼, 왼쪽에서 200픽셀만큼 움직여서 그린다.
해당 시트명이 없으면 sub 종료하는 로직 해당 시트명이 없으면 sub 종료하는 로직1234567891011121314151617Sub main() If sheetExists("raw_data") = False Then MsgBox ("raw_data 시트가 없습니다.") Exit Sub End If End Sub Function sheetExists(shtName As String, Optional wb As Workbook) As Boolean Dim sht As Worksheet If wb Is Nothing Then Set wb = ThisWorkbook On Error Resume Next Set sht = wb.Sheets(shtName) On Error GoTo 0 sheetExists = Not sht Is Nothing End F..
Excel VBA substring, indexOf 괄호 안에 있는 문자열 추출하기 Excel VBA substring, indexOf 괄호 안에 있는 문자열 추출하기 1234567891011Sub bracket_test() str1 = "system(bla/bla2)" occurOpenBracket = InStr(str1, "(") occurCloseBracket = InStr(str1, ")") result = Mid(str1, occurOpenBracket + 1, occurCloseBracket - occurOpenBracket - 1) Debug.Print (result)End Sub Colored by Color Scriptercs end.
Excel VBA 키워드의 카테고리 찾기 키워드의 카테고리 찾기 123456789101112131415161718192021222324252627Sub main() result = get_카테고리_이름("거실") MsgBox (result)End Sub Function get_카테고리_이름(키워드) 결과 = "결과가 없습니다." '해당 키워드가 들어있는 행의 a열 값 '7행 10열 에서 검색 For 행 = 1 To 7 For 열 = 1 To 11 셀값 = Sheets("keywords").Cells(행, 열 + 1).Value If 키워드 = 셀값 Then 카테고리이름 = Sheets("keywords").Cells(행, 1).Value 결과 = 카테고리이름 Exit For End If Next Next get_카테고리_이름 = 결과 End F..
Excel Vba Chart 행열 전환 하는 법 Excel Vba Chart 행열 전환 하는 법일단은 결론부터 말하면ActiveChart.PlotBy = xlColumns이거 또는ActiveChart.PlotBy = xlRows이거 둘중에 하나를 쓰면 된다. 이렇게 나오는 문제가 자주 있는데 위 속성을 조절 해서 이렇게 나오게 할 수 있다. 참고 소스코드는 아래와 같다.Sub drawChart(p_시트명) Range("A1:B11").Select ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select ActiveChart.SetSourceData Source:=Range(p_시트명 & "!$A$1:$B$11") ActiveChart.PlotBy = xlColumnsEnd Sub end.
고급필터 예제 고급필터 예제 12345678Sub advancedFilter(db시트명, filter시트명) filter시트columns = Sheets(filter시트명).Range("a1").CurrentRegion.Columns.Count filter_column_name_addr = Sheets(filter시트명).Range(Sheets(filter시트명).Cells(8, 1), Sheets(filter시트명).Cells(8, filter시트columns)).Address Sheets(db시트명).Range("A1").CurrentRegion.advancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets(filter시트명).Range("A1").CurrentRegi..