Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Ik kan deze helaas door mijn gebrekkige kennis van VBA niet doorgronden.
'Formules verwijderen in kolommmen van werkgebied A6:T
Sub Waarden kop_plakken
' Range("A6:T" & lLaatsteRij - 4).Select
' Application.CutCopyMode = False
' Selection.Copy
' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A6:T" & lLaatsteRij - 4) = Range("A6:T" & lLaatsteRij - 4).Value 'gebruikt geen klembord
End Sub
Option Explicit
Private Declare Function AccessibleChildren Lib "oleacc" (ByVal paccContainer As Office.IAccessible, ByVal iChildStart As Long, ByVal cChildren As Long, ByRef rgvarChildren As Any, ByRef pcObtained As Long) As Long
Private Const CHILDID_SELF = 0&
Private Const ROLE_SYSTEM_LIST = &H21
Private Const ROLE_SYSTEM_PROPERTYPAGE = &H26
Private Const ROLE_SYSTEM_PUSHBUTTON = &H2B
Private Const ROLE_SYSTEM_WINDOW = &H9
Private Sub DoActionOfficeClipboard(ByVal AccObjName As String)
Dim Acc As Office.IAccessible
Dim Count As Long
Dim i As Long
Application.CommandBars("Office Clipboard").Visible = True
DoEvents
Set Acc = Application.CommandBars("Office Clipboard")
Set Acc = GetAcc(Acc, "Collect and Paste 2.0", ROLE_SYSTEM_WINDOW)
Set Acc = GetAcc(Acc, "Collect and Paste 2.0", ROLE_SYSTEM_PROPERTYPAGE)
Count = Acc.accChildCount
If Count > 0& Then
For i = 0 To Count
If (Acc.accName(i) = AccObjName) And (Acc.accRole(i) = ROLE_SYSTEM_PUSHBUTTON) Then
Acc.accDoDefaultAction i
Exit For
End If
Next
End If
Set Acc = Nothing
End Sub
Private Function GetAcc(myAcc As Office.IAccessible, myAccName As String, myAccRole As Long) As Office.IAccessible
Dim ReturnAcc As Office.IAccessible
Dim ChildAcc As Office.IAccessible
Dim List() As Variant
Dim Count As Long
Dim i As Long
If (myAcc.accState(CHILDID_SELF) <> 32769) And _
(myAcc.accName(CHILDID_SELF) = myAccName) And _
(myAcc.accRole(CHILDID_SELF) = myAccRole) Then
Set ReturnAcc = myAcc
Else
Count = myAcc.accChildCount
If Count > 0& Then
ReDim List(Count - 1&)
If AccessibleChildren(myAcc, 0&, ByVal Count, List(0), Count) = 0& Then
For i = LBound(List) To UBound(List)
If TypeOf List(i) Is Office.IAccessible Then
Set ChildAcc = List(i)
Set ReturnAcc = GetAcc(ChildAcc, myAccName, myAccRole)
If Not ReturnAcc Is Nothing Then Exit For
End If
Next
End If
End If
End If
Set GetAcc = ReturnAcc
End Function
Public Sub Legen()
DoActionOfficeClipboard "Clear All" 'Tekst op de button
End Sub
Option Explicit
Private Declare Function AccessibleChildren Lib "oleacc" (ByVal paccContainer As Office.IAccessible, ByVal iChildStart As Long, ByVal cChildren As Long, ByRef rgvarChildren As Any, ByRef pcObtained As Long) As Long
Private Const CHILDID_SELF = 0&
Private Const ROLE_SYSTEM_LIST = &H21
Private Const ROLE_SYSTEM_PROPERTYPAGE = &H26
Private Const ROLE_SYSTEM_PUSHBUTTON = &H2B
Private Const ROLE_SYSTEM_WINDOW = &H9
Private Sub DoActionOfficeClipboard(ByVal AccObjName As String)
Dim Acc As Office.IAccessible
Dim Count As Long
Dim i As Long
Application.CommandBars("Office Clipboard").Visible = True
DoEvents
Set Acc = Application.CommandBars("Office Clipboard")
' Set Acc = GetAcc(Acc, "x", ROLE_SYSTEM_WINDOW) 'kan er mi ook uit
Set Acc = GetAcc(Acc, "x", ROLE_SYSTEM_PROPERTYPAGE)
Count = Acc.accChildCount
If Count > 0& Then
For i = 0 To Count
If (Acc.accName(i) = AccObjName) And (Acc.accRole(i) = ROLE_SYSTEM_PUSHBUTTON) Then
Acc.accDoDefaultAction i
Exit For
End If
Next
End If
Set Acc = Nothing
End Sub
Private Function GetAcc(myAcc As Office.IAccessible, myAccName As String, myAccRole As Long) As Office.IAccessible
Dim ReturnAcc As Office.IAccessible
Dim ChildAcc As Office.IAccessible
Dim List() As Variant
Dim Count As Long
Dim i As Long
Dim k As Long
If (myAcc.accState(CHILDID_SELF) <> 32769) And _
(myAcc.accRole(CHILDID_SELF) = myAccRole) Then
Set ReturnAcc = myAcc
Else
k = k + 1
Count = myAcc.accChildCount
If Count > 0& Then
ReDim List(Count - 1&)
If AccessibleChildren(myAcc, 0&, ByVal Count, List(0), Count) = 0& Then
For i = LBound(List) To UBound(List)
If TypeOf List(i) Is Office.IAccessible Then
Set ChildAcc = List(i)
Set ReturnAcc = GetAcc(ChildAcc, myAccName, myAccRole)
If Not ReturnAcc Is Nothing Then Exit For
End If
Next
End If
End If
End If
Set GetAcc = ReturnAcc
End Function
Public Sub Legen()
DoActionOfficeClipboard "Clear All" 'Tekst op de button
End Sub
Option Explicit
Private Declare Function AccessibleChildren Lib "oleacc" (ByVal paccContainer As Office.IAccessible, ByVal iChildStart As Long, ByVal cChildren As Long, ByRef rgvarChildren As Any, ByRef pcObtained As Long) As Long
Private Const CHILDID_SELF = 0&
Private Const ROLE_SYSTEM_LIST = &H21
Private Const ROLE_SYSTEM_PROPERTYPAGE = &H26
Private Const ROLE_SYSTEM_PUSHBUTTON = &H2B
Private Const ROLE_SYSTEM_WINDOW = &H9
Private Sub DoActionOfficeClipboard(ByVal AccObjName As String)
Dim Acc As Office.IAccessible
Dim Count As Long
Dim i As Long
Application.CommandBars("Office Clipboard").Visible = True
DoEvents
Set Acc = Application.CommandBars("Office Clipboard")
' Set Acc = GetAcc(Acc, "x", ROLE_SYSTEM_WINDOW) 'kan er mi ook uit
Set Acc = GetAcc(Acc, "x", ROLE_SYSTEM_PROPERTYPAGE)
Count = Acc.accChildCount
If Count > 0& Then
For i = 0 To Count
If (Acc.accName(i) = AccObjName) And (Acc.accRole(i) = ROLE_SYSTEM_PUSHBUTTON) Then
Acc.accDoDefaultAction i
Exit For
End If
Next
End If
Set Acc = Nothing
End Sub
Private Function GetAcc(myAcc As Office.IAccessible, myAccName As String, myAccRole As Long) As Office.IAccessible
Dim ReturnAcc As Office.IAccessible
Dim ChildAcc As Office.IAccessible
Dim List() As Variant
Dim Count As Long
Dim i As Long
Dim k As Long
If (myAcc.accState(CHILDID_SELF) <> 32769) And _
(myAcc.accRole(CHILDID_SELF) = myAccRole) Then
Set ReturnAcc = myAcc
Else
k = k + 1
Count = myAcc.accChildCount
If Count > 0& Then
ReDim List(Count - 1&)
If AccessibleChildren(myAcc, 0&, ByVal Count, List(0), Count) = 0& Then
For i = LBound(List) To UBound(List)
If TypeOf List(i) Is Office.IAccessible Then
Set ChildAcc = List(i)
Set ReturnAcc = GetAcc(ChildAcc, myAccName, myAccRole)
If Not ReturnAcc Is Nothing Then Exit For
End If
Next
End If
End If
End If
Set GetAcc = ReturnAcc
End Function
Public Sub Legen()
DoActionOfficeClipboard "Alles wissen" 'Tekst op de button
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.