Xin code lấy giá trị trang của một bảng tính vào một cell (1 người xem)

[thanchetvnt]

Bác nào biết thì giúp cho em xin code để tự động điền số trang của một bảng tính vào một ô ở một sheet khác. Cụ thể là ở sheet1 em chứa dữ liệu. Khi em lọc theo điều kiện nào (ví dụ với mặt hàng XYZ) đó thì click chuột vào nút nó trả kết quả ở ô A1 bên sheet2. Với kết quả ở A1bên sheet2 ta biết được với mặt hàng XYZ sẽ có bao nhiêu trang phải in ra.

 

[nnd1988]

Bác nào biết thì giúp cho em xin code để tự động điền số trang của một bảng tính vào một ô ở một sheet khác. Cụ thể là ở sheet1 em chứa dữ liệu. Khi em lọc theo điều kiện nào (ví dụ với mặt hàng XYZ) đó thì click chuột vào nút nó trả kết quả ở ô A1 bên sheet2. Với kết quả ở A1bên sheet2 ta biết được với mặt hàng XYZ sẽ có bao nhiêu trang phải in ra.

Theo tôi bạn nên đưa File mẫu nên hoặc ít nhất là 1 phần của File mẫu. Chứ không lẽ mọi người lại tự ngồi nghĩ ra mẫu giúp bạn à. Chưa kể sau khi làm giúp bạn xong bạn lại bảo không phải như vậy đâu thì...

 

[phucbugis]

Bác nào biết thì giúp cho em xin code để tự động điền số trang của một bảng tính vào một ô ở một sheet khác. Cụ thể là ở sheet1 em chứa dữ liệu. Khi em lọc theo điều kiện nào (ví dụ với mặt hàng XYZ) đó thì click chuột vào nút nó trả kết quả ở ô A1 bên sheet2. Với kết quả ở A1bên sheet2 ta biết được với mặt hàng XYZ sẽ có bao nhiêu trang phải in ra.

bạn mở file, cho chạy Macro,

điền số liệu ở sheet 1, vào sheet 2 - click button (1 nút là dùng cho phiên bản Excel 2003, nút còn lại là 2007 trở về sau, bạn xem nút nào xài được thì lấy code của nút đó nhé)

Sub demtrangin_2003()
    With Sheets("Sheet2").Range("A1")
        .Value = ExecuteExcel4Macro("Get.Document(50,""" & "Sheet1" & """)")
    End With
End Sub

Sub demtrangin_2007()
    With Sheets("Sheet2").Range("A1")
        .Value = (Sheets("Sheet1").PageSetup.Pages.Count)
    End With
End Sub

Link: https://www.mediafire.com/?izmwj71e06z0k6g