ربط بين خلية متغيرة القيم في sheet1 مع مواضع مختلفة في sheet2 حسب قيم

[m_127899]

إستفسار ين لو سمحتم من إخواني خبراء الإكسل في هذا المنتدى الطيب جزاكم الله عنا خير الجزاء وأجزل إليكم بالأجر الأوفى يوم الحساب

إذا كانت لدينا خلية في ( شيت 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 )

وآخر دعوانا أن الحمد لله رب العالمين

[ابو اسامة العينبوسي]

السلام عليكم

دائما مستقبلا ارفق ملف

هنا تصور لما تريد

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 بواسطه ابو اسامة العينبوسي

[m_127899]

الله يباركلك في صحتك وعافيتك أخي على ردك السريع...كفّيت ووفيت جزاك الله عني خير الجزاء

[m_127899]

للرفع " رجاء"

نفس الفكرة السابقة

ولكن لو إسبدلنا الرقم بتاريخ بتنسيق يوم وشهر مثل ( 26-6) في الشيت الأول ( يتحدث يوميا ويتغير بتغير ساعة الحاسوب ) وذهبنا كل يوم إلى الشيت الثاني ينقلنا إلى مواضع مختلفة 

[m_127899]

للرفع

[ابو اسامة العينبوسي]

السلام عليكم

ارفق الملف الذى تريد

[m_127899]

السلام عليكم ورحمة الله وبركاته

بارك الله فيك أستاذنا الفاضل وجمعنا وإياك على عتبات المسجد الاقصى

تفضل هذا هو الملف وجزاك الله خير الجزاء

1.rar

[ابو اسامة العينبوسي]

السلام عليكم

هنا الداله 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 بواسطه ابو اسامة العينبوسي

[m_127899]

سيدي المفضال الطيب الكريم أبو أسامة بارك الله فيك

1- تظهر رسالة خطأ كلما إنتقلت من شيت لآخر كما في الملف المرفق ( قد يكون السبب هو عدم توافق ( days360 ) التي تفرض أن عدد السنة 360 يوم و (()now) التي تعد 365 يوم للسنة الغير كبيسة )

2- الشهر كانون الثاني "1" فيه 31 يوم وشهر وشهر شباط "2" إما فيه 28 يوم أو 29 يوم وشهر نيسان "4" فيه 30 يوم

3- والمعادلة التي ذكرت تفرض أن السنة 360 يوم تتكون من 12 شهر وكل شهر 30 يوم ولا ترتبط بالتاريخ الحقيقي نهائيا والله أعلم

4- الفكرة ( عمل رزنامة يومية على مدار السنة ) كل يوم تفتح تلقائيا على خلية معية عدد الخلايا التي تفتح في السنة 365 , 366 يوم والفاصل بين خلية اليوم وخلية غدا 100 صف وكذلك الفاصل بين خلية اليوم وخلية أمس 100 صف

_________.rar

[m_127899]

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

[ابو اسامة العينبوسي]

السلام عليكم

بدون حاجه الى رزنامه (ادرجتها في الملف للتاكد من صحة الحل و المقارنه)

الحل الاول بالكود

و الثانى بالمعادله في الخليه A1

GoTo2_Last_One_2.rar

GoTo_Last_One.rar

[m_127899]

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

[m_127899]

هدية لأخي أبو أسامة

http://www.palestineremembered.com/GeoPoin...7/ar/index.html

[سالم شباني]

بورك فيك يا أستاذ أبو أسامة

حلول كثيرة ومميزة

[m_127899]

أستاذي الكريم أبو أسامة السلام عليكم ورحمة الله وبركاته

( هل يمكن توسيع السنة ) هذه المعادلة لسنة واحدة (2009 ) هل يمكن أن تكون لأكثر من سنة ( 2009 و 2010 و .....)

بارك الله بك وجزاك الله كل خير