offset在自定义函数的应用

ningyong58

Function SplitPnDn(ByVal Target As Range)
  Dim Rng As Range
  Set Rng = Cells(Target.Row(), 1) -- 目标成立
  SplitPnDn = Cells(Target.Row(), 1) --- 目标成立
   'Rng.Offset(1, 15) = Rng
End Function


从理论讲 Rng.Offset(1, 15) = Rng是成立。
请问各位大侠的问题是
1 可是在自定义函数中，不成立。
2 只有SplitPnDn = Cells(Target.Row(), 1)成立。

一意孤行

不明白你的意思
你想用单元格A1中的公式改变另一个没有公式的单元格的值？

参考：
http://club.excelhome.net/viewth ... p;extra=&page=1

ningyong58

原帖由 一意孤行 于 2010-5-12 12:12 发表
不明白你的意思
你想用单元格A1中的公式改变另一个没有公式的单元格的值？

参考：
http://club.excelhome.net/viewth ... p;extra=&page=1

这个帖子已经学习过。
其要点是类


Public WithEvents sht As Worksheet
Private Sub sht_Change(ByVal Target As Range)
  On Error GoTo ren
    Set myc.sht = Nothing
    Set myc = Nothing
    Set s = CreateObject("MSScriptControl.ScriptControl")
    s.Language = "VBScript"
    s.AddObject "ActiveWorkbook", ActiveWorkbook
    s.AddObject "Application", Application
    s.AddObject "Activesheet", ActiveSheet
    s.AddObject "sheets", Sheets
    s.AddObject "cells", Cells
    s.addcode mycc
    s.Run "xi"
    s.Reset
ren:
End Sub

---------
发此帖是将以前所学内容进行整理。