ياسر خليل أبو البراء

الأخ السائل قم بالولوج إلى Visual Basic Editor ثم من قائمة Tools اختر VBAProject Properties ومن التبويب Protection قم بوضع كلمة سر للمشروع وتأكيد كلمة السر ، ثم قم بحفظ الملف والخروج وفتحه مرة أخرى أخوك أبو البراء

نعم لقد قمت بتجربته وأفلح قم بنسخ الكود ثم اضغط على نموذج المستخدم ثم بزر الماوس الأيمن ثم اختر View Code ثم قم بلصق الكود وأخيراً قم بتشغيل الكود عن طريق الضغط على F5 ثم شاهد النتيجة ظهور Minimize في الفورم أخوك أبو البراء

أخي وحيد صبور إليك هذه المعادلة قم بكتابتها في الخليةc1 ثم قم بسحبها =IF(A1<51;"1";A1*2%) أخوك أبو البراء

جرب الطريقة التالية قم بتحديد الخلايا المراد تحويل الأرقام فيها إلى Text ثم تنسيق خلايا ثم Custom واكتب في مربع النص تحت العنوان Type: اكتب '@ ثم اضغط موافق أخوك أبو البراء

أخي أحمد حافظ تحية عطرة مني تقوم هذه الدالة بتحويل التكست إلى أرقام ، مع مراعاة تنسيق الخلايا أيضاً إلى General ماهي علامةا لتكست التي تتحث عنها ، هل تقصد Single Quote ' أم ماذا؟

الأخ أحمد إذا كنت تقصد دورة الفيجوال بيسك للتطبيقات VBA فها هو رابط الدورة الجديدة http://www.officena.net/ib/index.php?showtopic=29207&st=0 أخوك أبو البراء

مفيش أي رد ولو بالسلب!!! عذراً لم أتعود منكم ذلك أخوكم أبو البراء

جميل جداً أخ يحيى معلومات رائعة كالعادة بس فيه تعليق بسيط أنا أريد ألا يتم تجاهل الخلايا الفارغة بمعنى إذا كان هناك خلايا فارغة فلا يتم تحديدها داخل النطاق أريد فقط النطاق الذي به بيانات أخوك أبو البراء

أخي أبو عمار عمل رائع وممتع حقاً ياريت عندي سؤال حول الاختصار الي يقوم بتحديد النطاق بأكمله ( أقصد النطاق الذي به بيانات) مثلاً لو عندي نطاق D2:E10 ووقفت في D2 وأردت تحديد النطاق الذي به بيانات ، ماهو الاختصار المناسب؟؟؟ جربت الاختصار Ctrl+End لكنه لم يفلح معي في بعض المواقف ولاأدري السبب!!!!!!! أخوك أبو البراء

أخي قطان بالبحث في المنتديات الأجنبية وجدت الحل ولكنه طويل بعض الشيء الكود منقول من إحدى المنتديات Option Explicit Private Declare Function FindWindow _ Lib "user32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) _ As Long Private Declare Function GetWindowLong _ Lib "user32" _ Alias "GetWindowLongA" ( _ ByVal hWnd As Long, _ ByVal nIndex As Long) _ As Long Private Declare Function SetWindowLong _ Lib "user32" _ Alias "SetWindowLongA" ( _ ByVal hWnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) _ As Long Private Declare Function DrawMenuBar _ Lib "user32" ( _ ByVal hWnd As Long) _ As Long Private Const GWL_STYLE As Long = (-16) Private Const WS_SYSMENU As Long = &H80000 Private Const WS_MINIMIZEBOX As Long = &H20000 Private Const WS_MAXIMIZEBOX As Long = &H10000 Private Sub UserForm_Activate() Dim Frmhdl As Long Dim lStyle As Long Frmhdl = FindWindow(vbNullString, Me.Caption) lStyle = GetWindowLong(Frmhdl, GWL_STYLE) lStyle = lStyle Or WS_SYSMENU lStyle = lStyle Or WS_MINIMIZEBOX lStyle = lStyle Or WS_MAXIMIZEBOX SetWindowLong Frmhdl, GWL_STYLE, (lStyle) DrawMenuBar Frmhdl End Sub انقل الكود إلى صفحة الأكواد الخاصة بنموذج المستخدم أخوك أبو البراء

السلام عليكم كيف حالكم إخواني؟ أريد إدراج مساعد الأوفيس في الأوفيس 2007 حيث أنه غير متاح ، ومش عارف ليه؟؟ هل من الممكن إدراجه في أوفيس 2007؟؟؟

الأخت مها طه أسعد الله مساءك ظهرت المشكلة في أنك جعلت المعادلة نسبية بالنسبة للنطاق ومن المفترض أن تكون مطلقة ، وذلك بإضافة علامة الدولار $ في المدى هكذا =IF(ISNA(VLOOKUP(A4;الاسماء!$B$4:$C$1100;2;FALSE));"";VLOOKUP(A4;الاسماء!$B$4:$C$1100;2;FALSE)) مع مراعاة الترقيم الصحيح للعمود A بدايةً من A4

الأخ قطان أسعد الله مساءك قم بكتابة الكود UserForm1.Show في إجراء باسم Show مثلاً وذك في موديول Sub Show() UserForm1.Show End Sub في أوفيس 2007 اختر Excel Options ثم التبويب Customize ثم من القائمة المنسدلة Choose Commands From: اختر Macros ثم حدد الماكرو Show ثم اضغط Add يمكنك النقر على Modify لتعديل شكل الأيقونة التي ترغب بها......بهذا يكون تم إضافة زر لإظهار الفورم بالنسبة لتضغير الفورم ليس لدي فكرة!!! أخوك أبو البراء

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

أخي سالم شباني آسف مكنتش فتحت الإيميل عشان كدا مشفتش الواجب غير دلوقتي الواجب جميل ولكن يبدو أنك استخدمت مسجل الماكرو إذ أن الكود مكتوب في 4 أسطر ، ويكفي سطر واحد لتنفيذه ( أقول مرة أخرى اقرأ جيداً الدرس ولا تتعجل ) أخي الحببب أحمد حافظ Range(A1, B5).Copy Destination = Range("G6").Paste أظن أن المشكلة التي صادفت أخي سالم هي نفس المشكلة التي صادفتك ، ولعلك عرفت الحل والسبب في هذه المشكلة!! أما بالنسبة للواجب : أولا: لتحديد مدى يتم استخدام الكائن Range ثم افتح قوس ) وأضف علامة اقتباس " ثم اكتب بداية المدى وليكن هنا A1 ثم : ثم نهاية المدى وليكن كما في المثال B5 ثم أغلق بعلامة اقتباس أخرى ثم القوس ( بالنسبة للبارامتر Destination يتم وضع : بعده ثم علامة يساوي = وتكون هكذا Destination:= أما بالنسبة للطريقة Paste فلا داعي لاستخدامها في سطر الكود إذ أن كلمة Destination تغني عنها وهنا سؤال هام أخي أحمد :هل جربت تنفيذ الكود قبل أن ترفق ملفك؟؟؟؟؟؟؟؟؟؟؟؟؟؟ أرجو منكم قراءة الدروس بتركيز أخوكم أبو البراء

أخي الحبيب / سالم شباني أولاً : أشكرك على بدء المتابعة ثانياً : الوجاب فين ؟؟؟ ثالثاً : هل قرأت الدرس جيداً وعلمت أنني كتبت هذا الكود لتنفيذه في النافذة الفورية Immediate Window رابعاً : يمكن تنفيذ الكود بطريقة عادية في الموديول أيضاً ( وهذا ما أعتقد أنك قمت بعمله ، إذ أن رسالة الخطأ تختلف من مكان لآخر ففي النافذة الفورية تظهر رسالة الخطأ Invalid watch expression أما في الموديول تظهر الرسالة التالية Invalid or unqualified reference أي أن المرجع غير صحيح كما ذكرت خامساً : لو أردت التعلم حقاً فعليك كتابة الكود وليس نسخه ولصقه!!!!!!! سادساً : حتقولي عرفت إزاي ؟؟؟ حقولك إن الVBE حساس جداً للفواصل والنقط والمسافات ( في المثال فيه مسافة بعد ActiveCell احذف المسافة وقوللي ع النتيجة ) سابعاً : ياريت متنساش تكتب الكود يدوي أفضل ( أفضل طريقة لتعلم الأكواد حتى تتعود على كتابة الكود ) ثامناً : آسف للإطالة تاسعاً : بارك الله فيك وإلى الأمام دائماً أخوك أبو البراء

السلام عليكم أيها الأخوة الكسالى إليكم واجب اليوم سؤال واحد مفيش غيره ( أنا قلت أخفف الواجب عشان تقدروا تعملوه !!!) قم بكتابة بعض البيانات في المدى A1:B5 ثم قم بعمل كود ينسخ المدى إلى الخلية C6

السلام عليكم ورحمة الله وبركاته كيف حالكم إخواني؟ أرجو أن تكونوا بخير وأن تستفيدوا مما أضعه هاهنا إليكم الجزء الرابع أخوكم أبو البراء ChapterOne_4.rar

أخي يحيى أسعد الله صباحك تليفونك نقلته من أحد الملفات وزودت عليه مفتاح الأردن بس بيديني إنه مغلق!!! كنت برن بس عشان أصبح عليك عموماً الملف جميل وهو ما كنت بصدد عمله لكن كان ينقصني الجدول الخاص بنسب الاستقطاع وكنت سأتبع نفس الأسلوب الجميل اللي حضرتك اتبعته سبقتني وكالعادة دائماً أنت سباق!!!!!!! أخوك أبو البراء

يللا شوية يا إخوة عايز أشوف منكم همة !!! لم أرى إذن برفع الدرس الرابع ، لو الدروس اللي فاتت فيها حاجة صعبة ياريت نسأل ؟؟ ولو مافيش حاجة صعبة إيه اللي معطلكم مش عارف ! أنا مستنيكم ع العموم ............ أخوكم أبو البراء

طال انتظاري ياأخ سالم وبعدين الكلام الجميل المعسول دا كله مش حينسيني إنك معملتش الواجب!! الأخ محمود بن عوض ياترى ناوي تخش المغارة ولا إنت بتخاف من الضلمة؟؟! أخي أبو عبد الرحمن أمرك ياسيدي مفيش عجلة ولا موتوسيكل ولا عربية خلينا ماشيين على رجلينا وحدة وحدة !! بس ياريت نمشي عشان نوصل بدري وعلى رأي الشاعر اللي معرفش اسمه : من صحى بدري ومشى بدري ... صار مبرمجاً ولا يدري أخوكم أبو البراء

أخي أبو فراس لو أمكن ممكن نسب الاستقطاع في جدول بالتفصيل ، لإني لاحظت إنك ذكرت نسبتين فقط من الثمانية اللي إنت ذكرتهم يا ريت يكون الطلب أكثر وضوحاً !!! أخوك أبو البراء

إخواني الكرام أنا مستني منكم الإذن لرفع الدرس الرابع ، فيا ريت شوية همة وعزيمة الله يكرمكم أخوكم أبو البراء

إليكم إخواني الإيميل الخاص بي بس ياريت تكتب أوفيسنا في أول عنوان الموضوع حتى لا أتجاهله yakh777@yahoo.com أخوكم أبو البراء

أخي الكريم قم أولاً بتحديد خلايا الورقة كلها ثم تنسيق خلايا ثم التبويب حماية ثم قم بإزالة علامات الصح من جانب الخيارين Locked و Hidden حدد الخلايا المراد عمل حماية لها ثم تنسيق خلايا ..... وضع علامة صح بجانب الخيار locked اختر الأمر Protect Sheet ثم ضع كلمة السر وتأكيدها ثم موافق عندئذ يكون تم عمل المطلوب بارك الله فيك