Trang 87/87 đầuđầu ... 37 77 83 84 85 86 87
Hiển thị kết quả tìm kiếm từ 861 đến 867 trên tổng số: 867

Ðề tài: Chuyên đề giải đáp những thắc mắc về code VBA

  1. - E có file về tạo ListBox và có thắc mắc sau:
    - Khi Click vào Save trong Form thì bị lỗi ở cột thứ 11, mày mò mãi vẫn chưa thể hiểu đc nguyên nhân vì thấy nó đúng mà sao cứ bị báo lỗi

    Nhờ các Anh chi xem giúp với ạ. E xin cảm ơn !
    Tập tin đính kèm Tập tin đính kèm

  2. Trích Nguyên văn bởi keke355992 View Post
    - E có file về tạo ListBox và có thắc mắc sau:
    - Khi Click vào Save trong Form thì bị lỗi ở cột thứ 11, mày mò mãi vẫn chưa thể hiểu đc nguyên nhân vì thấy nó đúng mà sao cứ bị báo lỗi

    Nhờ các Anh chi xem giúp với ạ. E xin cảm ơn !
    Listbox là bị vậy, bạn phải gán Array trước, hoặc row resources, sau đó mới sử dụng được kiểu gán như vậy cho các cột từ thứ 10 đi

  3. Trích Nguyên văn bởi winvista View Post
    Listbox là bị vậy, bạn phải gán Array trước, hoặc row resources, sau đó mới sử dụng được kiểu gán như vậy cho các cột từ thứ 10 đi
    Với ví dụ này của mình, bạn có thể giúp mình gán bằng array đc ko ?

  4. Trích Nguyên văn bởi keke355992 View Post
    Với ví dụ này của mình, bạn có thể giúp mình gán bằng array đc ko ?
    Chỉ cần đổi Sub Ghi_Click thành thế này

    Code:
    Private Sub Ghi_Click()
        With HangChiTiet
            If .ListCount = 0 Then
                ReDim a(0 To 0, 0 To 10)
                .List = a
                .List(.ListCount - 1, 0) = Ma
            Else
                .AddItem Ma
            End If
            .List(.ListCount - 1, 1) = TenHang
            .List(.ListCount - 1, 2) = DV
            .List(.ListCount - 1, 3) = SL
            .List(.ListCount - 1, 4) = DonGia
            .List(.ListCount - 1, 5) = KhuyenMai
            .List(.ListCount - 1, 6) = ChietKhau
            .List(.ListCount - 1, 7) = TangGiam
            .List(.ListCount - 1, 8) = DoanhThu
            .List(.ListCount - 1, 9) = TienMat
            .List(.ListCount - 1, 10) = NganHang
            .ListIndex = .ListCount - 1 'chon row cuoi cung
        End With
    
        TongThanhToan = Format((TongThanhToan + 0) + (DoanhThu + 0), "#,##0")
    
    End Sub
    TongThanhToan là cái gì thì tôi không biết nhé để nguyên như cũ

    Nhưng kiểu form này chỉ dọa thui, còn thiếu thực dụng, ở sheet thao tác nhanh hơn nhiều, vì thế người ta ít dụng kiểu listbox listview để nhập, chỉ dùng để trình bày dữ liệu, kết quả cho đẹp mà thôi, hoặc nhập các thứ bé bé nho nhỏ, kiểu lựa chọn files...
    thay đổi nội dung bởi: winvista, 17-02-17 lúc 10:28 PM

  5. Trích Nguyên văn bởi winvista View Post
    Chỉ cần đổi Sub Ghi_Click thành thế này

    Code:
    Private Sub Ghi_Click()
        With HangChiTiet
            If .ListCount = 0 Then
                ReDim a(0 To 0, 0 To 10)
                .List = a
                .List(.ListCount - 1, 0) = Ma
            Else
                .AddItem Ma
            End If
            .List(.ListCount - 1, 1) = TenHang
            .List(.ListCount - 1, 2) = DV
            .List(.ListCount - 1, 3) = SL
            .List(.ListCount - 1, 4) = DonGia
            .List(.ListCount - 1, 5) = KhuyenMai
            .List(.ListCount - 1, 6) = ChietKhau
            .List(.ListCount - 1, 7) = TangGiam
            .List(.ListCount - 1, 8) = DoanhThu
            .List(.ListCount - 1, 9) = TienMat
            .List(.ListCount - 1, 10) = NganHang
            .ListIndex = .ListCount - 1 'chon row cuoi cung
        End With
    
        TongThanhToan = Format((TongThanhToan + 0) + (DoanhThu + 0), "#,##0")
    
    End Sub
    TongThanhToan là cái gì thì tôi không biết nhé để nguyên như cũ

    Nhưng kiểu form này chỉ dọa thui, còn thiếu thực dụng, ở sheet thao tác nhanh hơn nhiều, vì thế người ta ít dụng kiểu listbox listview để nhập, chỉ dùng để trình bày dữ liệu, kết quả cho đẹp mà thôi, hoặc nhập các thứ bé bé nho nhỏ, kiểu lựa chọn files...
    Cảm ơn ban. Nhưng mà bữa nào rảnh bạn đổi tên qua Win10 chơi chút nhé bạn :D

  6. Trích Nguyên văn bởi keke355992 View Post
    - E có file về tạo ListBox và có thắc mắc sau:
    - Khi Click vào Save trong Form thì bị lỗi ở cột thứ 11, mày mò mãi vẫn chưa thể hiểu đc nguyên nhân vì thấy nó đúng mà sao cứ bị báo lỗi

    Nhờ các Anh chi xem giúp với ạ. E xin cảm ơn !
    Thử mần xem nó là cái gì... kết quả chịu luôn
    Tập tin đính kèm Tập tin đính kèm

  7. Trích Nguyên văn bởi befaint View Post
    Thử mần xem nó là cái gì... kết quả chịu luôn
    Đêm nay sẽ mần

Trang 87/87 đầuđầu ... 37 77 83 84 85 86 87

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •