VBA에서 클릭 버튼을 통해 값 비교 및 ​​할당

Question

클릭 버튼을 통해 일련 번호와 같은 열에 값을 지정하고 싶습니다. 나는 이미 하나의 코드를 만들지 만, 버튼은 없다. 버튼도 추가하고 싶습니다.

Option Base 1 
Function Check() 
    Dim i As Integer 
    Dim startCell As Range 
    Dim firstNonEmptyCell As Range 

    Set startCell = Range("G2") 

    If VBA.IsEmpty(startCell.Value) Then 
     MsgBox "No data in this column" 
    Else 
     Range("A2") = 1 
     Range("A2").Select 
     Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _ 
     Step:=1, Stop:=400, Trend:=False 
    End If 
End Function 

Answer 1

1. 삽입 Developer 도구 모음에서 Insert를 통해 Form 버튼을 누릅니다.

   

2. 는 모듈에 다음 코드를 붙여 다음 마우스 오른쪽 버튼을 클릭 assign Macro 클릭합니다.

3. Assign Macro 대화 상자에서 Button1_Click을 선택하면 완료됩니다.

코드

Option Explicit 

Sub Button1_Click() 
    Dim ws As Worksheet 
    Dim LRow As Long, i As Long 

    '~~> Change this to the relevant worsheet 
    Set ws = ThisWorkbook.Sheets("Sheet1") 

    With ws 
     '~~> Find Last Row in Col G which has data 
     LRow = .Range("G" & .Rows.Count).End(xlUp).Row 

     If LRow = 1 Then 
      MsgBox "No data in column G" 
     Else 
      For i = 2 To LRow 
       .Range("A" & i).Value = i - 1 
      Next i 
     End If 
    End With 
End Sub