一个小问题:如果我有一个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
-
Pages
-
Sites
-
Feedsky
-
Recent Comments
-
Recent Posts
Categories
Archives
- 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
人物 人生 优秀博客 信息烟尘 养生 博客挑战赛 博客推荐 吴晓波 周其仁 咖啡 地理协会 备份 大前研一 天津 学习 学习方法 年末总结 找工作 探路 攀岩 旅行 时间岩场 月末总结 服务器 永中office 睡眠 笔记 能源 讨论 话题 趣味 随笔 concertino diigo eMule Gentoo google Google-Reader mindmap Moleskine portableapps python SNS word Wordpress-
BeiAn
