[已解决]缺少语句结束 (没有解决）

ls

Sub 清单日期()

Range("a5") = Application.Text(range("a7"), "Yyyy-m-d") & "~" & Application.Text(cell(cells.Count,1).end(3).row,1), "Yyyy-m-d") & "    运费合计:"
End Sub


缺少语句结束

最佳答案

月排行榜 / 总排行榜

windimi007

2012-2-17 13:03

请测试！
P.S. VBA中有format函数，和工作表的text函数用法类似。

1. Sub 清单日期()
   
2.     Range("a5") = Format(Range("a7"), "yyyy-m-d") & "~" & Format(Cells(Rows.Count, 1).End(3), "yyyy-m-d") & "    运费合计:"
   
3. End Sub

复制代码

跳转到最佳答案楼层

上清宫主

还是删了的好
这样用会溢出。那个格子是根本不存在的{:301:}

windimi007

请测试！
P.S. VBA中有format函数，和工作表的text函数用法类似。

1. Sub 清单日期()
   
2.     Range("a5") = Format(Range("a7"), "yyyy-m-d") & "~" & Format(Cells(Rows.Count, 1).End(3), "yyyy-m-d") & "    运费合计:"
   
3. End Sub

复制代码

上清宫主

强词夺理：改来不缺少语句就成
对不对是另一码子事

windimi007

上清宫主 发表于 2012-2-17 13:18
强词夺理：改来不缺少语句就成
对不对是另一码子事

那倒也是啊！不过怎么看怎么别扭呀~~~~~~~{:331:}

ls

兰色幻想(476850230)  12:49:16
你的括号位值不对
cells.Count,1).end(3).row
这是出问题了，你自查一下吧

ls

已由兰版解决  谢谢

ls

已由兰版解决  谢谢

ls

Sub 清单日期()

    Range("a5") = Application.Text(Range("a7"), "Yyyy-m-d") & "~" & Application.Text(Cells(Cells(Cells.Count, 1).End(3).Row, 1), "Yyyy-m-d") & "    运费合计:"
End Sub

ls

ls 发表于 2012-2-17 14:14
Sub 清单日期()

    Range("a5") = Application.Text(Range("a7"), "Yyyy-m-d") & "~" & Application.Te ...

还是有问题      提示  对象不支持该方法或属性