ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤À¨É] VBA»y¥y¶°200¥y (2-2)

[¤À¨É] VBA»y¥y¶°200¥y (2-2)

¹ï¶H
Application¹ï¶H

(148) Application.UserName ¡yªð¦^À³¥Îµ{§Çªº¥Î¤á¦W
(149) Application.Caller ¡yªð¦^¥Nªí½Õ¥Î¨ç¼Æªº³æ¤¸®æ
(150) Application.Caller.Parent.Parent ¡yªð¦^½Õ¥Î¨ç¼Æªº¤u§@ï¦WºÙ
(151) Application.StatusBar=¡v½Ðµ¥«Ý¡K¡K¡v ¡y±N¤å¥»¼g¨ìª¬ºAÄæ
  Application.StatusBar=¡v½Ðµ¥«Ý¡K¡K¡v & Percent & ¡u% Completed¡v ¡y§ó·sª¬ºAÄæ¤å¥»¡A¥HÅܶqPercent¥Nªí§¹¦¨ªº¦Ê¤À¤ñ
  Application.StatusBar=False ¡y±Nª¬ºAÄæ­«·s³]¸m¦¨¥¿±`ª¬ºA
(152) Application.Goto Reference:=Range(¡uA14¡v) ¡y«ü©w³æ¤¸®æ°Ï°ìA1¦ÜD4¡Aµ¥¦P©ó¿ï¾Ü¡u½s¿è¡X¡X©w¦ì¡v¡A«ü©w³æ¤¸®æ°Ï°ì¬°A1¦ÜD4¡A¤£·|¥X²{¡u©w¦ì¡v¹ï¸Ü®Ø
(153) Application.Dialogs(xlDialogFormulaGoto).Show ¡yÅã¥Ü¡u©w¦ì¡v¹ï¸Ü®Ø¡A¦ý©w¦ì±ø¥ó«ö¶sµL®Ä
(154) Application.Dialogs(xlDialogSelectSpecial).Show ¡yÅã¥Ü¡u©w¦ì±ø¥ó¡v¹ï¸Ü®Ø
(155) Application.Dialogs(xlDialogFormatNumber).show ¡yÅã¥Ü¡u³æ¤¸®æ®æ¦¡¡v¤¤ªº¡u¼Æ¦r¡v¿ï¶µ¥d
  Application.Dialogs(xlDialogAlignment).show ¡yÅã¥Ü¡u³æ¤¸®æ®æ¦¡¡v¤¤ªº¡u¹ï»ô¡v¿ï¶µ¥d
Application.Dialogs(xlDialogFontProperties).show ¡yÅã¥Ü¡u³æ¤¸®æ®æ¦¡¡v¤¤ªº¡u¦rÅé¡v¿ï¶µ¥d
Application.Dialogs(xlDialogBorder).show ¡yÅã¥Ü¡u³æ¤¸®æ®æ¦¡¡v¤¤ªº¡uÃä®Ø¡v¿ï¶µ¥d
Application.Dialogs(xlDialogPatterns).show ¡yÅã¥Ü¡u³æ¤¸®æ®æ¦¡¡v¤¤ªº¡u¹Ï®×¡v¿ï¶µ¥d
Application.Dialogs(xlDialogCellProtection).show ¡yÅã¥Ü¡u³æ¤¸®æ®æ¦¡¡v¤¤ªº¡u«OÅ@¡v¿ï¶µ¥d
µù¡GµLªk¤@¦¸Åã¥Ü±a¿ï¶µ¥dªº¡u³æ¤¸®æ®æ¦¡¡v¹ï¸Ü®Ø¡A¥u¯à¤@¦¸Åã¥Ü¤@­Ó¿ï¶µ¥d¡C
(156) Application.Dialogs(xlDialogFormulaGoto).show Range("b2"), True ¡yÅã¥Ü¡u¤Þ¥Î¦ì¸m¡vªºÀq»{³æ¤¸®æ°Ï°ì¨ÃÅã¥Ü¤Þ¥Î¨Ï¨ä¥X²{¦bµ¡¤f¥ª¤W¨¤(µù¡G¤º¸m¹ï¸Ü®Ø°Ñ¼Æªº¨Ï¥Î)
(157) Application.CommandBars(1).Controls(2).Controls(16).Execute ¡y°õ¦æ¡u©w¦ì¡v¸Ü®Ø¡A¬Û·í©ó¿ï¾Üµæ³æ¡u½s¿è¡X¡X©w¦ì¡v©R¥O
(158) Application.Transpose(Array(¡uSun¡v,¡vMon¡v,¡vTur¡v,¡vWed¡v,¡vThu¡v,¡vFri¡v,¡vSat¡v)) ¡yªð¦^¤@­Ó««ª½ªº¼Æ²Õ
(159) Application.Version ¡yªð¦^¨Ï¥ÎªºExcelª©¥»¸¹
(160) Application.Cursor = xlNorthwestArrow ¡y³]¸m¥ú¼Ð§Îª¬¬°¥_¦è¦V½bÀY
Application.Cursor = xlIBeam ¡y³]¸m¥ú¼Ð§Îª¬¬°¢¹¦r§Î
Application.Cursor = xlWait ¡y³]¸m¥ú¼Ð§Îª¬¬°¨Fº|(µ¥«Ý)§Î
Application.Cursor = xlDefault ¡y«ì´_¥ú¼ÐªºÀq»{³]¸m
(161) Application.WindowState ¡yªð¦^µ¡¤f·í«eªºª¬ºA
   Application.WindowState = xlMinimized ¡yµ¡¤f³Ì¤p¤Æ
Application.WindowState = xlMaximized ¡yµ¡¤f³Ì¤j¤Æ
Application.WindowState = xlNormal ¡yµ¡¤f¥¿±`ª¬ºA
(162) Application.UsableHeight ¡yÀò¨ú·í«eµ¡¤fªº°ª«×
Application.UsableWidth ¡yÀò¨ú·í«eµ¡¤fªº¼e«×
(163) Application.ActiveCell.Address ¡yªð¦^¬¡°Ê³æ¤¸®æªº¦a§}(ª`:ªð¦^ªº¬Oµ´¹ï¦a§})
(164) Application.ActivePrinter ¡yªð¦^·í«e¥´¦L¾÷ªº¦WºÙ
(165) Application.ActiveSheet.Name ¡yªð¦^¬¡°Ê¤u§@ªíªº¦WºÙ
(166) Application.ActiveWindow.Caption ¡yªð¦^¬¡°Êµ¡¤fªº¼ÐÃD
(167) Application.ActiveWorkbook.Name ¡yªð¦^¬¡°Ê¤u§@諸¦WºÙ
(168) Application.Selection.Address ¡yªð¦^©Ò¿ï°Ï°ìªº¦a§}
(169) Application.ThisWorkbook.Name ¡yªð¦^·í«e¤u§@諸¦WºÙ
(170) Application.CalculationVersion ¡yªð¦^Excel­pºâ¤ÞÀºª©¥»(¥kÃä¥|¦ì¼Æ¦r)¤ÎExcelª©¥»(¥ªÃä¨â¦ì¼Æ¦r)
(171) Application.MemoryFree ¡y¥H¦r¸`¬°³æ¦ìªð¦^Excel¤¹³\¨Ï¥Îªº¤º¦s¼Æ(¤£¥]¬A¤w¸g¨Ï¥Îªº¤º¦s)
(172) Application.MemoryUsed ¡y¥H¦r¸`¬°³æ¦ìªð¦^Excel·í«e¨Ï¥Îªº¤º¦s¼Æ
(173) Application.MemoryTotal ¡y¥H¦r¸`¬°³æ¦ìªð¦^Excel¥i¥H¨Ï¥Îªº¤º¦s¼Æ(¥]¬A¤w¨Ï¥Îªº¤º¦s,¬OMemoryFree©MMemoryUsedªºÁ`©M)
(174) Application.OperatingSystem ¡yªð¦^©Ò¨Ï¥Îªº¾Þ§@¨t²Îªº¦WºÙ©Mª©¥»
(175) Application.OrganizationName ¡yªð¦^Excel²£«~µn°O¨Ï¥Îªº²Õ´¾÷ºcªº¦WºÙ
(176) Application.FindFormat ¡y¬d§äªº®æ¦¡ºØÃþ
   Application.ReplaceFormat ¡y´À´«¬d§ä¨ìªº¤º®eªº®æ¦¡ºØÃþ
ActiveSheet.Cells.Replace What:=¡v ¡u, _
Replacement:=¡v ¡u,SearchFormat:=True,ReplaceFormat:=True ¡y´À´«¬d§ä¨ìªº®æ¦¡
(177) Application.Interactive=False ¡y©¿²¤Áä½L©Î¹«¼Ðªº¿é¤J
(178) Application.Evaluate("Rate") ¡y­Y¦b¤u§@ªí¤¤©w¸q¤F±`¶q0.06ªº¦WºÙ¬°¡vRate¡v,«h¥»»y¥y±Nªð¦^­È0.06
(179) Application.OnUndo ¡uUndo Option¡v,¡uUndo Procedure¡v ¡y¿ï¾ÜUndoOption«á¡A±N°õ¦æUndo Procedure¹Lµ{
*******************************************************
Range¹ï¶H
(180) Range(A1:A10).value="/Application.WorksheetFunction.Transpose(MyArray)" ¡y±N¤@­Ó§t¦³10­Ó¤¸¯Àªº¼Æ²ÕÂà¸m¦¨««ª½¤è¦Vªº¤u§@ªí³æ¤¸®æ°Ï°ì(A1¦ÜA10)
µù¡G¦]¬°·í§â¤@ºû¼Æ²Õªº¤º®e¶Ç»¼µ¹¬Y­Ó³æ¤¸®æ°Ï°ì®É¡A¸Ó³æ¤¸®æ°Ï°ì¤¤ªº³æ¤¸®æ¥²¶·¬O¤ô¥­¤è¦Vªº¡A§Y§t¦³¦h¦Cªº¤@¦æ¡C­Y¥²¶·¨Ï¥Î««ª½¤è¦Vªº³æ¤¸®æ°Ï°ì¡A«h¥²¶·¥ý±N¼Æ²Õ¶i¦æÂà¸m¡A¦¨¬°««ª½ªº¡C
(181) Range(¡uA65536¡v).End(xlUp).Row+1 ¡yªð¦^A¦C³Ì«á¤@¦æªº¤U¤@¦æ
(182) rng.Range(¡uA1¡v) ¡yªð¦^°Ï°ì¥ª¤W¨¤ªº³æ¤¸®æ
(183) cell.Parent.Parent.Worksheets ¡y³X°Ý·í«e³æ¤¸®æ©Ò¦bªº¤u§@ï
(184) Selection.Font.Bold=Not Selection.Font.Bold ¡y¤Á´«©Ò¿ï³æ¤¸®æ¬O§_¥[²Ê
(185) ActiveSheet.Range("A:B").Sort Key1:=Columns("B"), Key2:=Columns("A"), _
Header:=xlYes ¡y¨â­ÓÃöÁä¦r±Æ§Ç¡A¬Û¾F¨â¦C¡AB¦C¬°¥DÃöÁä¦r¡AA¦C¬°¦¸ÃöÁä¦r¡A¤É§Ç±Æ¦C
(186) cell.Range(¡uA1¡v).NumberFormat ¡yÅã¥Ü³æ¤¸®æ©Î³æ¤¸®æ°Ï°ì¤¤ªº²Ä¤@­Ó³æ¤¸®æªº¼Æ¦r®æ¦¡
(187) cell.Range(¡uA1¡v).HasFormula ¡yÀˬd³æ¤¸®æ©Î³æ¤¸®æ°Ï°ì¤¤ªº²Ä¤@­Ó³æ¤¸®æ¬O§_§t¦³¤½¦¡
©Îcell.HasFormula ¡y¤u§@ªí¤¤³æ¤¸®æ¬O§_§t¦³¤½¦¡
(188) Cell.EntireColumn ¡y³æ¤¸®æ©Ò¦bªº¾ã¦C
   Cell.EntireRow ¡y³æ¤¸®æ©Ò¦bªº¾ã¦æ
(189) rng.Name.Name ¡yÅã¥Ürng°Ï°ìªº¦WºÙ
(190) rng.Address ¡yªð¦^rng°Ï°ìªº¦a§}
(191) cell.Range(¡uA1¡v).Formula ¡yªð¦^¥]§t¦brng°Ï°ì¤¤¥ª¤W¨¤³æ¤¸®æ¤¤ªº¤½¦¡¡C
µù¡G­Y¦b¤@­Ó¥Ñ¦h­Ó³æ¤¸®æ²Õ¦¨ªº½d³ò¤º¨Ï¥ÎFormulaÄÝ©Ê¡A·|±o¨ì¿ù»~¡F­Y³æ¤¸®æ¤¤¨S¦³¤½¦¡¡A·|±o¨ì¤@­Ó¦r²Å¦ê¡A¦b¤½¦¡Ä椤Åã¥Ü¸Ó³æ¤¸®æªº­È¡C
(192) Range(¡uD510¡v).Cells(1,1) ¡yªð¦^³æ¤¸®æ°Ï°ìD510¤¤¥ª¤W¨¤³æ¤¸®æ
(193) ActiveCell.Row ¡y¬¡°Ê³æ¤¸®æ©Ò¦bªº¦æ¼Æ
   ActiveCell.Column ¡y¬¡°Ê³æ¤¸®æ©Ò¦bªº¦C¼Æ
(194) Range("A1:B1").HorizontalAlignment = xlLeft ¡y·í«e¤u§@ªí¤¤ªº³æ¤¸®æ°Ï°ì¼Æ¾Ú³]¸m¬°¥ª¹ï»ô
(195) ActiveSheet.Range(¡uA2:A10¡v).NumberFormat=¡v#,##0¡v ¡y³]¸m³æ¤¸®æ°Ï°ìA2¦ÜA10¤¤¼Æ­È®æ¦¡
(196) rng.Replace ¡u ¡u,¡v0¡v  ¡y¥Î0´À´«³æ¤¸®æ°Ï°ì¤¤ªºªÅ³æ¤¸®æ
*******************************************************
Collection»Pobject
(197) Dim colMySheets As New Collection
Public colMySheets As New Collection  ¡yÁn©ú·sªº¶°¦XÅܶq
(198) Set MyRange=Range(¡uA1:A5¡v) ¡y³Ð«Ø¤@­Ó¦W¬°MyRangeªº¹ï¶HÅܶq
(199) <object>.Add Cell.Value CStr(Cell.Value) ¡y¦V¶°¦X¤¤²K¥[±©¤@ªº±ø¥Ø(§Y±N­«½Æªº±ø¥Ø©¿²¤)
*******************************************************
Windows API
(200) Declare Function GetWindowsDirectoryA Lib ¡ukernel32¡v _
(ByVal lpBuffer As String,ByVal nSize As Long) As Long ¡yAPI¨ç¼ÆÁn©ú¡Cªð¦^¦w¸ËWindows©Ò¦bªº¥Ø¿ý¦WºÙ¡A½Õ¥Î¸Ó¨ç¼Æ«á¡A¦w¸ËWindowsªº¥Ø¿ý¦WºÙ±N¦b²Ä¤@­Ó°Ñ¼ÆlpBuffer¤¤¡A¸Ó¥Ø¿ý¦WºÙªº¦r²Å¦êªø«×¥]§t¦b²Ä¤G­Ó°Ñ¼ÆnSize¤¤

¥»©«³Ì«á¥Ñ la1975 ©ó 2014-1-22 14:22 ½s¿è

¦^´_ 1# la1975


(152) Application.Goto Reference:=Range(¡uA1:D4¡v) ¡y«ü©w³æ¤¸®æ°Ï°ìA1¦ÜD4¡Aµ¥¦P©ó¿ï¾Ü¡u½s¿è¡X¡X©w¦ì¡v¡A«ü©w³æ¤¸®æ°Ï°ì¬°A1¦ÜD4¡A¤£·|¥X²{¡u©w¦ì¡v¹ï¸Ü®Ø


(192) Range(¡uD5:D10¡v).Cells(1,1) ¡yªð¦^³æ¤¸®æ°Ï°ìD5:D10¤¤¥ª¤W¨¤³æ¤¸®æ

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD