Code VBA ấn F2 cả 1 Range trong sheet

Liên hệ QC

NQ_AT

Thành viên chính thức
Tham gia
9/12/14
Bài viết
68
Được thích
9
Xin chào các anh GPE,

Mình có câu hỏi như sau: Bên sheet 2 có 1 button, khi bấm vào button này thì bên sheet 1 toàn bộ các dòng tại cột B có value <>"" sẽ được ấn F2 rồi enter ( thay vì mình phải chọn từng cell rồi ấn F2 rồi Enter vậy đó). Lưu ý: chỉ ấn F2 xong rồi Enter thôi, không làm gì khác.

Mong các anh xem giúp code thế nào nha.
 
Xin chào các anh GPE,

Mình có câu hỏi như sau: Bên sheet 2 có 1 button, khi bấm vào button này thì bên sheet 1 toàn bộ các dòng tại cột B có value <>"" sẽ được ấn F2 rồi enter ( thay vì mình phải chọn từng cell rồi ấn F2 rồi Enter vậy đó). Lưu ý: chỉ ấn F2 xong rồi Enter thôi, không làm gì khác.

Mong các anh xem giúp code thế nào nha.
Bạn cần gì ra kết quả hiện ra thế nào thì cung cấp thông tin bằng file đàng hoàng thì mới có thể làm được. Đoán kiểu này chắc tới tết Công Gô.
 
Upvote 0
Bạn cần gì ra kết quả hiện ra thế nào thì cung cấp thông tin bằng file đàng hoàng thì mới có thể làm được. Đoán kiểu này chắc tới tết Công Gô.

Thật ra em đang xem trang này và muốn làm cái code made in myself, mà làm cứ báo lỗi hoài.

http://answers.microsoft.com/en-us/...r-button/5978af33-5ce0-48cc-a235-d662a4cf3418

Mục đích chỉ để Refesh mấy cái Cells thôi anh quanghai1969, còn những cái liên quan tới ô này thì tùy từng trường hợp mà có công thức khác nhau, chủ yếu refesh được nó cái đã. Nhờ anh xem giúp em.
 

File đính kèm

  • Test Code F2.xlsm
    17.8 KB · Đọc: 22
Upvote 0
Thật ra em đang xem trang này và muốn làm cái code made in myself, mà làm cứ báo lỗi hoài.

http://answers.microsoft.com/en-us/...r-button/5978af33-5ce0-48cc-a235-d662a4cf3418

Mục đích chỉ để Refesh mấy cái Cells thôi anh quanghai1969, còn những cái liên quan tới ô này thì tùy từng trường hợp mà có công thức khác nhau, chủ yếu refesh được nó cái đã. Nhờ anh xem giúp em.
Trong thực tế chắc không ai mần ăn gì kỳ cục thế này đâu.
PHP:
Sub RefreshCells()
Dim r As Long
Sheet1.Select
For r = 3 To [B65536].End(3).Row
    Cells(r, 2).Select
    Application.SendKeys "{F2}"
    Application.SendKeys "{ENTER}"
    MsgBox r
Next
End Sub
 
Upvote 0
Web KT
Back
Top Bottom