Code VBA trong excel lấy dữ liệu của từng tháng

[venecon]

Em chào anh/ chị ạ
Em gặp một khó khăn trong việc chạy Macro nhờ anh chị giúp đỡ em với ạ

Em muốn lấy kết quả của một ô dữ liệu tương ứng với từng tháng
tức là mỗi một tháng có một ô dữ liệu khác nhau, em muốn ô kết quả VD ô K3 tại tháng 1 thì nó tự lấy dữ liệu của tháng 1, đến tháng 2 thì tại ô K3 lấy dữ liệu của tháng 2
Nhưng khi em chạy Macro thì tháng 2 nó vẫn lấy dữ liệu của tháng 1, làm sao để tự động sang tháng tiếp theo khi mình chạy báo cáo nó tự lấy dữ liệu lên cột tiếp theo ạ

P/s: Em không dùng hàm Hlookup vì ô kết quả đó em còn dùng liên kết với nhiều ô khác nhau để tính toán nữa, em chạy báo cáo VBA trong đó có ô kết quả cần tự động tính để phục vụ chạy các dữ liệu khác. trên vd trên em chỉ minh họa đơn giản vậy thôi.

 

[Hong.Van]

Em chào anh/ chị ạ
Em gặp một khó khăn trong việc chạy Macro nhờ anh chị giúp đỡ em với ạ

Em muốn lấy kết quả của một ô dữ liệu tương ứng với từng tháng
tức là mỗi một tháng có một ô dữ liệu khác nhau, em muốn ô kết quả VD ô K3 tại tháng 1 thì nó tự lấy dữ liệu của tháng 1, đến tháng 2 thì tại ô K3 lấy dữ liệu của tháng 2
Nhưng khi em chạy Macro thì tháng 2 nó vẫn lấy dữ liệu của tháng 1, làm sao để tự động sang tháng tiếp theo khi mình chạy báo cáo nó tự lấy dữ liệu lên cột tiếp theo ạ

Cthức được không
K3=HLOOKUP(K2;B1:G2;2;0)

 

[Nhattanktnn]

Em chào anh/ chị ạ
Em gặp một khó khăn trong việc chạy Macro nhờ anh chị giúp đỡ em với ạ

Em muốn lấy kết quả của một ô dữ liệu tương ứng với từng tháng
tức là mỗi một tháng có một ô dữ liệu khác nhau, em muốn ô kết quả VD ô K3 tại tháng 1 thì nó tự lấy dữ liệu của tháng 1, đến tháng 2 thì tại ô K3 lấy dữ liệu của tháng 2
Nhưng khi em chạy Macro thì tháng 2 nó vẫn lấy dữ liệu của tháng 1, làm sao để tự động sang tháng tiếp theo khi mình chạy báo cáo nó tự lấy dữ liệu lên cột tiếp theo ạ

Mình cũng thấy đề bài này dùng hlookup là ổn rồi

 

[venecon]

Cthức được không
K3=HLOOKUP(K2;B1:G2;2;0)

Tại ô kết quả đó em còn dùng liên kết với nhiều ô khác nhau để tính toán nữa, em chạy báo cáo VBA trong đó có ô kết quả cần tự động tính để phục vụ chạy các dữ liệu khác. trên vd trên em chỉ minh họa đơn giản vậy thôi.

Bài đã được tự động gộp: 13/5/20

Mình cũng thấy đề bài này dùng hlookup là ổn rồi

Tại ô kết quả đó em còn dùng liên kết với nhiều ô khác nhau để tính toán nữa, em chạy báo cáo VBA trong đó có ô kết quả cần tự động tính để phục vụ chạy các dữ liệu khác. trên vd trên em chỉ minh họa đơn giản vậy thôi.

Bài đã được tự động gộp: 13/5/20

Cthức được không
K3=HLOOKUP(K2;B1:G2;2;0)

Tại ô kết quả đó em còn dùng liên kết với nhiều ô khác nhau để tính toán nữa, em chạy báo cáo VBA trong đó có ô kết quả cần tự động tính để phục vụ chạy các dữ liệu khác. trên vd trên em chỉ minh họa đơn giản vậy thôi.

 

[SA_DQ]

Xài macro sự kiện như vầy:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, sRng As Range
If Not Intersect(Target, [K2]) Is Nothing Then
    Set Rng = Range([A1], [z1].End(xlToLeft))
 '   MsgBox Rng.Address   '
    Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
    If Not sRng Is Nothing Then
        [K3].Value = sRng.Offset(1).Value
    End If
End If
End Sub

Nếu thích thì tại K2 bạn tao 1 danh sách sổ xuống mà xài cho tiện

 

[Nhattanktnn]

Tại ô kết quả đó em còn dùng liên kết với nhiều ô khác nhau để tính toán nữa, em chạy báo cáo VBA trong đó có ô kết quả cần tự động tính để phục vụ chạy các dữ liệu khác. trên vd trên em chỉ minh họa đơn giản vậy thôi.

Bài đã được tự động gộp: 13/5/20

Tại ô kết quả đó em còn dùng liên kết với nhiều ô khác nhau để tính toán nữa, em chạy báo cáo VBA trong đó có ô kết quả cần tự động tính để phục vụ chạy các dữ liệu khác. trên vd trên em chỉ minh họa đơn giản vậy thôi.

Bài đã được tự động gộp: 13/5/20

Tại ô kết quả đó em còn dùng liên kết với nhiều ô khác nhau để tính toán nữa, em chạy báo cáo VBA trong đó có ô kết quả cần tự động tính để phục vụ chạy các dữ liệu khác. trên vd trên em chỉ minh họa đơn giản vậy thôi.

Vậy bạn cứ đưa file gốc lên đi, hoặc tương tự. Các anh chị khác vào thấy file cũng dễ giúp, chứ bạn đưa nhiêu đó rồi làm xong bạn lại bảo ko đúng ý nữa

 

[SA_DQ]

Vậy bạn cứ đưa file gốc lên đi, hoặc tương tự. Các anh chị khác vào thấy file cũng dễ giúp, chứ bạn đưa nhiêu đó rồi làm xong bạn lại bảo ko đúng ý nữa

Có nhiêu làm nhiêu; Nếu tác giả bài đăng thêm khác thì tiếp tục theo khả năng!

 

[khuyenbachmao]

Giải pháp hay nhất vẫn là thiết kế của file, còn sử lý một tác vụ như thế này chỉ cần đoạn code sau:

Sub get_data_from_range()

Dim resrgn As Range, col As Long

Set resrgn = ActiveSheet.Range("K3")
Set crirgn = ActiveSheet.Range("K2")

For col = 2 To 7
If crirgn = ActiveSheet.Cells(1, col) Then
resrgn = ActiveSheet.Cells(2, col): Exit Sub
End If
Next col

End Sub

 

[venecon]

Giải pháp hay nhất vẫn là thiết kế của file, còn sử lý một tác vụ như thế này chỉ cần đoạn code sau:

Sub get_data_from_range()

Dim resrgn As Range, col As Long

Set resrgn = ActiveSheet.Range("K3")
Set crirgn = ActiveSheet.Range("K2")

For col = 2 To 7
If crirgn = ActiveSheet.Cells(1, col) Then
resrgn = ActiveSheet.Cells(2, col): Exit Sub
End If
Next col

End Sub

cảm ơn anh nhiều em làm được rồi ạ

Bài đã được tự động gộp: 14/5/20

Xài macro sự kiện như vầy:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, sRng As Range
If Not Intersect(Target, [K2]) Is Nothing Then
    Set Rng = Range([A1], [z1].End(xlToLeft))
'   MsgBox Rng.Address   '
    Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
    If Not sRng Is Nothing Then
        [K3].Value = sRng.Offset(1).Value
    End If
End If
End Sub

Nếu thích thì tại K2 bạn tao 1 danh sách sổ xuống mà xài cho tiện

cảm ơn anh ạ