يحيى حسين

السلام عليكم و رحمة الله و بركاته أخي هذا كود تفقيط بالدولار و هو من موقع مايكروسوفت Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' String representation of amount. MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none. DecimalPlace = InStr(MyNumber, ".") ' Convert cents and set MyNumber to dollar amount. If DecimalPlace > 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Dollars & " Dollars" End Select Select Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " and " & Cents & " Cents" End Select SpellNumber = Dollars & Cents 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</P> <P> و هو موجود على هذا الرابط http://support.microsoft.com/kb/213360/en-us و بعد ان تضيفه داخل موديول في الاكسيل اكتب داخل اي خلية ترغم في التفقيط داخلها الدالة التالية و على ان يكون الرقم داخل الخلية A1 =SpellNumber(A1) هذا بخصوص الدولار الامريكي اما بخصوص الريال السعودي هل تريد كتابة الريال السعودية كيف تريد كتابة كلمة ريال RS ام كلمة كاملة و ما هو لفظ العملة الفرعية في الريال السعودي بدل من السنت الامريكي و دمت في حفظ الله

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

السلام عليكم و رحمة الله إخواني في الله كثيرة هي المشاركات هنا و كثيرة هي الحلول التي يقدمها الأخوة جزاهم الله كل خير و لكن عندي اقتراح فيما يخص الاجوبة التي تحتوي على اكواد بأن يتم كتابة الكود في المشاركة بحيث يكون ظاهراً في المشاركة بدلاً من تضمينه في الملف و ذلك يؤدي أكثر من هدف أو غايةو و منها : - ان هذه الطريقة ستساعد الاخوة في فهم مكان وضع الكود سواء اكان في موديول او في حدث صفحة ... الخ . - يمكن الإطلاع على المشاركة بدون تحميل الملف و هذا بدوره تلقائياً سيخفف من عدد الملفات المحملة على الموقع . - يسهل من آلية مناقشة الكود ما بين من قام بتقديم الكود و من سيستخدمه و طرح افكار من الأعضاء الأخرين بخصوص الكود . - هذه الطريقة ستساعد كثير من الاخوة على فهم آلية عمل الكود و ترتيب الأحداث في الكود . - ستشجع هذه الطريقة الاخوة على تقديم شروحات مفصلة حول اكوادهم . راجياً ان يلاقي اقتراحي قبولاً لديكم

حياك الله اخي عماد و شكرا لك اخي الحبيب طارق على مرورك الطيب و دمتم في حفظ الله و رعايته

السلام عليكم و رحمة الله و بركاته إستكمالاً لموضع سابق كنت قد بدأت به و هو مكتبة الإكسيل و الVBA http://www.officena.net/ib/index.php?showtopic=22041 أحببت أن أرفع لكم مجموعة جديدة من الكتب و عددها إثنان و عشرون كتاباً و كلها من الروائع و يوجد بها مجموعة متخصصة من الكتب و هي : 1. Excel for Auditors 2. Excel For Marketing Manager 3. Excel For The CEO 4. Excel for the Math Classroom 5. Excel 2007 for Scientists and Engineers أما باقي الكتب فهي 1. Beginning Excel What-If Data Analysis Tools 2. Beginning Pivot Tables in Excel 2007 3. Encyclopedia of Chart Patterns 4. Excel 2003 In PicturesS 5. EXCEL 2007 CHARTS MADE EASY 6. Excel Best Practices for Business 7. Excel Hacks 2nd Edition 8. Excel Programming Weekend Crash Course 9. Excel VBA Macro Programming 10. Guerilla Data Analysis Using Microsoft Excel 11. Excel 2007 VBA Programming for Dummies 12. Learn Excel 2007 From Mr Excel 13. Microsoft Excel VBA Programming for the Absolute Beginner 14. Power Excel and Word 15. Vba for Excel Made Simple و أخيراً هذين الكتابين و ما يميزها انهما يحتويان على ملفات الإكسيل التي تم الشرح عليها داخل الكتب و احدهما يحتوي بعض شروحات الفيديو من نفس المؤلف 1. Excel 2007 Advanced Report Development 2. Pivot Table Data Crunching for Microsoft Office Excel 2007 و من خلال هذا الرابط يمكنكم الحصول على المكتبة كامل http://www.4shared.com/dir/5779926/488c5a3..._VBA_Books.html راجياً من الله ان تحقق الفائدة المرجوة منها و أن يكون لي نصيب من دعائكم في ظهر الغيب بالشفاء ربنا آتنا في الدنيا حسنة و في الآخرة حسنة و قنا عذاب النار و صلي اللهم على الحبيب المصطفى صلى الله عليه و سلم و على آله و أصحابه الطيبين الأبرار

أخي أدم عذراً لم ألاحظ ردك

اخي لكتابة الأوامر في الاكسيل يجب أن يكون لديك إلمام بلغة البرمجة VBA و لقد قام احد الاخوة بعمل دورة في هذا الموضوع يمكنك مراجعتها من خلال هذا الرابط http://www.officena.net/ib/index.php?showtopic=27109 و دمتم في حفظ الله و رعايته

السلام عليكم حدد العمود و من ثم من القائمة Data قم باختيار Validation و من Validation قم باختيار list و من خلال ستستطيع اضافة البيانات للقائمة

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

السلام عليكم و رحمة الله اخواني اكسيل 2007 اعطانا اكثر من امتداد لحفظ الملفات الامتداد القديم للاكسيل 2003 xls و الامتداد الجديد للاكسيل 2007 xlsx فعند الحفظ من 2003 الى 2007 تظهر لنا هذه الخيارات و في طبيعة الحال نختار الخيار الاول و هو ما سيعطينا الامتداد xlsx و لكن مايكروسوفت عطلت عمل الوحدات في الماكرو من خلال هذا الخيار و استبدلته بالخيار الثاني Excel Macro-Enable WorkBook و هو ما سيعطينا الامتداد xlsm و من خلاله سيستمر عمل الاكواد القديمة بدون أي مشاكل إن شاء الله و لاحظ ايضاً اختلاف اشكال الايكونات لكل امتداد فالايكون التي تخص 2007 و بها كود تظهر و عليها علامة تعجب كما هو واضح في الصورة اول ايكون : ملف به اكواد 2007.xlsx لم يتم تخزين الاكود به ثاني ايكون : ملف به اكواد 2007.xlsm يحتوي اكواد و يوجد علامة تعجب على الايكون ثالث ايكون : ملف به اكواد 2003.xls و هو النظام القديم الذي يخص 2003 أتمنى ان تكون قد وضحت الصورة للجميع

شكراً لجميع الأخوة على هذه الكلمات الجميلة و أتمنى الفائدة للجميع

بعد إذن الأخ عمودي يمكنك ايضا الابقاء على التنسسق كرقم و لكن في خانة التخصيص ضع أصفار بعدد رقم المفتاح الدولي فعلى سبيل المثال لكي تمكتب رقمك اعلاه مع الاصفار ضع في خانة التخصيص للرقم 00000 خمس اصفار و من ثم اكتب الرقم 978 بدون اضافة الصفرين و سيقوم الاكسيل تلقائياً باضافتهما أتمنى ان تكون الفكرة واضحة

أخي الامر سهل ان شاء الله ضع المؤشر في الخلية E12 و من ثم قم باختيار تجميد الاعمدة و سيقوم تلقائياً بتجميد الاعمدة و الخلايا التي تعلوه

أخي بخصوص الخيارات و الفرق بينهما الخيار الثاني الذي يتعامل مع ActiveX اقوى من الخيار الاول و به ميزات برمجية كثيرة و يعتبر اعقد من الخيار الاول أما بخصوص مشاركتك الثانية فالاخ طارق ما شاء الله يقوم بتغطية المطلوب بخبرته و قدراته الرائعة و دمتم في حفظ الله و رعايته

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

أخي هناك مجموعتين من الازرار المجموعة الاولى Form Control و منها قم بادراج الزر حيث ستظهر لك مباشرة شاشة ربط الزر بالماكرو و المجموعة الثانية ActiveX Controls لاحظ الصورة و اتمنى لك التوفيق

بارك الله فيك اخي محمد و شكرا لك

جزاك الله كل خير اخي محمد موضوع جميل و قوي و نحن فعلاً بحاجة لها و لي سؤال عن القرآة انا احب القرآة كثيراً و أقرأ في كل المجالات و لكن عندي مشكلة و هي اني اسرح او بالعامية أشت بمعنى ان أقرا و اكون افكر في امر اخر مما يجعلني اعيد قراءة الصفحة مرات ومرات في بعض الاحيان فهل القراءة السريعة تحل هذه المشكلة و دمت في حفظ الله و رعايته

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

أخي آدم بمجرد ادراج زر في صفحة الاكسيل ستظهر مباشرة شاشة Assign Macro و منه اختر اي ماكرو ترغب بربطه بالزر ثم اختر ok و سيتم كل شيء كما تريد إن شاء الله و في هذه الصورة بعض التوضيح

السلام عليكم اخواني هذا رابط اخر للاسطوانة بدون كلمات سر http://www.4shared.com/dir/6234292/c68f5d3e/vba_Cds.html

السلام عليكم و رحمة الله و بركاته أخي ادراج الازرار في الاكسيل 2007 سهل ان شاء الله من الشريط Devloper كما هو موضح في هذه الصورة و اذا لم يكن الشريط Devloper موجود عندك يمكنك اضافته من خلال زر الوفيس ثم Excel Option و كما هو موضح في هذه الصورة أتمنى ان تكون قد اتضحت لك الامور

أخي خبور بارك الله لك في علمك دائماً في انتظار ابداعاتك

عذرا اخي نزار لم ارى ردك :)

أخي الامر بسيط استخدم هذا الامر في العمود الذي ترغب في دمج الخلايا به =E12&" " &G12& " "& F12