نايف - م

تمام و هو المطلوب بارك الله بك و بأعمالك شكرا جزيلا لسرعة و دقة الأستجابة

السلام عليكم أنا أستخدم خاصية البجث كثيرا , و هي خاصية متعبة - البحث ثم عرض النتائج ثم المسح و اعادة البحث عن كلمة أحرى ثم خطر ببالي ان أسأل هل يمكن وضع كلمات البحث بمربع البحث _التكستبوكس _ ثم البحث عن كل الكلمات باستخدام أمر Split(TextBox.Text, vbCrLf) ثم بحثت بالموقع و بالنت و حاولت كثيرا و لم أصل لحل هل يمكن المساعدة بحلول مقترحة بحث بدلالة كلمتين.rar

بحثت عن كود بحث عن ملف في مجلد ( و ما تحت المجلد ) و كتابة النتيجة في ليست بوكس بعد كتابة اسم الملف في تكست بوكس - فلم أجد وجدت كود ينقل كل الملفات في مجلد و ما تحته الى صفحة و يوجد به خيار لتحديد نوع أمتداد الملف (pdf - word- excell- ) لكن للأسف لا يعمل بهذه الخاصية فقط يقوم بنقل كل الملفات في المجلد و ما تحته لصفحه هل يمكن من حضرتكم المساعدة في أصلاح هذا الملف أو ان تكرمتم علي تلبية الطلب الأول ( البحث عن ملف في مجلد و ما تحته بعد كتابة اسم الملف في تكست بوكست ) مدير الملفات.rar

كود جميل و مفيد شكرا

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

عمل ممتاز شكرا

مميز شكرا لك

الكود الذي أرسلته بملفك يعمل بشكل ممتاز لكن عند نقله لملفي بدأ يخربط أطلب المشورة أعرف المشكلة عندي يعني مثلا يجب أضافة أسم للورقة في الكود ليتم التنفيذ مثلا ؟؟ المساعدة

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

ليش ما عم أحسن ابعت ر د آسف كتبت الرد 3 مرات و لم أتمكن من أرساله عملت تجربة أرسلت فورا أستاذ ياسر الكود يكتب في ورقة غير الورقة المطلوبة المشكلة في ملفي لكنه كبير حجما و لا يمكن أرفاقه يعني ينشأ ورقة جديدة لكن الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox "hello" End Sub يكتب في ورقة من ورقاتي ال 35 و كل مرة أنفذ الكود يكتب في ورقة مختلفة ممكن أبداء الرأي لحل المشكلة شكرا

تمام الوثوق هي السبب trust access

الأخ الكريم ياسر أعتذر للأزعاج لكن المكتبة مفعلة عندي

الأخ الأستاذ الكريم ياسر جزاك الله خيرا شكرا للأستجابة الكود هو المطلوب لكن لم يتم تنفيذه و النتيجة في الصور

السلام عليكم أنا أعرف أضافة ورقة جديدة لمصنف لكن هل يمكن تضمين هذه الورقة الجديدة لحدث مرتبط بتغير في الورقة يعني مثلا أن تتضمن الورقة الجديدة المضافة ما يلي Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox "hello" End Sub

أستاذ ياسر شكرا للفكرة الممتازة لكن لم أتمكن من تحميل الملف أو تحميل كتاب تعلم البرمجة العربي ممكن المساعدة شكرا

الأخ الأستاذ الكريم ياسر شكرا لك طبعا من المستحيل أرفاق ملف لأن المشكلة ديناميكية متغيرة طيب حاولت أنا البحث عن حل و قد وجدت أن تغيير أعدادات الليست بوكس من UserForm_Activate ل UserForm_Initialize و هي : .ColumnWidths = "15;175;100;25;25;100" قد حل المشكلة - أنا لم أفهم الفرق لكن المهم حلت المشكلة مع الشكر الجزيل لك

السلام عليكم أعرف أن الأستاذ ياسر سيقول " أرفق ملف " لكن سؤالي لا يمكن في حالته أرفاق ملف عندما أعمل على ليست بوكس1 في فورم 1 و أقوم بفتح فورم 2 و العمل عليه ثم اعادة العمل على ليستبوكس 1 يقوم الليستبوكس 1 بالعودة للصف الأول أريد أن يعود للصف الذي توقفت عنده أتمنى أن أكون وفقت بشرح الطلب رجاء المساعدة شكرا

السلام عليكم أنا جربته ويندوز 7 أوفيس 2010 - 32 و حصل معي ما حصل مع الأستاذ ياسر شكرا و بأنتظار الحل

ما شاء الله أخي الكريم شكرا لك تمت العملية بنجاح تام أخي الكريم - العملية تأخذ بعض الوقت لأن النسخة الكاملة تحوي حتى الآن 14000 صف و هي قابلة للزيادة يوميا هل يمكن التسريع قليلا بعد أذنك و أرجو أن تحتملني : طبقت الكود التالي لفرز البيانات باللست بوكس الفرز حسب العمود الأول تمام - الفرز حسب العمود الثاني لم يعمل ممكن السبب Private Sub ComboBox1_Change() If ComboBox1.Value = "زبائن" Then Dim I As Long Dim j As Long Dim sTemp As String Dim sTemp2 As String Dim LbList As Variant LbList = Me.ListBox1.List For I = LBound(LbList, 1) To UBound(LbList, 1) For j = I + 1 To UBound(LbList, 1) If LbList(I, 0) > LbList(j, 0) Then sTemp = LbList(I, 0) LbList(I, 0) = LbList(j, 0) LbList(j, 0) = sTemp sTemp2 = LbList(I, 1) LbList(I, 1) = LbList(j, 1) LbList(j, 1) = sTemp2 End If Next j Next I Me.ListBox1.Clear Me.ListBox1.List = LbList End If '------------------------- If ComboBox1.Value = "مبيعات" Then LbList = Me.ListBox1.List For I = LBound(LbList, 1) To UBound(LbList, 1) For j = I + 1 To UBound(LbList, 1) If LbList(I, 1) > LbList(j, 1) Then sTemp = LbList(I, 0) LbList(I, 0) = LbList(j, 0) LbList(j, 0) = sTemp sTemp2 = LbList(I, 1) LbList(I, 1) = LbList(j, 1) LbList(j, 1) = sTemp2 End If Next j Next I Me.ListBox1.Clear Me.ListBox1.List = LbList End If End Sub

أخي الكريم أسم الزبائن موجود بالعمود Z قيم المبيعات موجود بالعمود O قمت باختصار عدد الصفوف حتى اتمكن من الرفع شكرا 333.rar

شكرا يا أخي الكريم على الأستجابة حاولت كثيرا تطبيق الكود على برنامجي فلم ينجح الكود يعمل بشكل جيد على ورقتك عند نقل البيانات من ورقتي الى ورقتك كذلك توقف العمل فورا يعطي الرسالة التالية

مرفق ملف أريد تصميم تقرير لمبيعات الزبائن وفق الفورم المرفق قائمة بأسماء الزبائن و مجموع مبيعاتهم السنوية شكرا المصنف1.rar

الأخ الكريم ياسر شكرا للأستجابة الرابط يفي بالغرض شكرا لك لكنني قصدت : هل يمكن اضافة أمر مثل "beep" بدون أضافة أوامر برمجية للحصول على صوت

السلام عليكم هل يمكن للأكسيل أن يعطي صوت تنبيه غير beep شكرا

الأخ عمر الحسيني بارك الله فيك و بارك لك بيمينك و زادك علما و رفعة أشكرك على المشاركة لأنني كنت بحاجة لها طبقتها على يوسرفورم لتحميل بيانات على ليست بوكس النتيجة : لم ينجح معي التطبيق تماما لكنني استفدت التالي : * البيانات عندي كثيرة لذلك كنت أستغرق وقت يقارب 1.5 دقيقة ليتم تحميل البيانات المطلوبة ا الليست بوكس و يتوقف العمل خلالها على البرنامج بسبب أنشغاله - الآن - يتم التحميل بالتدريح مع قدرتي على أيقاف عملية التحميل أو العمل على البرنامج خلال التحميل و هذا شيء رائع شكرا لك