วีดีโอ

هل شهادات الميلاد و وثيقة الزواج لازم توثيق حديث

مافيي رقم التأشيرة اللي يبدا با Eلاوجود له

رابط برنامج itunes 👇👇👇 apps.microsoft.com/detail/9pb2mz1zmb1s?rtc=2&activetab=pivot%3Aoverviewtab&hl=en-ae&gl=AE رابط برنامج 3utools 👇👇👇 www.3u.com/

السلام عليكم بحجز موعد تساهيل بدخل البيانات لكن بيجي صفحة الوقت ويعطيني Erorr وتعد تحمل الي أن ينتهي الوقت وغيرت المتصفح نفس المشكله بقالي على الحال ده كم يوم ارجو الافاده

يا شباب بحط الرقم المصري صحيح والكود ما بيوصلش خالص حاولت كتيير جدا حد عندة حل للموضوع دة

جزاك الله خيرا.. احسنت صنعا.

جزاك الله خيرا بس عندى سؤال تانى (الان عند التحويل من صيغة( pdf ) الى وورد باستخدام (i love pdf ) مثلا لا اجد الا انه قام بوضع المستند على شكل صور داخل صفحة وورد ولم اتمكن من الكتابة او التعديل لانها فقط اصبحت (مجرد jpg ) على الوورد فايه الحل والتطبيقات الاخرى تحول اللغة العربية الى كلام وحروف غير مفهمومة فهل هناك تطبيق مجانى اسهل ويحقق ما نريد من تعديلات

سلام عليكم..... من فضل حضرتك انا سيده ومعايا تأشيره عمل تجاريه...... دبلوم تجاره.... الأوراق المطلوبه لعدم الرفض......

سلام عليكم هل الصوره حاليا فى طلبانجاز تتطلب حجم معين ومقاس معين 200*200ولاتتعدى 18كيبو بايت

كيف حددت زوايه الدوران 20؟

من فضلك العضوية منتهية وجيت اجدد طالب مني كل الاوراق السابق ارفاقها المشكلة ف خطاب جهة العمل لاني روحت شغل جديد وبنقل كفالة ومرتبطة بالعضويه للهيئة ومش عارف اجيب الخطاب من الكفيل القديم

ستات اللي علي المعاش لهم تصريح السفر

اجيب منين مستند التاشيرة لو سمحت

هل يمكن ل chatgpt في رسم المخططات والاشكال الهندسية باستخدام طريقة autolisp لبيئة الاوتوكاد تغني عن عمل الرسوم يدويا في برنامج الاوتوكاد؟ ولماذا؟

تحياتي لكم

هل سفر السيدة المقيمة في السعودية في حال نزلت اجازة ثم تريد العودة الى زوجها المقيم في السعودية . يحتاج الى تصريح ؟

لو سمحت طب انا مسجل فى الهيئة برقم الحدود والعضويه انتهت ودلوقتى عاوز اجدد العضويه هعمل ايه اجدد برقم الحدود برضوا ولا ازاى اجدد برقم الاقامة

الموظفه الحكوميه زياره شخصيه لها تصريح

كلامك اكثر من شرحك للفديو . ياحبيبي اختصر الشرح لله يوفقك

انا قدمت طلب زيارة للزوجة وباقي الطفل هل اقدم. له زيارة لوحده او اضيفه لامه

لو سمحت نوع الفونت ده اي؟؟

لو تفضلت تعملنا تأشيرة سياحة

ماشاء الله تبارك الرحمن

ربنا يبااركلك

الله ينور يا هندسة ربنا يوفقك

@ayosim-sgt

الكود المستخدم👇👇👇 Function ConvertNumberToText(number As Double, maincurrency As String, subcurrency As String) Dim Array1(0 To 9) As String Dim Array2(0 To 9) As String Dim Array3(0 To 9) As String Dim MyNumber As String Dim GetNumber As String Dim ReadNumber As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetText As String Dim Billion As String Dim Million As String Dim Thousand As String Dim Hundred As String Dim Fraction As String Dim MyAnd As String Dim I As Integer Dim ReMark As String If number > 999999999999.99 Then Exit Function If number < 0 Then number = number * -1 ReMark = "سالب " End If If number = 0 Then ConvertNumberToText = "صفر" Exit Function End If MyAnd = " و" Array1(0) = "" Array1(1) = "مائة" Array1(2) = "مائتان" Array1(3) = "ثلاثمائة" Array1(4) = "أربعمائة" Array1(5) = "خمسمائة" Array1(6) = "ستمائة" Array1(7) = "سبعمائة" Array1(8) = "ثمانمائة" Array1(9) = "تسعمائة" Array2(0) = "" Array2(1) = " عشر" Array2(2) = "عشرون" Array2(3) = "ثلاثون" Array2(4) = "أربعون" Array2(5) = "خمسون" Array2(6) = "ستون" Array2(7) = "سبعون" Array2(8) = "ثمانون" Array2(9) = "تسعون" Array3(0) = "" Array3(1) = "واحد" Array3(2) = "اثنان" Array3(3) = "ثلاثة" Array3(4) = "أربعة" Array3(5) = "خمسة" Array3(6) = "ستة" Array3(7) = "سبعة" Array3(8) = "ثمانية" Array3(9) = "تسعة" GetNumber = Format(number, "000000000000.00") I = 0 Do While I < 15 If I < 12 Then MyNumber = Mid$(GetNumber, I + 1, 3) Else MyNumber = "0" + Mid$(GetNumber, I + 2, 2) End If If (Mid$(MyNumber, 1, 3)) > 0 Then ReadNumber = Mid$(MyNumber, 1, 1) My100 = Array1(ReadNumber) ReadNumber = Mid$(MyNumber, 3, 1) My1 = Array3(ReadNumber) ReadNumber = Mid$(MyNumber, 2, 1) My10 = Array2(ReadNumber) If Mid$(MyNumber, 2, 2) = 11 Then My11 = "إحدى عشرة" If Mid$(MyNumber, 2, 2) = 12 Then My12 = "إثنى عشرة" If Mid$(MyNumber, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(MyNumber, 1, 1)) > 0) And ((Mid$(MyNumber, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(MyNumber, 3, 1)) > 0) And ((Mid$(MyNumber, 2, 1)) > 1) Then My1 = My1 + MyAnd GetText = My100 + My1 + My10 If ((Mid$(MyNumber, 3, 1)) = 1) And ((Mid$(MyNumber, 2, 1)) = 1) Then GetText = My100 + My11 If ((Mid$(MyNumber, 1, 1)) = 0) Then GetText = My11 End If If ((Mid$(MyNumber, 3, 1)) = 2) And ((Mid$(MyNumber, 2, 1)) = 1) Then GetText = My100 + My12 If ((Mid$(MyNumber, 1, 1)) = 0) Then GetText = My12 End If If (I = 0) And (GetText <> "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Billion = GetText + " مليار" Else Billion = GetText + " مليارات" If ((Mid$(MyNumber, 1, 3)) = 2) Then Billion = " مليار" If ((Mid$(MyNumber, 1, 3)) = 2) Then Billion = " مليارن" End If End If If (I = 3) And (GetText <> "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Million = GetText + " مليون" Else Million = GetText + " ملايين" If ((Mid$(MyNumber, 1, 3)) = 1) Then Million = " مليون" If ((Mid$(MyNumber, 1, 3)) = 2) Then Million = " مليونان" End If End If If (I = 6) And (GetText <> "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Thousand = GetText + " ألف" Else Thousand = GetText + " ألاف" If ((Mid$(MyNumber, 3, 1)) = 1) Then Thousand = " ألف" If ((Mid$(MyNumber, 3, 1)) = 2) Then Thousand = " ألفان" End If End If If (I = 9) And (GetText <> "") Then Hundred = GetText If (I = 12) And (GetText <> "") Then Fraction = GetText End If I = I + 3 Loop If (Billion <> "") Then If (Million <> "") Or (Thousand <> "") Or (Hundred <> "") Then Billion = Billion + MyAnd End If If (Million <> "") Then If (Thousand <> "") Or (Hundred <> "") Then Million = Million + MyAnd End If If (Thousand <> "") Then If (Hundred <> "") Then Thousand = Thousand + MyAnd End If If Fraction <> "" Then If (Billion <> "") Or (Million <> "") Or (Thousand <> "") Or (Hundred <> "") Then ConvertNumberToText = ReMark + Billion + Million + Thousand + Hundred + " " + maincurrency + MyAnd + Fraction + " " + subcurrency Else ConvertNumberToText = ReMark + Fraction + " " + subcurrency End If Else ConvertNumberToText = ReMark + Billion + Million + Thousand + Hundred + " " + maincurrency End If End Function

الله يباركلك الله يباركلك❤❤

الله يباركلك الله يباركلك❤❤

الله يباركلك الله يباركلك❤❤

كل الأوراق موجودة ما عدا عدم توثيق قسيمة الزواج

شكرا ليك لكن لا تضهر menuload ما الحل

السلام عليكم ورحمة الله شرح عظيم ومحترم بعد اذن حضرتك عاوز اعرف ازاى اجيب رقم العمود داخل الشيت

طريقة اني ارجع البلوك ل lins عادي

U♥33♥♣

السلام عليكم انا دفعت 700 ريال مهنه فني بس التخصص لايوجد وشهادة لم تظهر لي مقدم ب الدبلوم

Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList) Then xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex, xColIndex) Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub

عملت تساهيل والفلوس انسحبت ولكن مظهرش الموعد ايه الحل لو سمحت

انت مميز

جزاك الله خيرا يارب استفتد منك الله يبارك لك

و ممكن كمان يا بشمهندس رابط لاشهر الليسبات اللي بنستخدمها في الكاد الكهرباء زي توزيع الكشافات .....الخ

ممكن الرابط تانى يا هندسة عشان بيقولى عنوان الرابط غير صحيح

Msn.😊

MSI.😮

شكرا كتير ع الشرح 🤍🤍

الله ينور ياهندسة ممكن ال ليسب من فضلك

لوكانت الخلايا غير متساويه لا ينجح معي

شكرا جزيلا

انا كتبت في المهنه wife حروف صغيره و في المؤهل there's no بردو حروف صغير و العنوان نفس الامر في مشكله ؟

شكرا جزيلا , تبسيط المعلومة وعدم الاسهاب في الشرح , ربنا يوفقك