-
Posts
35 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو وجدي الحاج علي
-
شكرا الك اخ علي هذا طلبي وزيادة يعطيك العافية وشكرا جزيلا
-
اسف اخي هذا المرفق المطلوب جمع ناتج في ورقة 4 المصنف1.xlsx
-
سلام عليكم اخواني لدي دالة =SUMIF($F$1:$F$500,B19,$G$1:$G$500) وهي تفيد بالبحث في F1:F5 حسب الاسم الموجود فيB19 وجمع الارقام الموجودة مقابلها في G1:G500 وهي فعالة في حساب بصفحة واحدة المطلوب تحويل هذه الدالة لتقوم بجمع الناتج من عددت صفحات محددة مثال من sheet4:sheet35 ارجو المساعدة
-
نشالله حوالي ساعة ساقوم بانشاء ملف
-
استاذ سليم يصعب عليي رفع ملف لكن توصلت الى هذا الكود Dim cll As Range Dim sh As Worksheet, C As Range, x As Integer x = 0 For Each sh In Sheets For Each C In sh.Range("F1:F" & sh.Cells(Rows.Count, 6).End(xlUp).Row) If C.Value = Range("g2").Value Then x2 = x2 + 1 If C.Value = Range("g3").Value Then x3 = x3 + 1 If C.Value = Range("g4").Value Then x4 = x4 + 1 Next Next Range("k2") = x2 Range("k3") = x3 Range("k4") = x4 End Sub وهو يعمل لكن لدي 500 سطر من الكتابة هل يمكن اختصار ذالك بكود يكرر هذه الدالات من g2 الى ل500 ولك جذيل الشكر واذا لا بد من رفع ملف اخبرني لاقوم بتصميم ملف يشبه طلبي لان الملف الذي اقوم بتعديل عليه يوجد به ملفات وحسابات لايكنني رفعها ارجو التفهم ولك جذيل الشكر استاذي سليم حاصبيا
-
سلام عليكم لدي كود مهمته احصاء المواد من مجموعة شتات وجمع المواد ووضع الناتج في صفحة مستقلة وهو يعمل مع صنف واحد لكن لا يمكنني اضافة اكتر من صنف Dim cll As Range Dim sh As Worksheet, C As Range, x As Integer x = 0 For Each sh In Sheets هنا يقوم بالبحث بجميع الشتات For Each C In sh.Range("F1:F" & sh.Cells(Rows.Count, 6).End(xlUp).Row) If C.Value = Range("g24").Value Then x = x + 1 حيث انا ring24 هو اسم المادة Next Next Range("k24") = x وهنا يضع الناتج في صفحة الجرد End Sub المطلوب ان اتمكن من اضافة عدد كبير من المواد مثال Dim cll As Range Dim sh As Worksheet, C As Range, x As Integer x = 0 For Each sh In Sheets For Each C In sh.Range("F1:F" & sh.Cells(Rows.Count, 6).End(xlUp).Row) If C.Value = Range("g24").Value Then x = x + 1 If C.Value = Range("g25").Value Then x = x + 1 If C.Value = Range("g26").Value Then x = x + 1 If C.Value = Range("g27").Value Then x = x + 1 Next Next Range("k24") = x Range("k25") = x Range("k26") = x Range("k27") = x End Sub حاولت بهذه الطريقة لكن الناتج يظهر موحد ببسب انا المتغير نفسه وهو x ارجو رد السريع واذا كان يوجد طريقة او كود اسلس من هذا او اخف عناء افادتي به
-
شكرا جدا على المعادة لكن اريد ان يقوم بالبحث بشتات محددة وليس في جميع الصفحات وشكرا
-
سلام عليكم اريد كود لبحث التلقائي في 31 شيت بحيث يقوم بالبحث في جدول f3:f65 موجود في ل31 شيت والبحث يكون عن قيم محددة مثال اريد ان ابحث عن صنف ولتكن "قلم رصاص" فيظهر ناتج البحث برقم تكرار الصنف وليكون 5 اي انه يوجد 5 من قلم الرصاص في 31 شيت الفكرة هي لجرد البضاعة المباعة لدي في 31 يوم بحيث اعلم كم قطعة مباعة من اي صنف ارجو الرد السريع
-
شكرا على الرد اريد تجميد التكست بوكس فقط ولا اريد تجميد الصف الاول
-
السلام عليكم اخواني طلبي كما موضح في العنوان لدي جدول واريد ان اضع تيكست بوكس في اعلى صفحة الاكسل بحيث لو نزلت لخلية 200 فرضا يبقى التكست باعلى الصفحة اي يتحرك مع تحريك الصفحة لان عمل التكست بوكس هو وصف الخلية ارجو الرد السرع وانا موجود لاي ايضاح
-
جلب صورة من شيت الى يوزر فورم
وجدي الحاج علي replied to وجدي الحاج علي's topic in منتدى الاكسيل Excel
اسف جدا على تاخر على الرد بسبب انقطاع الانترنت وشكرا اخ ياسر على ايجاد الحل -
سلام عليكم احبائي اعضاء اوفسينا الكرام ارجو منكم الاجابة على سؤالي وهو لدي صورة في صفحة الاكسل واريد ان تظهر على يوزر فورم بدون وضعها في مجلد خارج صفحة الاكسل حاولت استعمال الكود التالي في فورم ولم يفلح Me.Image1.Picture = Worksheets("sheets1").Shapes("Picture 83"( ارجو ان يكون هناك حل وارجو اخباري ايضا اذا كان الامر مستحيل
-
هل يمكن انشاء زر امر لتصوير صفحة الاكسل
وجدي الحاج علي replied to ابو راكان العودة's topic in منتدى الاكسيل Excel
مجهود رائع شكرا اخ مختار -
اخي ممكن تعديل ليقبل الويندوز ب64 بت لانه الكود مخصص ل32بت
-
نقل ناتج فورم الى textbox في صفحة الاكسل
وجدي الحاج علي replied to وجدي الحاج علي's topic in منتدى الاكسيل Excel
شكرا جدا على مجهودك -
طلاباتي كثيرا جدا انا اعلم ولكن ليس لي ملجى بعد الله غير منتداكم الغالي طلب هو اني انقل ناتج فورم الى textbox في صفحة الاكسل حيث اني قدرت انقل ناتج الفورم الى خلية في الصفحة ولكن انا اريد نقله الى textbox كالعادة يوجد ملف اكسل لشرح المصنف1.rar
-
اضافة شرط قيمة الخلية تساوي عدد صحيح
وجدي الحاج علي replied to وجدي الحاج علي's topic in منتدى الاكسيل Excel
شكرا اخ سليم على تلبيت المساعدة وشكر خاص لمبدعنا الاخ ابو البراء سلمت يداكم -
السلام عليكم اخواني انا اقوم بتصميم فورم واريد اضافة شرط ان لا يقوم بحساب الناتج ان لم يكن المدخل رقم صحيح وليس اي كتابة اخرى
-
اخي سليم بارك الله فيك على مساعدة لكن انا طلبي فقط تعديل على الاداة السابقة لانه اداة متنقلة بين جدول ليس فقط تعمل مع خانة واحدة
-
انا عارف انه الطلب صعب بعض الشيئ لكن كل املي تجدو لي حل باقرب وقت
-
السلام عليكم وكل عام وانتم بخير تم طرح من فترة موضوع من قبل الاخ ابو البراء عن تغيير خصائص القائمة المنسدلة بإدراج كومبوبوكس وهي طريقة جميلة وممتازة وتعمل في نطاق صفحة واحدة لكن طلبي هو اني اقدر استخدم صفحتين بدل صفحة واحدة اي اني اقوم بوضع صفحة مخصصة لاسماء المواد وفي الصفحة الاخرى تكون القائمة المنسدلة يعني الكود vba عاوز تعديل ليعمل على صفحتين في شرح مرفق مبيع.rar
-
جلب مجموع البيع الى صفحة المبيع
وجدي الحاج علي replied to وجدي الحاج علي's topic in منتدى الاكسيل Excel
ممكن تطبيق الدالة على صفحة المرفقة في الشرح جزاك الله خيرا -
اسف على طلباتي الكثير ان اضيف خانة لصفحة البيع لاتمكن من معرفة مجمل البيع حيث انه يقوم بوضع مجمل البيع حسب اليوم قومت بالاضافة صفحة لشرح اكثر حسابات محل.rar