永中集成Office2009个人版免费下载

查看完整版本: 我写宏遇到问题,请帮我改一下!

宋永健 2004-12-3 13:56

我写宏遇到问题,请帮我改一下!

void Macro2()
3t M`nv;b {        
Z+@u0N0q+W,A-K         /** W)Ym QT;s
         *录制宏 日期:2004-12-2 作者:宋永健
YV!@*?4n+[o          */
1Sr(zwi Worksheet sheet = Application.getWorkbooks().getActiveWorkbook().getWorksheets().getActiveWorksheet();%~tQ/PRI&u6I#g
    Cell cell = sheet.getActiveCell();'C|aJ7K/\e
    int row = cell.getRow();@$p4d8`o.N$}
    int column = cell.getColumn();n$E.[OsC1q
    sheet.select(1,column,row,column);o:axGQR8VJ[
/**
B0Uz1hv\1T2D          *选择以上单元格/e-y0r7X3u;v
         */   
^:m1T|7K u@ ActiveRange.setBorderStyle(BorderAndShadingConstants.BOTTOM_BORDER);
M8c;E.]4xz ActiveRange.setFontBold(true);  k!v/FyhZ1KY"aLC
ActiveRange.setHorizonalAlignmentCenter();X c @KI;c\n:e
ActiveRange.setFontName("华文楷体");
D-x[AeU2k)`Tp ActiveRange.setFontSize(72.0);R z%MH@C

.\\*Q/WOb )RgWZwj]
Range range = sheet.getActiveRange();
DDDk N8Q|     int startRow= range.getStartRow();
(if/VPmp$@pm} G     int startColumn = range.getStartColumn();]Yypzpm9_T
    int endRow = range.getEndRow();#gk"~W%J0bUa-I-\z ~
    int endColumn = range.getEndColumn();S0U4zC/nx/p
   
7q0_O:^T6U*[^)q    
Rb'A!k6A*u j!pi2Q     ]*BjCZ)E!A

QZ1XY;^ .In Iz1I0u;LL
ActiveWorksheet.select(startRow:endRow);
%K9djz]vC&F*q ActiveRows.setRowHeight(9.39);K)a a!A'M&a,tO
ActiveWorksheet.select(startColumn:startColumn+1);z` X9b~
ActiveColumns.setColumnWidth(20.00);
*}KT0[&S
L!ogi J,JN y
q-g$iS#oLN 上面加颜色的地方怎么改才对呢?我是菜鸟,请高手指教
页: [1]
查看完整版本: 我写宏遇到问题,请帮我改一下!