Cách lấy giá trị của ô gán vào Mảng bằng VBA (1 người xem)

[sacalataba127]

Em muốn lấy giá trị của nhiều ô gán vào mảng để hiển thị dữ liệu khi chạy combobox ạ,
em bị lỗi lấy dữ liệu và gán vào mảng ạ
Em có gửi file đính kèm, các bác giúp với ạ.
Chúc các bác cuối tuần vui vẻ ạ

 

[sacalataba127]

Mọi người ơi, giúp e với ạ

 

[snow25]

Em muốn lấy giá trị của nhiều ô gán vào mảng để hiển thị dữ liệu khi chạy combobox ạ,
em bị lỗi lấy dữ liệu và gán vào mảng ạ
Em có gửi file đính kèm, các bác giúp với ạ.
Chúc các bác cuối tuần vui vẻ ạ

bạn đăng cái code bạn lỗi lên xem nào

 

[sacalataba127]

đây ạ

 

[SA_DQ]

Câu lệnh này đang không chuẩn:

showList1 = shSanPham.Range("B25:K25" & shSanPham.[K25].End(xlToLeft).Column)

 

[sacalataba127]

Câu lệnh này đang không chuẩn:

showList1 = shSanPham.Range("B25:K25" & shSanPham.[K25].End(xlToLeft).Column)

dạ vâng, nhờ bác xem nên sửa lại như thế nào ạ

 

[SA_DQ]

Vậy ước mong kết quả sau câu lệnh này là gì?
Fải chăng gán dữ liệu vùng [B25:K25] vô mảng?
Nếu là câu lệnh

showList1 = shSanPham.Range({B25], [K25].End(xlToLeft))

Lại là chuyện khác.

 

[sacalataba127]

Vậy ước mong kết quả sau câu lệnh này là gì?
Fải chăng gán dữ liệu vùng [B25:K25] vô mảng?
Nếu là câu lệnh

showList1 = shSanPham.Range({B25], [K25].End(xlToLeft))

Lại là chuyện khác.

mục đích để combobox ở ô K4 sheet Nhập Bán hiện hiên dữ liệu lấy từ Sheet Sản Phẩm đó ạ
Đoạn mã vừa rồi vẫn ko được ạ

 

[batman1]

Sửa thành

Sub CreateList1()
Dim lastCol As Long
    With Sheet3
        lastCol = .Range("L25").End(xlToLeft).Column
        If lastCol = 2 Then
            ReDim showList1(1 To 1, 1 To 1)
            showList1(1, 1) = .Range("B25").Value
        ElseIf lastCol > 2 Then
            showList1 = .Range("B25").Resize(, lastCol - 1).Value
        End If
    End With
    cc = UBound(showList1)
End Sub

Tôi chỉ sửa showList1 thôi. Không có hứng xem các code khác.

 

[sacalataba127]

Sửa thành

Sub CreateList1()
Dim lastCol As Long
    With Sheet3
        lastCol = .Range("L25").End(xlToLeft).Column
        If lastCol = 2 Then
            ReDim showList1(1 To 1, 1 To 1)
            showList1(1, 1) = .Range("B25").Value
        ElseIf lastCol > 2 Then
            showList1 = .Range("B25").Resize(, lastCol - 1).Value
        End If
    End With
    cc = UBound(showList1)
End Sub

Tôi chỉ sửa showList1 thôi. Không có hứng xem các code khác.

cảm ơn bác. nhưng khi dùng Ubound(showlist1) thì chỉ = 1 trong khi có tới 10
Bác xem giùm e thử

 

[batman1]

cảm ơn bác. nhưng khi dùng Ubound(showlist1) thì chỉ = 1 trong khi có tới 10
Bác xem giùm e thử

Thì bạn cố tình làm thế còn kêu gì? Bạn nhập 1 dòng vào mảng thì dĩ nhiên mảng đó có 1 dòng (1 hoặc nhiều cột), tức Ubound(showList1) = 1 là đúng rồi còn gì.

Nhưng cái đó đâu có quan trọng. Tôi thấy là trong code mà tôi đã không xem thì có

ComboBox1.List = Application.Transpose(showList1)

Tức khi đó trong ComboBox1 sẽ có nhiều dòng.

Còn nếu muốn khác thì.

1. Bỏ

Public showList1()
Public cc As Long

2.

Sub CreateList1()
Dim lastCol As Long, showList1()
    With Sheet3
        lastCol = .Range("L25").End(xlToLeft).Column
        If lastCol = 2 Then
            ReDim showList1(1 To 1, 1 To 1)
            showList1(1, 1) = .Range("B25").Value
        ElseIf lastCol > 2 Then
            showList1 = .Range("B25").Resize(, lastCol - 1).Value
        End If
    End With
    Sheet5.ComboBox1.List = Application.Transpose(showList1)
End Sub

3. Trong các code còn lại không dùng showList1 nữa.

 

[sacalataba127]

Thì bạn cố tình làm thế còn kêu gì? Bạn nhập 1 dòng vào mảng thì dĩ nhiên mảng đó có 1 dòng (1 hoặc nhiều cột), tức Ubound(showList1) = 1 là đúng rồi còn gì.

Nhưng cái đó đâu có quan trọng. Tôi thấy là trong code mà tôi đã không xem thì có

ComboBox1.List = Application.Transpose(showList1)

Tức khi đó trong ComboBox1 sẽ có nhiều dòng.

Còn nếu muốn khác thì.

1. Bỏ

Public showList1()
Public cc As Long

2.

Sub CreateList1()
Dim lastCol As Long, showList1()
    With Sheet3
        lastCol = .Range("L25").End(xlToLeft).Column
        If lastCol = 2 Then
            ReDim showList1(1 To 1, 1 To 1)
            showList1(1, 1) = .Range("B25").Value
        ElseIf lastCol > 2 Then
            showList1 = .Range("B25").Resize(, lastCol - 1).Value
        End If
    End With
    Sheet5.ComboBox1.List = Application.Transpose(showList1)
End Sub

3. Trong các code còn lại không dùng showList1 nữa.

cảm ơn bác đã chỉ. Nhưng em còn sử dụng chúng cho nhiều mục đích nữa nên mới khai báo vậy
Có cách nào chỉ lấy ra List đó có chứa 10 phần tử đó ko ạ

 

[batman1]

Nếu thế thì tại sao trong các code tiếp theo lại có ComboBox1.List = Application.Transpose(showList1)? Một khi đã muốn showList1 có 10 dòng 1 cột thì hãy bỏ cái trên đi.

Public showList1()

Sub CreateList1()
Dim lastCol As Long
    With Sheet3
        lastCol = .Range("L25").End(xlToLeft).Column
        If lastCol = 2 Then
            ReDim showList1(1 To 1, 1 To 1)
            showList1(1, 1) = .Range("B25").Value
        ElseIf lastCol > 2 Then
            showList1 = Application.Transpose(.Range("B25").Resize(, lastCol - 1).Value)
        End If
    End With
End Sub

Nếu vẫn code cũ thì khi cần thiết sẽ

...
Arr = ComboBox1.List
... dùng Arr