السملالي قام بنشر سبتمبر 29, 2014 مشاركة قام بنشر سبتمبر 29, 2014 بسم الله الرحمن الرحيم والصلاة والسلام على خير الأنام وآله الأعلام وأصحابه ذوي المكارم العظامالسلام عليكم ورحمة الله وبركاته مبارك عليكم العشر ذو الحجة، اعانكم الله وايانا على الوان الطاعة والتجافي عن البعد والمعاصي، والثبات على مرضات الله اللهم وفقنا لتغانم فائضات فضلك في الليالي العشر .. يا كريم يا جواد تحية طيبة ... لدي طلب من الاخوان ذوي الخبرة في المجال .. اريد ان اكتب على الشيك من خلال طابعة كانونMF4450 والشيك مرفق قياس الشيك على ما اعتقد هو 17 *8 والشيكات تجي من البنك لكن المشكلة اني خطي الله يستر والاملاء متوسط ولا اعرف عملية التفقيط والعملة المستخدمة في بلدي هي أوقية حاولت عدت مرات على الاكسل لم استطع دائما اقفل الفورم وتطلع الطباعة ماهي في مكانه هاذي مشكلتي اذا كان احد من الاخوه يستطيع المساعدة او التوجية والشكر للجميع .. وادامكم الله رابط هذا التعليق شارك More sharing options...
أم عبد الله قام بنشر سبتمبر 30, 2014 مشاركة قام بنشر سبتمبر 30, 2014 الأستاذ / السملالي السلام عليكم ورحمة الله وبركاته تابع هذا البرنامج الرائع جداً الخاص بالكتابة على الشيكات وطباعتها لأستاذنا الكبير / ضاحي الغريب جزاه الله خيراً وجعله في ميزان حسناته http://www.officena.net/ib/index.php?showtopic=54033&hl= رابط هذا التعليق شارك More sharing options...
السملالي قام بنشر سبتمبر 30, 2014 الكاتب مشاركة قام بنشر سبتمبر 30, 2014 وعليكم السلام ورحمة الله وبركاته أم عبدالله جزاكي الله خير وجعلك من اهل الفردوس الاعلى شكرا على اهتمامك بطلبات الاعضاء برنامج الاستاذ الفاضل ضاحي الغريب هو برنامج مفيد وقاية في الروعة ولكن لايخدمني حيث اني لا اعرف طريقة تعديل الملف واضافة الشيك المستخدم لدي وتعديل العمله المستخدمة لدي وقياسات الشيك غير مطابقة للموجود شكرا لتعاونكم وخدمة مجتمعكم وبنتظر الحل رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أكتوبر 1, 2014 مشاركة قام بنشر أكتوبر 1, 2014 السلام عليكم أخي الحبيب أولا بالنسبة لمقاس الشيك قابلتني مشكلة مشابهة وحللتها كالتالي صور عدة نسخات للإستخدام والتضبيط قطع الصور المنسوخة لتكون نفس مقاس الشيك جهز بيانات لشيك وهمي علي الإكسل حاول الطباعة عدة مرات مع تغيير هوامش الصفحة في الإكسل ومقاس الورقة علي الطابعة ستنجح إن شاء الله بعد محاولتين أو ثلاثة ثانيا بالنسبة للتفقيط إليك هذا الكود تغير فيه العملة والوحدات كما تشاء ثم تضعه في إعدادات الاكسل علي الجهاز وهذا الكود ليس من أعمالي أنا نسخته من المنتدي (قد يكون لأستاذنا النابغة / عبدالله باقشير) Function SpellNumber(ByVal MyNumber, _ Optional pbNum As Boolean = True, _ Optional ptCur As String = "Yuan", _ Optional ptDec As String = "Jiao", _ Optional ptPlu As String = "") Dim Curr, Decm, Temp Dim DecimalPlace, Count Dim vtPHolder As String ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " '' String representation of amount If Mid(MyNumber, 1, 1) = "-" Then MyNumber = Mid(MyNumber, 2, Len(MyNumber) - 1) End If MyNumber = Trim(Str(MyNumber)) '' Position of decimal place 0 if none DecimalPlace = InStr(MyNumber, ".") '' Convert decimal part, and set MyNumber to currency amount If DecimalPlace > 0 Then vtPHolder = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2) If pbNum = True Then Decm = GetTens(vtPHolder) Else Decm = vtPHolder End If MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp <> "" Then Curr = Temp & Place(Count) & Curr If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Curr Case "" Curr = "" Case "One" Curr = "One " & ptCur Case Else Curr = Curr & " " & ptCur & "" End Select Select Case Decm Case "" Decm = "" Case "One", "01" If Curr = 0 Or Curr = "" Then Decm = Decm & " " & ptDec Else Decm = " and " & Decm & " " & ptDec End If Case Else If Curr = 0 Or Curr = "" Then Decm = Decm & " " & ptDec & ptPlu Else Decm = " and " & Decm & " " & ptDec & ptPlu End If End Select SpellNumber = Curr & Decm End Function '******************************************* ' Converts a number from 100-999 into text * '******************************************* Function GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) 'Convert the hundreds place If Mid(MyNumber, 1, 1) <> "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If 'Convert the tens and ones place 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 '********************************************* ' Converts a number from 10 to 99 into text. * '********************************************* Function GetTens(TensText) Dim Result As String Result = "" 'null out the temporary function value If Val(Left(TensText, 1)) = 1 Then 'If value between 10-19 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 'If value between 20-99 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)) 'Retrieve ones place End If GetTens = Result End Function '******************************************* ' Converts a number from 1 to 9 into text. * '******************************************* 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 Sub list_sheets() For i = 1 To Sheets.Count ActiveCell(i, 1) = Sheets(i).Name Next End Sub رابط هذا التعليق شارك More sharing options...
السملالي قام بنشر أكتوبر 1, 2014 الكاتب مشاركة قام بنشر أكتوبر 1, 2014 وعليكم السلام ورحمة الله وبركاته... تحية طيبة استاذي الفاضل / طارق محمود شكرا عزيزي على مساعدتك في حل المشكلة واعطائي كود العملة سوف اعمل بتوصياتك انشاء الله واقوم بالتجربة والشكر موصول للنابغة الاستاذ / عبدالله باقشير جعله الله في موازين حسناتكم ورزقنا واياكم النظر الى وجهه الكريم وجميع المسلمين وتقبلو تحياتي رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أكتوبر 1, 2014 مشاركة قام بنشر أكتوبر 1, 2014 السلام عليكم الشكر واصل لاخي الحبيب طارق ..........اكرمه الله واحب ان انوه ان هذا الكود ليس لي...وجزاء الله صاحبه خيرا جزاكم الله خيرا ..........احي السملالي تقبلوا تحياتي وشكري 1 رابط هذا التعليق شارك More sharing options...
السملالي قام بنشر أكتوبر 2, 2014 الكاتب مشاركة قام بنشر أكتوبر 2, 2014 وعليكم السلام ورحمة الله وبركاته اسعدني مرورك اخي الكريم رابط هذا التعليق شارك More sharing options...
على قام بنشر أكتوبر 2, 2014 مشاركة قام بنشر أكتوبر 2, 2014 اين يتم وضع الكود بالتحديد رجاء رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر أكتوبر 2, 2014 مشاركة قام بنشر أكتوبر 2, 2014 أخى الكريم الأخ الفاضل / طارق أصاب فأجاد لأنها أفضل طريقة أما الكود يوضع فى مديول رابط هذا التعليق شارك More sharing options...
ضاحي الغريب قام بنشر أكتوبر 3, 2014 مشاركة قام بنشر أكتوبر 3, 2014 اخي الكريم / السلام عليكم تمت التجربة علي طابعة Hp laser Jet 3050 يمكن تختلف عن الطابعة لديك اليك التجربة وحاول تضبيط اماكن الخلايا في الشيت بما يتناسب مع شكل الطباعة لديك وكما اشاد اخي م / طارق قم بتصوير الشيك عدة صور وقصها بنفس حجم الشيك الاصلي وجرب حتي يضبط معك او هناك طابعات مخصصة للطابعة علي الشيكات البرنامج بعد تعديله الشيك بعد الطباعة الشيكات الأصدار الثاني - أوقية.rar 2 رابط هذا التعليق شارك More sharing options...
السملالي قام بنشر أكتوبر 12, 2014 الكاتب مشاركة قام بنشر أكتوبر 12, 2014 الاستاذ الفاضل / ضاحي الغريب جزاك الله خيرا وجعلك من الذين لاخوف عليهم ولاهم يحزنون جاري التحميل بأذن الله والتجربه ......... وفقني الله ووفقك لما يحبه ويرضاه رابط هذا التعليق شارك More sharing options...
السملالي قام بنشر أكتوبر 13, 2014 الكاتب مشاركة قام بنشر أكتوبر 13, 2014 السلام عليكم ورحمة الله وبركاته تحية طيبة .... استاذي الفاضل / ضاحي الغريب تم تحميل الملف المرفق بالامس وعند محاولت التعديل عن طريق الضغط على F11 + Alt يفتح الفيوجل لاكن يطلب رقم سري عند طلب التعديل على التصميم الملف محمي ضد التعديل حيث اني اريد تحرير منطقة التاريخ وتحويلها اسفل الخط الموجود تحت لفائدة وبجوارها اضافة اسم الفرع هل هناك حل اخر . وشكرا .. ودمتم لحسن تعاونكم ... رابط هذا التعليق شارك More sharing options...
ضاحي الغريب قام بنشر أكتوبر 13, 2014 مشاركة قام بنشر أكتوبر 13, 2014 السلام عليكم ورحمة الله وبركاته تحية طيبة .... استاذي الفاضل / ضاحي الغريب تم تحميل الملف المرفق بالامس وعند محاولت التعديل عن طريق الضغط على F11 + Alt يفتح الفيوجل لاكن يطلب رقم سري عند طلب التعديل على التصميم الملف محمي ضد التعديل حيث اني اريد تحرير منطقة التاريخ وتحويلها اسفل الخط الموجود تحت لفائدة وبجوارها اضافة اسم الفرع هل هناك حل اخر . وشكرا .. ودمتم لحسن تعاونكم ... عليكم السلام ورحمة الله وبركاته أخي الكريم / السملالي اعتذر منك لم انتبه ان محرر الاكواد مغلق الملف مفتوح بالمرفقات ان احتجت لشيء لا تترد في طلبه تقبل تحياتي الشيكات الأصدار الثاني - أوقية.rar رابط هذا التعليق شارك More sharing options...
السملالي قام بنشر أكتوبر 22, 2014 الكاتب مشاركة قام بنشر أكتوبر 22, 2014 بسم الله الرحمن الرحيم تحية طيبة استاذي الفاضل /ضاحي الغريب اتأسف لنقطاعي بسبب قرب موسم الحصاد لدينا ولكن بعد عدة محاولات للأسف لم استطع التعامل مع الملف بسبب قلت الخبرة لدي وجدة برنامج Cheque Maker مع مفتاح التسجيل واشتغلت عليه ولكن فيه عيب كتابت الارقام بالحروف حيث عندما تكتب 400000 يكتب اربعمئة الف واظن والله اعلم انها اربعمائة الف . هل استطيع ان اصحح مثل هاذي الاخطاء في البرنامج وماهي الطريقة اذا امكن ؟ واشكر لك حسن المعاملة واتحرج من كثرة الاستفسارات واشغالك عن ماهو اهم ادامكم الله ونفع بكم المسلمين انه سميع مجيب رابط هذا التعليق شارك More sharing options...
السملالي قام بنشر أكتوبر 24, 2014 الكاتب مشاركة قام بنشر أكتوبر 24, 2014 للرفع لعلي اجد الاجابة جزيتم خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان