- 帖子
- 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
謝謝大家!! |
|
