Code xuất hàm tại ActiveCell đang được kích hoạt (1 người xem)

[viehoai]

Kính nhờ các anh chị giúp đỡ:
Khi chạy thủ tục thì tại vị trí Cell hiện hành (ActiveCell) xuất hiện như hình

Ghi chú: các chữ trên hình như là text lập sẵn để xuất, nhưng riêng dấu ngăn cách lấy theo dấu hệ thống
Xin cảm ơn các anh chị

 

[ndu96081631]

Kính nhờ các anh chị giúp đỡ:
Khi chạy thủ tục thì tại vị trí Cell hiện hành (ActiveCell) xuất hiện như hình
View attachment 73773
Ghi chú: các chữ trên hình như là text lập sẵn để xuất, nhưng riêng dấu ngăn cách lấy theo dấu hệ thống
Xin cảm ơn các anh chị

Đọc xong hổng hiểu đang nói cái gì luôn

 

[viehoai]

Đọc xong hổng hiểu đang nói cái gì luôn

Khi thủ tục Run thì tại cell hiện hành ở trạng thái đang nhập và con trỏ ở vị trí như hình Sư phụ à

 

[ndu96081631]

Khi thủ tục Run thì tại cell hiện hành ở trạng thái đang nhập và con trỏ ở vị trí như hình Sư phụ à

Vầy chăng: Application.SendKeys "{F2}"

 

[viehoai]

Vầy chăng: Application.SendKeys "{F2}"

Dạ đúng rồi, thế mà không nghĩ ra. Nhưng cho em hỏi thêm đưa tiếp con trỏ đến một vị trí nào đó thì sao? (tức có thể sendKey con trot lùi về 5 ký tự chẳng hạn)
(Vì lệnh này con trỏ nằm cuối)

 

[ndu96081631]

Dạ đúng rồi, thế mà không nghĩ ra. Nhưng cho em hỏi thêm đưa tiếp con trỏ đến một vị trí nào đó thì sao?
(Vì lệnh này con trỏ nằm cuối)

Thì thêm dòng code nữa Application.SendKeys "{LEFT}"

 

[viehoai]

Thì thêm dòng code nữa Application.SendKeys "{LEFT}"

Cảm ơn Sư phụ lùi về 5 ký tự thì phải dùng 5 dòng lệnh vậy à?

 

[ndu96081631]

Cảm ơn Sư phụ lùi về 5 ký tự thì phải dùng 5 dòng lệnh vậy à?

Làm vậy cũng được... Còn không thì.. vòng lập

Sub Test()
  Dim i As Long
  Application.SendKeys "{F2}"
  For i = 1 To 5
    Application.SendKeys "{LEFT}"
  Next
End Sub

Hoặc là dời con trỏ đến 1 ký tự chỉ định nào đó tùy bạn tính toán

 

[huuthang_bd]

Sao không vầy:

Application.SendKeys "{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}"

Hoặc nếu dài quá thì vầy:

Application.SendKeys Application.WorksheetFunction.Rept("{LEFT}", 10)