بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'ارقام'.
تم العثور علي 4 نتائج
-
.thumb.gif.27c4a79ce23abc61b721f833e6899131.gif)
هذه الهدية القيمة شفرة الكود المستخدمة فى استخلاص اسماء الشهور والايام اهدانى اياها ذات يوم استاذى الجليل ومعلمى القدير الاستاذ الجليل @ابوخليل ههههههه حتى ايضا الشفرة المستخدمة لعمل الاستبدال ( دالة Replace) ايضا يرجع الفضل فيها الى الله اولا ثم الى استاذى المبجل الاستاذ @ابوخليل نعم لم تكن بنفس الهيئة كانت للاستبدال رموز خاصة وعلامات وانا قمت بالتعديل الطفيف عليها لتحويل الارقام الى عربي عن طريق ال Unicode Chart ولكن لولا الله سبحانه وتعالى ثم استاذى ووالدى لما توصلت الى هذه الفكرة مميزات المرفق - موديول به كل ما يخص التاريخ وكذلك تحويل الارقام الى العربية بدون التدخل فى اعدادات النظام وبدون اى خطوط خارجية ولتكون الهدية كاملة مكملة هذا هو الموقع الذى استخدمة عندما اريد الحصول على ارقام رمز او حرف ما https://www.ssec.wisc.edu/~tomw/java/unicode.html التاريخ.mdb- 5 replies
-
- 8
-
-
-
- ارقام عربية
- تحويل
- (و1 أكثر)
-
السلام عليكم هل يمكن تحويل الارقام من 1 - 10 في اي عمود نختاره الى كتابة في نفس الخلية مثلا 1 يكتب الكود محله الاولى و2 الثانية 3 الثالثة وهكذا جزاكم الله خيرا تحويل الارقام.rar -
بسم الله الرحمن الرحيم الاخوة الاعزاء الآجلاء السلام عليكم ورحمته الله وبركاته وطابت أوقاتكم بكل خير الموضوع عباره عن معلومه وتسليه فى أن واحد ففرضا أننا الآن مجتمعين وكان هذا الحوار بينى وبين أبنى مهند ياسرالحافظ الذى تشرفنا بانضمامه لهذا الصرح المبارك وأبن أخى الغالى والمقرب الى قلبى الاستاذ الفاضل / ياسرالحافظ سعيد : يامهند هات ورقة وقلم واختر ماشئت من الارقام وليكن 6 ارقام مهند : أختار 296247 سعيد : أخذ الورقة وكتب الرقم التالى 2296245 ووضعها بعيدا عن مهند سعيد : خليك فاكر يامهند أننى لم أستخدم أله حاسبه سعيد : يامهند أختار 6 ارقام أخرى بنحو تتعامد فيه الارقام سعيد : أخذ الورقة وكتب الارقام المتممه للرقم 9 للرقم المختار سعيد : يامهند أختار 6 ارقام سعيد : أخذ الورقة وكتب الارقام المتممه للرقم 9 للرقم المختار سعيد : يامهند أجمع هذة الارقام فيجد الارقام مطابقة للورقه التى وضعت بعيدا عنه هذة المعلومة البسيطة فماهى إلا تقديرا منى لعشقى لعالم الارقام وفقنا الله واياكم لصالح الاعمال تقبلوا وافر احترامى -
السلام عليكم Option Explicit ' بسم الله الرحمن الرحيم " ' ********************* " ' دالة استخراج النص او الارقام " '==============================================" ' False = مهمل او Kh_Number اذا كان " ' تقوم باستخراج النص " ' True = Kh_Number اذا كان " ' تقوم باستخراج الارقام " '==============================================" '----------------------------------------------------------------- Function Kh_Replace_Text(ByVal Kh_Sub As String, Optional Kh_Number As Boolean) Dim Num As Byte, C As Integer Dim Sn As String, Re As String, Md As String Sn = Trim(Kh_Sub) For Num = 0 To 9 Sn = Replace(Sn, Num, "") Next Num If Kh_Number Then Re = Trim(Kh_Sub) Do While C < Len(Trim(Sn)) C = C + 1 Md = Mid(Sn, C, 1) Re = Replace(Re, Md, "") Loop Kh_Replace_Text = CDbl(Re) Else Kh_Replace_Text = Trim(Sn) End If End Function دالة استخراج النص او الارقام.rar
