用VBA实现单元格内的公式！很难吗？没人解答！

xmcao

单元格B1中的公式为：=SIGN(Q1) & "|" & F1

想用VBA实现，不会做。VBA代码是：


Target.Row=1
Range("B" & Target.Row).Formula = ？？？？？

[ 本帖最后由 xmcao 于 2009-7-3 17:46 编辑 ]

LangQueS

[原创]★将公式保存在宏中★        http://club.excelhome.net/dispbb ... replyID=&skin=0

LangQueS

Sub 公式()
    Range("B1").FormulaR1C1 = "=SIGN(RC[15]) & ""|"" & RC[4]"
End Sub

xmcao

公式中的行号要用变量Target.Row表达。

xmcao

该方法不太满足我的需求。

我需要在进行流水数据记录时临时插入公式，用VBA实现工作表（只是一行）计算，然后把有公式的单元格转换成数值，永久记录当时的计算结果。现在就是这个公式不会用VBA实现。这里关键是公式中 & 字符的处理。

LangQueS

没很明白楼主的意思，选一个吧：

[ 本帖最后由 LangQueS 于 2009-7-3 18:30 编辑 ]

northwolves

1. 
   
2. With Range("B" & target.Row)
   
3. .Formula = "=SIGN(rc17) & ""|"" & rc6"
   
4. .Value = .Value
   
5. End With
   

复制代码

gyzzf

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 And Target.Count > 1 Then Exit Sub
If Target.Offset(0, 4) <> "" And Target.Offset(0, 15) <> "" Then
Target.FormulaR1C1 = "=SIGN(RC[15]) & ""|"" & RC[4]"
Target.Value=Target.Value
End If
End Sub

[ 本帖最后由 gyzzf 于 2009-7-3 18:39 编辑 ]

xmcao

解决了，谢谢版主。用的是
Range("B1").FormulaR1C1 = "=SIGN(RC[15]) & ""|"" & RC[4]"
方法。