Όταν εργάζεστε με αριθμούς στο Excel, μερικές φορές χρειάζεται να τους εμφανίσετε τόσο σε αριθμητική μορφή όσο και ολογράφως, για επίσημα έγγραφα ή για λόγους σαφήνειας. Όμως το Excel δεν διαθέτει ενσωματωμένη λειτουργία για αυτό, ειδικά για ρουπίες Ινδίας. Έτσι, μπορεί να καταλήξετε να χρησιμοποιείτε περίπλοκους τύπους, εξωτερικά εργαλεία ή να το κάνετε χειροκίνητα.
Σε αυτόν τον οδηγό, θα σας δείξουμε μια απλή μέθοδο βήμα προς βήμα για τη μετατροπή αριθμών ολογράφως για ρουπίες Ινδίας χρησιμοποιώντας το Excel.
2 εύκολοι τρόποι για να μετατρέψετε αριθμούς ολογράφως σε ρουπίες Ινδίας στο Excel:
Φυσικά, πάνω απ' όλα, πρέπει πρώτα να έχετε τη σωστή λήψη του Microsoft Excel!
Μέθοδος 1: Μετατροπή αριθμών ολογράφως σε ρουπίες Ινδίας με κώδικα VBA
Πριν μετατρέψετε αριθμούς ολογράφως σε ρουπίες Ινδίας χρησιμοποιώντας κώδικα VBA, ίσως χρειαστεί να προσθέσετε την καρτέλα Προγραμματιστής (Developer) στην κορδέλα σας για να ανοίξετε τη λειτουργία VBA.
Εδώ είναι τα βήματα για να ενεργοποιήσετε την καρτέλα Προγραμματιστής στο Excel:
Βήμα 1: Ανοίξτε το υπολογιστικό φύλλο του Excel που περιέχει τους αριθμούς που θέλετε να μετατρέψετε.

Βήμα 2: Κάντε κλικ στο Αρχείο (File) και επιλέξτε Επιλογές (Options) στη λίστα

Βήμα 3: Στις Επιλογές του Excel, επιλέξτε Προσαρμογή Κορδέλας (Customize Ribbon)

Βήμα 4: Επιλέξτε την καρτέλα Όλες (All) στην επιλογή Εύρεση εντολών από (Choose commands from)

Βήμα 5: Βρείτε τον Προγραμματιστή (Developer) στη λίστα και κάντε κλικ στην Προσθήκη (Add)

Βήμα 6: Κάντε κλικ στο OK

Τώρα, ακολουθούν τα βήματα για να μετατρέψετε αριθμούς ολογράφως σε ρουπίες Ινδίας χρησιμοποιώντας κώδικα VBA:
Βήμα 1: Ανοίξτε το υπολογιστικό φύλλο του Excel που περιέχει τους αριθμούς που θέλετε να μετατρέψετε.

Βήμα 2: Κάντε κλικ στην καρτέλα Προγραμματιστής (Developer). Εάν δεν βλέπετε αυτήν την καρτέλα, ακολουθήστε τα παραπάνω βήματα για να την ενεργοποιήσετε

Βήμα 3: Κάντε κλικ στο Visual Basic ή χρησιμοποιήστε τη συντόμευση πληκτρολογίου Alt + F11

Βήμα 4: Κάντε κλικ στην Εισαγωγή (Insert) και επιλέξτε Λειτουργική μονάδα (Module).

Βήμα 5: Επικολλήστε τον κώδικα VBA που παρέχεται στην παραπομπή.
Public Function RupeeFormat(SNum As String) 'Updateby Extendoffice Dim xDPInt As Integer Dim xArrPlace As Variant Dim xRStr_Paisas As String Dim xNumStr As String Dim xF As Integer Dim xTemp As String Dim xStrTemp As String Dim xRStr As String Dim xLp As Integer xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "") On Error Resume Next If SNum = "" Then RupeeFormat = "" Exit Function End If xNumStr = Trim(str(SNum)) If xNumStr = "" Then RupeeFormat = "" Exit Function End If xRStr = "" xLp = 0 If (xNumStr > 999999999.99) Then RupeeFormat = "Digit excced Maximum limit" Exit Function End If xDPInt = InStr(xNumStr, ".") If xDPInt > 0 Then If (Len(xNumStr) - xDPInt) = 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2)) ElseIf (Len(xNumStr) - xDPInt) > 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2)) End If xNumStr = Trim(Left(xNumStr, xDPInt - 1)) End If xF = 1 Do While xNumStr <> "" If (xF >= 2) Then xTemp = Right(xNumStr, 2) Else If (Len(xNumStr) = 2) Then xTemp = Right(xNumStr, 2) ElseIf (Len(xNumStr) = 1) Then xTemp = Right(xNumStr, 1) Else xTemp = Right(xNumStr, 3) End If End If xStrTemp = "" If Val(xTemp) > 99 Then xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp) If Right(Trim(xStrTemp), 3) <> "Lac" Then xLp = xLp + 1 End If ElseIf Val(xTemp) <= 99="" and="" val=""> 9 Then xStrTemp = RupeeFormat_GetT(Right(xTemp, 2)) ElseIf Val(xTemp) < 10 Then xStrTemp = RupeeFormat_GetD(Right(xTemp, 2)) End If If xStrTemp <> "" Then xRStr = xStrTemp & xArrPlace(xF) & xRStr End If If xF = 2 Then If Len(xNumStr) = 1 Then xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 2) End If ElseIf xF = 3 Then If Len(xNumStr) >= 3 Then xNumStr = Left(xNumStr, Len(xNumStr) - 2) Else xNumStr = "" End If ElseIf xF = 4 Then xNumStr = "" Else If Len(xNumStr) <= 2="" then=""> xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 3) End If End If xF = xF + 1 Loop If xRStr = "" Then xRStr = "No Rupees" Else xRStr = " Rupees " & xRStr End If If xRStr_Paisas <> "" Then xRStr_Paisas = " and " & xRStr_Paisas & " Paisas" End If RupeeFormat = xRStr & xRStr_Paisas & " Only" End Function Function RupeeFormat_GetH(xStrH As String, xLp As Integer) Dim xRStr As String If Val(xStrH) < 1 Then RupeeFormat_GetH = "" Exit Function Else xStrH = Right("000" & xStrH, 3) If Mid(xStrH, 1, 1) <> "0" Then If (xLp > 0) Then xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac " Else xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred " End If End If If Mid(xStrH, 2, 1) <> "0" Then xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2)) Else xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3)) End If End If RupeeFormat_GetH = xRStr End Function Function RupeeFormat_GetT(xTStr As String) Dim xTArr1 As Variant Dim xTArr2 As Variant Dim xRStr As String xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen") xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety") Result = "" If Val(Left(xTStr, 1)) = 1 Then xRStr = xTArr1(Val(Mid(xTStr, 2, 1))) Else If Val(Left(xTStr, 1)) > 0 Then xRStr = xTArr2(Val(Left(xTStr, 1)) - 1) End If xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1)) End If RupeeFormat_GetT = xRStr End Function Function RupeeFormat_GetD(xDStr As String) Dim xArr_1() As Variant xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "") If Val(xDStr) > 0 Then RupeeFormat_GetD = xArr_1(Val(xDStr) - 1) Else RupeeFormat_GetD = "" End If End Function |
|---|

Βήμα 5: Αποθηκεύστε (Ctrl + S) και κλείστε το πρόγραμμα επεξεργασίας VBA. Επιλέξτε Βιβλίο εργασίας του Excel με δυνατότητα μακροεντολών (Excel Macro-Enabled Workbook) κατά την αποθήκευση

Βήμα 6: Εισαγάγετε τον τύπο =RupeeFormat(κελί) στο κελί όπου θέλετε να εμφανιστεί το κείμενο και πατήστε Enter

Βήμα 7: Το αποτέλεσμα θα εμφανιστεί. Σύρετε προς τα κάτω για να εφαρμόσετε τον τύπο σε άλλα κελιά

Οι αριθμοί στην επιλεγμένη περιοχή θα μετατραπούν ολογράφως σε ρουπίες Ινδίας.
Μέθοδος 2: Μετατροπή αριθμών ολογράφως σε ρουπίες Ινδίας στο Excel (Κοινή μέθοδος)
Μάθετε την κοινή μέθοδο για τη μετατροπή αριθμών ολογράφως σε ρουπίες Ινδίας στο Excel, ένα εύχρηστο βήμα όταν προετοιμάζετε τιμολόγια για λογιστική.
Βήμα 1: Ανοίξτε το υπολογιστικό φύλλο του Excel που περιέχει τους αριθμούς που θέλετε να μετατρέψετε.

Βήμα 2: Κάντε δεξί κλικ στο όνομα του φύλλου και επιλέξτε Προβολή κώδικα (View Code) για να ανοίξετε την εφαρμογή VBA. Είναι επίσης χρήσιμο για την ανάλυση δεδομένων στο Excel.

Βήμα 3: Κάντε κλικ στην Εισαγωγή (Insert) και επιλέξτε Λειτουργική μονάδα (Module).

Βήμα 4: Επικολλήστε τον κώδικα VBA που παρέχεται στην παραπομπή.
Public Function RupeeFormat(SNum As String) 'Update By Nirmal Dim xDPInt As Integer Dim xArrPlace As Variant Dim xRStr_Paisas As String Dim xNumStr As String Dim xF As Integer Dim xTemp As String Dim xStrTemp As String Dim xRStr As String Dim xLp As Integer xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "") On Error Resume Next If SNum = "" Then RupeeFormat = "" Exit Function End If xNumStr = Trim(Str(SNum)) If xNumStr = "" Then RupeeFormat = "" Exit Function End If xRStr = "" xLp = 0 If (xNumStr > 999999999.99) Then RupeeFormat = "Digit excced Maximum limit" Exit Function End If xDPInt = InStr(xNumStr, ".") If xDPInt > 0 Then If (Len(xNumStr) - xDPInt) = 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2)) ElseIf (Len(xNumStr) - xDPInt) > 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2)) End If xNumStr = Trim(Left(xNumStr, xDPInt - 1)) End If xF = 1 Do While xNumStr <> "" If (xF >= 2) Then xTemp = Right(xNumStr, 2) Else If (Len(xNumStr) = 2) Then xTemp = Right(xNumStr, 2) ElseIf (Len(xNumStr) = 1) Then xTemp = Right(xNumStr, 1) Else xTemp = Right(xNumStr, 3) End If End If xStrTemp = "" If Val(xTemp) > 99 Then xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp) If Right(Trim(xStrTemp), 3) <> "Lac" Then xLp = xLp + 1 End If ElseIf Val(xTemp) <= 99="" and="" val=""> 9 Then xStrTemp = RupeeFormat_GetT(Right(xTemp, 2)) ElseIf Val(xTemp) < 10 Then xStrTemp = RupeeFormat_GetD(Right(xTemp, 2)) End If If xStrTemp <> "" Then xRStr = xStrTemp & xArrPlace(xF) & xRStr End If If xF = 2 Then If Len(xNumStr) = 1 Then xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 2) End If ElseIf xF = 3 Then If Len(xNumStr) >= 3 Then xNumStr = Left(xNumStr, Len(xNumStr) - 2) Else xNumStr = "" End If ElseIf xF = 4 Then xNumStr = "" Else If Len(xNumStr) <= 2="" then=""> xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 3) End If End If xF = xF + 1 Loop If xRStr = "" Then xRStr = "No Rupees" Else xRStr = " Rupees " & xRStr End If If xRStr_Paisas <> "" Then xRStr_Paisas = " and " & xRStr_Paisas & " Paisas" End If RupeeFormat = xRStr & xRStr_Paisas & " Only" End Function Function RupeeFormat_GetH(xStrH As String, xLp As Integer) Dim xRStr As String If Val(xStrH) < 1 Then RupeeFormat_GetH = "" Exit Function Else xStrH = Right("000" & xStrH, 3) If Mid(xStrH, 1, 1) <> "0" Then If (xLp > 0) Then xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac " Else xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred " End If End If If Mid(xStrH, 2, 1) <> "0" Then xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2)) Else xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3)) End If End If RupeeFormat_GetH = xRStr End Function Function RupeeFormat_GetT(xTStr As String) Dim xTArr1 As Variant Dim xTArr2 As Variant Dim xRStr As String xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen") xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety") Result = "" If Val(Left(xTStr, 1)) = 1 Then xRStr = xTArr1(Val(Mid(xTStr, 2, 1))) Else If Val(Left(xTStr, 1)) > 0 Then xRStr = xTArr2(Val(Left(xTStr, 1)) - 1) End If xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1)) End If RupeeFormat_GetT = xRStr End Function Function RupeeFormat_GetD(xDStr As String) Dim xArr_1() As Variant xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "") If Val(xDStr) > 0 Then RupeeFormat_GetD = xArr_1(Val(xDStr) - 1) Else RupeeFormat_GetD = "" End If End Function |
|---|

Βήμα 5: Επιλέξτε Βιβλίο εργασίας του Excel με δυνατότητα μακροεντολών στο πεδίο «Αποθήκευση ως τύπου». Κλείστε τα παράθυρα του προγράμματος επεξεργασίας VBA

Βήμα 6: Εισαγάγετε τον τύπο =RupeeFormat(κελί) στο επιλεγμένο κελί για να εμφανιστεί το αποτέλεσμα.

Βήμα 7: Σύρετε προς τα κάτω για να εφαρμόσετε τον τύπο σε άλλα κελιά, αφού εμφανιστούν τα αποτελέσματα στο επιλεγμένο κελί

Οι αριθμοί στην επιλεγμένη περιοχή θα μετατραπούν ολογράφως σε ρουπίες Ινδίας.
Η καλύτερη δωρεάν εναλλακτική του Microsoft Office - WPS Office
Εκτός από το Microsoft Office, θα σας προτείνω μια άλλη εφαρμογή. Αυτή είναι το WPS Office. Λοιπόν, τι είναι το WPS;

Το WPS Office είναι μια δωρεάν σουίτα γραφείου που είναι συμβατή με το Microsoft Office. Περιλαμβάνει επεξεργαστή κειμένου, υπολογιστικά φύλλα, λογισμικό παρουσιάσεων και πρόγραμμα ανάγνωσης PDF, ώστε να μπορείτε εύκολα να ανοίγετε, να επεξεργάζεστε και να αποθηκεύετε αρχεία. Είναι επίσης εύκολο στη χρήση, ακόμη και για άτομα χωρίς προηγούμενη εμπειρία με σουίτες γραφείου.
Όχι μόνο αυτό, το WPS Office είναι μια ισχυρή σουίτα γραφείου που προσφέρει ένα ευρύ φάσμα δυνατοτήτων. Είναι μια καλή εναλλακτική λύση στο NeoOffice, ειδικά για μαθητές και επιχειρήσεις με περιορισμένο προϋπολογισμό.
Ρίξτε μια γρήγορη ματιά σε μερικά από τα χαρακτηριστικά του WPS:
● Δωρεάν χρήση των Word, Excel και PPT. Ισχυρό σετ εργαλείων PDF.
● Πλούσιο κατάστημα προτύπων.
● Πλούσιες λειτουργίες. Ενσωματώνονται στο προϊόν βοηθοί βιογραφικών, έξυπνες φόρμες, καταγραφή οθόνης, επιδιόρθωση αρχείων και άλλα μικρά εργαλεία.
● Το προϊόν είναι πολύ ελαφρύ, μόλις 200MB, και καταλαμβάνει ελάχιστη μνήμη υπολογιστή.
● Η έκδοση MAC του WPS Office είναι πολύ ισχυρή. Το Microsoft Office παραμελεί την εμπειρία των χρηστών Mac, κάτι που το WPS Office αναπληρώνει με επιτυχία.
● Υποστήριξη για ηλεκτρονικά έγγραφα (WPS AirPage) και συνεργατική επεξεργασία από πολλά άτομα.
● Το WPS Office υποστηρίζει επίσης συστήματα Linux, Android και iOS. Για να χρησιμοποιήσετε τα προϊόντα της WPS σε διαφορετικά συστήματα, χρειάζεται απλώς να συνδεθείτε στον ίδιο λογαριασμό και όλα τα αρχεία θα συγχρονιστούν.

Πιστεύετε ότι το WPS Office είναι η καλύτερη επιλογή για εσάς και θέλετε να το κατεβάσετε; Επισκεφθείτε τον επίσημο ιστότοπο: https://www.wps.com και κατεβάστε το τώρα.
Πώς να κατεβάσετε το WPS Office
Βήμα 1: Επισκεφθείτε τον ιστότοπο του WPS Office: wps.com.
Βήμα 2: Κάντε κλικ στο κουμπί «Δωρεάν Λήψη» (Free Download)

Βήμα 3: Επιλέξτε την τοποθεσία όπου θέλετε να αποθηκεύσετε το WPS Office -> Αποθήκευση

Βήμα 4: Κάντε διπλό κλικ στο αρχείο του WPS Office στις Λήψεις σας, κάντε κλικ στο «Εκτέλεση» (Run) και ακολουθήστε τις οδηγίες στην οθόνη για την εγκατάσταση

Βήμα 5: Αφού ολοκληρωθεί, μπορείτε να απολαύσετε όλες τις δυνατότητες του WPS Office
Συχνές Ερωτήσεις (FAQs):
Ε1: Πώς μετατρέπω νομίσματα σε κείμενο μέσω VBA στο Excel;
Μπορείτε να χρησιμοποιήσετε τη VBA (Visual Basic for Applications) για να μετατρέψετε νομίσματα σε κείμενο στο Excel. Θα χρειαστεί να γράψετε μια προσαρμοσμένη μακροεντολή VBA για να εκτελέσετε αυτήν τη μετατροπή. Μπορείτε να βρείτε παραδείγματα και αποσπάσματα κώδικα στο διαδίκτυο ή να συμβουλευτείτε την τεκμηρίωση της VBA του Excel για καθοδήγηση.
Ε2: Πώς να μετατρέψετε νομίσματα σε κείμενο ολογράφως στο Excel;
Για να μετατρέψετε νομίσματα ολογράφως στο Excel, συνήθως χρησιμοποιείτε έναν συνδυασμό συναρτήσεων και προσαρμοσμένης μορφοποίησης. Μπορείτε να βρείτε διάφορα σεμινάρια και οδηγούς στο διαδίκτυο που εξηγούν πώς να το πετύχετε.
Ε3: Πώς μορφοποιείτε αριθμούς στο Excel για ρουπίες Ινδίας;
Για να μορφοποιήσετε αριθμούς στο Excel για ρουπίες Ινδίας, μπορείτε να χρησιμοποιήσετε τις ενσωματωμένες επιλογές μορφοποίησης νομίσματος. Επιλέξτε το κελί ή την περιοχή που θέλετε να μορφοποιήσετε, μεταβείτε στην καρτέλα «Αριθμός» (Number) στο πλαίσιο διαλόγου «Μορφοποίηση κελιών» (Format Cells) και επιλέξτε την κατηγορία «Νόμισμα» (Currency). Από εκεί, μπορείτε να επιλέξετε το «₹ Αγγλικά (Ινδίας)» ως σύμβολο νομίσματος.
Ε4: Πώς μετατρέπω αριθμούς σε κείμενο στο Excel αυτόματα;
Υπάρχουν αρκετοί τρόποι για να μετατρέψετε αυτόματα αριθμούς σε κείμενο στο Excel. Μπορείτε να χρησιμοποιήσετε συναρτήσεις του Excel όπως TEXT, CONCATENATE ή προσαρμοσμένη μορφοποίηση. Μπορείτε επίσης να χρησιμοποιήσετε μακροεντολές VBA για πιο προηγμένο αυτοματισμό.
Ε5: Πώς να μετατρέψετε δολάρια ΗΠΑ σε ρουπίες Ινδίας στο Excel;
Για να μετατρέψετε δολάρια ΗΠΑ σε ρουπίες Ινδίας στο Excel, μπορείτε να χρησιμοποιήσετε έναν συνδυασμό συναρτήσεων του Excel και υπηρεσιών ιστού ή εξωτερικών πηγών δεδομένων που παρέχουν συναλλαγματικές ισοτιμίες. Η μορφή «Νόμισμα» του Excel μπορεί επίσης να χρησιμοποιηθεί για την εμφάνιση ποσών σε ρουπίες Ινδίας, αφού λάβετε τις συναλλαγματικές ισοτιμίες.
Ε6. Θέλετε να χρησιμοποιήσετε το Excel Online για πιο εύκολη εργασία;
Αν προτιμάτε να εργάζεστε στο cloud, το Excel Online προσφέρει τα ίδια ισχυρά χαρακτηριστικά για να σας βοηθήσει να διαχειριστείτε και να καθαρίσετε τα δεδομένα σας από οπουδήποτε. Με το Excel Online, μπορείτε να χρησιμοποιήσετε τις ίδιες συναρτήσεις για να αφαιρέσετε χαρακτήρες από την αριστερή ή τη δεξιά πλευρά των δεδομένων σας, καθιστώντας το μια εξαιρετική επιλογή για όσους χρειάζονται ευελιξία ή δεν έχουν πρόσβαση σε έκδοση του Excel για υπολογιστή.
Σύνοψη:
Μάθετε πώς να μετατρέπετε εύκολα αριθμητικά ποσά ολογράφως σε ρουπίες Ινδίας στο Excel, χρησιμοποιώντας είτε κώδικα VBA είτε μια κοινή μέθοδο. Πρώτα, ενεργοποιήστε την καρτέλα Προγραμματιστής στο Excel, προσθέστε τον παρεχόμενο κώδικα VBA και χρησιμοποιήστε τον τύπο =RupeeFormat(κελί).
Εναλλακτικά, κάντε δεξί κλικ στο όνομα του φύλλου για να αποκτήσετε πρόσβαση στη VBA, εισαγάγετε μια λειτουργική μονάδα, επικολλήστε τον κώδικα και χρησιμοποιήστε τον ίδιο τύπο. Αυτές οι φιλικές προς τον χρήστη μέθοδοι είναι επίσης συμβατές με το WPS Office, μια δωρεάν εναλλακτική του Microsoft Office, κάνοντας την ακριβή και επαγγελματική μορφοποίηση εγγράφων παιχνιδάκι.





