[發問] 如何於執行完程式後 將滑鼠點選於最先出現價位的地方

lcctno

請問VBA之寫法  
如何於執行完程式後 將滑鼠點選於最先出現價位的地方 如範例是17.82
謝謝教導

下載 (88.41 KB)

2015-12-20 15:28

Book1.zip (30.23 KB)

下載次數: 6

2015-12-20 15:29

yen956

試試看:
sub test()
    dim Rng as range
    set Rng=activecell
'原VBACode
'~~
'~~
    Rng.select
end sub

准提部林

後加 [C:C].Find("*").Select

Joforn

Range("C2").End(xlDown).Select

Joforn

對不起，上面的回復是錯誤的。3#的正解。

c_c_lai

回復 1# lcctno
回復 3# 准提部林
正如三樓 (3#) 准提部林 版大提示。
但

1. Sub Ex()
   
2.     [C:C].Find("*").Select
   
3. End Sub

複製代碼

如修改成

1. Sub Ex()
   
2.     [C:C].Find("1*").Select
   
3. End Sub

複製代碼

更佳。
(你可以試著在 1955 列 17.82 之上的 C 欄
任何欄位內輸入 0 或是 0.5 等等數值，當然
涵蓋 C2 欄在內，即會觀察到 Cursor (游標)
Focus (焦點) 的欄位會有所不同 ("*" 以及 "1*"))。