Could not set RowSource property (1 người xem)

[148btx]

Xin được trợ giúp làm Add-in. Tôi làm một chương trình tính toán điện cho công việc riêng: Chương trình chạy rất tốt trên .xls , trong chương trình của tôi có các UserForm nằm trong VBA và lấy dữ liệu từ các Sheets. Nhưng khi save để làm Add-in (trở thành .xla) và lúc sử dụng Add-in này thì luôn báo lỗi như sau:

Run-time error '360:
Could not set RowSource property. Invalid property value.

Xin được chỉ bảo
Cảm ơn nhiều

 

[hoangdanh282vn]

Xin được trợ giúp làm Add-in. Tôi làm một chương trình tính toán điện cho công việc riêng: Chương trình chạy rất tốt trên .xls , trong chương trình của tôi có các UserForm nằm trong VBA và lấy dữ liệu từ các Sheets. Nhưng khi save để làm Add-in (trở thành .xla) và lúc sử dụng Add-in này thì luôn báo lỗi như sau:

Run-time error '360:
Could not set RowSource property. Invalid property value.

Xin được chỉ bảo
Cảm ơn nhiều

Bạn gửi file lên để các bạn test thử giúp bạn nha.

 

[148btx]

Bạn gửi file lên để các bạn test thử giúp bạn nha.

Kiểm tra hộ nhé, tôi không rành về Code lắm. Cám ơn

 

[Hoàng Trọng Nghĩa]

File của bạn bị lỗi một phần là do lỗi Define Name, có quá nhiều Names with Error, bạn phải xóa đi nhé! Tôi sẽ tiếp tục kiểm tra cho bạn.

PS: À, khi bạn muốn Add-ins bạn chỉ được để Hàm Tự Tạo thôi nhé, và nên để 1 sheet trắng thôi, các sheet kia xóa hết nhé.

 

[Hoàng Trọng Nghĩa]

Có lẽ chính vì các Names bị xóa và bị lỗi, dẫn đến các RowSoure trong thuộc tính combobox không tìm ra nguồn, dĩ nhiên là bị lỗi rồi bạn ui.

 

[148btx]

File của bạn bị lỗi một phần là do lỗi Define Name, có quá nhiều Names with Error, bạn phải xóa đi nhé! Tôi sẽ tiếp tục kiểm tra cho bạn.

PS: À, khi bạn muốn Add-ins bạn chỉ được để Hàm Tự Tạo thôi nhé, và nên để 1 sheet trắng thôi, các sheet kia xóa hết nhé.

Làm gì có cái Names with Error đâu, tôi nghĩ là do các ComboBox lấy dữ liệu từ các Sheets và các TextBox lấy dữ liệu từ nhiều RowSource (bắt buộc phải thế thì mới hiển thị được tiếng việt).
Xem hộ cái nhé

 

[ndu96081631]

Làm gì có cái Names with Error đâu, tôi nghĩ là do các ComboBox lấy dữ liệu từ các Sheets và các TextBox lấy dữ liệu từ nhiều RowSource (bắt buộc phải thế thì mới hiển thị được tiếng việt).
Xem hộ cái nhé

File của bạn bị cả đóng name lổi mà bạn không hề hay biết sao?

 

[148btx]

File của bạn bị cả đóng name lổi mà bạn không hề hay biết sao?

Tôi xóa hết những cái không cần thiết, chỉ để lại đúng những cái phục vụ chương trình thôi, thế mà vẫn báo như cũ

 

[Hoàng Trọng Nghĩa]

Kiểm tra nhé!

Tôi đã test toàn bộ cho bạn những Names bị lỗi rồi, bạn có thể đặt tên lại những Names mới để gán vào Rowsoure của file bạn nhé.

 

[mymapmap]

Điều khiển Rowsource của Combobox

Mình muốn ứng với sheet nào gọi form thì rowsource của combobox trên form sẽ lấy vùng data trên sheet nguồn khác nhau. như trong file đính kèm (sheet vatlieu goi thì rowsource là vatlieu, sheet nguyenlieu goi form thì rowsource là nguyenlieu).
Xin Cảm ơn các ý kiến trả lời chỉ giúp!

 

[ndu96081631]

Mình muốn ứng với sheet nào gọi form thì rowsource của combobox trên form sẽ lấy vùng data trên sheet nguồn khác nhau. như trong file đính kèm (sheet vatlieu goi thì rowsource là vatlieu, sheet nguyenlieu goi form thì rowsource là nguyenlieu).
Xin Cảm ơn các ý kiến trả lời chỉ giúp!

Do bạn đặt name trùng với tên sheet nên cũng.. dễ:

Private Sub UserForm_Initialize()
  Me.CmbNhap.RowSource = ThisWorkbook.Names(ActiveSheet.Name).RefersTo
End Sub

 

[mymapmap]

E muốn dùng lệnh rẽ như if chẳng hạn với tên range không trùng với tên sheet thì làm như thế nào hể Bác
Cảm ơn Bác nhiều nha!

 

[concogia]

E muốn dùng lệnh rẽ như if chẳng hạn với tên range không trùng với tên sheet thì làm như thế nào hể Bác
Cảm ơn Bác nhiều nha!

Thử như zì xem

Private Sub UserForm_Initialize()
    ComboBox1.RowSource = IIf(ActiveSheet.Name = "Vatlieu", "=source!$A$1:$A$6", "=source!$B$1:$B$6")
End Sub

Thân
Quên, bạn sửa ComboBox1 thành CmbNhap giúp mình nhé

 

[ndu96081631]

E muốn dùng lệnh rẽ như if chẳng hạn với tên range không trùng với tên sheet thì làm như thế nào hể Bác
Cảm ơn Bác nhiều nha!

- Thứ nhất: Nếu có 1 "rừng" sheet thì bạn IF là sao đây?
- Thứ hai: Dùng RowSource không phải là cách hay (tôi thường dùng List properties)
- Thứ ba: Nên xem lại cách quản lý CSDL, nghiên cứu và tìm ra giải pháp tối ưu hơn
-----------------
Nói chung nếu chỉ có 2 sheet như file của bạn thì không có gì để nói. Trường hợp số sheet nhiều hơn thì phải xem lại toàn bộ thuật toán

 

[mymapmap]

M cũng chỉ mới tìm hiểu và áp dụng VBA thôi nên cái nào biết thì làm thôi. đúng là có rất nhiều sheet đấy là vdu 2 sheet thôi. ứng dụng mình có khoản 10 sheet thì làm như thế nào là hay nhất? Nếu Bác ndu98081631 dùng List properties thì dùng như thế nào có thể cho cho mình xin vdu hay hướng dẫn.
Xin cảm cám ơn tất cả các ý kiến!

 

[ndu96081631]

M cũng chỉ mới tìm hiểu và áp dụng VBA thôi nên cái nào biết thì làm thôi. đúng là có rất nhiều sheet đấy là vdu 2 sheet thôi. ứng dụng mình có khoản 10 sheet thì làm như thế nào là hay nhất? Nếu Bác ndu98081631 dùng List properties thì dùng như thế nào có thể cho cho mình xin vdu hay hướng dẫn.
Xin cảm cám ơn tất cả các ý kiến!

Bạn cứ đưa file có 10 sheet ấy lên đây, ghi rõ từng sheet bạn muốn dùng RowSource thế nào nhé

 

[namkpac]

em chào anh ndu, em muốn hỏi anh cái này, anh vui lòng giúp em với: ví dụ có 2 file excel 1 file tên là nguồn, 1 file tên là đích em muốn dùng vba tạo 1 list box trong 1 userform tên là main nằm trong file nguồn, dữ liệu trong list box được lưu tại sheet1 theo thứ tự cột A hàng 1 là minh, hàng 2 là hoa, hàng 3 là hiếu của file có tên là đích. khi click vào list box thì nó xổ xuống minh, hoa, hiếu; click vào hiếu thì hiện thông báo hiếu

 

[Hoàng Trọng Nghĩa]

em chào anh ndu, em muốn hỏi anh cái này, anh vui lòng giúp em với: ví dụ có 2 file excel 1 file tên là nguồn, 1 file tên là đích em muốn dùng vba tạo 1 list box trong 1 userform tên là main nằm trong file nguồn, dữ liệu trong list box được lưu tại sheet1 theo thứ tự cột A hàng 1 là minh, hàng 2 là hoa, hàng 3 là hiếu của file có tên là đích. khi click vào list box thì nó xổ xuống minh, hoa, hiếu; click vào hiếu thì hiện thông báo hiếu

Các bạn hỏi bài cứ như đánh đố người hướng dẫn vậy, không có file mẫu làm sao biết đường mà thực hiện cho các bạn?

 

[namkpac]

Các bạn hỏi bài cứ như đánh đố người hướng dẫn vậy, không có file mẫu làm sao biết đường mà thực hiện cho các bạn?

em cảm ơn vì đã reply, em add file lên đây

 

[namkpac]

trên diễn đàn ai làm được xin giúp với

 

[Quang_Hải]

Bạn xem phương án của mình làm và tùy biến nha. Nhớ tải file, giải nén ra trước mới chạy được

 

[Hoàng Trọng Nghĩa]

Bạn xem phương án của mình làm và tùy biến nha

Phương án gì vậy bạn? Hình như tác giả gửi cái file rồi bạn gửi lại y chang cái file đó đấy!

 

[Quang_Hải]

Phương án gì vậy bạn? Hình như tác giả gửi cái file rồi bạn gửi lại y chang cái file đó đấy!

Hic, gởi nhầm cái folder tải về. Gởi lại rồi. Bạn xem và góp ý giúp nha. Vì không rõ hết ý định của tác giả nên chỉ làm đến đó thôi

 

[Hoàng Trọng Nghĩa]

em cảm ơn vì đã reply, em add file lên đây

Bài này tôi làm cho bạn bằng ADO để liên kết với file Dich mà không cần mở file này.

Thủ tục liên kết:

Private Sub ExConnect()
    If ExCnn.State = 1 Then ExCnn.Close
    With ExCnn
        .ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0; data source=" & ThisWorkbook.Path & "/dich.xls" & _
                            ";Extended Properties=Excel 8.0;"
        .CursorLocation = adUseClient
        .Open
    End With
End Sub

Liên kết và nạp List cho ListBox:

Private Sub ListInfo()
    Call ExConnect
    Dim ExSQL As String, RcdSet As New ADODB.Recordset
    ExSQL = "SELECT HOTEN FROM [Sheet1$] "
    RcdSet.Open ExSQL, ExCnn, 3, 1
    
    With Sheet1
        .Range("IQ:IQ").ClearContents
        .Range("IQ1").CopyFromRecordset RcdSet
         ListBox1.List() = Range(.[IQ1], .[IQ65536].End(xlUp)).Value
        .Range("IQ:IQ").ClearContents
    End With
    
    RcdSet.Close
    Set RcdSet = Nothing
    ExCnn.Close
    Set ExCnn = Nothing
End Sub

Khi click hay dùng mũi tên lên xuống sẽ hiện lên mục đang lựa chọn:

(Ở đây tôi không dùng MsgBox vì nó không hiển thị được dấu tiếng Việt, vừa làm mất thời gian bấm nút OK nên tôi cho hiển thị bằng Label, nhưng nếu cần bạn vẫn có thể sử dụng MsgBox)

Private Sub ListBox1_Click()
    LbMsg.Caption = UCase(ListBox1.Value)
   [COLOR=#008000] 'MsgBox ListBox1.Value[/COLOR]
End Sub

Bạn đặt 2 file này ở bất cứ thư mục nào cũng được và phải đảm bảo 2 file này ở cùng thư mục, đồng thời cũng không được đổi tên file dich.xls

Lưu ý, khi chạy bằng ADO, trong cửa sổ VBE bạn chọn Tool, Reference và phải check vào mục:
Microsoft ActiveX Data Objects 2.6 Library