UDF για εξαγωγή μόνο αριθμού από ένα κελί χρησιμοποιώντας VBA στο Microsoft Excel
Σε αυτό το άρθρο, θα μάθουμε πώς να χρησιμοποιούμε τον κώδικα VBA για εξαγωγή αριθμού μόνο από ένα κελί με τη συνάρτηση που ορίζεται από το χρήστη.
Ερώτηση): Χρειάζομαι μια μακροεντολή για να ανακτήσω τον αριθμό μόνο από ένα κελί που περιέχει άλφα αριθμητικά δεδομένα.
Ακολουθεί το στιγμιότυπο των δεδομένων στα οποία η στήλη Α περιέχει αλφαριθμητικά δεδομένα και οι αναμενόμενοι αριθμοί βρίσκονται στη στήλη Β
Για να λάβετε μόνο τους αριθμούς από τη στήλη Α. πρέπει να ακολουθήσουμε τα παρακάτω βήματα για να ξεκινήσουμε τον επεξεργαστή VB
- Κάντε κλικ στην καρτέλα Προγραμματιστής
- Από την ομάδα κωδικών, επιλέξτε Visual Basic
Αντιγράψτε τον παρακάτω κώδικα στην τυπική μονάδα
Λειτουργία NumericOnly (mystr As Variant)
Dim myOutput As String, i As Integer
Για i = 1 προς Len (mystr)
Εάν IsNumeric (Mid (mystr, i, 1)) Τότε _
myOutput = myOutput & Mid (mystr, i, 1)
Επόμενο
NumericOnly = myOutput * 1
Λειτουργία Τέλους
- Για να λάβετε την έξοδο στο κελί Β2, ο τύπος είναι
- = NumericOnly (A2)
Με αυτόν τον τρόπο, μπορούμε να ανακτήσουμε αριθμούς μόνο από ένα κελί που περιέχει κείμενο και αριθμούς, χρησιμοποιώντας κώδικα VBA.
Λήψη - UDF για εξαγωγή μόνο αριθμού από ένα κελί χρησιμοποιώντας VBA - xlsm