VBA Excel 사용자 정의 함수를 사용하기 위한 간단한 구문

VBA 사용자 정의 기능을 구현하는 간단한 튜토리얼입니다.

새 모듈

뒤에 코드를 복사해서 넣어주세요

함수의 입력 매개변수가 정의되지 않은 경우에는 영역으로 간주되고,
그렇지 않은 경우 FindChar1 As String과 같이 단일 입력값으로 간주됩니다.

루프와 분기는 다음과 같습니다. VB는 자연어에 가깝습니다. 영어를 잘 구사할 수 있다면 비교적 쓰기 편할 것입니다.

Function xiu_xi(FindArea)
   Dim flag As String
   flag = " "
   Dim N2 As Integer
   N2 = 0
   For i = 2 To FindArea.Columns.Count
       If Trim(FindArea.Cells(1, i)) = "" And Trim(FindArea.Cells(1, i - 1)) = "" Then
          N2 = N2 + 1
          If N2 >= 6 Then
             flag = "X"
             Exit For
          End If
       Else
          N2 = 0
       End If
   Next i
   xiu_xi = flag
End Function

아래 구현한 것은 이중조건 검색인데, VLOOKUP을 사용하려면 먼저 연결이 필요합니다.

Function TQ_MultiVLookup(FindChar1 As String, FindChar2 As String, FindArea)
   Dim n As Integer
   n = FindArea.Columns.Count
   For i = 1 To FindArea.Rows.Count
       If FindChar1 = FindArea.Cells(i, 1) And FindChar2 = FindArea.Cells(i, 2) Then
          TQ_MultiVLookup = FindArea.Cells(i, n)
          Exit For
       End If
   Next i
End Function

Excel 페이지로 돌아가서 함수를 사용하면 방금 추가한 함수가 있을 것입니다.