https://www.hocexcel.online/vba28-%e2%97%8b-tao-form-nhap-lieu-dac-biet.html

Module1.bas

Option Explicit
Public Const SHEET_SETTINGS As String = "SETTINGS"
Public Const SHEET_DATA As String = "DATA"
Public Const UI_GAP As Integer = 5
Public Const UI_LEFT As Integer = 10
Public Const UI_LINE_HEIGHT As Integer = 16
Public Const UI_FONT_SIZE As Integer = 8

Sub showForm()
'Hiện ra Form nhập liệu
    Userform1.Show
End Sub

'Function này dùng để tìm ra dòng cuối cùng có chứa dữ liệu trong 1 sheet
Function getLR(sheetname As String, col As String)
    getLR = Sheets(sheetname).Range(col & Rows.Count).End(xlUp).Row
End Function