Ading公式的單元使用宏

Dim dflrow As Integer 

    ActiveWorkbook.Sheets("ElecTM").Range("I1048576").Select 

    dflrow = Selection.End(xlUp).Row 

'  ActiveWorkbook.Sheets("ElecTM").Range("AG" & dflrow & ":" & "AJ" & dflrow).Select 

    ActiveWorkbook.Sheets("ElecTM").Range("AG6").Formula = "=CONCATENATE(Year(I6),"w",WeekNum(I6))" 

    Selection.FillDown

這裏我得到一個錯誤說在第五line.I語法錯誤有tried'.value「而不是」 .Formula'.But未help.Canü幫助？Ading公式的單元使用宏

來源

2013-09-30 srt

您在"w"

ActiveWorkbook.Sheets("ElecTM").Range("AG6").Formula = _ 
"=CONCATENATE(Year(I6),""w"",WeekNum(I6))"

缺少雙引號你必須墊"額外"如果使用""

編輯之間

：有疑問時，錄製宏）

來源

2013-09-30 10:37:19

謝謝...，它worked..could你告訴我，爲什麼我們必須把兩個雙引號中的宏時，我們只有把一對雙引號中的細胞在Excel中?? ... – srt

所以那'''被認爲是一個字符串:) –

當我使用followin代碼時它說「運行時錯誤1004.應用程序定義或對象違反錯誤。 ActiveWorkbook.Sheets（「ElecTM」）。Range（「AI6」）。Formula =「= IF（I6 =（TODAY（）+ 1），」「Y」「，」「）」 Selection.FillDown – srt

w應該用雙引號

ActiveWorkbook.Sheets("ElecTM").Range("AG6").Formula = "=CONCATENATE(Year(I6),""w"",WeekNum(I6))"

來源

2013-09-30 10:37:26 Santosh

謝謝...，它的工作..你可以告訴我爲什麼我們必須把兩個雙引號在宏中，當我們只需要在Excel中的單元格中放置一對雙引號?? ... – srt

請參考此[鏈接**連接和行情（#quotes ）**]（http://www.eng.auburn.edu/~tplacek/courses/3600/Strings%20and%20Manipulations.htm） – Santosh

[Link2]（http://msdn.microsoft.com/en-us /library/office/aa212167(v=office.11).aspx） – Santosh

Ading公式的單元使用宏

回答

相關問題