從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代碼向單元格添加公式

回答

相關問題