, VBA, , . Excel, Excel 2007 MSDN.
Excel 2010 , Excel 2007 Excel 2010.
3. Excel MSDN
, , , , , . Excel :
.
, , , .
, .
, , . . .
1. , .
2. , .
3. .
4. .
5. , , .
, . , .
,
1. .
2. RenameWorksheets, 1 .
3. , Visual Basic.
Visual Basic .
VB
Sub RenameWorksheets()
'
' RenameWorksheets Macro
'
'
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "New Name"
End Sub
Sub . , , . :
, , , .
().
|
|
, .
Select, Sheet1 (1) Sheets. VBA , . , , .
"Name" Sheet1 Sheets. .
.
VB
Sub RenameWorksheets()
Sheets("Sheet1").Name = "New Name"
End Sub
" " "1", . " ".
Sheets, . "" .
" Sheets Chart Worksheet. , ".
Worksheets, .
VB
Sub RenameWorksheets()
Worksheets("Sheet1").Name = "New Name"
End Sub
. , , , ? .
VBA , For Each . For Each , Worksheets, (, ) .
For Each . VBA. "Visual Basic Conceptual Topics" ( Visual Basic), "Using For Each...Next Statements" ( For Each...Next). , , VBA, , , , .
"Using For Each...Next Statements" ( For Each...Next), , .
VB
Sub RenameWorksheets()
For Each myWorksheet In Worksheets
myWorksheet.Name = "New Name"
Next
End Sub
myWorksheet , . myWorksheet Worksheets. myWorksheet, "x", "ws", "WorksheetToRenameAfterTheContentsOfCellB1" ( ) . , , , , .
|
|
, , Excel , , Excel .
VB
myWorksheet.Name = "New Name"
, For Each, .
VB
myWorksheet.Name = myWorksheet.Name & "-changed"
, (myWorksheet.Name) "-changed".
, . B1 .
, , Cell (). , Cell, , Cell ! CellFormat (, ).
CellFormat .
VB
' Set the interior of cell A1 to yellow.
Range("A1").Select
, Range () , . , .Select , , Range, Range. Range, , Range Methods, Properties. Range , , , , Property. , Value. .
VB
Sub RenameWorksheets()
For Each myWorksheet In Worksheets
myWorksheet.Name = myWorksheet.Range("B1").Value
Next
End Sub
, B1, , Value Range "" ( ), . - . , .
4. RenameWorksheets
.
, , B1 . , . myWorksheet.Name .
VB
If myWorksheet.Range("B1").Value <> "" Then
myWorksheet.Name .
VB
End If
IfThen. IfThen Excel If End If, , If. .
VB
myWorksheet.Range("B1").Value <> ""
<> " ", , , , . , If End If B1 , , B1 .
IfThen . VBA. ( "IfThenElse statement" ( IfThenElse), Else .)
|
|
, , myWorksheet.
VB
Dim myWorksheet As Worksheet
Dim "Dimension" (), Worksheet . VBA, myWorksheet. , As, Visual Basic , . IntelliSense, Visual Basic , , , , . .
VBA , ! . , , (, Worksheet) IntelliSense , , .
, , , . , , . . , , , , . If , , .
VB
Sub RenameWorksheets()
Dim myWorksheet As Worksheet
For Each myWorksheet In Worksheets
'make sure that cell B1 is not empty
If myWorksheet.Range("B1").Value <> "" Then
'rename the worksheet to the contents of cell B1
myWorksheet.Name = myWorksheet.Range("B1").Value
End If
Next
End Sub
, 1, 2 3 B1 . , , B1 . , B1.