VBA trả về vị trí cell hiện hành

Chia sẻ bởi:hands
★★★★★
‹ Tính tổng số lượng theo điều kiện Viết code VBA sử dụng Scripting.Dictionary để... ›
Quảng cáo

Chào các anh chị. Em thường ngày phải làm việc với nhiều bảng tính khác nhau. Trong quá trình làm việc có phát sinh một yêu cầu quan trọng nhắm tối giản công thức mà em không thể nào làm nổi.

Em có một bảng tính với dữ liệu được nhập tại bất kỳ vị trí nào. Em muốn tạo một hàm nhằm truy vấn vị trí của ô hiện hành (tức ô mà con trỏ đang nằm tại đó. Nó cũng tương tự như name box ở trên cùng bên trái mỗi bảng tính vậy, tức là cứ mỗi khi mình di chuyển con trỏ thì name box sẽ hiện thị vị trí tương ứng.

Em đang cần một hàm có tính năng như thế, và có viết vào một cell bất kỳ và trả về kết quả như một hàm excel bình thường vậy!

Có bác nào giúp em với! Em cảm ơn.

Thử với cái này xem sao:

Selection.Address

Nó chỉ trả về kết quả tĩnh. Em muốn nó thay đổi kế quả như dòng name box cơ!

Mục đích của bạn để làm gì…Trong khi đã có hộp thoại Name Box trên góc rồi….Tại sao không nhìn lên…

Nếu bạn cứ chuyển chuột mà cần hiện ra như MsgBox…thì bạn phải xài sự kiện cho tất cả Cell của sheet…Mỗi lần di chuyển thì nó lại show lên, giựt giựt…vậy nhứt mắt sao chịu được…???

Thì mình đã nói do có vấn đề phát sinh nên cần như vậy. Vị trí trong name box thì tất nhiên mình biết nhưng không thể dùng nó để tính toán được.

Do yêu cầu công việc nên có rất nhiều công thức nếu được tính theo vị trí của ô hiện hành thì sẽ rất nhanh (kể ra rất dài dòng).

Mình cũng đã lục tung google và nó cũng ra kết quả là hiển thị bằng msgBox. Liệu có cách nào nó chạy nhẹ nhàng như một hàm bình thường thôi được không?
Thực chất, mình vẫn đang tính toán các file này bằng các công thức thủ công. Tất nhiên mất rất nhiều time, trong quá trình tính toán thì mình phát hiện ra nếu tham chiếu dữ liệu dựa theo vị trí ô hiện hành thì sẽ cho kết quả nhanh hơn.

Đây mới chỉ ở dạng "ý tưởng", mình đã xem xét hết các kết quả google và đều không đáp ứng được "ý tưởng" này. Hết cách mình mới lập thớt này mong cao nhân vào giúp đỡ.

Tất nhiên, nếu có thể thì mình đã gửi các file cần giúp đỡ rồi nhưng vì lý do công việc và cá nhân mình không được phép!

Bỏ code này vô 1 sheet nào đó rồi chọn thử xem.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Selection.Address
End Sub

www.giaiphapexcel.com/diendan/threads/vba-tr%E1%BA%A3-v%E1%BB%81-v%E1%BB%8B-tr%C3%AD-cell-hi%E1%BB%87n-h%C3%A0nh.113301/

Thiết kế Tổng đãi ngộ (Total Rewards) theo khung SHRM
Khóa học SprinGO phù hợp

Thiết kế Tổng đãi ngộ (Total Rewards) theo khung SHRM

Khóa học “Thiết kế Tổng phần thưởng (Total Reward) chuẩn khung SHRM” giúp bạn nắm vững toàn bộ hệ thống đãi ngộ theo chuẩn...

Xem khóa học
★★★★★ 5 ★ 1 👤 1 ▥ 0
‹ Tính tổng số lượng theo điều kiện Viết code VBA sử dụng Scripting.Dictionary để tổng... ›
Quảng cáo

Bạn nên đọc

One Response

  1. hands says:
    26/02/2023 at 8:17 am

    À cái này thì hiện ra msg box!
    Dù sao cũng cảm ơn bác!

    Có cách nào thay vì cho nó hiện vào msgbox (khá phiền phức) thì kết quả sẽ hiển thị tại một cell cố định chẳng hạn như cell A1? 

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1].Value = Selection.Address
End Sub

    Đúng cái mình cần rồi }}}}}
    Bạn lược bỏ hộ dấu địa chỉ tuyệt đối được không? 

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1].Value = Replace(Selection.Address, "$", "")
End Sub

    Híc, sao lại vậy

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [A1].Value = Selection.Address(0, 0)
End Sub

    Híc +-+-+-++-+-+-++-+-+-+

    Reply

Leave a Reply

Your email address will not be published. Required fields are marked *

Quảng cáo
▣ Excel Ứng Dụng

Cũ vẫn chất

Tính tổng số lượng theo điều kiện Tính tổng số lượng theo điều kiện Anh chị giúp em chỉnh code cho nó tự động chạy khi mở file excel với ạ. Anh chị giúp em chỉnh code cho nó tự động chạy khi mở file excel với ạ. [HELP] File excel tách dữ liệu-quản lý công nợ [HELP] File excel tách dữ liệu-quản lý công nợ TÌM VỊ TRÍ MAX VÀ MIN BẰNG VBA TÌM VỊ TRÍ MAX VÀ MIN BẰNG VBA Lọc mảng nhiều điều kiện Lọc mảng nhiều điều kiện LỌC RA NHIỀU CELL THỎA MÃN CÙNG MỘT ĐIỀU KIỆN (khắc phục hạn chế của Vlookup) LỌC RA NHIỀU CELL THỎA MÃN CÙNG MỘT ĐIỀU KIỆN (khắc phục hạn chế của Vlookup)

Xem thêm