logo
search
list

Πίνακας περιεχομένων

2 Εύκολοι Τρόποι για Μετατροπή Αριθμών Ολογράφως σε Ινδικές Ρουπίες στο Excel:
Η Καλύτερη Δωρεάν Εναλλακτική του Microsoft Office - WPS Office
Συχνές Ερωτήσεις (FAQs):
Σύνοψη:

Πώς να Μετατρέψετε Αριθμούς σε Ολογράφως σε Ινδικές Ρουπίες στο Excel

Δημοσιεύτηκε από Algirdas Jasaitis

calendar

2026-09-24

views

868

likes

59

Όταν εργάζεστε με αριθμούς στο 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


Η Καρτέλα Προγραμματιστής προστίθεται και κουμπί OK


Χρησιμοποιήστε Word, Excel και PPT ΔΩΡΕΑΝ

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

Βήμα 1: Ανοίξτε το υπολογιστικό φύλλο του Excel που περιέχει τους αριθμούς που θέλετε να μετατρέψετε.


Αριθμός προς μετατροπή στον Πίνακα


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


Καρτέλα Προγραμματιστής


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


Κουμπί Visual Basic


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


Κάντε κλικ στην Εισαγωγή > επιλογή Λειτουργικής μονάδας (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


Ο κώδικας VBA εισήχθη στην παραπομπή


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


Αποθήκευση ως τύπου


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


τύπος =RupeeFormat(κελί)


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


Εμφανίζεται το αποτέλεσμα όλων των κελιών


Οι αριθμοί στην επιλεγμένη περιοχή θα μετατραπούν ολογράφως σε ρουπίες Ινδίας.

Μέθοδος 2: Μετατροπή αριθμών ολογράφως σε ρουπίες Ινδίας στο Excel (Κοινή μέθοδος)

Μάθετε την κοινή μέθοδο για τη μετατροπή αριθμών ολογράφως σε ρουπίες Ινδίας στο Excel, ένα εύχρηστο βήμα όταν προετοιμάζετε τιμολόγια για λογιστική.

Βήμα 1: Ανοίξτε το υπολογιστικό φύλλο του Excel που περιέχει τους αριθμούς που θέλετε να μετατρέψετε.


Αριθμός προς μετατροπή στον Πίνακα


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


Καρτέλα φύλλου και κουμπί Προβολή κώδικα


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


Κάντε κλικ στην Εισαγωγή > επιλογή Λειτουργικής μονάδας (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


Ο κώδικας VBA εισήχθη στην παραπομπή


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


Αποθήκευση ως τύπου


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


τύπος =RupeeFormat(κελί)


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


Εμφανίζεται το αποτέλεσμα όλων των κελιών


Οι αριθμοί στην επιλεγμένη περιοχή θα μετατραπούν ολογράφως σε ρουπίες Ινδίας.

Λήψη δωρεάν Office
  • Χρησιμοποιήστε Word, Excel και PPT ΔΩΡΕΑΝ, χωρίς διαφημίσεις.

  • Επεξεργαστείτε αρχεία PDF με το ισχυρό σετ εργαλείων PDF.

  • Περιβάλλον χρήστη παρόμοιο με της Microsoft. Εύκολο στην εκμάθηση. 100% Συμβατότητα.

  • Ενισχύστε την παραγωγικότητά σας με τα αμέτρητα δωρεάν πρότυπα Word, Excel, PPT και βιογραφικών του WPS.

100% ασφαλές
Άβαταρ
Algirdas Jasaitis

Η καλύτερη δωρεάν εναλλακτική του Microsoft Office - WPS Office

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


WPS Office


Το 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 -> Αποθήκευση


Αποθήκευση αρχείου 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, κάνοντας την ακριβή και επαγγελματική μορφοποίηση εγγράφων παιχνιδάκι.

100% ασφαλές


Algirdas Jasaitis

15 years of office industry experience, tech lover and copywriter. Follow me for product reviews, comparisons, and recommendations for new apps and software.