الرئيسية > السؤال
السؤال
اريد دالة تحويل الارقام الى حروف في برنامج excel وشكرااااااا
الدورات التدريبية 27‏/7‏/2010 تم النشر بواسطة بدون اسم.
الإجابات
1 من 3
http://www.2shared.com/file/1869143/6f23f25d/_online.html
2‏/9‏/2010 تم النشر بواسطة Awami22.
2 من 3
Open your spreadsheet in Microsoft Excel.

2Click "Tools" in the top menu bar, select "Macro," and choose the "Visual Basic Editor" option. If you use Excel 2007 or later, click the "Developer" tab and click the "Visual Basic" button instead.

3Click "Insert" in the top menu bar of the Visual Basic Editor and select "Module."

4Copy and paste all of the code shown below:



Option Explicit

Function SpellNumber(ByVal MyNumber)

Dim Dollars, Cents, Temp

Dim DecimalPlace, Count

ReDim Place(9) As String

Place(2) = " Thousand "

Place(3) = " Million "

Place(4) = " Billion "

Place(5) = " Trillion "

MyNumber = Trim(Str(MyNumber))

DecimalPlace = InStr(MyNumber, ".")

If DecimalPlace > 0 Then

Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _

"00", 2))

MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))

End If

Count = 1

Do While MyNumber <> ""

Temp = GetHundreds(Right(MyNumber, 3))

If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars

If Len(MyNumber) > 3 Then

MyNumber = Left(MyNumber, Len(MyNumber) - 3)

Else

MyNumber = ""

End If

Count = Count + 1

Loop

Select Case Dollars

Case ""

Dollars = "No Dollars"

Case "One"

Dollars = "One Dollar"

Case Else

Dollars = Dollars & " Dollars"

End Select

Select Case Cents

Case ""

Cents = " and No Cents"

Case "One"

Cents = " and One Cent"

Case Else

Cents = " and " & Cents & " Cents"

End Select

SpellNumber = Dollars & Cents

End Function

Function GetHundreds(ByVal MyNumber)

Dim Result As String

If Val(MyNumber) = 0 Then Exit Function

MyNumber = Right("000" & MyNumber, 3)

If Mid(MyNumber, 1, 1) <> "0" Then

Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "

End If

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 Function

Function GetTens(TensText)

Dim Result As String

Result = ""

If Val(Left(TensText, 1)) = 1 Then

Select Case Val(TensText)

Case 10: Result = "Ten"

Case 11: Result = "Eleven"

Case 12: Result = "Twelve"

Case 13: Result = "Thirteen"

Case 14: Result = "Fourteen"

Case 15: Result = "Fifteen"

Case 16: Result = "Sixteen"

Case 17: Result = "Seventeen"

Case 18: Result = "Eighteen"

Case 19: Result = "Nineteen"

Case Else

End Select

Else

Select Case Val(Left(TensText, 1))

Case 2: Result = "Twenty "

Case 3: Result = "Thirty "

Case 4: Result = "Forty "

Case 5: Result = "Fifty "

Case 6: Result = "Sixty "

Case 7: Result = "Seventy "

Case 8: Result = "Eighty "

Case 9: Result = "Ninety "

Case Else

End Select

Result = Result & GetDigit _

(Right(TensText, 1))

End If

GetTens = Result

End Function

Function GetDigit(Digit)

Select Case Val(Digit)

Case 1: GetDigit = "One"

Case 2: GetDigit = "Two"

Case 3: GetDigit = "Three"

Case 4: GetDigit = "Four"

Case 5: GetDigit = "Five"

Case 6: GetDigit = "Six"

Case 7: GetDigit = "Seven"

Case 8: GetDigit = "Eight"

Case 9: GetDigit = "Nine"

Case Else: GetDigit = ""

End Select

End Function

5Return to your spreadsheet and single-click the cell containing a number you want converted into text.

6Type "=SpellNumber(X)" (without quotation marks) into the cell, replacing "X" with the number originally contained in the cell. You can also refer to the value of another cell, instead of a specific number (e.g., "=SpellNumber(B5)" to use the value in cell B5).

7Press the "Enter" key to convert the number value into letters. If you entered "7" in the previous step, for example, the value in the cell now displays as "Seven."
.
10‏/3‏/2011 تم النشر بواسطة بدون اسم.
3 من 3
ما تطلبه يسمى التفقيط ولا يوجد دالة في الإكسل تقوم بهذا العمل.
يوجد بعض الماكروات (تعليمات ودوال) تضاف إلى الإكسل لتسمح لك بتنفيذ ما تريد، وإن كنت تعرف البرمجة بلغة VBA يمكنك مباشرة كتابة واحد خاص بك.
جرب البحث في google على (ملف تفقيط إكسل) على سبيل المثال وستجد العديد من الأمثلة الجاهرة، فاختر منها ما يناسبك.
11‏/5‏/2011 تم النشر بواسطة Maimona (. .).
قد يهمك أيضًا
هل يوجد طريقة داخل برنامج الأكسل Excel‏ يمكن بها معرفة القانون الذي يقف وراء كل دالة
تحويل الارقام الي عربي اكسل2003
كيفية المشاركة في برنامج حروف والوف 2012
ما هي أنواع الدوال في الرياضيات ؟؟
تسجيل الدخول
عرض إجابات Google في:: Mobile | كلاسيكي
©2014 Google - سياسة الخصوصية - مساعدة