[vba] 写入公式, xlookup, 及evaluate直接获取公式结果的探索

结论:

1. 通过range.formula = "= 公式" 的方式来写入公式, 其中需要注意公式中的部分因为处于双引号中, 原本的双引号需要加倍;

2. Evaluate可以很方便的获取公式的结果, 使用时 Evaluate(公式), 其中公式中不需要等号, 公式整体需要双引号括起来, 因此双引号也要加倍. 公式中的参数可以使用单元格地址, 也可以使用字符串.Evaluate可以简写用方括号代替, 方括号中不需要加双引号.

3. Evaluate不可以引用关闭的工作簿, 因此想要不打开工作簿而引用数据, 最好还是通过vba书写公式;

4. WorksheetFunction.Xlookup(字符串/?, 字符串/单元格/数组, 字符串/单元格/数组, "Not Found")

Sub test_xlookup()'arr1 = Array("a", "b", "c", "d")
'arr2 = Array("1", "2", "3", "4")
'rst = WorksheetFunction.XLookup("b", arr1, arr2, "X") 'rst = "2"'arr1 = Range("A1:A10")
'arr2 = Range("B1:B10")
'rst = WorksheetFunction.XLookup("a", arr1, arr2, "X") ' rst : "$B$3"'Set arr1 = Range("A1:A10")
'Set arr2 = Range("B1:B10")
'rst = WorksheetFunction.XLookup("a", arr1, arr2, "X") ' rst : "$B$3"
Set Rng = Application.InputBox("ok", Type:=8)
adr = Rng.Address(False, False, xlA1)
Selection.Formula = "=XLOOKUP(" & adr & _
",'C:\Users\roy.luo\Desktop\[SNN Tracker.xlsx]Sheet1'!$A:$A,'C:\Users\roy.luo\Desktop\[SNN Tracker.xlsx]Sheet1'!$B:$B,""X"")"End SubSub test_evaluate()'rst = Evaluate("VLOOKUP(""a"",B1:C10,2,false)")'works
'rst = Evaluate("VLOOKUP(A3,B1:C10,2,false)") 'works
'rst = [VLOOKUP(A3,B1:C10,2,false)] 'works
'rst = [VLOOKUP("c",B1:C10,2,false)] 'works
'rst = [xlookup(A8,B1:B10,C1:C10,"X")]'works'rst = ['C:\Users\roy.luo\Desktop\[SNN Tracker.xlsx]Sheet1!A1] 'not work, evaluate may not use on closed workbook
'rst = [XLOOKUP(B13,'C:\Users\roy.luo\Desktop\[SNN Tracker.xlsx]Sheet1'!$A:$A,'C:\Users\roy.luo\Desktop\[SNN Tracker.xlsx]Sheet1'!$B:$B,"X")]fd = "C:\Users\roy.luo\Desktop\"
bn = "SNN Tracker.xlsx"
sn = "Sheet1"
ad = "'" & fd & "[" & bn & "]" & sn & "'!"
rg = Application.InputBox("org", Type:=8).Address(False, False, xlA1)
fm = "=xlookup(" & rg & "," & ad & "A:A," & ad & "B:B,""X"")"Selection.Formula = fm 'works
'rst = Evaluate(fm) 'not use on closed workbooks'MsgBox rst
End Sub

[vba] 写入公式, xlookup, 及evaluate直接获取公式结果的探索相关推荐

JAVA 向带有公式的excel写入数据，获取公式计算结果
JAVA 向带有公式的excel写入数据,获取公式计算结果 public static void main(String[] args) throws Exception {String url = ...
将Vba代码转换成Php代码,将这个Excel公式转换成VBA代码（函数）
将这个Excel公式转换成VBA代码(函数) 这是Excel中的公式,我试图转换为VBA代码: =IFERROR(IF(effDate>curDate,0,IF((curDate-effDate ...
解决webstorm调试js时Evaluate脚本获取dom属性丢失问题
解决webstorm调试js时Evaluate脚本获取dom属性丢失问题,百思不得其解,最后找到,原因出在webstorm调用chrome调试接口时设置了一个"ownProperties&q ...
一键批量将mathtype公式转换成word自带公式-vba/vbnet
文章目录实现效果一.mathtype与word自带公式omaths 1.mathtype在word中的表现形式 2.实现原理 3.为什么要将mathtype转换成word自带公式? 二.代码实现方 ...
感叹号在c语言的作用,第二：感叹号在公式中的用途感叹号在公式里的应用
第一:感叹号在VBA中的用途除了在控件中如此使用Forms!窗体名!控件名之外.在Excel的VBA中,也可以利用感叹号,"简"写一些代码.如:工作表集!工作表名,相当于Shee ...
latex公式对齐_论文中的公式如何对齐
在写论文的时候,我们会使用word自带的公式编辑器输入公式,然而在输入多个公式或者使用事例括号时,很难保证多行公式对齐.接下来我介绍几种公式对齐的方法: 使用&(类似于latex语法) 使用s ...
叉乘点乘混合运算公式_初中数学学不会？公式这样记，让你做题效率翻倍！
中学大课堂初中各科学习必备(海量学习资源) 今天给大家分享初中数学公式记忆的一些小技巧,学会了,做题效率肯定会有提升! 01 有理数的加法同号相加一边倒;异号相加"大"减&quo ...
WORD中插入的公式与文字对不齐——公式比文字高——文字比公式低
WORD中插入的公式与文字对不齐--公式比文字高--文字比公式低 2013年3月13日18:59:52 2012年11月10日23:46:06 如题,方法有两种,推荐使用方法2. 1.相关软件介绍: ...
完全平方公式用c语言表达式,完全平方公式教案
完全平方公式教学目的: 1.经历探索完全平方公式的过程,进一步发展符号感和推理能力 2.会推导完全平方公式,并能运用公式进行简单的计算 3.了解完全平方和公式的几何背景教学重点:完全平方公式的形成 ...

[vba] 写入公式, xlookup, 及evaluate直接获取公式结果的探索

[vba] 写入公式, xlookup, 及evaluate直接获取公式结果的探索相关推荐

最新文章

热门文章