Lấy danh sách nhân viên từng công ty trong một khoảng thời gian bất kỳ (1 người xem)

[tranhophanle]

Hi các bác,
Em đang có vướng mắc như sau:
- Có 3 công ty, nhân viên từ công ty này có thể thuyên chuyển sang công ty khác.
- Yêu cầu: lên danh sách của từng công ty trong một khoảng thời gian bất kỳ nào đó.
Các bác chỉ giúp e với!
Thanks,

 

[Hai Lúa Miền Tây]

Hi các bác,
Em đang có vướng mắc như sau:
- Có 3 công ty, nhân viên từ công ty này có thể thuyên chuyển sang công ty khác.
- Yêu cầu: lên danh sách của từng công ty trong một khoảng thời gian bất kỳ nào đó.
Các bác chỉ giúp e với!
Thanks,

Bạn dùng ADO nhé.

1.) Mở kết nối:

Public cnn As New ADODB.Connection
Sub Moketnoi()
  With cnn
    .ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0; data source=" & ThisWorkbook.FullName & _
                         ";Extended Properties=Excel 8.0;"
    .CursorLocation = adUseClient
    .Open
  End With
    
End Sub

2.) Truy vấn:

Sub TrichLoc()
Dim lsSQL As String, lrs As New ADODB.Recordset
Dim fld As String


If cnn.State = 0 Then Moketnoi
    With Sheet1
        fld = .Range("H2")
        lsSQL = "select [" & .Range("A1") & "], [" & fld & "] " & _
                "from [Sheet1$] " & _
                "where [" & fld & "] between #" & .Range("I2") & "# and #" & .Range("J2") & "#"
        lrs.Open lsSQL, cnn, 3, 1
         .Range("I7") = fld
         .Range("H8:I60000").ClearContents
         .Range("H8").CopyFromRecordset lrs
          
    End With
lrs.Close
Set lrs = Nothing
cnn.Close
Set cnn = Nothing


End Sub

Bạn xem thêm file đính kèm nhé.

 

[ThuNghi]

Hi các bác,
Em đang có vướng mắc như sau:
- Có 3 công ty, nhân viên từ công ty này có thể thuyên chuyển sang công ty khác.
- Yêu cầu: lên danh sách của từng công ty trong một khoảng thời gian bất kỳ nào đó.
Các bác chỉ giúp e với!
Thanks,

Vấn đề là mẫu báo cáo thế nào, nê nguyên xi data vào hay sao.
Bạn nên tạo 1 form cần báo cáo. Và demo 1 vài case.
To: HLMT
Có cần dùng tới dao mổ trâu?