从VBA代码向单元格添加公式

我试图通过VBA代码在特定单元格中输入公式。从VBA代码向单元格添加公式

这是我的公式：

=CONCATENATE("SK-",IF(A5+1<1000,IF(A5+1>=10,CONCATENATE("0",A5+1),CONCATENATE("00",A5+1)),A5+1),"-",RIGHT(J8,LEN(J8)-2))

，我想公式添加到单元格，但是当我执行的代码错误1004出现。在评论

Sheets("Sheet1").Select 
Range("J6").Formula = "=CONCATENATE('SK-',IF(A5+1<1000,IF(A5+1>=10,CONCATENATE('0',A5+1),CONCATENATE('00',A5+1)),A5+1),'-',RIGHT(J8,LEN(J8)-2))"

任何问题后：

我想这个！

来源

2016-08-26 TimeToCode

你的问题是与公式本身，而不是你把它的方法。如果你尝试'表（ “工作表Sheet1”），范围（ “J6”）。公式= “= TODAY（）” '没有问题。所以很可能你错误拼写了一些东西或错过了一个括号等。 –

@TimEdwards公式没问题，如果你直接在公式上测试公式，公式可以正常工作。 – TimeToCode

它不起作用在我的机器上 - 我认为这是'''字符.... –

Sheets("Sheet1").Range("J6").Formula = "=CONCATENATE(""SK-"",IF(A5+1<1000,IF(A5+1>=10,CONCATENATE(""0"",A5+1),CONCATENATE(""00"",A5+1)),A5+1),""-"",RIGHT(J8,LEN(J8)-2))"

来源

2016-08-26 16:06:28

哦，现在的代码工作，我不知道你可以做到这一点！感谢您的支持！ – TimeToCode

从VBA代码向单元格添加公式

回答

相关问题