|
|
|
|
|
|
Har du set hvor smart det kan være?
|
![Microsoft Office, Word skabeloner, Excel regneark](/images/Layout/Blank.gif)
|
SmartOffice - SheetsExists
Checker om der findes et Ark med et bestemt navn i det aktive regneark.
![](/images/Layout/SO_Line_Fade_Right.jpg)
Eksempel 1
Public Function SheetExists(ByRef SheetName As String) As Boolean
On Error Resume Next
SheetExists = ActiveWorkbook.Worksheets(SheetName).Index
End Function
![](/images/Layout/SO_Line_Fade_Right.jpg)
Test 1
Public Sub Test_SheetExists()
Dim bAnswer As Boolean
bAnswer = SheetExists("Sheet1")
MsgBox "SheetExists returnerer svaret... " & bAnswer
End Sub
|
|
|
|
Smart Data Management
Compare 2 Columns
Excel Super- Subscript
Teachers Excel Tools
|
|
|
|
|
|