Cần giúp về câu lệnh Me.TextBox1.SetFocus

[iloveit]

Trong file đính kèm có câu lệnh Me.TextBox1.SetFocus trong sự kiện Initialize() nhưng con trỏ không nháy tại TextBox1, nhờ Anh/Chị và các bạn xem giúp. Cám ơn.

Private Sub UserForm_Initialize()
  Dim sList As Object, Darr(), Arr(), sItem As Variant, i As Long, K As Long, R As Long, SortKey As String
  Set sList = CreateObject("System.Collections.ArrayList")
  With Sheets("Nhap")
    Darr = .Range("C2:D" & .Range("C" & Rows.Count).End(xlUp).Row).Value
  End With
  With CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(Darr)
      SortKey = Darr(i, 1) & "#" & Darr(i, 2)
      If Not .Exists(SortKey) Then
          .Add SortKey, Array(Darr(i, 1), Darr(i, 2))
          sList.Add SortKey
      End If
    Next i
    sList.Sort
    R = sList.Count
    ReDim Arr(1 To R, 1 To 2)
    For i = 1 To R
      SortKey = sList(i - 1)
      sItem = .Item(SortKey)
      Arr(i, 1) = sItem(0): Arr(i, 2) = sItem(1)
    Next i
  End With
  Set sList = Nothing
  With ListBox1
    .ColumnCount = 2: .ColumnWidths = "190;40": .List = Arr
    .ListIndex = 0
  End With
  Me.TextBox1.SetFocus
End Sub

 

[hungpecc1]

Trong file đính kèm có câu lệnh Me.TextBox1.SetFocus trong sự kiện Initialize() nhưng con trỏ không nháy tại TextBox1, nhờ Anh/Chị và các bạn xem giúp. Cám ơn.

Private Sub UserForm_Initialize()
  Dim sList As Object, Darr(), Arr(), sItem As Variant, i As Long, K As Long, R As Long, SortKey As String
  Set sList = CreateObject("System.Collections.ArrayList")
  With Sheets("Nhap")
    Darr = .Range("C2:D" & .Range("C" & Rows.Count).End(xlUp).Row).Value
  End With
  With CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(Darr)
      SortKey = Darr(i, 1) & "#" & Darr(i, 2)
      If Not .Exists(SortKey) Then
          .Add SortKey, Array(Darr(i, 1), Darr(i, 2))
          sList.Add SortKey
      End If
    Next i
    sList.Sort
    R = sList.Count
    ReDim Arr(1 To R, 1 To 2)
    For i = 1 To R
      SortKey = sList(i - 1)
      sItem = .Item(SortKey)
      Arr(i, 1) = sItem(0): Arr(i, 2) = sItem(1)
    Next i
  End With
  Set sList = Nothing
  With ListBox1
    .ColumnCount = 2: .ColumnWidths = "190;40": .List = Arr
    .ListIndex = 0
  End With
  Me.TextBox1.SetFocus
End Sub

Lưu ý bạn phải set thuộc tính Show Modal = true cho form

 

[be_09]

Trong file đính kèm có câu lệnh Me.TextBox1.SetFocus trong sự kiện Initialize() nhưng con trỏ không nháy tại TextBox1, nhờ Anh/Chị và các bạn xem giúp. Cám ơn.

Góp ý cho bạn:
1/ Nên có 1 Sheet làm danh mục hàng hóa riêng và nên có thêm cột đơn giá để áp giá cho từng loại hàng hóa được nhanh hơn và chuẩn xác hơn.
2/ Nên sử dụng SheetForm để có thể in phiếu xuất hoặc nhập rồi mới lưu vào sheet theo dõi.
3/ Sheet xuất hoặc nhập nên có cột số hóa đơn vì một khách hàng có thể có nhiều đợt xuất, nhập khác nhau.