Το Excel δεν παρέχει καμία προεπιλεγμένη συνάρτηση που μετατρέπει έναν αριθμό ή ένα ποσό σε λέξεις σε ρουπίες Ινδίας ή οποιοδήποτε νόμισμα. Αλλά αυτό δεν σημαίνει ότι δεν μπορούμε να μετατρέψουμε τον αριθμό σε ρουπία Ινδίας. Μπορούμε να δημιουργήσουμε έναν προσαρμοσμένο τύπο Excel για τη μετατροπή αριθμού σε λέξεις σε ινδικές ρουπίες. Δημιούργησα αυτήν την προσαρμοσμένη συνάρτηση για να μετατρέψω τον αριθμό σε λέξεις σε όρους ινδικής ρουπίας. Μπορείτε να κατεβάσετε το αρχείο μακρο παρακάτω. Ανέφερα τον παρακάτω κώδικα και εξήγησα λίγο, ώστε να μπορείτε να κάνετε αλλαγές σύμφωνα με τις απαιτήσεις σας.
Λειτουργία Excel για κρυφό αριθμό σε λέξεις σε ρουπίες Ινδίας
Χρησιμοποιήστε λοιπόν αυτήν τη συνάρτηση για να μετατρέψετε οποιοδήποτε 10ψήφιο ή μικρότερο ποσό ή αριθμό σε λέξεις ή ρουπίες. Έχω ονομάσει αυτήν τη συνάρτηση NUM_TO_IND_RUPEE_WORD. Η σύνταξη αυτής της συνάρτησης είναι:
| = NUM_TO_IND_RUPEE_WORD (αριθμός) |
Μπορείτε να κατεβάσετε το αρχείο μακροεντολής εργασίας:
Αριθμός σε λέξεις ρουπία Ινδίας
Τώρα ο κωδικός της συνάρτησης αναφέρεται παρακάτω.
Αυτός ο κώδικας χωρίζεται σε τέσσερις μεμονωμένες συναρτήσεις. Η κύρια λειτουργία είναι NUM_TO_IND_RUPEE_WORD. Και άλλες τρεις συναρτήσεις GetHunderds (), GetTens () και GetDigits βοηθούν τη λειτουργία που βοηθούν την κύρια συνάρτηση να σχηματίσει τη συμβολοσειρά.
Λειτουργία NUM_TO_IND_RUPEE_WORD (ByVal MyNumber, Optional incRupees As Boolean = True) Dim Crores, Lakhs, Rupees, Paise, Temp Dim DecimalPlace As Long, Count As Long Dim myLakhs, myCrores ReDim Place (9) As String Place (2) = "Thousand Place" : Place (3) = "Million" Place (4) = "Billion": Place (5) = "Trillion" 'String αναπαράσταση του ποσού. MyNumber = Trim (Str (MyNumber)) 'Θέση δεκαδικού ψηφίου 0 εάν δεν υπάρχει. DecimalPlace = InStr (MyNumber, ".") 'Μετατρέψτε το Paise και ορίστε το MyNumber σε ρουπίες. Αν DecimalPlace> 0 Τότε Paise = GetTens (Αριστερά (Mid (MyNumber, DecimalPlace + 1) & "00", 2)) MyNumber = Trim (Αριστερά (MyNumber, DecimalPlace - 1)) Τέλος Αν myCrores = MyNumber \ 10000000 myLakhs = ( MyNumber - myCrores * 10000000) \ 100000 MyNumber = MyNumber - myCrores * 10000000 - myLakhs * 100000 Count = 1 Do while myCrores "" Temp = GetHundreds (Right (myCrores, 3)) If Temp "" then Crores = Temp & Place (Count ) & Crores If Len (myCrores)> 3 Τότε myCrores = Αριστερά (myCrores, Len (myCrores) - 3) Αλλού myCrores = "" Τέλος Αν Μετρήστε = Μετρήστε + 1 Αριθμός Βρόχου = 1 Κάνετε Ενώ Ενώ MyLakhs "" Temp = GetHundreds (Δεξιά (myLakhs, 3)) If Temp "" Then Lakhs = Temp & Place (Count) & Lakhs If Len (myLakhs)> 3 Then myLakhs = Left (myLakhs, Len (myLakhs) - 3) Else myLakhs = "" End If Count = Count + 1 Loop Count = 1 Do while MyNumber "" Temp = GetHundreds (Right (MyNumber, 3)) If Temp "" then Rupees = Temp & Place (Count) & Rupees If Len (MyNumber)> 3 Then MyNumber = Left (MyNumber, Len (MyNumber) - 3) Else MyNumber = "" Τέλος αν μετράει = C ount + 1 Loop Select Case Crores Case "": Crores = "" Case "One": Crores = "One Crore" Case Else: Crores = Crores & "Crores" End Select Select Case Lakhs Case "": Lakhs = "" Case "One": Lakhs = "One Lakh" Case Else: Lakhs = Lakhs & "Lakhs" End Select Select Case Rupees Case "": Rupees = "Zero" Case "One": Rupees = "One" Case Else: Rupees = Rupees Τέλος Επιλέξτε Επιλογή Περίπτωσης Περίπτωση Paise "": Paise = "και Paise Zero Only" Περίπτωση "One": Paise = "και Paise One Only" Case Else: Paise = "and Paise" & Paise & "Only" End Select 'δημιουργία του σειρά λέξεων για μετάφραση αριθμού σε λέξεις NUM_TO_IND_RUPEE_WORD = IIf (incRupees, "Rupees", "") & Crores & _ Lakhs & Rupees & Paise End Function 'Μετατρέπει έναν αριθμό από 100-999 σε κείμενο Λειτουργία GetHundreds (ByVal MyNumber) Dim Result As String If Val (MyNumber) = 0 Τότε Έξοδος από τη συνάρτηση MyNumber = Right ("000" & MyNumber, 3) 'Μετατρέψτε τη θέση εκατοντάδων. Εάν Mid (MyNumber, 1, 1) "0" Then Result = GetDigit (Mid (MyNumber, 1, 1)) & "Hundred" End If 'Μετατρέψτε τη θέση των δεκάδων και των μονάδων. Εάν Mid (MyNumber, 2, 1) "0" Then Result = Result & GetTens (Mid (MyNumber, 2)) Else Result = Result & GetDigit (Mid (MyNumber, 3)) End If GetHundreds = Result End End 'Converts a αριθμός από 10 έως 99 σε κείμενο. Λειτουργία GetTens (TensText) Dim Result As String Result = "" 'Μηδενίστε την προσωρινή τιμή συνάρτησης. Αν Val (Αριστερά (TensText, 1)) = 1 Στη συνέχεια 'Εάν η τιμή μεταξύ 10-19 … Επιλέξτε Περίπτωση Val (TensText) Περίπτωση 10: Αποτέλεσμα = "Δέκα" Περίπτωση 11: Αποτέλεσμα = "Έντεκα" Περίπτωση 12: Αποτέλεσμα = "Δώδεκα "Περίπτωση 13: Αποτέλεσμα =" Δεκατρία "Περίπτωση 14: Αποτέλεσμα =" Δεκατέσσερις "Περίπτωση 15: Αποτέλεσμα =" Δεκαπέντε "Περίπτωση 16: Αποτέλεσμα =" Δεκαέξι "Περίπτωση 17: Αποτέλεσμα =" Δεκαεπτά "Περίπτωση 18: Αποτέλεσμα =" Δεκαοκτώ "Περίπτωση 19: Αποτέλεσμα = "Δεκαεννέα" Περίπτωση Άλλο Τέλος Επιλέξτε Άλλο "Αν τιμή μεταξύ 20-99 … Επιλέξτε Περίπτωση Val (Αριστερά (TensText, 1)) Περίπτωση 2: Αποτέλεσμα =" Είκοσι "Περίπτωση 3: Αποτέλεσμα =" Τριάντα "Περίπτωση 4: Αποτέλεσμα = "Σαράντα" Περίπτωση 5: Αποτέλεσμα = "Πενήντα" Περίπτωση 6: Αποτέλεσμα = "Εξήντα" Περίπτωση 7: Αποτέλεσμα = "Εβδομήντα" Περίπτωση 8: Αποτέλεσμα = "Ογδόντα" Περίπτωση 9: Αποτέλεσμα = "Ενενήντα" Περίπτωση Τέλος Επιλέξτε Αποτέλεσμα = Result & GetDigit _ (Δεξιά (TensText, 1)) 'Ανάκτηση θέσης. End If GetTens = Result End Function 'Μετατρέπει έναν αριθμό από 1 σε 9 σε κείμενο. Λειτουργία GetDigit (itηφίο) Επιλέξτε Περίπτωση Val (itηφίο) Περίπτωση 1: GetDigit = "One" Περίπτωση 2: GetDigit = "Two" Περίπτωση 3: GetDigit = "Τρία" Περίπτωση 4: GetDigit = "Τέσσερα" Περίπτωση 5: GetDigit = "Πέντε "Περίπτωση 6: GetDigit =" Έξι "Περίπτωση 7: GetDigit =" Επτά "Περίπτωση 8: GetDigit =" Οκτώ "Περίπτωση 9: GetDigit =" Εννέα "Περίπτωση άλλης: GetDigit =" "Τέλος επιλογής τελικής συνάρτησης
Ο κώδικας της συνάρτησης είναι μακρύς αλλά εύκολα κατανοητός.
Για να χρησιμοποιήσετε αυτόν τον κώδικα, εισαγάγετε μια μονάδα στο VBE και αντιγράψτε την. Και η λειτουργία είναι έτοιμη να χρησιμοποιηθεί απευθείας στο φύλλο. Θα μετατρέψει τον αριθμό σε λέξεις, συγκεκριμένα σε μορφή ρουπίας Ινδίας.
Λοιπόν, ναι, έτσι μπορείτε να χρησιμοποιήσετε μια προσαρμοσμένη συνάρτηση στο Excel για να μετατρέψετε τον αριθμό σε λέξεις. Ελπίζω ότι αυτό είναι χρήσιμο. Εάν έχετε αμφιβολίες σχετικά με αυτό το άρθρο ή οποιαδήποτε άλλη λειτουργία, ρωτήστε στην παρακάτω ενότητα σχολίων.
Δημιουργία συνάρτησης VBA για επιστροφή πίνακα| Για να επιστρέψετε έναν πίνακα χρησιμοποιώντας μια προσαρμοσμένη συνάρτηση στο Excel, χρησιμοποιούμε μια ελαφρώς διαφορετική σύνταξη για τη σύνταξη της προσαρμοσμένης συνάρτησης. Αυτή η συνάρτηση επιστρέφει έναν πίνακα τιμών αντί για μία μόνο τιμή.
Πίνακες στον τύπο του Excel| Οι πίνακες είναι τιμές συλλογής ίδιου τύπου σε κάθε τεχνική γλώσσα. Στο excel είναι το ίδιο αλλά αντιμετωπίζεται ελαφρώς διαφορετικό από άλλες γλώσσες προγραμματισμού…
Πώς να δημιουργήσετε μια συνάρτηση καθορισμένη από το χρήστη μέσω VBA| Μάθετε πώς να δημιουργείτε συναρτήσεις που καθορίζονται από το χρήστη στο Excel.
Χρήση συνάρτησης καθορισμένης από το χρήστη (UDF) από άλλο βιβλίο εργασίας χρησιμοποιώντας VBA στο Microsoft Excel| Χρησιμοποιήστε τη συνάρτηση που ορίζεται από το χρήστη σε άλλο βιβλίο εργασίας του Excel.
Επιστρέψτε τιμές σφάλματος από συναρτήσεις που καθορίζονται από το χρήστη χρησιμοποιώντας VBA στο Microsoft Excel| Μάθετε πώς μπορείτε να επιστρέψετε τιμές σφάλματος από μια συνάρτηση που ορίζεται από το χρήστη.
Δημοφιλή άρθρα:
50 συντομεύσεις Excel για να αυξήσετε την παραγωγικότητά σας | Γίνετε πιο γρήγοροι στην εργασία σας. Αυτές οι 50 συντομεύσεις θα σας κάνουν να εργάζεστε ακόμη πιο γρήγορα στο Excel.
Πώς να χρησιμοποιήσετε τη συνάρτηση Excel VLOOKUP| Αυτή είναι μια από τις πιο δημοφιλείς και δημοφιλείς λειτουργίες του excel που χρησιμοποιείται για την αναζήτηση τιμών από διαφορετικά εύρη και φύλλα.
Πώς να χρησιμοποιήσετε το Excel Λειτουργία COUNTIF| Μετρήστε τιμές με συνθήκες χρησιμοποιώντας αυτήν την εκπληκτική συνάρτηση. Δεν χρειάζεται να φιλτράρετε τα δεδομένα σας για να μετρήσετε συγκεκριμένη τιμή. Η λειτουργία Countif είναι απαραίτητη για την προετοιμασία του ταμπλό σας.
Πώς να χρησιμοποιήσετε τη συνάρτηση SUMIF στο Excel | Αυτή είναι μια άλλη βασική λειτουργία του ταμπλό. Αυτό σας βοηθά να συνοψίσετε τιμές υπό συγκεκριμένες συνθήκες.