엑셀 매크로

엑셀 함수 목록

https://www.oppadu.com/%ec%97%91%ec%85%80-%ed%95%a8%ec%88%98-%eb%aa%a9%eb%a1%9d/

SQL의 substring() 함수와 비슷한 함수

RIGHT"셀 or 문자", 잘라낼 글자 수)
LEFT("셀 or 문자", 잘라낼 글자 수)
MID("셀 or 문자", 시작글자 수,잘라낼 글자 수)

모든 시트에 적용 하기

Sub 시트마다_바로가기_컬럼추가()
  
    Dim Count1 As Integer
    Dim i As Integer

    'Set Count1 equal to the number of worksheets in the active workbook.

    Count1 = ActiveWorkbook.Worksheets.Count

    For i = 1 To Count1
    
        Worksheets(i).Activate
        ' 통합 시트는 제외 하기 (실행버튼이 있는 시트)
        If Worksheets(i).Name <> "통합" Then               '// Sheet 파일이름이 Main이 아니면
        ' 적용할 액션을 기술 
            Application.Goto Reference:="R5C11"
            Range(Selection, Selection.End(xlDown)).Select
            Range(Selection, Selection.End(xlToRight)).Select
            Selection.FillDown
        End If
        
    Next i
End Sub

시트마다 컬럼 추가 하기

Sub 시트마다_바로가기_컬럼추가()
  
    Dim Count1 As Integer
    Dim i As Integer

    'Set Count1 equal to the number of worksheets in the active workbook.

    Count1 = ActiveWorkbook.Worksheets.Count

    For i = 1 To Count1
    
        Worksheets(i).Activate
        
        If Worksheets(i).Name <> "통합" Then               '// Sheet 파일이름이 Main이 아니면
            ' 적용할 액션을 기술
            Application.Goto Reference:="R5C11"
            Range(Selection, Selection.End(xlDown)).Select
            Range(Selection, Selection.End(xlToRight)).Select
            Selection.FillDown
        End If
        
    Next i
End Sub

시트별로 행의 갯수가 다른경우 반복 적용 하기

Sub 검증규칙코드추가()
'
' 검증규칙코드추가 매크로
'

'
    'Columns("E:E").Select
    'Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    'Range("E4").Select
    'ActiveCell.FormulaR1C1 = "검증규칙코드"
    
    'Dim A As Range

    
    ' 최대행의 건수 알기
    rowCnt = Range("a5", Range("a5").End(xlDown)).Rows.Count
    'Set A = Range("A3:B4")
    '열개수 = Range("a1", Range("a1").End(xlToRight)).Columns.Count

    'MsgBox (rowCnt)
    
    
'    Range("a5", "A" & 4 + rowCnt).Select
   
    Range("E5").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1],[검증규칙_목록_20200710_173349.xls]Sheet1!C9:C11,3,0)"

    Range("e5", "e" & 4 + rowCnt).Select
    Selection.FillDown

End Sub


Sub 검증규칙코드_반복실행()
  
    Dim Count1 As Integer
    Dim i As Integer

    'Set Count1 equal to the number of worksheets in the active workbook.

    Count1 = ActiveWorkbook.Worksheets.Count

    For i = 1 To Count1
    
        Worksheets(i).Activate
        ' 적용할 액션을 기술
        
        If Worksheets(i).Name <> "통합" Then               '// Sheet 파일이름이 Main이 아니면
            Call 검증규칙코드추가
        End If

        
    Next i
End Sub