Mặc định giá trị rỗng trên Combobox khi mở file (1 người xem)

[vnproc]

Chào các bạn.

Mình có vấn đề cần các bạn giúp. Khi mở file thì giá trị trên Combobox là rỗng (bank).
Vì khi mình làm xong và lưu file nó có giá trị. Và khi mở file ra rồi nếu không nhập giá trị vào combobox thì sẽ có thông báo yêu cầu.

Cảm ơn rất nhiều

 

[huuthang_bd]

File nào vậy bạn?

 

[vnproc]

File nào vậy bạn?

Mình gửi mô tả như trong file đính kèm.
Cảm ơn nhiều

 

[ndu96081631]

Mình gửi mô tả như trong file đính kèm.
Cảm ơn nhiều

Trong file của bạn đang có sẵn code:

Private Sub Workbook_Open()
MsgBox "Vui long chon ten Cong ty", vbInformation, "Thông báo"
End Sub

Giờ thêm thế này là được:

Private Sub Workbook_Open()
MsgBox "Vui long chon ten Cong ty", vbInformation, "Thông báo"
Sheet1.ComboBox1.ListIndex = -1
End Sub

 

[vnproc]

Cảm ơn Anh.
Sau khi em add code và chạy lần đầu với 2 combobox thì Ok.

Sheet11.ComboBox1.ListIndex = -1
Sheet5.CBCTY.ListIndex = -1

Nhưng khi chọn xong và save file mở lại bị báo lổi Type mismatch
Trên file chổ combobox code file chính em làm thì nó bị lổi.

Sub GPEE()
Dim Dic As Object, Arr0, vArr0 As Range, i0 As Long, Mctyy As String, Ctyy As Long, Bpp As String
Set Dic = CreateObject("Scripting.Dictionary")

With Sheet12
      Arr0 = .Range("E2", .Range("H65536").End(3)).Value
      Set vArr0 = .Range("P9", .[P1000].End(3))
End With
With Sheet11
Ctyy = Application.Match(.ComboBox1.Value, vArr0, 0)  'Lổi chổ này Type mismatch
Mctyy = Sheet12.Range("T" & 8 + Ctyy)
Bpp = .ComboBox3.Value
    For i0 = 1 To UBound(Arr0)
        If Arr0(i0, 1) = Mctyy Then
            If Arr0(i0, 3) = Bpp Then
                If Not Dic.exists(Arr0(i0, 4)) Then Dic.Add Arr0(i0, 4), ""
            End If
        End If
    Next i0
      .CB.List = Dic.keys
End With
End Sub

 

[vnproc]

Thanks Anh ndu. Em làm được rồi. Chỉ cần thêm code vào thủ tục trên là đượchttp://www.giaiphapexcel.com/diendan/members/ndu96081631.61139/