返回列表 上一主題 發帖

[發問] 請問公式 ActiveCell.FormulaR1C1 代號如何寫

回復 10# cji3cj6xu6
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range, AD As String
  4.     Set Rng = Workbooks("BOOK2.XLS").Sheets(3).[D50]
  5.     With ActiveSheet
  6.         .Hyperlinks.Add Anchor:=Range("B10"), Address:="", SubAddress:=Rng.Address(, , , 1, 1), TextToDisplay:=Rng.Address
  7.     End With
  8. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

謝謝G大~~

TOP

        靜思自在 : 能善用時間的人,必能掌握自己努力的方向。
返回列表 上一主題