Kết quả tìm kiếm

  1. quanghai1969

    Tự động lấy ngày gán vào public biến

    Đặt vấn đề không rõ ràng thì lâu lắm mới có đáp án như mong muốn. Vốn dĩ date của ngày hiện hành có thay đổi đâu mà đưa vô biến.
  2. quanghai1969

    Lớp học VBA Trong Excel, khai giảng ngày 28/9 tại TPHCM.

    1. @ Bác Sa: Em đâu có phá giá gì đâu bác Sa. Tại đang mùa covid nên bóp bụng đại hạ giá vậy mà cũng không ai học luôn. 2. @Bác Vetmini: Mỗi ngày em dự định hướng dẫn 8 tiếng theo giờ hành chính. Xét cho cùng cơ bản VBA có được mấy cặp lệnh đâu. Ngày xưa em học được câu range ("A1").value=...
  3. quanghai1969

    Lớp học VBA Trong Excel, khai giảng ngày 28/9 tại TPHCM.

    Sẵn lòng hướng dẫn VBA miễn phí nếu ai có điều kiện học tại quán cafe. Bảo đảm 3 ngày là viết code chạy rần rần
  4. quanghai1969

    Tổng hợp dữ liệu từ nhiều file excel vào 1 file không cần mở file

    Thì cứ sửa thử, nếu chạy được thì là được, nếu không được thì là không đươc.
  5. quanghai1969

    Tổng hợp dữ liệu từ nhiều file excel vào 1 file không cần mở file

    Thay đoạn code này vào thử xem sao Sub Main() Dim vFile, FileItem, aRes, Target As Range Dim FileName As String, SheetName As String, RangeAddress As String On Error Resume Next vFile = Application.GetOpenFilename("Excel File, *.xls; *.xlsx; *.xlsm", , , , True) If TypeName(vFile) =...
  6. quanghai1969

    Nhờ các anh chị kiểm tra dùm e code e sai chỗ nào mà vẫn báo lỗi "Run time error '424'"

    Bạn cần phải tìm người viết code để hỏi mới được. Dám cá là GPE không có người tìm ra nguyên nhân tại sao lại bị lỗi. Có ai cá cược không?
  7. quanghai1969

    Giúp mình code VBA xuất tất cả các sheets after sheet chính ra file mới

    File moi se duoc luu trong thu muc document. Dang su dung dien thoai nen khong viet duoc tieng viet, thong cam nhe Sub Export_Sheet() Dim sh As Worksheet, NewFileName As String For Each sh In ThisWorkbook.Worksheets If sh.Name <> "DATA" Then NewFileName = sh.Name sh.Copy...
  8. quanghai1969

    Tìm dòng tổng cộng ?

    Hôm nay em sẽ ngủ sớm
  9. quanghai1969

    Tìm dòng tổng cộng ?

    Gợi ý chút nhé. Theo OT thì tại sao niềm vui thường mau quên. Còn nỗi buồn thì nhớ hoài. Tự suy gẫm và rút ra kết luận nhé.
  10. quanghai1969

    Tìm dòng tổng cộng ?

    Sub Cong_Tong() Dim sArr(), i As Long, r As Long sArr = Range("A2", [A65536].End(3)(3)).Resize(, 3).Value r = 2 For i = 1 To UBound(sArr) If sArr(i, 2) Like "Tong*" Then sArr(i, 3) = "=sum(R" & r & "C:R[-1]C)" r = i + 2 End If Next sArr(UBound(sArr), 3) = "=sum(R2C:R[-1]C)/2"...
  11. quanghai1969

    Tìm dòng tổng cộng ?

    Bài này OT tự viết code được mà. Duyệt một vòng lặp for next, r đầu tiên= 2, sau đó r= i+1 khi xác định dòng cần tính tổng. Thử đi
  12. quanghai1969

    Không mở Projiect VBA được

    Thông thường những code bị khóa thì không có gì đặc biệt, không chừng còn tệ nữa là khác. Bạn cần gì thì cứ gởi file lên diễn đàn mọi người sẽ giúp cho. Những code hay trên GPE không bao giờ bị khóa cả
  13. quanghai1969

    [HỎI] Hiển thị số ngày trong tháng khi lựa chọn một tháng cụ thể

    Xem bài giải của mọi người làm mình nhớ đến chuyện đi câu cá bằng củ cà rốt. Nhớ lại lời dạy của người xưa là nếu cho đúng cái người cần thì tốt hơn là cho cái ta muốn cho
  14. quanghai1969

    Tổng hợp dữ liệu bán hàng dùng Dictionary ?

    Dùng 2 dic hoặc 1 dic + phương thức Find để xác định giá vốn đều giải được bài toán. Bài này chỉ thuộc dạng cơ bản, tuy nhiên do cách bố trí dữ liệu nên code hơi lằng nhằng chút. ..... Gởi chủ topic: Ngay từ việc đặt mã hàng (item code) là đã không nên rồi. Ít nhất phải có 1 ký tự TEXT rồi mới...
  15. quanghai1969

    Tổng hợp dữ liệu bán hàng dùng Dictionary ?

    Sao bạn viết phức tạp quá vậy, nhìn muốn bỏ học dictionary luôn á Mình xem mấy bài tập mẫu về dictionary thì thấy mọi người hay viết thế này if not dic.exists(key) then k=k+1 Dic.add key, k ........ else x= dic.item(key) ....... end if
  16. quanghai1969

    Hướng dẫn cách sử dụng đối tượng Collection có thể thay thế cho Dictionary

    Từ việc khai báo đến thiếu phương thức nên không dùng Collection. Có thể khai báo kiểu late biding không? Có thể kiểm tra sự tồn tại của key không? Có thay đổi giá trị của item không?
  17. quanghai1969

    Nhờ anh chị viết code vba thay thế cho hàm Sumifs

    Code đúng là đúng, sai là sai. Không bao giờ lúc đúng lúc sai. Bạn kiểm tra lại dữ liệu nguồn sẽ tìm được nguyên nhân. Hoặc chờ người khác xem hộ nhé, mình bận rồi nên không giúp tiếp được nữa
  18. quanghai1969

    Nhờ anh chị viết code vba thay thế cho hàm Sumifs

    máy đang hiểu là ngày 4 tháng 1 nhé
  19. quanghai1969

    So sánh dữ liệu giữa hai trường

    Tại C2 nhập: =IF(COUNTIF(A:A,B2)>0,"Chi nhanh 1","Cty")
  20. quanghai1969

    Nhờ anh chị viết code vba thay thế cho hàm Sumifs

    Nhấp chuột vào cái nút nhập của bạn
Top Bottom