21 күн бұрын
2 ай бұрын
2 ай бұрын
2 ай бұрын
3 ай бұрын
3 ай бұрын
3 ай бұрын
4 ай бұрын
4 ай бұрын
4 ай бұрын
4 ай бұрын
4 ай бұрын
5 ай бұрын
5 ай бұрын
5 ай бұрын
6 ай бұрын
6 ай бұрын
6 ай бұрын
6 ай бұрын
7 ай бұрын
7 ай бұрын
7 ай бұрын
Пікірлер
@AfsharAcademy1 14 күн бұрын
درود و سلام ممنونم .
@maherlearn 13 күн бұрын
ممنون مه ده خدمت
@saifulmalooksahil9579 21 күн бұрын
به پښتو چه رکم میشه بیادر
@maherlearn 20 күн бұрын
سلام تاهنوز آماده نشده است تنها فارسی می باشد
@rafiullahsafi786 23 күн бұрын
سیستم حسابداری بسازید برای شرکت تولیدی مثل شرکت الکوزی چقسم خریداری میکند چقسم تولید میشه و چقسم فروشات میشه داشبورد داشته باشه
@maherlearn 20 күн бұрын
سلام وقت کار دارد درست است
@MujtabaMuhebi 24 күн бұрын
سلام میشه یک دیتابیس جنس فروش به دانه هم باشد که چقدر فایده و چقدر در گدام باقی مانده را جور کنید
@samihullahmaher6131 Ай бұрын
تشکر
@raziamirzaie2204 Ай бұрын
عالی استاد
@maherlearn Ай бұрын
ممنون زنده باشی
@HajiMoradKhan Ай бұрын
Payment نداریم ولا استاد که پیسه بتیم مه داتلود شود لطف کنین همی ره از پی مند بکشین
@HajiMoradKhan Ай бұрын
سلام احترامات استاد محترم امید که جور صحتمند باشی استاد محترم اگه بگذارید ویدو ره لاک نکنین بگذارید که مردم دانلود کنه ویدو ره هر وقت نمیشه که انترنت داشته باشم اگه لطف کنین وقتی که ویدو ره ده دانلود می‌گذاریم purches میگه اگه همی purches نکنین خوش خاهد ساختین ماره تشکر از ویدو های ارزش مند شما با تشکر صمیم کریم زاده
@MananZaker Ай бұрын
سلام استاد محترم فورمول تبدیل اعداد به حروف انگلیسی را کار داشتم
@MananZaker Ай бұрын
سلام استاد محترم فورمول تبدیل اعداد به حروف انگلیسی را کار داشتم
@maherlearn Ай бұрын
سلام درست است
@MananZaker Ай бұрын
سلام استاد محترم عملکرد تبدیل اعداد به حروف انگلیسی را کار داشتم
@maherlearn Ай бұрын
Function SpellNumber(amt As Variant) As Variant Dim FIGURE As Variant Dim LENFIG As Integer Dim i As Integer Dim WORDs(19) As String Dim tens(9) As String WORDs(1) = "One" WORDs(2) = "Two" WORDs(3) = "Three" WORDs(4) = "Four" WORDs(5) = "Five" WORDs(6) = "Six" WORDs(7) = "Seven" WORDs(8) = "Eight" WORDs(9) = "Nine" WORDs(10) = "Ten" WORDs(11) = "Eleven" WORDs(12) = "Twelve" WORDs(13) = "Thirteen" WORDs(14) = "Fourteen" WORDs(15) = "Fifteen" WORDs(16) = "Sixteen" WORDs(17) = "Seventeen" WORDs(18) = "Eighteen" WORDs(19) = "Nineteen" tens(2) = "Twenty" tens(3) = "Thirty" tens(4) = "Fourty" tens(5) = "Fifty" tens(6) = "Sixty" tens(7) = "Seventy" tens(8) = "Eighty" tens(9) = "Ninety" FIGURE = amt FIGURE = Format(FIGURE, "FIXED") FIGLEN = Len(FIGURE) If FIGLEN < 12 Then FIGURE = Space(12 - FIGLEN) & FIGURE End If If Val(Left(FIGURE, 9)) > 1 Then SpellNumber = " " ElseIf Val(Left(FIGURE, 9)) = 1 Then SpellNumber = " " End If For i = 1 To 3 If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2))) ElseIf Val(Left(FIGURE, 2)) > 19 Then SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1))) SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1))) End If If i = 1 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & " Crore " ElseIf i = 2 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & " Lakh " ElseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & " Thousand " End If FIGURE = Mid(FIGURE, 3) Next i If Val(Left(FIGURE, 1)) > 0 Then SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 1))) + " Hundred " End If FIGURE = Mid(FIGURE, 2) If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2))) ElseIf Val(Left(FIGURE, 2)) > 19 Then SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1))) SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1))) End If FIGURE = Mid(FIGURE, 4) If Val(FIGURE) > 0 Then SpellNumber = SpellNumber & " Paise " If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2))) ElseIf Val(Left(FIGURE, 2)) > 19 Then SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1))) SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1))) End If End If FIGURE = amt FIGURE = Format(FIGURE, "FIXED") If Val(FIGURE) > 0 Then SpellNumber = SpellNumber & " AFN " End If End Function
@MananZaker Ай бұрын
سلام استاد محترم متن تبدیل اعداد به حروف انگلیسی را کار داشتم
@samihullahmaher6131 Ай бұрын
Function SpellNumber(amt As Variant) As Variant Dim FIGURE As Variant Dim LENFIG As Integer Dim i As Integer Dim WORDs(19) As String Dim tens(9) As String WORDs(1) = "One" WORDs(2) = "Two" WORDs(3) = "Three" WORDs(4) = "Four" WORDs(5) = "Five" WORDs(6) = "Six" WORDs(7) = "Seven" WORDs(8) = "Eight" WORDs(9) = "Nine" WORDs(10) = "Ten" WORDs(11) = "Eleven" WORDs(12) = "Twelve" WORDs(13) = "Thirteen" WORDs(14) = "Fourteen" WORDs(15) = "Fifteen" WORDs(16) = "Sixteen" WORDs(17) = "Seventeen" WORDs(18) = "Eighteen" WORDs(19) = "Nineteen" tens(2) = "Twenty" tens(3) = "Thirty" tens(4) = "Fourty" tens(5) = "Fifty" tens(6) = "Sixty" tens(7) = "Seventy" tens(8) = "Eighty" tens(9) = "Ninety" FIGURE = amt FIGURE = Format(FIGURE, "FIXED") FIGLEN = Len(FIGURE) If FIGLEN < 12 Then FIGURE = Space(12 - FIGLEN) & FIGURE End If If Val(Left(FIGURE, 9)) > 1 Then SpellNumber = " " ElseIf Val(Left(FIGURE, 9)) = 1 Then SpellNumber = " " End If For i = 1 To 3 If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2))) ElseIf Val(Left(FIGURE, 2)) > 19 Then SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1))) SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1))) End If If i = 1 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & " Crore " ElseIf i = 2 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & " Lakh " ElseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & " Thousand " End If FIGURE = Mid(FIGURE, 3) Next i If Val(Left(FIGURE, 1)) > 0 Then SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 1))) + " Hundred " End If FIGURE = Mid(FIGURE, 2) If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2))) ElseIf Val(Left(FIGURE, 2)) > 19 Then SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1))) SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1))) End If FIGURE = Mid(FIGURE, 4) If Val(FIGURE) > 0 Then SpellNumber = SpellNumber & " Paise " If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2))) ElseIf Val(Left(FIGURE, 2)) > 19 Then SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1))) SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1))) End If End If FIGURE = amt FIGURE = Format(FIGURE, "FIXED") If Val(FIGURE) > 0 Then SpellNumber = SpellNumber & " AFN " End If End Function
@HajiMoradKhan Ай бұрын
سپاس از ویدو های آموزشی که می‌گذارید استاد محترم تشکر
@HajiMoradKhan Ай бұрын
سلام احترامات استاذ محترم امید که جور صحتمند باشین استاذ محترم در قسمت 7.59و 9.67 هر قدر که کوشش کردم نشد همی سایز اش درست شود چی کنم ولا اگر مشوره بدهید خوش حال میشم..و از دعا خیر برایتان برسد انسالله
@maherlearn Ай бұрын
سلام تشکر خوب هستی میشه ده واتساپ پیام کو 0779090425
@user-su3jy2gq2e Ай бұрын
تشكر از شما استاد محترم
@maherlearn Ай бұрын
ممنون زنده باشی
@user-su3jy2gq2e Ай бұрын
تشکر از شما استاد محترم
@HajiMoradKhan Ай бұрын
استاد اگر در تشریع کنین همی درس را دوباره ویدو بگیرین سرعت ویدو بسیار بالا بود هیچ درک نتانسن
@maherlearn Ай бұрын
سلام درست است درس بعدی
@HajiMoradKhan Ай бұрын
تشکر استاذ محترم
@maherlearn Ай бұрын
ممنون زنده باشی مه ده خدمت
@maherlearn Ай бұрын
تشکر
@akvtc Ай бұрын
ماشاالله، عالیست
@maherlearn Ай бұрын
تشکر زنده باشی
@user-ge7lv5gq1v Ай бұрын
عالی است استاد گرامی خیلی خیلی عالی است
@maherlearn Ай бұрын
سلام ممنون زنده باشی
@user-ge7lv5gq1v Ай бұрын
عالی بود
@maherlearn Ай бұрын
ممنون زنده باشی
@bilalazizi-ku6tu Ай бұрын
استاد محترم واقعا تو عالی استی
@maherlearn Ай бұрын
زنده باشی عزیز دل تشکر مه ده خدمت
@bilalazizi-ku6tu Ай бұрын
بسیار زیاد تشکر خیلی عالی بود استاد محترم
@maherlearn Ай бұрын
خواهش درس های جدید نشر میشه بخیر
@mochehrzad9077 Ай бұрын
This video needs more explanation
@mochehrzad9077 Ай бұрын
عالی بود
@maherlearn Ай бұрын
زنده باشی تشکر
@Mohammad-kc2nf Ай бұрын
عالی❤❤❤
@maherlearn Ай бұрын
ممنون زنده باشی
@abamiri1018 Ай бұрын
بسیار عالی مفید اموزنده سپاس استاد گرامی
@maherlearn Ай бұрын
ممنون زنده باشی مه ده خدمت
@SamiullahIbrahimkhail Ай бұрын
ماشاءالله
@maherlearn Ай бұрын
ممنون زنده باشی
@NightlyMovie Ай бұрын
سلام استاد جان یک ویدیو آماده بسازین ده برنانه اکسل ده این مشخصات یک صحفه مکمل برای مواد یا جنس موجود در دوکان همرای درج قیمت های شان که تمام شده در تاریخ مشخص و یک صحفه دیگه برای روز مره مثل روز نامچه واری فقط فروش و همچنان ایی قابلیت ره داشته باشه که جنس ره که نامش را نوشته کنیم خودش قیمتش همراه با سود فایده اش ده گالم ظاهر شود حاجت دوباره چک کردن صحفه اصلی نباشد و همچنان جنس که امروز فروخته شد باید از صحفه عمومی تعداد اش گم شود برای مسول اش فامیده شود که چی مقدار جنس موجود دارد هتمن میتانین استاد جان بسیار زیاد جستجو گردم اما همه گی جواب رد دادن شما هتمن انجام داده میتانین لطفا ویدیو بعدی تان برای همی موضوع باشه تشکر بسیار زیاد ❤🫶
@user-ou9og4wx9e Ай бұрын
سلام خوبین تذکره کاغذی دارم لکترونیکی میخوام
@maherlearn Ай бұрын
سلام درست است پیش مه خو نیست ثبت نام کو
@ab.khaliqkhaliqyar7045 2 ай бұрын
Dear ustad,, God bless you..All people should follow your service..I understand Excel program by chasing your channel ...
@maherlearn 2 ай бұрын
Thanks Thanks
@shukransharifi5810 2 ай бұрын
❤❤❤❤❤❤❤❤❤❤❤❤
@maherlearn 2 ай бұрын
ممنون زنده باشی
@maherlearn 2 ай бұрын
تشکر
@jawadazimi8607 2 ай бұрын
❤❤❤
@hamidhabibi633 2 ай бұрын
سلام آقای محمدی در بخش پشت صحنه هیچ به ترتیب نیست و کم است میشه کمی زیاد نشر کنید پشت صحنه را و پشت صحنه از همو برنامه که نشر میشه باشد خوش میشود تشگر
@AahmadAahmad1 2 ай бұрын
خلی مقبول❤❤
@maherlearn 2 ай бұрын
زنده باشی ممنون
@AahmadAahmad1 2 ай бұрын
خلی عالی وجالب جناب استاد محترم❤❤
@maherlearn 2 ай бұрын
تشکر مه ده خدمت
@rezashahabi7794 2 ай бұрын
خوب نفر سه کیسه ارد میفروشه هم ضریب بدی چری ماشین حساب باز کار گیریم
@rezashahabi7794 2 ай бұрын
سلام اگر بخواهی از شیت اول عددی به شیت دوم منفی کنم چطور مشه
@maherlearn 2 ай бұрын
سلام میشه مشکل نیست
@rezashahabi7794 2 ай бұрын
سلام خوب چطور میشه رهنمای کنید یا شماره تان را بدن تماس بگیرم ممنون @@maherlearn
@bashirshirzad5493 2 ай бұрын
با گوشی میشه انجام دادم
@maherlearn 2 ай бұрын
سلام بلی میشه اگر برنامه آفیس داشته باشی ده موبایل
@rafiullahsafi786 2 ай бұрын
میشه شماره خود را روان منید
@rafiullahsafi786 2 ай бұрын
برای شرکت تولیدی دیتابیس بسازید
@maherlearn 2 ай бұрын
سلام تشکر خوب هستی ده اکسل باشد
@HamzaHamza-ry6gt 2 ай бұрын
سلام استاد کد را روان کنید
@maherlearn 2 ай бұрын
سلام درست است
@samihullahmaher6131 2 ай бұрын
@@maherlearn Function SpellNumber(amt As Variant) As Variant Dim FIGURE As Variant Dim LENFIG As Integer Dim i As Integer Dim WORDs(19) As String Dim tens(9) As String WORDs(1) = "One" WORDs(2) = "Two" WORDs(3) = "Three" WORDs(4) = "Four" WORDs(5) = "Five" WORDs(6) = "Six" WORDs(7) = "Seven" WORDs(8) = "Eight" WORDs(9) = "Nine" WORDs(10) = "Ten" WORDs(11) = "Eleven" WORDs(12) = "Twelve" WORDs(13) = "Thirteen" WORDs(14) = "Fourteen" WORDs(15) = "Fifteen" WORDs(16) = "Sixteen" WORDs(17) = "Seventeen" WORDs(18) = "Eighteen" WORDs(19) = "Nineteen" tens(2) = "Twenty" tens(3) = "Thirty" tens(4) = "Fourty" tens(5) = "Fifty" tens(6) = "Sixty" tens(7) = "Seventy" tens(8) = "Eighty" tens(9) = "Ninety" FIGURE = amt FIGURE = Format(FIGURE, "FIXED") FIGLEN = Len(FIGURE) If FIGLEN < 12 Then FIGURE = Space(12 - FIGLEN) & FIGURE End If If Val(Left(FIGURE, 9)) > 1 Then SpellNumber = " " ElseIf Val(Left(FIGURE, 9)) = 1 Then SpellNumber = " " End If For i = 1 To 3 If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2))) ElseIf Val(Left(FIGURE, 2)) > 19 Then SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1))) SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1))) End If If i = 1 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & " Crore " ElseIf i = 2 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & " Lakh " ElseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & " Thousand " End If FIGURE = Mid(FIGURE, 3) Next i If Val(Left(FIGURE, 1)) > 0 Then SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 1))) + " Hundred " End If FIGURE = Mid(FIGURE, 2) If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2))) ElseIf Val(Left(FIGURE, 2)) > 19 Then SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1))) SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1))) End If FIGURE = Mid(FIGURE, 4) If Val(FIGURE) > 0 Then SpellNumber = SpellNumber & " Paise " If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2))) ElseIf Val(Left(FIGURE, 2)) > 19 Then SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1))) SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1))) End If End If FIGURE = amt FIGURE = Format(FIGURE, "FIXED") If Val(FIGURE) > 0 Then SpellNumber = SpellNumber & " AFN " End If End Function
@sidiqullahahmadi3440 2 ай бұрын
عالی بود جناب محترم
@maherlearn 2 ай бұрын
زنده باشی مه ده خدمت
@saifuddinnasratyar 2 ай бұрын
مننه
@maherlearn 2 ай бұрын
خواهش مننه
@user-zo3he2rp5s 2 ай бұрын
این کارهایی تونو جم کنید مردم دنیا برای تون میخندت
@user-zo3he2rp5s 2 ай бұрын
امین جوری هست که دست پاکستانی ها هم تذکره دیده میشه خودشون درست میکند
@user-zo3he2rp5s 2 ай бұрын
این یعنی چه یعنی مدارک هویت افغانستان انقدر بی هرزش شده که هر کسی به خودش خودش درست کند جم کنید این آموزش آشغال تونو بی مصرفها
@learneverything701 2 ай бұрын
بسیار عالی یک ویدئو در باره تبدیل اعداد به حرف پشتو را جور کوو
@maherlearn 2 ай бұрын
سلام زنده باشی کوشش میکنم بخیر مه ده خدمت