NÚT THOÁT
Private Sub Nut_thoat_Click()
Unload Me
End Sub
nhập liệu liên tục
Private Sub Luu_Click()
Dim NL As Long
With Sheet28
NL = .Range("C" & Rows.Count).End(xlUp).row + 1
.Range("C" & NL).Value = Me.hstt_donvi.Value
.Range("L" & NL).Value = Me.hstt_loaivay.Value
.Range("T" & NL).Value = Me.hstt_sotien.Value
.Range("AA" & NL).Value = "'" & Me.hstt_ngaygiaingan.Value
.Range("AE" & NL).Value = "'" & Me.hstt_ngaydenhan.Value
End With
End Sub
Sub Xoadl()
Sheet1.Range("b8:e15").ClearContents
End Sub
Ghi nhiều nội dung
Private Sub NutLuu_Click()
Dim Lr As Long
With sheet 18
Lr =.range("A"&Rows.count).End(XlUP).Row+1
.Range("A3"&lr).Value = a_ten.Value
End With
Eud sub
VBA LINk sheet
Sub link create UNC()
sheet2.visible=xlsheetVisible
sheet2.select
End sub
Trong đó:
Sheet2 là code của Sheet Create.
Sheet2.Visible đại diện cho thuộc tính ẩn/hiện của Sheet. Nếu chúng ta chọn xlSheetVisible thì sheet đó được hiện ra nếu đang bị ẩn.
Sheet2.Select là thuộc tính lựa chọn, nghĩa là chúng ta chọn tới Sheet2 sau khi Sheet đó đã ở chế độ hiện.
VBA SHEET MENU
SUB LINK MENU()
ActiveSheet.Visible = xlSheetHidden
Sheet7.select
End sub
Trong đó:
AciveSheet là Sheet đang hoạt động. Tại Sheet đang hiển thị trong giao diện Excel, chúng ta sẽ đặt lệnh quay trở lại MENU.
ActiveSheet.Visible = xlSheetHidden tức là ẩn sheet đang hoạt động đi. Khi quay trở lại MENU, chúng ta sẽ ẩn sheet đó đi.
Sheet7 là code của sheet MENU.
Sheet7.select là chọn tới Sheet 7 (MENU).
PHÂN CÁCH SỐ
Private Sub ac_sotien_Change()
ac_sotien = Format(ac_sotien, "#,##0")
End Sub
SOI TRƯỚC IN
Sub soidein_Click()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Private Sub Nhap_lai_Click()
Unload Me
chinhsuathongtin_KH.Show
End Sub
NÚT HIỂN THỊ FORM NHẬP LIỆU
Sub hienformnhaplieu()
frmnhaplieu.Show
End Sub
LỰA CHỌN NAM HAY NỮA
If a_Nam = True Then
.Range("G3" & Lr).Value = Sheet64.Range("T3").Value
Else
.Range("G3" & Lr).Value = Sheet64.Range("T4").Value
End If
Ghi chú: Sheet64: tên sheet
G3: nơi ghi lưu dữ liệu
T3, T4: là vùng địa chỉ trở về vì vba không nhập được tiếng việt
NGOAC VUONG
Private Sub luu_Click()
With Sheet59
If huy_1 = True Then
.Range("B27").Value = "X"
Else
.Range("B27").Value = ""
End If
If Huy_2 = True Then
.Range("P27").Value = "X"
Else
.Range("P27").Value = ""
End If
If huy_3 = True Then
.Range("B29").Value = "X"
Else
.Range("B29").Value = ""
End If
End With
End Sub
VÙNG NHẬP LIỆU HAY NÚT LƯU DỮ LIỆU
(A3, B3,C3…..: ô ghi dữ liệu,
a_ten, a_diachi…..: là tên biểu tượng)
Private Sub NutLuu_Click()
With Sheet64
.Range("A3").Value = Me.a_ten.Value
.Range("B3").Value = Me.a_diachi.Value
.Range("C3").Value = Me.a_CC.Value
.Range("D3").Value = Me.a_ngaysinh.Value
.Range("E3").Value = Me.a_ngaycap.Value
.Range("F3").Value = Me.a_noicap.Value
.Range("J3").Value = Me.a_mkh.Value
.Range("H3").Value = Me.a_sdt
.Range("I3").Value = Me.a_stk.Value
.Range("B3").Value = Me.a_diachi.Value
If a_Nam = True Then LỰA CHỌN TRÒN
.Range("G3" & Lr).Value = Sheet64.Range("T3").Value
Else
.Range("G3" & Lr).Value = Sheet64.Range("T4").Value
End If
If checkbox tieng anh=true then LỰA CHỌN VUÔNG
.Range("K3").Value ="x"
End if
.Range("K3").Value = Me.B_1.Value
.Range("L3").Value = Me.B_2.Value
.Range("M3").Value = Me.B_3.Value
.Range("N3").Value = Me.B_4.Value
.Range("O3").Value = Me.B_5.Value
.Range("P3").Value = Me.B_6.Value
.Range("Q3").Value = Me.B_7.Value
.Range("S3").Value = Me.B_8.Value
End With
End Sub
NÚT THOÁT
Private Sub Nut_thoat_Click()
Unload Me
End Sub
PHÂN CÁCH SỐ
Private Sub ac_sotien_Change()
ac_sotien = Format(ac_sotien, "#,##0")
End Sub
SOI TRƯỚC IN
Sub soidein_Click()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Private Sub Nhap_lai_Click()
Unload Me
chinhsuathongtin_KH.Show
End Sub
NÚT HIỂN THỊ FORM NHẬP LIỆU
Sub hienformnhaplieu()
frmnhaplieu.Show
End Sub
LỰA CHỌN NAM HAY NỮA
If a_Nam = True Then
.Range("G3" & Lr).Value = Sheet64.Range("T3").Value
Else
.Range("G3" & Lr).Value = Sheet64.Range("T4").Value
End If
Ghi chú: Sheet64: tên sheet
G3: nơi ghi lưu dữ liệu
T3, T4: là vùng địa chỉ trở về vì vba không nhập được tiếng việt
VÙNG NHẬP LIỆU HAY NÚT LƯU DỮ LIỆU
(A3, B3,C3…..: ô ghi dữ liệu,
a_ten, a_diachi…..: là tên biểu tượng)
Private Sub NutLuu_Click()
With Sheet64
.Range("A3").Value = Me.a_ten.Value
.Range("B3").Value = Me.a_diachi.Value
.Range("C3").Value = Me.a_CC.Value
.Range("D3").Value = Me.a_ngaysinh.Value
.Range("E3").Value = Me.a_ngaycap.Value
.Range("F3").Value = Me.a_noicap.Value
.Range("J3").Value = Me.a_mkh.Value
.Range("H3").Value = Me.a_sdt
.Range("I3").Value = Me.a_stk.Value
.Range("B3").Value = Me.a_diachi.Value
If a_Nam = True Then LỰA CHỌN TRÒN
.Range("G3" & Lr).Value = Sheet64.Range("T3").Value
Else
.Range("G3" & Lr).Value = Sheet64.Range("T4").Value
End If
If checkbox tieng anh=true then LỰA CHỌN VUÔNG
.Range("K3").Value ="x"
End if
.Range("K3").Value = Me.B_1.Value
.Range("L3").Value = Me.B_2.Value
.Range("M3").Value = Me.B_3.Value
.Range("N3").Value = Me.B_4.Value
.Range("O3").Value = Me.B_5.Value
.Range("P3").Value = Me.B_6.Value
.Range("Q3").Value = Me.B_7.Value
.Range("S3").Value = Me.B_8.Value
End With
End Sub