返回列表 上一主題 發帖

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

lcctno

帖子
142 
主題
18 
精華
0 
積分
160 
點名
295  
作業系統
win10 64位元 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
臺灣 高雄市 
註冊時間
2015-7-18 
最後登錄
2024-11-5 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-12-20 15:29 | 只看該作者

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

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




Book1.zip (30.23 KB)
收藏 分享

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
2#
發表於 2015-12-21 12:52 | 只看該作者
試試看:
sub test()
    dim Rng as range
    set Rng=activecell
'原VBACode
'~~
'~~
    Rng.select
end sub

TOP

准提部林

帖子
2831 
主題
10 
精華
0 
積分
2887 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-5 
3#
發表於 2015-12-21 13:12 | 只看該作者
後加 [C:C].Find("*").Select

TOP

Joforn
　暱稱: 南宮飄雪

中學生Rank: 2

帖子
109 
主題
2 
精華
0 
積分
114 
點名
0  
作業系統
Win7 Win10 
軟體版本
Office 2019 WPS 
閱讀權限
20 
性別
男 
來自
深圳 
註冊時間
2013-2-2 
最後登錄
2024-8-30 
4#
發表於 2015-12-21 20:52 | 只看該作者
Range("C2").End(xlDown).Select
世界那麼大，可我想去哪？

TOP

Joforn
　暱稱: 南宮飄雪

中學生Rank: 2

帖子
109 
主題
2 
精華
0 
積分
114 
點名
0  
作業系統
Win7 Win10 
軟體版本
Office 2019 WPS 
閱讀權限
20 
性別
男 
來自
深圳 
註冊時間
2013-2-2 
最後登錄
2024-8-30 
5#
發表於 2015-12-21 20:57 | 只看該作者
對不起，上面的回復是錯誤的。3#的正解。
世界那麼大，可我想去哪？

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
6#
發表於 2015-12-22 07:11 | 只看該作者
本帖最後由 c_c_lai 於 2015-12-22 07:13 編輯

回復 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*"))。

TOP

        靜思自在 : 【為善競爭】人生要為善競爭，分秒必爭。
返回列表 上一主題