NguyenthiH
Thành viên mới đăng ký
- Tham gia
- 11/12/16
- Bài viết
- 965
- Được thích
- 175
- Giới tính
- Nữ
Em có tạo một form trong form chỉ có một textbox (tb_TNCC) để nhập tên nhà cung cấp, và commanbutton1 để lưu tên nhà cung cấp vào sheet, và commanbutton2 để thoát form, trong sheet đã có tên các nhà cung cấp từ AI4->AI21 rồi, thế mà hôm nay em nhập tiếp nhà cung cấp mới vào,mà tên nhà cung cấp lại gán vào AI422 chứ không phải là AI22. Mong các anh chị chỉnh dùm code.
Mã:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Sub UserForm_Initialize()
Dim dw As Long, hwnd As Long, result()
dw = &H84080080
hwnd = FindWindow("ThunderDFrame", Me.Caption)
SetWindowLong hwnd, -16, dw
Me.Height = Me.Height + 1: Me.Height = Me.Height - 20
End Sub
Private Sub CommandButton1_Click()
Dim lastRow As Long
lastRow = Sheet1.Range("AI65536").End(xlUp).Row
Sheet1.Range("AI4" & lastRow + 1).Value = Application.Proper(Trim(tb_TNCC.Value))
' sap xep
Sheet1.Range("AI4", Sheet1.Range("AI4").End(xlDown)).Sort key1:=Sheet1.Range("AI4"), order1:=xlAscending, Header:=xlYes
tb_TNCC = ""
tb_TNCC.SetFocus
MsgBox ("da luu xong"), , "GPE"
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
