vba精典源程序源代码(工作表操作)（国外英文资料）.doc

vba精典源程序源代码(工作表操作)（国外英文资料） Vba classic source program source code (schedule). Txt51 self-confidence is the source of inexhaustible, self-confidence is its way through the waves, self-confidence is the rapids endeavour channels, self-confidence is the mother of success. [example 04-01] increase worksheets (Add methods) Sub AddWorksheet () MsgBox adds a worksheet to the current workbook Worksheets. The Add MsgBox added a worksheet before sheet2 in the current workbook Worksheets. Add before: = Worksheets ( sheet2 ) MsgBox adds a worksheet after the worksheet in the current workbook, sheet2 Worksheets. Add after: = Worksheets ( sheet2 ) MsgBox adds 3 worksheets to the current workbook Worksheets. Add the Count: = 3 End Sub Example: the Add method has four optional parameters, where the parameter Before and the parameter After specify the location of the added work table, but only one for the two parameters; The parameter Count is used to specify the number of additional worksheets. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- [example 04-02] Copy worksheet (Copy method) Sub CopyWorksheet () MsgBox copies the worksheet sheet1 in the current workbook and puts the replicated worksheet in front of the work table sheet2. Worksheets ( sheet1 ).copy Before: = Worksheets ( sheet2 ) MsgBox copies the worksheet sheet2 in the current workbook and puts the replicated worksheet in the work table sheet3. Worksheets ( sheet2 ).copy After: = Worksheets ( sheet3 ) End Sub Example: the Copy method has two optional arguments, parameters Before and After, and only one for two parameters when used. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --