查看完整版本: ÎʸöVBAµÄÎÊÌ⣺ÈçºÎµÃµ½Ò»¸öEXCELÁбíµÄ×ÜÐÐÊý£¿

mixing 2007-12-4 11:06

ÎʸöVBAµÄÎÊÌ⣺ÈçºÎµÃµ½Ò»¸öEXCELÁбíµÄ×ÜÐÐÊý£¿

±ÈÈ磬һ¸öEXCELÎļþ£¬ÀïÃæµÄsheet1£¬ÓкܶàÐУ¬ÐÐÊýÊDz»¹Ì¶¨µÄ£¬ÎÒÔÚ±àдvba³ÌÐòµÄʱºòÐèÒª¶¯Ì¬µÃµ½Õâ¸ö×ÜÐÐÊý¡£

Çë½ÌÓÃʲô·½·¨¿ÉÒԵõ½×ÜÐÐÊýÄØ£¿Ð»Ð»£¡:)

admin 2007-12-4 14:30

ÓÃÕâ¸ö¶ÔÏóµÄÖµ¿ÉÒÔ»ñµÃ£¨ThisWorkbook¾ÍÊÇÖ¸µ±Ç°EXCELÎļþ£©£º[code]ThisWorkbook.Sheet1.Cells.SpecialCells(xlCellTypeLastCell).Row[/code]Èç¹ûÄãÒª¶ÔËùÓÐSheet½øÐд¦Àí£¬¿ÉÒÔ±éÀúÕû¸öEXCELÎļþµÄËùÓÐSheet¡£[code]for i = 1 to ThisWorkbook.Sheets.Count
    Debug.Print  "Sheet" & i & "ÓÐ" & ThisWorkbook.Sheets(i).Cells.SpecialCells(xlCellTypeLastCell).Row & "Ìõ¼Ç¼¡£"
next[/code]

ÀöÀö56 2008-9-3 05:30

ÁôÑÔ

[color=black]Â¥Ö÷¿´µ½ÄãµÄÁôÑÔÁË[url=http://www.gamenwt.cn/]´«ÊÀ˽·þ[/url]Ò»Ö±ÔÚŬÁ¦Ò²Ï£ÍûÄÜÓëÂ¥Ö÷ÔÚ[url=http://www.gamenwt.cn/]´«ÆæÊÀ½ç˽·þ[/url]ÖÐÌÖÂÛ¸ü¶àµÄÎÊÌâ[/color]
页: [1]
查看完整版本: ÎʸöVBAµÄÎÊÌ⣺ÈçºÎµÃµ½Ò»¸öEXCELÁбíµÄ×ÜÐÐÊý£¿