Пікірлер

• 
  @AfsharAcademy114 күн бұрын

  درود و سلام ممنونم .

• 
  @maherlearn13 күн бұрын

  ممنون مه ده خدمت

• 
  @saifulmalooksahil957921 күн бұрын

  به پښتو چه رکم میشه بیادر

• 
  @maherlearn20 күн бұрын

  سلام تاهنوز آماده نشده است تنها فارسی می باشد

• 
  @rafiullahsafi78623 күн бұрын

  سیستم حسابداری بسازید برای شرکت تولیدی مثل شرکت الکوزی چقسم خریداری می‌کند چقسم تولید میشه و چقسم فروشات میشه داشبورد داشته باشه

• 
  @maherlearn20 күн бұрын

  سلام وقت کار دارد درست است

• 
  @MujtabaMuhebi24 күн бұрын

  سلام میشه یک دیتابیس جنس فروش به دانه هم باشد که چقدر فایده و چقدر در گدام باقی مانده را جور کنید

• 
  @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.khaliqkhaliqyar70452 ай бұрын

  Dear ustad,, God bless you..All people should follow your service..I understand Excel program by chasing your channel ...

• 
  @maherlearn2 ай бұрын

  Thanks Thanks

• 
  @shukransharifi58102 ай бұрын

  ❤❤❤❤❤❤❤❤❤❤❤❤

• 
  @maherlearn2 ай бұрын

  ممنون زنده باشی

• 
  @maherlearn2 ай бұрын

  تشکر

• 
  @jawadazimi86072 ай бұрын

  ❤❤❤

• 
  @hamidhabibi6332 ай бұрын

  سلام آقای محمدی در بخش پشت صحنه هیچ به ترتیب نیست و کم است میشه کمی زیاد نشر کنید پشت صحنه را و پشت صحنه از همو برنامه که نشر میشه باشد خوش میشود تشگر

• 
  @AahmadAahmad12 ай бұрын

  خلی مقبول❤❤

• 
  @maherlearn2 ай бұрын

  زنده باشی ممنون

• 
  @AahmadAahmad12 ай бұрын

  خلی عالی وجالب جناب استاد محترم❤❤

• 
  @maherlearn2 ай бұрын

  تشکر مه ده خدمت

• 
  @rezashahabi77942 ай бұрын

  خوب نفر سه کیسه ارد میفروشه هم ضریب بدی چری ماشین حساب باز کار گیریم

• 
  @rezashahabi77942 ай бұрын

  سلام اگر بخواهی از شیت اول عددی به شیت دوم منفی کنم چطور مشه

• 
  @maherlearn2 ай бұрын

  سلام میشه مشکل نیست

• 
  @rezashahabi77942 ай бұрын

  سلام خوب چطور میشه رهنمای کنید یا شماره تان را بدن تماس بگیرم ممنون @@maherlearn

• 
  @bashirshirzad54932 ай бұрын

  با گوشی میشه انجام دادم

• 
  @maherlearn2 ай бұрын

  سلام بلی میشه اگر برنامه آفیس داشته باشی ده موبایل

• 
  @rafiullahsafi7862 ай бұрын

  میشه شماره خود را روان منید

• 
  @rafiullahsafi7862 ай бұрын

  برای شرکت تولیدی دیتابیس بسازید

• 
  @maherlearn2 ай бұрын

  سلام تشکر خوب هستی ده اکسل باشد

• 
  @HamzaHamza-ry6gt2 ай бұрын

  سلام استاد کد را روان کنید

• 
  @maherlearn2 ай бұрын

  سلام درست است

• 
  @samihullahmaher61312 ай бұрын

  @@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

• 
  @sidiqullahahmadi34402 ай бұрын

  عالی بود جناب محترم

• 
  @maherlearn2 ай бұрын

  زنده باشی مه ده خدمت

• 
  @saifuddinnasratyar2 ай бұрын

  مننه

• 
  @maherlearn2 ай бұрын

  خواهش مننه

• 
  @user-zo3he2rp5s2 ай бұрын

  این کارهایی تونو جم کنید مردم دنیا برای تون میخندت

• 
  @user-zo3he2rp5s2 ай бұрын

  امین جوری هست که دست پاکستانی ها هم تذکره دیده میشه خودشون درست میکند

• 
  @user-zo3he2rp5s2 ай бұрын

  این یعنی چه یعنی مدارک هویت افغانستان انقدر بی هرزش شده که هر کسی به خودش خودش درست کند جم کنید این آموزش آشغال تونو بی مصرفها

• 
  @learneverything7012 ай бұрын

  بسیار عالی یک ویدئو در باره تبدیل اعداد به حرف پشتو را جور کوو

• 
  @maherlearn2 ай бұрын

  سلام زنده باشی کوشش میکنم بخیر مه ده خدمت