Trang 2 của 2 Đầu tiênĐầu tiên 12
Kết quả 11 đến 12 của 12

Chủ đề: Thống kê công việc thực hiện trong từng ngày trong 1 dự án

  1. #11
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Public Function kq(vung As Date) As String
    Dim i As Long
    For i = 4 To Sheet1.[B1000].End(3).Row
    If Sheets("Tong hop").Cells(i, 3).Value <= vung And Sheets("Tong hop").Cells(i, 4).Value >= vung Then
    kq = kq & "; " & Sheets("Tong hop").Cells(i, 2).Value
    End If
    Next i
    kq = Right(kq, Len(kq) - 1)
    End Function
    Mình đang tìm hiểu về VBA nhưng mà chưa hiểu được nhiều.Bạn có thể giải thích giúp mình cú pháp của đoạn code trên được không.Chi tiêt 1 chút vì mình đang ở lớp vỡ lòng thôi.Thanks Khuongvietphong nhé.

  2. #12
    thuyvt123 Guest
    Trích dẫn Gửi bởi numberone_bn
    Public Function kq(vung As Date) As String
    Dim i As Long
    For i = 4 To Sheet1.[B1000].End(3).Row
    If Sheets("Tong hop").Cells(i, 3).Value <= vung And Sheets("Tong hop").Cells(i, 4).Value >= vung Then
    kq = kq & "; " & Sheets("Tong hop").Cells(i, 2).Value
    End If
    Next i
    kq = Right(kq, Len(kq) - 1)
    End Function
    Mình đang tìm hiểu về VBA nhưng mà chưa hiểu được nhiều.Bạn có thể giải thích giúp mình cú pháp của đoạn code trên được không.Chi tiêt 1 chút vì mình đang ở lớp vỡ lòng thôi.Thanks Khuongvietphong nhé.
    Bạn đọc qua mấy Topic dưới đây nhé:

    http://www.giaiphapexcel.com/forum/s...%E1%BA%BFn-VBA!

    http://www.giaiphapexcel.com/forum/s...%E1%BA%BFn-VBA

    Rồi tìm thêm trên diễn đàn nữa, dần dần là sẽ hiểu ấy mà

Trang 2 của 2 Đầu tiênĐầu tiên 12

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •