Skip to content

Instantly share code, notes, and snippets.

Created January 4, 2017 03:58
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
What would you like to do?
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
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