返回列表 上一主題 發帖

精準定位

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-6-1 21:37 | 只看該作者

精準定位

各位前輩你們好!
         前輩!!問題如附檔說明
         請知道的前輩,不吝賜教謝謝再三!!

Leov53.rar (55.31 KB)

收藏 分享

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
2#
發表於 2011-6-2 22:34 | 只看該作者
回復 1# myleoyes
各位前輩你們好!
         各位前輩!!這個問題小弟以找到答案如下
         Sub 找位置()
             ActiveWindow.ScrollColumn = 1
             Set e = Range("B10")
             Range("B9").FormulaR1C1 = "=分析!R[-8]C[29]"
             Range("B10").FormulaR1C1 = "=分析!R[-9]C[29]*15-15"
             ActiveWindow.ScrollColumn = ActiveWindow.ScrollColumn + e
             Set c = [C1:HX1].Find(Range("A1"), , , 1)
             If Not c Is Nothing Then c.Select
             Range("A23") = ""
          End Sub
          謝謝大家!!

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題