Lỗi khi lấy chuỗi từ combobox (1 người xem)

[mhung12005]

Xin chào các anh chị,

Tôi có viết 1 thủ tục rất đơn giản: lấy dữ liệu chuỗi từ combobox để tạo mảng. Và dùng sự kiện workbook open để kích hoạt thủ tục. Không hiểu tại sao mỗi khi mở file lại báo lỗi. Mong mọi chỉ giúp.

Chân thành cảm ơn.

 

[quocphuoc88]

If Len(Sheet1.ComboBox2.Value) <> 0 Then

mình thêm <>0 thì thấy nó chạy bình thường !

 

[mhung12005]

If Len(Sheet1.ComboBox2.Value) <> 0 Then

mình thêm <>0 thì thấy nó chạy bình thường !

Vẫn lỗi bạn ơi. Bạn thử mở ra đóng vào vài lần là thấy ngay.

 

[hungpecc1]

Vẫn lỗi bạn ơi. Bạn thử mở ra đóng vào vài lần là thấy ngay.

thử thêm + sửa trong sub Statistic của bạn như thế này xem :

Sub Statistic()
[COLOR=#ff0000]    Dim obj As ComboBox[/COLOR]
    Dim Dic1 As Object, Dic2 As Object
    Dim TmpArr1 As Variant, TmpArr2 As Variant, SrcArr As Variant, ResArr() As Variant
    Dim lR As Long, k As Long, lCount As Long, lStartDate As Long, lEndDate As Long
    Dim sOption As String
    Set obj = Sheet1.ComboBox2
    sOption = Sheet1.ComboBox1.Value
    If [COLOR=#ff0000]obj.Text <> "" [/COLOR]Then
        TmpArr1 = Split(Sheet1.ComboBox2.Value, "/")
        lStartDate = CLng(DateSerial(TmpArr1(2), TmpArr1(1), TmpArr1(0)))
    End If 
End Sub

chỗ đỏ đỏ là tôi thử thêm vào, thừa thiếu thế nào tôi cũng không biết, chỉ biết rằng trên máy tính của tôi mọi thứ vẫn ok

 

[ndu96081631]

Xin chào các anh chị,

Tôi có viết 1 thủ tục rất đơn giản: lấy dữ liệu chuỗi từ combobox để tạo mảng. Và dùng sự kiện workbook open để kích hoạt thủ tục. Không hiểu tại sao mỗi khi mở file lại báo lỗi. Mong mọi chỉ giúp.

Chân thành cảm ơn.

Trong code sự kiện ComboBox tại Sheet Summary, bạn hãy chuyển tất cả sự kiện Change thành Click
Nguyên nhân tại sao thì tự bạn suy nghĩ đi

 

[leonguyenz]

Trong code sự kiện ComboBox tại Sheet Summary, bạn hãy chuyển tất cả sự kiện Change thành Click
Nguyên nhân tại sao thì tự bạn suy nghĩ đi

Em cũng nghĩ lỗi này như lỗi tham chiếu vòng của trong công thức.