deebsagheer
-
Posts
71 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه deebsagheer
-
-
ارتباط تشعبي متغير في نموذج.rar
المرفق به نموذج اظهار بيانات المحلات
المطلوب اظهار صورة عقد المحل بالظغط على زر اظهار
و شكرا
-
-
و يمكن بطريقة أخرى تتيح لك إيجاد القيمة خلال فترة معينة في الشهر أو العام أي باليوم و ذلك بتغيير تاريخ البدايه و تاريخ النهايه كما بالمرفق
-
البرنامج يعمل و لكنه يحول أول 3 صفحات في ملف ال pdf ثم بعد ذلك يمكنك اختيار صفحه بصفحه
عن تجربه البرنامج شغال لأنه يعتبر إعلان عن النسخه الكامله لشرائها
-
بحثت في المنتدى عن برنامج يؤدي الغرض و لكن كانت الردود كلها تفيد استحالة ذلك و بعد البحث و جدت هذا البرنامج
إليكم الرابط
-
برنامج لتحويل ملف وورد عربي أو إنجليزي إلي pdf و العكس
-
اللهم اجزيه عنا خير الجزاء.
أود لو أن هناك طريقه لحرية اختيار ملئ الأعمده. بمعنى أنه لو كان في عمود ما معادله فإنه عند الادخال أو التعديل سوف تلصق قيمة التعديل و تلغى المعادله.أرجو إضافة هذه الخاصية علي الفورم إن أمكن مع توضيح كيف نختار العمود لكي لا يتم التعديل عليه . مع الشكر و كل عام و حضراتكم بخير
-
أعتقد أن ليست بوكس مرتبط بتنسيق الخليه. جرب و اجعل تنسيق الخليه التي بها مدير الموقع بدون التفاف النص ستجد أن ليست بوكس لن يتمدد بالطول كما ذكرت
و جرب تنسيق التفاف النص علي اي خليه أخرى و اكتب فيها نص طويل ستجد ليست بوكس يتمدد طوليا معها
هذا ما لاحظته علي حد علمي البسيط و الرأي للخبراء
-
الامر سهل يا أخ أنس و لولا ضيق الوقت كنت عملت كل التغيرات و أرفقتها لك لكن حاول ان تتبع هذا الأساس و جرب و سوف تستفيد من أخطائك:
حتي يتم الحدث في ورقة غير الورقة النشطه اكتب في بداية كود زر الأمر هذه الجمله sheets("اسم الورقه التي تريد الترحيل اليها").activate
بعد ذلك غير جملة التكرار For و اجعل المتغير i من رقم الصف الذي تريد و ليكن 5 الي 100 كما أردت أنت
و غير العمود من a إلي d مثلا كما أردت
Cells(i, 2) = TextBox2.Text هذه الجمله تفيد أن محتويات تكست بوكس رقم 2 سوف توضع في الخلية b5 حيث رقم 2 يدل علي رقم العمود و المتغير i يدل علي رقم الصف و الذي يتغير كل مره مع كل ادخال بحيث يكون أول ادخال 5 و التالي 6 و هكذا
أرجو أن تكون وضحت لك الفكره و عليك الباقي
جرب و اخطأ لتتعلم
تحياتي لك
-
الأخ أحمد زمان - الأخ محمد طاهر شكرا لكما فنحن نتعلم من طرح مثل هذه المواضيع فاللهم اجعل كل عمل في هذا المنتدى في موازين حسنات من يساهم فيه و لو بكلمة
-
-
-
الاستاذ أحمد زمان : أشكرء على كلمات الإطراء و أحب أن أوضح أن الكود الذي وضعته هو من أعمال أحد الأعضاء في المنتدي و أنسب الفضل له.
الأستاذ محمد طاهر: يمكن تطبيق ماكرو الاستاذ أحمد زمان علي رقم الكود و لكن بعد أن تجعل تنسيق خلايا الأكواد علي أنها نص و ليست رقم و ذلك طبعا من تنسيق خلايا و سوف يعمل معك الماكرو إن شاء الله. مع ملاحظه تفعيل الجزء الأخير من الماكرو و الخاص بتصفية الأكواد وذلك بازالة العلامة (').
-
ادخل عنصر من عناصر العامود في الخلية الصفراء سيتم فرز العامود حسب الخلية
-
ضع هذا الكود في حدث الصفحة 1
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = True
If Target.Row = 1 Then
H = ActiveCell.Column
A = [a1].Value
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.ShowAllData
Selection.AutoFilter Field:=H, Criteria1:="=" & Cells(1, H)
End If
End Sub
ثم :
اكتب أي من عناصر الجدول في أي من الخانات الصفراء سيتم عمل فلترة حسب العامود الذي كتبت فيه.
-
شكرا أستاذ عبد الله لتفاعلك. لكن للأسف لم يحقق الكود الجديد الهدف المنشود فكما تعلم أنه مع كبر حجم البيانات فلا أستطيع تذكر الإسم الذي أبحث عنه بالكامل أو الأحرف الاولي منه لذا أريد البحث بأي جزء منه مثل (اللقب) و تكون النتيجه سرد الاسماء التي تحوي هذا اللقب. و مره أخرى أشكرك شكرا جزيلا
-
شكرا أخي علي سرعة الرد و النتيجه إيجابية و الحمد لله إلا أن البحث بالأحرف الأولي من الاسم فقط. ينقصني البحث بأي حرف من الاسم و لك وافر التحيه
-
الإخوة الأعزاء في الملف المرفق أطلب ظهور رقم الموظف في TextBox1 بمعلومية إسمه المكتوب في ComboBox1 من خلال نموذج البحث
علي أن يكون البحث باي جزء من الإسم.
شاكرا لكم تعاونكم
-
السلام عليكم اخواني
ألا يوجد رد علي الموضوع؟
امل من الخبراء الرد و العمل علي زيادة سرعة البرنامج
مع الشكر
-
أخي العزيز
و ماذا لو كنا نريد اخفاء الاوراق جميعا ما عدا الورقة النشطه فقط بغض النظر عن اسمها؟
فقط استبدل اسم الورقة الرئيسية و المسماه في عملك sheet1 ب activesheet.name
و لك و للجميع التحية
-
انتظر الرد من الاخ / دغيدي
و له الشكر
-
اخي الكريم Alidroos
سلام الله عليك
أشكرك لاهتمامك و بالفعل الكود افادني و تم تجربته علي عملي.
و أنتظر من الاخوه الرد علي الجزء الاول من طلبي و للجميع التحية
-
الساده الاعضاء و المشاركين الكرام
الملف المرفق به نموذج لاستعراض بيانات استنادا علي رقم المحل
المطلوب أولا: كود تعديل علي البيانات المستعرضه بشرط حرية اختيار الخلايا المراد التعديل عليها فمثلا خلية اسم المستاجر لا يتم تغييرها لأنها ستتغير تلقائيا بتغير رقم المستأجر طبقا لكود آخر ليس بالملف
ثانيا : في ورقة متابعة السندات اريد أن يكتب عبارة Ok مثلا أمام رقم السند الذي تم تسجيله في صفحة البيانات بمعني لو وجد الرقم في البيانات حتي لو تكرر يتم التعليم امام نفس الرقم Ok و ذلك لمتابعة السندات المفقوده.
و شكرا لكل من ساهم في اثراء المنتدي.
ملحوظه : النموذج مأخوذ من المنتدي و لكن عليه تعديل بسيط لملاءمة عملي
-
و عليكم السلام أخي طارق
لعل المانع خيرا ، اتمني لك التوفيق
و أشكرك علي أي حال و أدعو الاخوه الافاضل للمشاركة
ارتباط تشعبي في فورم
في منتدى الاكسيل Excel
قام بنشر
الأخ أحمد عبد الناصر
بارك الله فيك
الكود يعمل بصورة ممتازه
أشكر لك تعاونك فجزاك الله خيرا