一个小问题:如果我有一个Excel表,列数非常的多(比如说有二十列),以至于在一张纸上横着打不下,想折行打印,也就是把一行打成两行,或者更多行,应该怎么做?(而且这个表非常大,不考虑纯手工操作)
———————— 先想后看 ————————
我的答案,用一个VBA来做一个复制。我对VBA不是很熟,尤其对于VBA复杂的对象体系感到头晕,因此花了一天半的时间来看文档,还翻了一本叫《Excel 2003高级VBA编程宝典》的书,才写出这么几句。VBA基本的语法其实不麻烦,麻烦还在于找到正确的对象和属性。现代语言似乎都是这样?应用层面上体系比算法重要。
Sub SheetToPrint()
Application.ScreenUpdating = False
‘ 停止屏幕刷新
For i = 1 To Worksheets(“Sheet1″).Range(“a1″, Range(“a65535″).End(xlUp)).Count
‘ 这个是从第一行到最后一行的遍历,VBA的这个写法是挺奇怪的。
Worksheets(“Sheet1″).Cells(i, 1).Copy Worksheets(“Sheet2″).Cells((i – 1) * 3 + 1, 1)
[...]
Micro Blog
Twitter
- 迅雷离线下载对于我们这种内网收到限制的同志还真是一个有用的服务,一个月8.8元相对于流量费用已经不算贵了。 2010/07/26
- 自然科学和社会科学都对现实进行了一定的简化,只有文学不行,文学必须面对一切。 2010/07/25
- 大连油管爆炸,责任就这么推给一个天津公司了? 2010/07/25
- 原来天津原来也忽悠过快速公交系统啊,在2004年左右。现在滨海又在搞。 2010/07/25
- 相对于地图的“图上作业”,在电脑面前瞎扯应该算是“屏上作业”。 2010/07/25
Pages
Sites
Calendar
北京国际马拉松赛
2010年10月17日Feedsky
Recent Comments
Categories
Archives
- July 2010
- June 2010
- May 2010
- April 2010
- March 2010
- February 2010
- January 2010
- December 2009
- November 2009
- October 2009
- September 2009
- August 2009
- July 2009
- June 2009
- May 2009
- April 2009
- March 2009
- February 2009
- January 2009
- December 2008
- November 2008
- October 2008
- September 2008
- August 2008
- July 2008
- June 2008
- May 2008
- April 2008
- March 2008
- February 2008
- January 2008
- December 2007
- November 2007
- October 2007
- September 2007
- August 2007
- July 2007
- June 2007
- May 2007
- April 2007
- March 2007
- February 2007
- January 2007
- December 2006
- November 2006
- October 2006
- September 2006
- August 2006
- July 2006
- June 2006
- May 2006
- April 2006
- March 2006
- February 2006
- January 2006
- December 2005
- November 2005
- October 2005
- September 2005
- August 2005
- July 2005
- June 2005
- May 2005
- April 2005
- March 2005
- February 2005
- January 2005
- November 2004
- October 2004
- September 2004
- August 2004
- June 2004
- May 2004
Friends/我的朋友
MySpace/我的空间
Tags

