ExcelVBA±àʵս±à³Ì£¨ºÜʵÓÃŶ£© - ͼÎÄ

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

ÁªÏµ¿Í·þ£º779662525#qq.com(#Ìæ»»Îª@)