m_127899 قام بنشر يونيو 14, 2009 مشاركة قام بنشر يونيو 14, 2009 إستفسار ين لو سمحتم من إخواني خبراء الإكسل في هذا المنتدى الطيب جزاكم الله عنا خير الجزاء وأجزل إليكم بالأجر الأوفى يوم الحساب إذا كانت لدينا خلية في ( شيت 1 ) ولتكن ( a1 ) فإذا وضعنا قيما مختارة للخلية ( a1 ) في ( شيت 1 ) مثلا إما 1 أو 2 أو 3 وذهبنا إلى ( شيت 2 ) وجدنا أنفسنا عند ( a1 ) إجباري ( بداية جدول ) وإذا وضعنا قيما مختارة للخلية ( a1 ) في ( شيت 1 ) مثلا إما 4 أو 5 أو 6 وذهبنا إلى ( شيت 2 ) وجدنا أنفسنا عند ( a100 ) إجباري ( بداية جدول جديد ) وإذا وضعنا قيما مختارة للخلية ( a1 ) في ( شيت 1 ) مثلا إما 7 أو 8 أو 9 وذهبنا إلى ( شيت 2 ) وجدنا أنفسنا عند ( a200 ) إجباري ( بداية جدول جديد ) أو بدلا ما يكون لدينا ثلاث جداول في ( شيت 2 ) يكون لدينا جدول واحد ولكن إذا تغيرت القيم في الخلية ( a1 ) في ( شيت 1 ) تغيرت القيم والصيغ والمعادلات في الجدول في ( شيت 2 ) وآخر دعوانا أن الحمد لله رب العالمين رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يونيو 14, 2009 مشاركة قام بنشر يونيو 14, 2009 (معدل) السلام عليكم دائما مستقبلا ارفق ملف هنا تصور لما تريد Private Sub Worksheet_Activate() On Error GoTo mee Select Case Sheets(1).Cells(1, 1).Value Case Is = 1, 2, 3 Cells(1, 1).Select Case Is = 4, 5, 6 Cells(100, 1).Select Case Is = 7, 8, 9 Cells(200, 1).Select End Select mee: End Sub او هذا الكود Private Sub Worksheet_Activate() On Error GoTo mee Select Case Sheets(1).Cells(1, 1).Value Case 1 To 3 Cells(1, 1).Select Case 4 To 6 Cells(100, 1).Select Case 7 To 9 Cells(200, 1).Select End Select mee: End Sub GoTo.rar تم تعديل يونيو 14, 2009 بواسطه ابو اسامة العينبوسي رابط هذا التعليق شارك More sharing options...
m_127899 قام بنشر يونيو 14, 2009 الكاتب مشاركة قام بنشر يونيو 14, 2009 الله يباركلك في صحتك وعافيتك أخي على ردك السريع...كفّيت ووفيت جزاك الله عني خير الجزاء رابط هذا التعليق شارك More sharing options...
m_127899 قام بنشر يونيو 25, 2009 الكاتب مشاركة قام بنشر يونيو 25, 2009 للرفع " رجاء" نفس الفكرة السابقة ولكن لو إسبدلنا الرقم بتاريخ بتنسيق يوم وشهر مثل ( 26-6) في الشيت الأول ( يتحدث يوميا ويتغير بتغير ساعة الحاسوب ) وذهبنا كل يوم إلى الشيت الثاني ينقلنا إلى مواضع مختلفة رابط هذا التعليق شارك More sharing options...
m_127899 قام بنشر يونيو 25, 2009 الكاتب مشاركة قام بنشر يونيو 25, 2009 للرفع رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يونيو 26, 2009 مشاركة قام بنشر يونيو 26, 2009 السلام عليكم ارفق الملف الذى تريد رابط هذا التعليق شارك More sharing options...
m_127899 قام بنشر يونيو 26, 2009 الكاتب مشاركة قام بنشر يونيو 26, 2009 السلام عليكم ورحمة الله وبركاته بارك الله فيك أستاذنا الفاضل وجمعنا وإياك على عتبات المسجد الاقصى تفضل هذا هو الملف وجزاك الله خير الجزاء 1.rar رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يونيو 26, 2009 مشاركة قام بنشر يونيو 26, 2009 (معدل) السلام عليكم هنا الداله days360 تعتبر العام 360 يوم (مشكله ممكن حلها) حسب فهمى : اذا كنا في اليوم الاول من العام(1/1/2009) نذهب الى الخليه A100 اليوم الثانى من العام (2/1/2009)الى A200 قديكون هناك داله ترجع ترتيب اليوم الحالى من العام لكن ان وجدت قد اكون لم استخدمها من قبل لذلك استخدمت now() مع days360 على النحو التالى =(360-(DAYS360(NOW(),"12/31/2009",TRUE)))*100 ثم قمنا بالتكبير للرقم الناتج الى 100 مره اذا كان هذا المطلوب ممكن نجعل الحل اكثر جوده من خلال دمج المعادله في الكود مباشرة و الله ولى التوفيق هنا الحل بالكود كاملا هكذا x = Application.WorksheetFunction.Days360(Now(), "12/31/2009", True) Z = (360 - x) * 100 Range("a" & Z).Select GoTo2.rar GoTo23.rar تم تعديل يونيو 26, 2009 بواسطه ابو اسامة العينبوسي رابط هذا التعليق شارك More sharing options...
m_127899 قام بنشر يونيو 26, 2009 الكاتب مشاركة قام بنشر يونيو 26, 2009 سيدي المفضال الطيب الكريم أبو أسامة بارك الله فيك 1- تظهر رسالة خطأ كلما إنتقلت من شيت لآخر كما في الملف المرفق ( قد يكون السبب هو عدم توافق ( days360 ) التي تفرض أن عدد السنة 360 يوم و (()now) التي تعد 365 يوم للسنة الغير كبيسة ) 2- الشهر كانون الثاني "1" فيه 31 يوم وشهر وشهر شباط "2" إما فيه 28 يوم أو 29 يوم وشهر نيسان "4" فيه 30 يوم 3- والمعادلة التي ذكرت تفرض أن السنة 360 يوم تتكون من 12 شهر وكل شهر 30 يوم ولا ترتبط بالتاريخ الحقيقي نهائيا والله أعلم 4- الفكرة ( عمل رزنامة يومية على مدار السنة ) كل يوم تفتح تلقائيا على خلية معية عدد الخلايا التي تفتح في السنة 365 , 366 يوم والفاصل بين خلية اليوم وخلية غدا 100 صف وكذلك الفاصل بين خلية اليوم وخلية أمس 100 صف _________.rar رابط هذا التعليق شارك More sharing options...
m_127899 قام بنشر يونيو 26, 2009 الكاتب مشاركة قام بنشر يونيو 26, 2009 أنا أحبك في الله أخي أبو أسامة فتقبل إحترامي أستاذنا الكريم بارك الله بك على كل ما قدمت لي رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يونيو 26, 2009 مشاركة قام بنشر يونيو 26, 2009 السلام عليكم بدون حاجه الى رزنامه (ادرجتها في الملف للتاكد من صحة الحل و المقارنه) الحل الاول بالكود و الثانى بالمعادله في الخليه A1 GoTo2_Last_One_2.rar GoTo_Last_One.rar رابط هذا التعليق شارك More sharing options...
m_127899 قام بنشر يونيو 26, 2009 الكاتب مشاركة قام بنشر يونيو 26, 2009 يسلموا إيديك يا أحلى ملك في الإكسل الله يباركلك في صحتك وعافيتك وفي أولادك وعيالك رابط هذا التعليق شارك More sharing options...
m_127899 قام بنشر يونيو 26, 2009 الكاتب مشاركة قام بنشر يونيو 26, 2009 هدية لأخي أبو أسامة http://www.palestineremembered.com/GeoPoin...7/ar/index.html رابط هذا التعليق شارك More sharing options...
سالم شباني قام بنشر يونيو 27, 2009 مشاركة قام بنشر يونيو 27, 2009 بورك فيك يا أستاذ أبو أسامة حلول كثيرة ومميزة رابط هذا التعليق شارك More sharing options...
m_127899 قام بنشر يونيو 27, 2009 الكاتب مشاركة قام بنشر يونيو 27, 2009 أستاذي الكريم أبو أسامة السلام عليكم ورحمة الله وبركاته ( هل يمكن توسيع السنة ) هذه المعادلة لسنة واحدة (2009 ) هل يمكن أن تكون لأكثر من سنة ( 2009 و 2010 و .....) بارك الله بك وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.