MsgBox \½«µ±Ç°´°¿ÚµÄ¸ß¶ÈºÍ¿í¶È¸÷¼õÒ»°ë\ iWinHeight = ActiveWindow.Height iWinWidth = ActiveWindow.Width
ActiveWindow.Height = iWinHeight / 2 ActiveWindow.Width = iWinWidth / 2 MsgBox \»Ö¸´Ô´°¿Ú´óС\
ActiveWindow.Height = iWinHeight ActiveWindow.Width = iWinWidth End Sub
ʾÀý˵Ã÷£ºHeightÊôÐÔºÍWidthÊôÐÔ±ØÐëÔÚ´°¿Ú´¦ÓÚÕý³£ÏÔʾ״̬(¼´²»ÊÇ×î´ó»¯»ò×îС»¯×´Ì¬)ʱʹÓ㬷ñÔò»á³ö´í¡£
ʾÀý02-20£ºÒƶ¯´°¿Ú Sub SetWindowPosition()
Dim iTop As Long, iLeft As Long
MsgBox \½«µ±Ç°´°¿ÚÏòÏÂÒÆ60,ÏòÓÒÒÆ90\ ActiveWindow.WindowState = xlNormal iTop = ActiveWindow.Top iLeft = ActiveWindow.Left
ActiveWindow.Top = iTop + 60 ActiveWindow.Left = iLeft + 90 MsgBox \»Ö¸´ÔÀ´´°¿ÚµÄλÖÃ\ ActiveWindow.Top = iTop ActiveWindow.Left = iLeft End Sub
ʾÀý˵Ã÷£ºTopÊôÐÔºÍLeftÊôÐÔ±ØÐëÔÚ´°¿Ú´¦ÓÚÕý³£ÏÔʾ״̬(¼´²»ÊÇ×î´ó»¯»ò×îС»¯×´Ì¬)ʱʹÓ㬷ñÔò»á³ö´í¡£
ʾÀý02-21£º²¢ÅűȽϴ°¿Ú Sub testCompare()
MsgBox \Ó빤×÷²¾Book2½øÐв¢ÅűȽÏ\ Windows.CompareSideBySideWith \
MsgBox \Æô¶¯´°¿Ú¹ö¶¯¹¦ÄÜ,ʹÁ½¸ö´°¿Úͬʱ¹ö¶¯\ Windows.SyncScrollingSideBySide = True MsgBox \½«¹¤×÷²¾Book2×îС»¯\
Windows(\= xlMinimized MsgBox \ÖØÖò¢ÅűȽÏÏÔʾ,»Ö¸´²¢ÅűȽÏ\ Windows.ResetPositionsSideBySide MsgBox \¹Ø±Õ²¢ÅűȽÏ\
ActiveWorkbook.Windows.BreakSideBySide End Sub
ʾÀý˵Ã÷£ºÔÚÔËÐб¾Ê¾Àýǰ£¬È·±£ÔÚ±¾´°¿ÚÍ⻹´ò¿ªÁËÒ»¸öÃûΪBook2µÄ´°¿Ú£¬»òÕßÄú´ò¿ªÁËÒ»¸öÆäËüÃüÃûµÄ´°¿Ú£¬ÏàÓ¦½«ÉÏÃæ³ÌÐòÖеÄBook2¸ü»»ÎªÄúµÄ´°¿ÚÃû¡£CompareSideBySideWith·½·¨½«ÒÔ²¢ÅÅģʽ´ò¿ªÁ½¸ö´°¿Ú£¬ÆäÖÐÒ»¸öÊÇ
25
µ±Ç°»î¶¯´°¿Ú£¬ÁíÒ»¸ö¾ÍÊǸ÷½·¨ËùÖ¸¶¨µÄ´°¿Ú£¬Èç±¾ÀýÖеÄBook2¡£SyncScrollingSideBySideÊôÐÔÉèÖÃÊÇ·ñ½«Á½¸ö´°¿ÚµÄ¹ö¶¯±£³Öͬ²½£¬Èç¹ûΪTrue£¬ÔÚ¶ÔÎĵµ½øÐв¢ÅűȽϵÄͬʱÆôÓô°¿ÚÄÚÈݵĹö¶¯¹¦ÄÜ¡£ÈôΪFalse£¬ÔòÔÚ¶ÔÎĵµ½øÐв¢ÅűȽϵÄͬʱ½ûÓô°¿ÚÄÚÈݵĹö¶¯¹¦ÄÜ¡£ResetPositionsSideBySide·½·¨ÖØÖÃÕýÔÚ½øÐв¢ÅűȽϵÄÁ½¸ö¹¤×÷±í´°¿ÚµÄλÖã¬ÀýÈ磬Èç¹ûÓû§½«ÕýÔÚ½øÐбȽϵÄÁ½¸ö¹¤×÷±í´°¿ÚÖÐµÄÆäÖÐÒ»¸ö´°¿ò×îС»¯»ò×î´ó»¯£¬¾Í¿ÉÒÔʹÓÃResetPositionsSideBySide·½·¨ÖØÖÃÏÔʾ£¬ÒÔ±ãÕâÁ½¸ö´°¿ÚÔٴβ¢ÅÅÏÔʾ¡£BreakSideBySide·½·¨ÓÃÀ´¹Ø±Õ²¢ÅűȽϡ£
ʾÀý02-22£º·µ»Ø»òÉèÖô°¿ÚÖÐÏÔʾµÄÊÓͼ(ViewÊôÐÔ) Sub testView()
MsgBox \½«ÊÓͼÇл»Îª·ÖÒ³Ô¤ÀÀ\
ActiveWindow.View = xlPageBreakPreview MsgBox \´°¿ÚÊÓͼΪ:\& ActiveWindow.View MsgBox \½«ÊÓͼ»Ö¸´Õý³£\
ActiveWindow.View = xlNormalView
MsgBox \´°¿ÚÊÓͼΪ:\& ActiveWindow.View End Sub
ʾÀý02-23£º·µ»Ø´°¿ÚÖпɼûµ¥Ôª¸ñÇøÓò(VisibleRangeÊôÐÔ) Sub testVisibleRange()
MsgBox \µ±Ç°´°¿ÚÖй²ÓÐ\& Windows(1).VisibleRange.Cells.Count & \¸öµ¥Ôª¸ñ¿É¼û\End Sub
ʾÀý˵Ã÷£ºÈç¹û´°¿ÚÖÐÓв¿·ÖÐÐÁеĵ¥Ôª¸ñ¿É¼û£¬Ò²°üÀ¨Ôڿɼûµ¥Ôª¸ñÇøÓòÖС£
ʾÀý02-24£º´´½¨´°¿Ú(NewWindow·½·¨) Sub testNewWindow()
MsgBox \Ϊ»î¶¯´°¿Ú´´½¨Ò»¸ö¸±±¾\ ActiveWindow.NewWindow
MsgBox \Ëù´´½¨´°¿ÚµÄ´°¿ÚºÅΪ\& ActiveWindow.WindowNumber End Sub
ʾÀý˵Ã÷£º±¾Ê¾ÀýÖУ¬NewWindow·½·¨ÎªÖ¸¶¨´°¿Ú(±¾ÀýÖÐΪµ±Ç°»î¶¯´°¿Ú)´´½¨Ò»¸ö¸±±¾£¬È»ºóÏÔʾ¸Ã¸±±¾´°¿ÚµÄ´°¿ÚºÅ¡£×¢Ò⣬´°¿ÚºÅÓë´°¿ÚË÷Òý(IndexÊôÐÔ)µÄ²»Í¬£¬ÀýÈçÃû³ÆÎª¡°Book1.xls:2¡±µÄ´°¿Ú£¬Æä´°¿ÚºÅΪ£²£¬¶ø´°¿ÚË÷ÒýΪ¸Ã´°¿ÚÔÚWindows¼¯ºÏÖеÄλÖ㬿ÉÒÔΪ´°¿ÚÃû³Æ»ò±àºÅ¡£
ʾÀý02-25£ºÉèÖô°¿Ú´óС(ZoomÊôÐÔ) Sub testWindowDisplaySize()
MsgBox \½«´°¿Ú´óСÉèÖÃΪÓëÑ¡¶¨ÇøÓòÏàÊÊÓ¦µÄ´óС\ ActiveWindow.Zoom = True MsgBox \ÒÔË«±¶´óСÏÔʾ´°¿Ú\ ActiveWindow.Zoom = 200 MsgBox \ÒÔÕý³£´óСÏÔʾ´°¿Ú\
26
ActiveWindow.Zoom = 100 End Sub ʾÀý˵Ã÷£ºZoomÊôÐÔ½«ÒÔ°Ù·ÖÊýµÄÐÎʽ(100±íʾÕý³£´óС£¬200±íʾ˫±¶´óС£¬ÒÔ´ËÀàÍÆ)·µ»Ø»òÉèÖô°¿ÚµÄÏÔʾ´óС¡£Èç¹û±¾ÊôÐÔΪ True£¬Ôò¿É½«´°¿Ú´óСÉèÖóÉÓ뵱ǰѡ¶¨ÇøÓòÏàÊÊÓ¦µÄ´óС¡£±¾¹¦Äܽö¶Ô´°¿ÚÖе±Ç°µÄ»î¶¯¹¤×÷±íÆð×÷Óã¬ÈôÒª¶ÔÆäËû¹¤×÷±íʹÓñ¾ÊôÐÔ£¬±ØÐëÏȼ¤»î¸Ã¹¤×÷±í¡£
ʾÀý02-26£º¼¤»î´°¿Ú(ActivateNext·½·¨ºÍActivatePrevious·½·¨) [ʾÀý02-26-01]
Sub testActivateWindow1()
MsgBox \ÈôÒÑ´ò¿ªBook1.xls¡¢Book2.xlsºÍBook3.xlsÈý¸ö¹¤×÷²¾ÇÒBook1.xlsΪµ±Ç°´°¿Ú\& Chr(10) & \Ôò°´Book3.xls-Book2.xls-Book1.xlsÒÀ´Î¼¤»î´°¿Ú\
ActiveWindow.ActivateNext
MsgBox \¼¤»î¹¤×÷²¾:\& Windows(1).Caption ActiveWindow.ActivateNext
MsgBox \¼¤»î¹¤×÷²¾:\& Windows(1).Caption ActiveWindow.ActivateNext
MsgBox \¼¤»î¹¤×÷²¾:\& Windows(1).Caption End Sub
[ʾÀý02-26-02]
Sub testActivateWindow2()
MsgBox \ÈôÒÑ´ò¿ªBook1.xls¡¢Book2.xlsºÍBook3.xlsÈý¸ö¹¤×÷²¾ÇÒBook1.xlsΪµ±Ç°´°¿Ú\& Chr(10) & \Ôò°´Book2.xls-Book3.xls-Book1.xlsÒÀ´Î¼¤»î´°¿Ú\
ActiveWindow.ActivatePrevious
MsgBox \¼¤»î¹¤×÷²¾:\& Windows(1).Caption ActiveWindow.ActivatePrevious
MsgBox \¼¤»î¹¤×÷²¾:\& Windows(1).Caption ActiveWindow.ActivatePrevious
MsgBox \¼¤»î¹¤×÷²¾:\& Windows(1).Caption End Sub
ʾÀý02-27£º¹ö¶¯´°¿Ú(LargeScroll·½·¨ºÍSmallScroll·½·¨) [ʾÀý02-27-01] Sub testScroll1()
MsgBox \½«µ±Ç°´°¿ÚÏòϹö¶¯3Ò³²¢ÏòÓÒ¹ö¶¯1Ò³\ ActiveWindow.LargeScroll Down:=3, ToRight:=1 End Sub
ʾÀý˵Ã÷£ºLargeScroll·½·¨½«°´Ò³¹ö¶¯´°¿ÚµÄÄÚÈÝ£¬ÆäÓ﷨Ϊexpression.LargeScroll(Down, Up, ToRight, ToLeft)£¬´øÓÐ4¸ö¿ÉÑ¡µÄ²ÎÊý£¬ÆäÖвÎÊýDown±íʾ½«´°¿ÚÄÚÈÝÏòϹö¶¯µÄÒ³Êý£»²ÎÊýUp±íʾ½«´°¿ÚÄÚÈÝÏòÉϹö¶¯µÄÒ³Êý£»²ÎÊýToRight±íʾ½«´°¿ÚÄÚÈÝÏòÓÒ¹ö¶¯µÄÒ³Êý£»²ÎÊýToLeft±íʾ½«´°¿ÚÄÚÈÝÏò×ó¹ö¶¯µÄÒ³Êý¡£Èç¹ûͬʱָ¶¨ÁËDownºÍUp£¬´°¿ÚÄÚÈÝÉÏÏ·½Ïò¹ö¶¯µÄÒ³ÊýÓÉÕâÁ½
27
¸ö²ÎÊýµÄ²î¾ö¶¨£¬ÀýÈ磬Èç¹ûDownΪ3£¬UpΪ6£¬Ôò´°¿ÚÏòÉϹö¶¯ÈýÒ³¡£Èç¹ûͬʱָ¶¨ÁËToLeftºÍToRight£¬´°¿ÚÄÚÈÝ×óÓÒ·½Ïò¹ö¶¯µÄÒ³ÊýÓÉÕâÁ½¸ö²ÎÊýµÄ²î¾ö¶¨£¬ÀýÈ磬Èç¹ûToLeftΪ3£¬ToRightΪ 6£¬Ôò´°¿ÚÏòÓÒ¹ö¶¯ÈýÒ³¡£ËùÓÐÕâËĸö²ÎÊý¶¼¿ÉÒÔʹÓøºÊý¡£ [ʾÀý02-27-02] Sub testScroll2()
MsgBox \½«µ±Ç°»î¶¯´°¿ÚÏòϹö¶¯3ÐÐ\ ActiveWindow.SmallScroll down:=3 End Sub
ʾÀý˵Ã÷£ºSmallScroll·½·¨°´ÐлòÁйö¶¯´°¿Ú£¬ÆäÓ﷨Ϊexpression.SmallScroll(Down, Up, ToRight, ToLeft)£¬´øÓÐ4¸ö¿ÉÑ¡µÄ²ÎÊý£¬ÆäÖвÎÊýDown±íʾ½«´°¿ÚÄÚÈÝÏòϹö¶¯µÄÐÐÊý£»²ÎÊýUp±íʾ½«´°¿ÚÄÚÈÝÏòÉϹö¶¯µÄÁÐÊý£»²ÎÊýToRight±íʾ½«´°¿ÚÄÚÈÝÏòÓÒ¹ö¶¯µÄÁÐÊý£»²ÎÊýToLeft±íʾ½«´°¿ÚÄÚÈÝÏò×ó¹ö¶¯µÄÁÐÊý¡£Èç¹ûͬʱָ¶¨ÁËDownºÍUp£¬Ôò´°¿ÚÄÚÈݹö¶¯µÄÐÐÊýÓÉÕâÁ½¸ö²ÎÊýµÄ²îÖµ¾ö¶¨£¬ÀýÈ磬Èç¹ûDownΪ3£¬UpΪ6£¬Ôò´°¿ÚÄÚÈÝÏòÉϹö¶¯ÈýÐС£Èç¹ûͬʱָ¶¨ÁËToLeftºÍToRight£¬Ôò´°¿ÚÄÚÈݹö¶¯µÄÁÐÊýÓÉÕâÁ½¸ö²ÎÊýµÄ²îÖµ¾ö¶¨£¬ÀýÈ磬Èç¹ûToLeftΪ3£¬ToRightΪ 6£¬Ôò´°¿ÚÄÚÈÝÏòÓÒ¹ö¶¯ÈýÁС£ÒÔÉÏËĸö²ÎÊý¾ù¿ÉÈ¡¸ºÖµ¡£
ʾÀý02-28£º²âÊÔËùÑ¡µ¥Ôª¸ñ¿í¶ÈºÍ¸ß¶È Sub testWidthOrHeight()
Dim lWinWidth As Long, lWinHeight As Long With ActiveWindow
lWinWidth = .PointsToScreenPixelsX(.Selection.Width) lWinHeight = .PointsToScreenPixelsY(.Selection.Height) End With
MsgBox \µ±Ç°Ñ¡¶¨µ¥Ôª¸ñ¿í¶ÈΪ:\& lWinWidth & Chr(10) & _ \µ±Ç°Ñ¡¶¨µ¥Ôª¸ñ¸ß¶ÈΪ:\& lWinHeight End Sub
ʾÀý02-29£º¹Ø±Õ´°¿Ú(Close·½·¨) Sub CloseWindow()
MsgBox \¹Ø±Õµ±Ç°´°¿Ú\ ActiveWindow.Close End Sub
ʾÀý˵Ã÷£º±¾Ê¾ÀýÔËÐк󣬽«¹Ø±Õµ±Ç°´°¿Ú¡£Èç¹ûµ±Ç°´°¿Úδ±£´æ£¬Ôò»áµ¯³öѯÎÊÊÇ·ñ±£´æµÄÏûÏ¢¿ò¹©Ñ¡Ôñ¡£ By fanjy in 2006-9-23
µÚÈýÕ ¹¤×÷²¾(Workbook)»ù±¾²Ù×÷Ó¦ÓÃʾÀý(Ò»)
·ÖÀà:ExcelVBA>>ExcelVBA±à³ÌÈëÃÅ·¶Àý
Workbook¶ÔÏó´ú±í¹¤×÷²¾£¬¶øWorkbooks¼¯ºÏÔò°üº¬Á˵±Ç°ËùÓеŤ×÷²¾¡£ÏÂ
28