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公式的单元使用宏

回答

相关问题