اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





جمع نطاق بين تاريخين من خلال تكست بوكس

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



10-06-2018 02:08 مساء
ibrahem ali
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-04-2018
رقم العضوية : 5905
المشاركات : 18
الجنس : ذكر
تاريخ الميلاد : 8-8-1974
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 17
الاعجاب : 2
 offline 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريبالسلام عليكم  اخوانى اعضاء المنتدى الكرام
من خلال يوزر فورم به تكست بوكس اثنان لادخال التاريخ والاخر لاظهار ناتج جمع نطاق من الخلايا بين التاريخين  من خلال كومند بوتن





لكن المشكله تاتى النتيجه دائما ( بصفر ) ارجو ان اجد اجابه ولكم جزيل الشكر
 
 
 
  Bookvv.rar   تحميل rar مرات التحميل :(9)
الحجم :(18.028) KB







10-06-2018 03:17 مساء
مشاهدة مشاركة منفردة [1]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1227
الجنس : ذكر
الدعوات : 11
يتابعهم : 0
يتابعونه : 308
قوة السمعة : 8915
الاعجاب : 2179
 offline 
look/images/icons/i1.gif جمع نطاق بين تاريخين من خلال تكست بوكس
جرب هذا الكود
Private Sub CommandButton1_Click()
Dim lr As Long
lr = Sheet1.Cells(Rows.Count, "a").End(xlUp).Row
TextBox3.Value = Application.WorksheetFunction.SumIfs(Sheet1.Range("b1:b" & lr), Sheet1.Range("a1:a" & lr), ">=" & TextBox1.Value, Sheet1.Range("a1:a" & lr), "<=" & TextBox2.Value)
End Sub

أثارت هذه المشاركة إعجاب: ibrahem ali،




10-06-2018 03:50 مساء
مشاهدة مشاركة منفردة [2]
ibrahem ali
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-04-2018
رقم العضوية : 5905
المشاركات : 18
الجنس : ذكر
تاريخ الميلاد : 8-8-1974
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 17
الاعجاب : 2
 offline 
look/images/icons/i1.gif جمع نطاق بين تاريخين من خلال تكست بوكس
الملف بالكود الجديد
 
 
  Bookvv.rar   تحميل rar مرات التحميل :(11)
الحجم :(14.448) KB



تم تحرير المشاركة بواسطة :ibrahem ali
بتاريخ:10-06-2018 03:55 مساء






10-06-2018 03:58 مساء
مشاهدة مشاركة منفردة [3]
ibrahem ali
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-04-2018
رقم العضوية : 5905
المشاركات : 18
الجنس : ذكر
تاريخ الميلاد : 8-8-1974
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 17
الاعجاب : 2
 offline 
look/images/icons/i1.gif جمع نطاق بين تاريخين من خلال تكست بوكس
اشكر اخى ( الصقر ) على الرد ولكن المشكله مازلت قائمه يعطى نتيجه ( صفر)
 





10-06-2018 04:29 مساء
مشاهدة مشاركة منفردة [4]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1227
الجنس : ذكر
الدعوات : 11
يتابعهم : 0
يتابعونه : 308
قوة السمعة : 8915
الاعجاب : 2179
 offline 
look/images/icons/i1.gif جمع نطاق بين تاريخين من خلال تكست بوكس

يعمل لدى بشكل صحيح شاهد الصوره 
تاكد من ادخال التاريخ بشكل صحيح

Mjg5MTI1MQ4646ty
 
 


أثارت هذه المشاركة إعجاب: ibrahem ali،




10-06-2018 05:19 مساء
مشاهدة مشاركة منفردة [5]
ابونور
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-09-2017
رقم العضوية : 576
المشاركات : 35
الجنس : ذكر
تاريخ الميلاد : 14-11-1974
يتابعهم : 3
يتابعونه : 2
قوة السمعة : 208
الاعجاب : 49
 offline 
look/images/icons/i1.gif جمع نطاق بين تاريخين من خلال تكست بوكس
وعليكم السلام ورحمة الله وبركاته

بعد اذن استاذنا الكبير الصقر

الكود لم يعمل عندى ايضا ولا اعلم سببا لذلك

ممكن يكون لاختلاف التاريخ عندك باللغه الانجليزيه

فجربت هذا التعديل والحمدلله اشتغل

وان شاء الله يشتغل عند استاذ ابراهيم

Private Sub CommandButton1_Click()
Dim x As Workbook
Dim r As Worksheet
Dim h As Date
Dim k As Date

    TextBox1.Value = CDate(TextBox1.Value)
    h = TextBox1.Value
    TextBox1.Value = Format(TextBox1.Value, "mm/dd/yyyy")

    TextBox2.Value = CDate(TextBox2.Value)
   k = TextBox2.Value
    TextBox2.Value = Format(TextBox2.Value, "mm/dd/yyyy")


Set x = ActiveWorkbook
Set r = x.Worksheets(1)
TextBox3.Value = Application.WorksheetFunction.SumIfs(r.Range("b1:b13"), r.Range("a1:a13"), ">=" & h, r.Range("a1:a13"), "<=" & k)
End Sub

أثارت هذه المشاركة إعجاب: ibrahem ali، الصقر، Eslam Abdullah،




10-06-2018 06:41 مساء
مشاهدة مشاركة منفردة [6]
ibrahem ali
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-04-2018
رقم العضوية : 5905
المشاركات : 18
الجنس : ذكر
تاريخ الميلاد : 8-8-1974
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 17
الاعجاب : 2
 offline 
look/images/icons/i1.gif جمع نطاق بين تاريخين من خلال تكست بوكس
اشكركم استاذى الفاضل ( الصقر ) واستاذى الفاضل ابو نور فعلا تم حل المشكله فى فورمات التاريخ لكم جزيل الشكر
 ويارب ان يكون هذا العمل نافعا خالص لوجه الله لكل الاعضاء

أثارت هذه المشاركة إعجاب: الصقر،




11-06-2018 12:56 مساء
مشاهدة مشاركة منفردة [7]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1227
الجنس : ذكر
الدعوات : 11
يتابعهم : 0
يتابعونه : 308
قوة السمعة : 8915
الاعجاب : 2179
 offline 
look/images/icons/i1.gif جمع نطاق بين تاريخين من خلال تكست بوكس
جزاك الله خيرا اخى الكريم ابو نور
بس التاريخ ملوش دخل باللغه لانه بيعتمد على السيريل نمبر للتاريخ وتنسيق كتابة التاريخ 
عموما جرب الكود بالشكل التالى
Private Sub CommandButton1_Click()
Dim lr As Long
lr = Sheet1.Cells(Rows.Count, "a").End(xlUp).Row
TextBox3.Value = Application.WorksheetFunction.SumIfs(Sheet1.Range("b1:b" & lr), Sheet1.Range("a1:a" & lr), ">=" & CDate(TextBox1.Value), Sheet1.Range("a1:a" & lr), "<=" & CDate(TextBox2.Value))
End Sub

أثارت هذه المشاركة إعجاب: ibrahem ali، Eslam Abdullah،




11-06-2018 01:00 مساء
مشاهدة مشاركة منفردة [8]
ibrahem ali
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-04-2018
رقم العضوية : 5905
المشاركات : 18
الجنس : ذكر
تاريخ الميلاد : 8-8-1974
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 17
الاعجاب : 2
 offline 
look/images/icons/i1.gif جمع نطاق بين تاريخين من خلال تكست بوكس
السلام عليكم .. لقد اوقعنى هذا الموضوع فى حيره عندما حاولت تطبيقه على ملف اخر مفتوح يتم تفعيله من داخل اليوزرفورم عند تطبيق الكود يعطى النتيجه بصفر لقد حيرنى هذا الصفر وحاولت تطبيق تثبيت فورمات التكست بوكس ولكن لاجدوى برجاء الافاده
ولو امكن حل بعيد عن هذا الكود الذى ارهقنى تجربه وبحث
 
 
  New folder.rar   تحميل rar مرات التحميل :(1)
الحجم :(27.577) KB






11-06-2018 04:30 مساء
مشاهدة مشاركة منفردة [9]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1227
الجنس : ذكر
الدعوات : 11
يتابعهم : 0
يتابعونه : 308
قوة السمعة : 8915
الاعجاب : 2179
 offline 
look/images/icons/i1.gif جمع نطاق بين تاريخين من خلال تكست بوكس
تفضل الكود يعمل بشكل صحيح على نفس الملف حتى ولو فتحت ملفات اخرى
Private Sub CommandButton1_Click()
Dim lr As Long
lr = Sheet1.Cells(Rows.Count, "a").End(xlUp).Row
TextBox3.Value = Application.WorksheetFunction.SumIfs(ThisWorkbook.Sheets("Sheet1").Range("b1:b" & lr), ThisWorkbook.Sheets("Sheet1").Range("a1:a" & lr), ">=" & TextBox1.Value, ThisWorkbook.Sheets("Sheet1").Range("a1:a" & lr), "<=" & TextBox2.Value)
End Sub

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

أثارت هذه المشاركة إعجاب: ibrahem ali،




13-06-2018 12:29 مساء
مشاهدة مشاركة منفردة [10]
ibrahem ali
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-04-2018
رقم العضوية : 5905
المشاركات : 18
الجنس : ذكر
تاريخ الميلاد : 8-8-1974
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 17
الاعجاب : 2
 offline 
look/images/icons/i1.gif جمع نطاق بين تاريخين من خلال تكست بوكس
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريبالسلام عليكم اخوانى اعضاء منتدى الصقر كل عام وانتم بخير واعاد الله عليكم الايام باليمن والبركه وتقبل الله منا ومنكم صالح الاعمال
اخى ( صقر ) سوف ارفع مشروع العمل الذى اعده وهو زى ما بنقول كده (حاجه على القد) لكن هى محاوله وارجو ان يستفيد منها جميع الاعضاء ولكن هى مازالت ناقصه والمشكله فى جمع البيانات بين تاريخين لانها مهمه فى التقرير (يوزرفورم 2) وطبعا اظهار ناتج جمع اصناف المنتجات لكل عمود بين التاريخين المحددين فى التكست بوكس كل منتج فى (لابيل) خاص به مع اخفاء (الابيل) الذى لايحوى بيانات ويحل محله ( لايبل ) يحتوى على بيانات . كل ده متوقف على نجاح كود الجمع بين تاريخين  
لو فيه توضيح بالنسبه للمشروع سوف اقوم بارسال توضيح-- اضافه ملف مطابق لكل عميل اذا لم يكن للعميل ملف وبحث عما اذا كان اسمه مسجل ام لا وفتح ملف العمل للعميل وهكذا
 
 
  new.rar   تحميل rar مرات التحميل :(4)
الحجم :(102.077) KB



تم تحرير المشاركة بواسطة :ibrahem ali
بتاريخ:13-06-2018 12:39 مساء






13-06-2018 12:40 مساء
مشاهدة مشاركة منفردة [11]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1227
الجنس : ذكر
الدعوات : 11
يتابعهم : 0
يتابعونه : 308
قوة السمعة : 8915
الاعجاب : 2179
 offline 
look/images/icons/i1.gif جمع نطاق بين تاريخين من خلال تكست بوكس
اخى الكريم اكتب تاريخ فى التكست الاول ثم اعمل زر به مسج بوكس لازظهر محتوى التاريخ اللى تم كتابته شوف الرساله هتظهر ايه ؟
 





13-06-2018 05:48 مساء
مشاهدة مشاركة منفردة [12]
ibrahem ali
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-04-2018
رقم العضوية : 5905
المشاركات : 18
الجنس : ذكر
تاريخ الميلاد : 8-8-1974
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 17
الاعجاب : 2
 offline 
look/images/icons/i1.gif جمع نطاق بين تاريخين من خلال تكست بوكس
ااتمنى استاذى الفاضل ( صقر ) تكون شاهدت الملف الذى ارسلته
واحب اعرف تقييم حضرتك ليه اما بالنسبه لموضوع الرساله لاظهار محتوى التاريخ اعزرنى لااعرف القصد منها ؟
وان شاء الله اكيد هناك حل للموضوع ده






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تحويل نطاق الى صورة مع فتحها بعد التصدير وتحديد الورقة النشطة أباالحسن
7 246 YasserKhalil
حذف محتوى نطاق محدد مع الاحتفاظ بالمعادلات - أكاديمية الصقر للتدريب الصقر
18 1133 mahmoud ayad
داله جديده معرفه للحصول على عدة نتائج بنطاق محدد بشرط اللون alsqercolor الصقر
12 749 Excelawy
تحويل نطاقات مختلفة المكان الى pdf موجوده في شيت واحد Salamco
30 310 YasserKhalil
حساب تكرار نص محدد داخل نطاق من الخلايا Eslam Abdullah
18 699 Eslam Abdullah

الكلمات الدلالية
نطاق ، تاريخين ، خلال ، تكست ، بوكس ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 08:54 مساء

أعلن هنا
أعلن هنا
أعلن هنا