fbpx
Menu Zamknij

Sub

OdswiezAllPivotTables()

Dim PT As PivotTable

For Each PT In ActiveSheet.PivotTables

PT.RefreshTable

Next PT

End Sub

how-to-create-a-pivot-table-in-excel37
Korepetycje Excel Warszawa

Sub DefaultMsgBox()

MsgBox "To jest przykład"

End Sub

Sub MsgBoxOKCancel()

MsgBox "Want to Continue?", vbOKCancel

End Sub

Sub MsgBoxAbortRetryIgnore()

MsgBox "What do you want to do?", vbAbortRetryIgnore

End Sub

Sub MsgBoxYesNo()

MsgBox "Should we stop?", vbYesNo

End Sub

Test Excel
repeat-2935463_640

Sub MsgBoxYesNoCancel()

MsgBox "Should we stop?", vbYesNoCancel

End Sub

Sub MsgBoxRetryCancel()

MsgBox "What do you want to do next?", vbRetryCancel

End Sub

Sub MsgBoxCriticalIcon()

MsgBox "This is a sample box", vbCritical

End Sub

Sub MsgBoxExclamationIcon()

MsgBox "This is a sample box", vbYesNo + vbExclamation

End Sub

exclamation-mark-98739_640
Opieka Informatyczna

Sub MsgBoxInformationIcon()

MsgBox "This is a sample box", vbYesNo + vbInformation

End Sub

Sub MsgBoxInformationIcon()

Result = MsgBox("Do you want to continue?", vbYesNo + vbQuestion)

If Result = vbYes Then

MsgBox "You clicked Yes"

Else: MsgBox "You clicked No"

End If

End Sub

Function ZnajdzPozycje(Ref As Range) As Integer

Dim Position As Integer

Position = InStr(1, Ref, "@")

FindPosition = Position

End Function

I taką funkcję możemy później wykorzystywać wielokrotnie w różnych plikach…..