Πώς να καταχωρίσετε όλες τις εφαρμογές που ανοίγουν (βρίσκονται σε εξέλιξη) στο Excel;
Στην πραγματικότητα, μπορείτε να απαριθμήσετε όλες τις εφαρμογές που ανοίγουν οι οποίες εμφανίζονται μόνο όταν πατάτε τα πλήκτρα Alt + Tab στον υπολογιστή σας στο Excel με εκτέλεση κώδικα VBA. Η μέθοδος στο άρθρο μπορεί να σας βοηθήσει.
Καταγράψτε όλες τις εφαρμογές που ανοίγουν (βρίσκονται σε εξέλιξη) με κωδικό VBA
Καταγράψτε όλες τις εφαρμογές που ανοίγουν (βρίσκονται σε εξέλιξη) με κωδικό VBA
Κάντε τα εξής για να απαριθμήσετε όλες τις εφαρμογές που ανοίγουν στο Excel.
1. Σε ένα βιβλίο εργασίας του Excel, πατήστε το άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, πατήστε Iένθετο > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε και επικολλήστε τον κώδικα VBA στο παράθυρο Code. Δείτε το στιγμιότυπο οθόνης:
Κωδικός VBA: Λίστα όλων των εφαρμογών που ανοίγουν στο Excel
Private Declare PtrSafe Function apiGetClassName Lib "user32" Alias _
"GetClassNameA" (ByVal Hwnd As Long, _
ByVal lpClassname As String, _
ByVal nMaxCount As Long) As Long
Private Declare PtrSafe Function apiGetDesktopWindow Lib "user32" Alias _
"GetDesktopWindow" () As Long
Private Declare PtrSafe Function apiGetWindow Lib "user32" Alias _
"GetWindow" (ByVal Hwnd As Long, _
ByVal wCmd As Long) As Long
Private Declare PtrSafe Function apiGetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal Hwnd As Long, ByVal _
nIndex As Long) As Long
Private Declare PtrSafe Function apiGetWindowText Lib "user32" Alias _
"GetWindowTextA" (ByVal Hwnd As Long, ByVal _
lpString As String, ByVal aint As Long) As Long
Private Const mcGWCHILD = 5
Private Const mcGWHWNDNEXT = 2
Private Const mcGWLSTYLE = (-16)
Private Const mcWSVISIBLE = &H10000000
Private Const mconMAXLEN = 255
Sub ListName()
Dim xRg As Range
Dim xStr As String
Dim xStrLen As Long
Dim xHandle As Long
Dim xHandleStr As String
Dim xHandleLen As Long, xHandleStyle As Long
On Error Resume Next
Set xRg = Application.InputBox("Please select a range(single cell):", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg(1).Activate
xHandle = apiGetWindow(apiGetDesktopWindow(), mcGWCHILD)
Do While xHandle <> 0
xStr = String$(mconMAXLEN - 1, 0)
xStrLen = apiGetWindowText(xHandle, xStr, mconMAXLEN)
If xStrLen > 0 Then
xStr = Left$(xStr, xStrLen)
xHandleStyle = apiGetWindowLong(xHandle, mcGWLSTYLE)
If xHandleStyle And mcWSVISIBLE Then
ActiveCell.Value = xStr
ActiveCell.Offset(1, 0).Activate
End If
End If
xHandle = apiGetWindow(xHandle, mcGWHWNDNEXT)
Loop
End Sub
3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Στο αναδυόμενο Kutools για Excel πλαίσιο διαλόγου, επιλέξτε ένα κελί στο οποίο θέλετε να παρατίθενται όλες οι τρέχουσες εφαρμογές και, στη συνέχεια, κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:
Τώρα όλες οι εφαρμογές ανοίγματος παρατίθενται στην επιλεγμένη στήλη, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.
Σχετικά άρθρα:
- Πώς να απαριθμήσετε όλες τις αντιστοιχισμένες παρουσίες μιας τιμής στο Excel;
- Πώς να παραθέσετε όλες τις ημέρες ως ημερομηνία σε έναν καθορισμένο μήνα στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!