شوقي ربيع

السلام عليكم شاهد المشاركة 7 وستفهم سبب المشكل

السلام عليكم الاخ العزيز ضاحي الغريب الاخ العزيز قنديل الصياد والاخ ناصر سعد شكرا جزيلا لمروركم ولكلماتكم الطيبة لكم مني فائق الاحترام والتقدير هذه المشكلة ناتجة لعدم توافق حزمة البانات الخاصة بعناصر التحكم لديك مع الحزمة التي استخدمتها في تصميم البرنامج وتحديدا حزمة عنصر التحكم ImageList فلو تلاحظ عند فتحك لمحرر الاكواد وتبحث عن عنصر ImageList فلن تجده لان الحزمة التي استخدمتها احدث من التي لديك وهذا يعود الى تحديثات الوينداوز فانا استعمل Wn8 مع اخر تحديث لها وانت ممكن تكون على Wn7 or WnXP في الحقيقة هته المشكلة تأرقني دائما فهي تمنعني من استعمال بعض العناصر المميزة كا ImageList او ListVeiw رجو ان تكون قد فهمت سبب المشكلة واعتذر لكل من لم يشتغل معه البرنامج بسبب هذا المشكل كما انه للاسف عندي جهاز واحد فقط لكي اجرب عليه الملف يعني اذا اردنا استعمال هته الادوات واردنا جعلها تشتغل على جميع النسخ من الوينداوز هناك طريقتان الاولى ان نبرج على اوفيس 2003 وانا شخصا بدات الاكسل على نسخة 2007 والتي افضل استعمالها والطريقة الثانية هي تضمين حزمة بيانات مع المرفق وهذي صعبة شوية لانه اولا راح يكون حجم البرنامج كبير جدا وايضا هته الطريقة تستعمل مع البرامج الكبيرة والمحترفة والموجهة للتسويق وما نقوم به هنا هو مجرد مساهمات بسيطة لا غاية منها سوى الافادة لذى اكرر اعتذاري الشديد الى كل من لم يشتغل معه البرنامج

السلام عليكم سيقتصر شرحي على الفورم ان كنا سنتعامل نع مجموعة من الصور من الاحسن ان نرفق مجلب يكون على نفس مسار ملف الاكسل اولا كود معرفت مسار الملف الحالي P = ActiveWorkbook.Path & "\Image\" ActiveWorkbook.Path هي مسار الملف Image اسم المجلد الذي سنخزن فيه الصور ثانيا كود جلب الصورة قم بانشاء فورم وانشاء داخله CommandButton و Image لاستدعاء صورة من المجلد الى الفورم نطبق الكود الاتي Me.Image1.Picture = LoadPicture(P & "NamImage.jpg") NamImage هو اسم الصورة التي نريد استدعائها و لا تنسا صيختها هذه ابسط الطرق لجلب صورة الى فورم يبقى عليك مطابقة اسماء الصور مع فهرسة البيانات لديك في الملف لكي تستطيع الربط بينها وبين الصور فمثلا لو اسمينا الصور على حساب مسلسل البيانات عند استدعاء بينات العنصر رقم 1 مثلا يجب ان يكون اسم الصورة هو 1 في مجلد الصور وهكذا بالنسبة لبقية المسلسل لكي تتطابق الصور مع البيانات ارجو ان اكون قد وفقت ولو قليلا في ايصال الفكرة تحياتي

بسم الله الرحمان الرحيم السلام عليكم برنامج دليل الهاتف هذا ليس الاول الذي يطرح في المنتدى يعني الفكرة ليست جديدة لاكن ,,,,,,,,, المغزى من تصميمي لهذا البرنامج هو الجانب الجمالي اكثر منه الجانب التقني كما يعلم الجميع ان امكانيات VBA ليست بالكبيرة من ناحية التصام الخاصة بالفورم شخصيا سأمت من الفورمات والازرار الكلاسيكية مع هذا البرنامج ستكتشفون التقنية الازمة لجعل شكل الفورم مميز وجذاب الى اقصدى الحدود ا ابدأ اولا مع تعريف البرنامج جعلت الملف ملف Setup يثبت على الجهاز كأي برنامج بالطريقة المعروفة لدى الجميع بعد تثبيت البرنامج ستجد ايقونته على سطع المكتب واجهة البرنامج هذا هو الفورم الذي اتحدث عنه أولا لاضافة البيانات اضغذ على زر جديد ثم اختر مجموعة ثم املئ البيانات الازمة ومن صورة ادراج صورة اختر الصورة التي تريد اراجهاط حفظ ثانيا للتعديل ابحث عن بيانات الشخص التي تريد تعديلها بواسطة مربعات البحث حيث تتوفر اربع خيارات للبحث حسب الاسم او اللقب او الهاتف او البريد اما قائمة المجموعات تجلب لك جميع الاسماء المدرجة تحت المجموعة المختارة بعد ايجادك للبيانات التي تريد تعديلها اضغط عليها من اليست لكي تضهر البيانات في التكسات عدل ماتريد وكدالك يوجد امكانية تعديل الصورة بعد اتمامك التعديل اضغط حفظ ثالثا للحدث نفس الامر كما التعديل وانما اضغذ حذف رابعا اضافة او تعديل مجموعة لاتمام ذالك اضغط على الايقونة الجرارة بجانب ليست المجموعات ليضهر لك الفورم التالي لتعديل اضغط على المجموعة تضهر لك امبوبوكس اكتب الاسم الجديد ثم اوك للا ضافة اضغط اضافة تضهر امبوبوكس اكتب فيها اسم المجموعة الجديدة ثم اوك ولمن يسأل عن الطريقة للوصول الى هذا الشكل الامر بسيط اولا قم بتصميم واجهة البرنامج باي برنامج تجيده كالفوتو شوب مثلا شخصيا استعملت الاكسل في التصميم ثم اجعله كخلفية للفورم الخاص بك ومن اجل الحواف والانحناءات ,,,, شاهد هذا الموضوع حركة جديدة (اجعل الفورم يأخذ اي شكل تريده) ولتفعيل عجلت المواس كما هو في هذا البرنامج شاهد تفعيل عجلة الماوس في اليست بوكس و الكومبوبوكس يبقى الخاصية التي استعملتها مع الازرار وهي كالاتي اولا قم جميع بتصميم الازرار الازمة للبرنامج ثم ادرج ImageList في المشروع الذي تعمل عليه وخن جميع صور الازرار فيه وهذا الكود المستعمل لجعل Image تأخد الصورة التي نريد ان تأخذها Me.Image1.Picture = ImageList1.ListImages(1).Picture ملاحضة عندما تكون في وضع الفورم وتريد العودة الى ملف الاكسل اضغط Alt+B الرقم السري 1111 اترككم مع المرفق و ارجو ان لا أكون قد اطلت عليكم كما ارجو ان ينال البرنامج اعجابكم وتن تستفيدومنه ولاي استفسارات أنا في الخدمة تحياتي للجميع اخوكم في الله (شوقي ربيع) البرنامج بصيغة الملف التنفيذي Telephone book.rar البرنامج بدون صيغة الملف التنفيذي Telephone book Excel.rar نسخة متوافقة مع جميع انظمة التشغيل للاخوة التي ظهرت عندهم مشكلة مع البرنامج بتاريخ اليوم 2014/04/16م نسخة متوافقة لجميع نظم التشغيل.rar

السلام عليكم الكود يعمل 100/100 وهذا الملف المطبق عليه الكود كيف يمكن تطبيق هذا الكود.rar

1111 غيره بالباسورد الحماية لديك Sub Test() If Date >= CDate("15/05/2014") Then ActiveSheet.Unprotect (1111) For Each cl In ActiveSheet.UsedRange If cl.HasFormula Then cl.Value = cl.Value Next ActiveSheet.Protect 1111, DrawingObjects:=True, Contents:=True, Scenarios:=True End If End Sub

السلام عليكم هذا كود بسيط لمحوى جميع المعادلات في أي صفحة عمل كانت ويضع مكانها القيمة التي تحويها يجب الغاء الحماية ليعمل الكود Sub Test() For Each cl In ActiveSheet.UsedRange If cl.HasFormula Then cl.Value = cl.Value Next End Sub

السلام عليكم طلبك غير مفهوم انت تقول مثلا عند ترحيل البنوك يتم ترحيل جميع الاعمدة لان مجموع الاعمدة لايساوي الصفر OK لاكن في العقود تقول لا يتم ترحيل العمود j لانه مجموعه صفر لاكن مجموعه لا يساوي الصفر في الملف المرفق وكذالك نفس الامر للعمود l بالنسبة للخزينة الرجاء التوضيح اكثر

Sub Test() Dim i As Long For i = 1 To 4798 Step 40 If Range("M" & i) = "A" And Rows(i).EntireRow.Hidden = False Then Rows(i & ":" & i + 39).EntireRow.Hidden = True Else Rows(i & ":" & i + 39).EntireRow.Hidden = False End If Next End Sub

السلام عليكم هذا الملف يشتغل على أي جهاز دون الحاجة لتخفيض مستوى امان الماكرو présence.rar

السلام عليكم اولا انشاء في ورقة العمل CommandButton وليس Button و اجعل (Caption) تسميته Hide ثم دبل كليك عليه ثم انسخ فيه هذا الكود If Me.CommandButton1.Caption = "Hide" Then With 1 Lr = .Cells(.Rows.Count, 1).End(xlUp).Row For I = 1 To Lr Step 40 If .Range("M" & I) = 0 Then Rows(I & ":" & I + 39).EntireRow.Hidden = True End If Next End With Me.CommandButton1.Caption = "Show" Else With 1 Lr = .Cells(.Rows.Count, 1).End(xlUp).Row For I = 1 To Lr If Rows(I).EntireRow.Hidden = True Then Rows(I).EntireRow.Hidden = False Next End With End If

السلام عليكم مازلت تكتب الكود بطريقة خاطائة الكود يكون هكذا Sub Test1() ' ?CI?C? C????? ??I E???? C?O?? With 1 Lr = .Cells(.Rows.Count, 1).End(xlUp).Row For I = 1 To Lr Step 40 If .Range("M" & I) = 0 Then Rows(I & ":" & I + 39).EntireRow.Hidden = True End If Next End With End Sub Sub Test2() ' ?C??C? C????? C??I??E With 1 Lr = .Cells(.Rows.Count, 1).End(xlUp).Row For I = 1 To Lr If Rows(I).EntireRow.Hidden = True Then Rows(I).EntireRow.Hidden = False Next End With End Sub .انا لم ارفقه في الملف لكي تتعلم طريقة التركيب

غير عبارة With Feuil1 في كلا الكودين الى اسم الشيت لديك

السلام عليكم Dim Lr As Long, I As Long Sub Test1() ' áÇÎÝÇÁ ÇáÕÝæÝ ÚäÏ ÊÍÞíÞ ÇáÔÑØ With Feuil1 Lr = .Cells(.Rows.Count, 1).End(xlUp).Row For I = 1 To Lr Step 40 If .Range("M" & I) = 0 Then Rows(I & ":" & I + 39).EntireRow.Hidden = True End If Next End With End Sub Sub Test2() ' áÇÖåÇÑ ÇáÕÝæÝ ÇáãÎÝíÉ With Feuil1 Lr = .Cells(.Rows.Count, 1).End(xlUp).Row For I = 1 To Lr If Rows(I).EntireRow.Hidden = True Then Rows(I).EntireRow.Hidden = False Next End With End Sub

السلام عليكم الخطاء موجود في الحلقة التكرارية اجعله هكذا For i = 12 To Lr If sh.Range("B" & i) = Des And sh.Range("C" & i) = P_Un Then sh.Range("D" & i) = sh.Range("D" & i) + Qté Next

السلام عليكم لايوجد أي سر في الكود اعتقد ان تسمية الورقة التي يرحل اليها المخزون هي السبب ان كانت مختلفة عن اسم الورقة في الملف الذي ادرجته (Stocks) قم بتغير التسمية في هذا الكود فقط كما هي لديك في الملف الاصلي Set sh = ThisWorkbook.Sheets("Stocks")

السلام عليكم حذف.rar

السلام عليكم mido fone.rar

اضن انك تقصد هذا Sub Test() With ListBox1 For r = 0 To .ListCount - 1 Cells(r + 1, 6) = .List(r, 0) Cells(r + 1, 7) = .List(r, 3) Next End With End Sub ترحيل العمود الاول والرابع باكملهما

Private Sub ListBox1_Click() With Me.ListBox1 n = .ListIndex Cells(1, 6) = .List(n, 1) Cells(1, 7) = .List(n, 4) End With End Sub

السلام عليكم اخي أحمد غانم انا مستعد لمساعدتك في طلبك لاكني لم افهم جيدا طلبك اعذر عدم فهمي لموضوع وارجو ان وتوضح لي الامر اكثر وباذن الله ساقوم بالمطلوب تحياتي

السلام عليكم الشرح موجود في الملف داخل محرر الاكواد كما انه يمكنك استعما InputBox ستفي بالغرض لهته المهمة ايضا تحياتي مثال مع الشرح.rar

Private Sub CommandButton1_Click() Me.Hide UserForm2.Show End Sub

السلام عليكم تم تنفيذ المطلوب على حسب فهي لطلبك مع بعض الاضافات تحياتي ترحيل إلى ورقتين مع تلوين سطر.rar