標題: 精準定位 [打印本頁]

---

作者: myleoyes    時間: 2011-6-1 21:37     標題: 精準定位

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

---

作者: myleoyes    時間: 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
          謝謝大家!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)