Nhờ viết Code tự động chọn F2--> Enter cho từng ô trong toàn bộ vùng D6:D100 (1 người xem)

[LinDan]

Công việc của em là kiểm tra dự toán xây dựng do đơn vị khác lập: Mục đích của em là xem họ có sửa gì vào đơn giá gốc không, trong quá trình kiểm tra em có kết hợp sử dụng Phần mềm dự toán giá xây dựng, nó có đặc điểm:

Vùng mã số định mức (D6100) khi được kích đúp vào nó sẽ tự động hiện ra các cột đơn giá vật liệu, nhân công, máy ở các cột khác.

Ví dụ khi em trỏ chuột và ô D6 (ô này có sẵn mã số được Copy từ đơn vị khác gửi ,ví dụ nội dung ô này là HA.1200) --> tiếp đó ấn phím F2--> rồi Enter --> lập tức nó sẽ hiện ra giá trị các ô E6, F6, G6...
Tương tự vậy khi kích đúp D7 nó sẽ lần lượt tự động hiện ra giá trị ở dòng 7 (ô E7, F7, G7...)

Tóm lại em cần Code tự động chọn F2--> Enter cho từng ô trong toàn bộ vùng D6100.

Rất mong sự trợ giúp của mọi người, em xin cảm ơn.

 

[Hai Lúa Miền Tây]

Công việc của em là kiểm tra dự toán xây dựng do đơn vị khác lập: Mục đích của em là xem họ có sửa gì vào đơn giá gốc không, trong quá trình kiểm tra em có kết hợp sử dụng Phần mềm dự toán giá xây dựng, nó có đặc điểm:

Vùng mã số định mức (D6100) khi được kích đúp vào nó sẽ tự động hiện ra các cột đơn giá vật liệu, nhân công, máy ở các cột khác.

Ví dụ khi em trỏ chuột và ô D6 (ô này có sẵn mã số được Copy từ đơn vị khác gửi ,ví dụ nội dung ô này là HA.1200) --> tiếp đó ấn phím F2--> rồi Enter --> lập tức nó sẽ hiện ra giá trị các ô E6, F6, G6...
Tương tự vậy khi kích đúp D7 nó sẽ lần lượt tự động hiện ra giá trị ở dòng 7 (ô E7, F7, G7...)

Tóm lại em cần Code tự động chọn F2--> Enter cho từng ô trong toàn bộ vùng D6100.

Rất mong sự trợ giúp của mọi người, em xin cảm ơn.

Thử cách củ chuối như sau:

Sub Test()
    Dim cll As Range
    For Each cll In Range("d6:d100").Cells
        cll.Select
        SendKeys "{F2}", True
        SendKeys "{ENTER}", True
    Next
End Sub