Tìm giá trị tại cột thông qua dữ liệu tại sheet khác

[pham ha 94]

Mình có bài toán này cần tìm giá trị mà loay hoay mãi không được, nhờ các bác giúp sức với.
Sheet 2 có sẵn giá trị "-- page x-----" và hàng của "-- page x-----" tại sheet 1.
Mong muốn: tìm được số tiền tại mỗi vùng page của sheet 1
VD ở sheet 1: giữa vùng page 1 và page 2 có 1 số tiền, giữa vùng sheet 2 và sheet 3 cũng có cột số tiền tại cột B
Nhờ các bác giúp mình ở file đính kèm. Ưu tiên dùng code VBA thay vì dùng function
Cảm ơn các bác rất nhiều

 

[Hoàng Tuấn 868]

Mình có bài toán này cần tìm giá trị mà loay hoay mãi không được, nhờ các bác giúp sức với.
Sheet 2 có sẵn giá trị "-- page x-----" và hàng của "-- page x-----" tại sheet 1.
Mong muốn: tìm được số tiền tại mỗi vùng page của sheet 1
VD ở sheet 1: giữa vùng page 1 và page 2 có 1 số tiền, giữa vùng sheet 2 và sheet 3 cũng có cột số tiền tại cột B
Nhờ các bác giúp mình ở file đính kèm. Ưu tiên dùng code VBA thay vì dùng function
Cảm ơn các bác rất nhiều

Bài này thì công thức bình thường cũng được chứ cần gì đến vba nhỉ.

 

[pham ha 94]

Bài này thì công thức bình thường cũng được chứ cần gì đến vba nhỉ.

Mình gặp vấn đề: Tại sheet 1 khi input dữ liệu mới thì hàng (col) của mỗi page sẽ thay đổi.
Ví dụ hiện tại page 1 ở col 1, page 2 ở col 10 và page 3 ở col 15
khi input file mới, có thể page 1 ở col 1, page 2 col 5 và page 3 col 10
hoặc có thể page 1 col 1, page 2 ở col 15 page 3 col 26.
Hiện m có thông tin tại sheet 2 là Col của mỗi page thôi và chưa tìm được cách để rò ra số tiền vì mỗi khoảng cách các page là thay đổi, bạn có thể giúp mình không?

 

[Hoàng Tuấn 868]

Mình gặp vấn đề: Tại sheet 1 khi input dữ liệu mới thì hàng (col) của mỗi page sẽ thay đổi.
Ví dụ hiện tại page 1 ở col 1, page 2 ở col 10 và page 3 ở col 15
khi input file mới, có thể page 1 ở col 1, page 2 col 5 và page 3 col 10
hoặc có thể page 1 col 1, page 2 ở col 15 page 3 col 26.
Hiện m có thông tin tại sheet 2 là Col của mỗi page thôi và chưa tìm được cách để rò ra số tiền vì mỗi khoảng cách các page là thay đổi, bạn có thể giúp mình không?

Bài này đơn giản thôi, nhưng bạn thông cảm vì mình không hỗ trợ các trường hợp viết tắt, bạn chịu khó chờ thành viên khác vậy.

 

[pham ha 94]

Bài này thì công thức bình thường cũng được chứ cần gì đến vba nhỉ.

cảm ơn bạn rất nhiều
Trước khi mình viết tắt từ Col cho column thì cũng đã có chú thích từ viết tắt trong ngoặc

 

[Hoàng Tuấn 868]

Mình gặp vấn đề: Tại sheet 1 khi input dữ liệu mới thì hàng (col) của mỗi page sẽ thay đổi.
Ví dụ hiện tại page 1 ở col 1, page 2 ở col 10 và page 3 ở col 15
khi input file mới, có thể page 1 ở col 1, page 2 col 5 và page 3 col 10
hoặc có thể page 1 col 1, page 2 ở col 15 page 3 col 26.
Hiện m có thông tin tại sheet 2 là Col của mỗi page thôi và chưa tìm được cách để rò ra số tiền vì mỗi khoảng cách các page là thay đổi, bạn có thể giúp mình không?

...... . . . ..................................

 

[pham ha 94]

...... . . . ..................................

Do Lỗi gõ từ thôi bạn ạ
Hiện m có thông tin tại sheet 2 là Col của mỗi page thôi và chưa tìm được cách để rò ra số tiền vì mỗi khoảng cách các page là thay đổi, bạn có thể giúp MÌNH không?
Nếu vì mình quen viết tắt thì đã viết hết rồi. Cũng rất cảm ơn bạn đã quan tâm và ủng hộ mình.
Cảm ơn bạn nhiều.

 

[bebo021999]

UDF:
Công thức tại C2:

=Sotien()

Option Explicit
Function Sotien()
Dim rPage As Long, i&
rPage = Application.Caller.Offset(, -1).Value
i = rPage
With Sheets("Sheet1")
    Do
        If Not IsEmpty(.Cells(i, "B")) Then
            Sotien = .Cells(i, "B").Value
            Exit Function
        End If
        i = i + 1
    Loop Until i = .Cells(Rows.Count, "B").End(xlUp).Row + 1
End With
End Function

 

[pham ha 94]

UDF:
Công thức tại C2:

=Sotien()

Option Explicit
Function Sotien()
Dim rPage As Long, i&
rPage = Application.Caller.Offset(, -1).Value
i = rPage
With Sheets("Sheet1")
    Do
        If Not IsEmpty(.Cells(i, "B")) Then
            Sotien = .Cells(i, "B").Value
            Exit Function
        End If
        i = i + 1
    Loop Until i = .Cells(Rows.Count, "B").End(xlUp).Row + 1
End With
End Function

Cảm ơn bạn rất nhiều, mình chạy thử và thành công.
Hơi tham lam 1 chút, với đề bài này của mình, nếu làm code VBA thì có thể sử dụng được không bạn?
Cảm ơn bạn rất nhiều vì đã giúp đỡ mình.

 

[bebo021999]

Cảm ơn bạn rất nhiều, mình chạy thử và thành công.
Hơi tham lam 1 chút, với đề bài này của mình, nếu làm code VBA thì có thể sử dụng được không bạn?
Cảm ơn bạn rất nhiều vì đã giúp đỡ mình.

Đây là code VBA nè bạn, dưới hình thức hàm tự tạo UDF.

 

[pham ha 94]

Đây là code VBA nè bạn, dưới hình thức hàm tự tạo UDF.

Mình có kiểm tra Function thì hiểu là tại row của cột B sheet2, sẽ tìm bên sheet1 và trả về dữ liệu đầu tiên nó tìm thấy.
Không tìm theo nội dung số tiền ở Sheet1 cột A và đối chiếu sang cột B. Nếu dữ liệu có sự thay đổi như file mình đính kèm thì sẽ trả về sai giá trị.
Không biết có cách nào khắc phục lỗi này không?. Nhờ bạn xem giúp mình với.

 

[bebo021999]

Làm lại:

Option Explicit
Function Sotien()
Dim rPage As Long, i&
rPage = Application.Caller.Offset(, -1).Value
i = rPage
With Sheets("Sheet1")
    Do
        If IsNumeric(.Cells(i, "B")) And Not IsEmpty(.Cells(i, "B")) Then
            Sotien = .Cells(i, "B").Value
            Exit Function
        End If
        i = i + 1
    Loop Until i = .Cells(Rows.Count, "B").End(xlUp).Row + 1
End With
End Function

 

[pham ha 94]

UDF:
Công thức tại C2:

=Sotien()

Option Explicit
Function Sotien()
Dim rPage As Long, i&
rPage = Application.Caller.Offset(, -1).Value
i = rPage
With Sheets("Sheet1")
    Do
        If Not IsEmpty(.Cells(i, "B")) Then
            Sotien = .Cells(i, "B").Value
            Exit Function
        End If
        i = i + 1
    Loop Until i = .Cells(Rows.Count, "B").End(xlUp).Row + 1
End With
End Function

theo m hiểu so với function cũ thì thêm trường lọc cell B là số nữa đúng không bạn