//////////////////////////////// excel 的一个宏 ///////////////////////////////////
sub setpageinfo(byval regdatestr as string) 【程序编程相关:Delphi多层开发方案比较】 【推荐阅读:Pascal精要笔记】 【扩展信息:听说delphi9要出来了】dim i, maxrow as integer
取得最大行 maxrow range("a1").select activecell.specialcells(xllastcell).select maxrow = activecell.row 取得有日期的行 i = maxrow range("a1").select while (range("a" & cstr(i)).value <> "dateline") and (i >= 1) if range("a" & cstr(i)).value = "change1" then rows(cstr(i) & ":" & cstr(i)).rowheight = 21 end if i = i - 1 wend 写入日期 ... 下一页