基本上,我想根据另一个单元格的有效数字的数量更改一个单元格的有效数字。
我得到了一个适用于工作表单元格的公式,神奇公式的来源:https : //stackoverflow.com/a/41891803/9111492
现在,我想将该公式移动到 vbe,以便在按下按钮时将公式插入到单元格中。但我正面临一个错误。
这是我编辑并得到的代码
错误 1004
Dim NRC As Range
Range(NRC.Offset(-1, 35), NRC.Offset(-1, 38)).Formula = _
"=TEXT(IF(" & NRC.Offset(-1, 39).Address & "<0,""-"","""")&LEFT(TEXT(ABS(" & NRC.Offset(-1, 39).Address & "),""0.""&REPT(""0""," & NRC.Offset(-1, 41).Address & "-1)&""E+00"")," & NRC.Offset(-1, 41).Address & "+1)*10^FLOOR(LOG10(TEXT(ABS(" & NRC.Offset(-1, 39).Address & "),""0.""&REPT(""0""," & NRC.Offset(-1, 41).Address & "-1)&""E+00"")),1),(""""&(IF(OR(AND(FLOOR(LOG10(TEXT(ABS(" & NRC.Offset(-1, 39).Address & "),""0.""&REPT(""0""," & NRC.Offset(-1, 41).Address & "-1)&""E+00"")),1)+1=" & NRC.Offset(-1, 41).Address & ",RIGHT(LEFT(TEXT(ABS(" & NRC.Offset(-1, 39).Address & "),""0.""&REPT(""0""," & NRC.Offset(-1, 41).Address & "-1)&""E+00"")," & NRC.Offset(-1, 41).Address & "+1)*10^FLOOR(LOG10(TEXT(ABS(" & NRC.Offset(-1, 39).Address & "),""" & _
"T(""0""," & NRC.Offset(-1, 41).Address & "-1)&""E+00"")),1),1)=""0""),LOG10(TEXT(ABS(" & NRC.Offset(-1, 39).Address & "),""0.""&REPT(""0""," & NRC.Offset(-1, 41).Address & "-1)&""E+00""))<=" & NRC.Offset(-1, 41).Address & "-1),""0."",""#"")&REPT(""0"",IF(" & NRC.Offset(-1, 41).Address & "-1-(FLOOR(LOG10(TEXT(ABS(" & NRC.Offset(-1, 39).Address & "),""0.""&REPT(""0""," & NRC.Offset(-1, 41).Address & "-1)&""E+00"")),1))>0," & NRC.Offset(-1, 41).Address & "-1-(FLOOR(LOG10(TEXT(ABS(" & NRC.Offset(-1, 39).Address & "),""0.""&REPT(""0""," & NRC.Offset(-1, 41).Address & "-1)&""E+00"")),1)),0)))))"
NRC 是范围的名称
NRC.Offset(-1, 39) 是包含我想更改有效数字的数字的单元格
NRC.Offset(-1, 41) 是包含有效数字的单元格
任何帮助表示赞赏!
=TEXT(IF(A1<0,"-","")&LEFT(TEXT(ABS(A1),"0."&REPT("0",sigfigs-1)&"E+00"),sigfigs+1)*10^FLOOR(LOG10(TEXT(ABS(A1),"0."&REPT("0",sigfigs-1)&"E+00")),1),(""&(IF(OR(AND(FLOOR(LOG10(TEXT(ABS(A1),"0."&REPT("0",sigfigs-1)&"E+00")),1)+1=sigfigs,RIGHT(LEFT(TEXT(ABS(A1),"0."&REPT("0",sigfigs-1)&"E+00"),sigfigs+1)*10^FLOOR(LOG10(TEXT(ABS(A1),"0."&REPT("0",sigfigs-1)&"E+00")),1),1)="0"),LOG10(TEXT(ABS(A1),"0."&REPT("0",sigfigs-1)&"E+00"))<=sigfigs-1),"0.","#")&REPT("0",IF(sigfigs-1-(FLOOR(LOG10(TEXT(ABS(A1),"0."&REPT("0",sigfigs-1)&"E+00")),1))>0,sigfigs-1-(FLOOR(LOG10(TEXT(ABS(A1),"0."&REPT("0",sigfigs-1)&"E+00")),1)),0)))))
使用示例数据创建一个新工作簿:
File
→ New
→ Blank Workbook
。在新工作表上:12.345
在单元格中输入数字A1
6
在单元格中输入数字B1
(并点击Enter)创建一个命名单元格sigfigs:
B1
,单击Define Name...
sigfigs
并按下Enter接下来,创建一个新的VBA模块:Alt+ F11 Alt+ I Alt+M
在新模块中,从第一行开始:(Option Explicit
应始终在您工作的每个模块的顶部使用,尤其是在学习或排除代码故障时。)
跳过(空白)行,然后开始一个新的子,如:
Sub PrecisionTest()
...然后点击Enter,VBE 将添加End Sub
下面的行。
在两行Sub...
和之间End Sub
:将公式粘贴到 VBA 编辑器中:Ctrl+V
更换每组有引号的2套报价:
"
""
Replace All
。(应该说进行了 62 次替换。)OK
并单击 X 以关闭Replace
窗口。在粘贴的代码行的开头,输入:Range("C1").Formula="
在粘贴的代码行的末尾,再输入一组引号:(或者只需单击不同的行,它将自动添加,因为它从末尾丢失。)"
Option Explicit
Sub PrecisionTest()
Range("C1").Formula = "=TEXT(IF(A1<0,""-"","""")&LEFT(TEXT(ABS(A1),""0.""&REPT(""0"",sigfigs-1)&""E+00""),sigfigs+1)*10^FLOOR(LOG10(TEXT(ABS(A1),""0.""&REPT(""0"",sigfigs-1)&""E+00"")),1),(""""&(IF(OR(AND(FLOOR(LOG10(TEXT(ABS(A1),""0.""&REPT(""0"",sigfigs-1)&""E+00"")),1)+1=sigfigs,RIGHT(LEFT(TEXT(ABS(A1),""0.""&REPT(""0"",sigfigs-1)&""E+00""),sigfigs+1)*10^FLOOR(LOG10(TEXT(ABS(A1),""0.""&REPT(""0"",sigfigs-1)&""E+00"")),1),1)=""0""),LOG10(TEXT(ABS(A1),""0.""&REPT(""0"",sigfigs-1)&""E+00""))<=sigfigs-1),""0."",""#"")&REPT(""0"",IF(sigfigs-1-(FLOOR(LOG10(TEXT(ABS(A1),""0.""&REPT(""0"",sigfigs-1)&""E+00"")),1))>0,sigfigs-1-(FLOOR(LOG10(TEXT(ABS(A1),""0.""&REPT(""0"",sigfigs-1)&""E+00"")),1)),0)))))"
End Sub
C1
将填充公式,其结果将是一个字符串: 12.3450
。复制其他人发布的(工作)代码片段在所有经验水平的编码人员中都很常见,但是首先尝试准确复制代码以复制它很重要。
只有在验证您的副本按预期工作(正确的结果;没有错误)之后,您才应开始根据需要添加自己的修改。一次做一个小的改变,在每次改变后执行代码来测试它以确保它仍然有效...... (特别是在 VBA 学习曲线的开始。)
此外,Excel 单元格用字母(列)和数字(行)表示,因此没有像您尝试做的那样带有负数的位置(并且您没有显示任何将NRC声明为对象的代码,也没有显示Set是一个Range,所以你没有Offset
正确使用。
这是一个链接,显示了Range
对象的语法和示例,这是一个关于Offset
方法的链接。我还建议您查看:
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句