Skip to content

Instantly share code, notes, and snippets.

@ndthanh
Created January 4, 2017 03:58
Show Gist options
  • Save ndthanh/0e84c5f7fee30cafb9fcbaedc426df0b to your computer and use it in GitHub Desktop.
Save ndthanh/0e84c5f7fee30cafb9fcbaedc426df0b to your computer and use it in GitHub Desktop.
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment