Skip to content

Instantly share code, notes, and snippets.

@ndthanh ndthanh/Module1.bas
Created Jan 4, 2017

Embed
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
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
You can’t perform that action at this time.