ريان أحمد قام بنشر مايو 9, 2011 مشاركة قام بنشر مايو 9, 2011 السلام عليكم عندي برنامج كل شهر أقوم بعمل روتيني وهو جلب ملف من ورقة خارجية ونسخ البيانات منها بواسطة فورم ونسخ عمود a في العمود b في ورقة 01 وتغير تاريخ في الخلية تبعا للشهر الحالي المطلوب أنني كل ما يأتي شهر جديد وأدخل البرنامج يعلمني بعمل هذه الإجراءات وإلا يغلق الملف ولا يدعني أكمل رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مايو 9, 2011 مشاركة قام بنشر مايو 9, 2011 السلام عليكم أخي طاهر الأفضل إرفاق مثال رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مايو 10, 2011 مشاركة قام بنشر مايو 10, 2011 السلام عليكم أنظر المرفق قد يكون هو ماتريد تغير تاريخ الخلية تبعا للشهر .rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مايو 10, 2011 مشاركة قام بنشر مايو 10, 2011 (معدل) جلب ملف من ورقة خارجية ونسخ البيانات منها بواسطة فورم ونسخ عمود a في العمود b في ورقة 01 وتغير تاريخ في الخلية تبعا للشهر الحالي المطلوب أنني كل ما يأتي شهر جديد وأدخل البرنامج يعلمني بعمل هذه الإجراءات وإلا يغلق الملف ولا يدعني أكم نسيت ان اذكر لك أن الإجراءات المطلوبة في المثال السابق أنا فرضتها أنها مجرد كلمة السر وهي 123 تم تعديل مايو 10, 2011 بواسطه TareQ M رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مايو 10, 2011 الكاتب مشاركة قام بنشر مايو 10, 2011 إليك المرفق ليتضح المطلوب ---ضع ملف بإسم tahar في الدرايف c لكي يعمل المثال 88.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مايو 10, 2011 مشاركة قام بنشر مايو 10, 2011 أين هي الخلية التي تغيرها جلب ملف من ورقة خارجية ونسخ البيانات منها بواسطة فورم ونسخ عمود a في العمود b في ورقة 01 وتغير تاريخ في الخلية تبعا للشهر الحالي المطلوب أنني كل ما يأتي شهر جديد وأدخل البرنامج يعلمني بعمل هذه الإجراءات وإلا يغلق الملف ولا يدعني أكم وتغير تاريخ في الخلية تبعا للشهر الحالي رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مايو 11, 2011 الكاتب مشاركة قام بنشر مايو 11, 2011 الخلية n2 في الورقة bd رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مايو 12, 2011 مشاركة قام بنشر مايو 12, 2011 السلام عليكم بل الخلية G14 بالورقة cl مرفق الملف وبه التعديلات الكود كما هو ولكن تغير فقط المرجع للخلية المرادة في حدث الورقة ضع الكودين Private Sub Worksheet_Activate() [AD1] = [G14] End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$G$14" Then Exit Sub If Month(Target.Value) = Month([AD1]) And Year(Target.Value) = Year([AD1]) Then Exit Sub 10 x = InputBox("New Mont" & Chr(10) & "Write Password ?") If x = 123 Then [AD1] = [G14] Exit Sub Else MsgBox ("Wrong Password <<<>>>") [G14] = [AD1] GoTo 10 End If End Sub وفي حدث الملف ضع الكود Private Sub Workbook_Open() Sheets("cl").Activate [AD1] = [C3] End Sub أيضا غيرت لك قليلا في مصدر بيانات الخلية G14 لتقليل حجم الملف بدلا من أن تحجز 8000 صف في الملف لمجرد تحديد التاريخ بسهم القائمة المنسدلة فقد ألغيت ذلك ، مع تحديد التاريخ ايضا بالقائمة المنسدلة ولكن بدون سهم مما قلل من حجم الملف وإن كان مازال كبير نسبيا تفضل المرفق 88-2.rar رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مايو 12, 2011 الكاتب مشاركة قام بنشر مايو 12, 2011 السلام عليكم أخي وأستا\ي شكرا على الملف لكن .... عندما أغير التارخ في الخلية يطالبني بكلمة سر أدخل كلمة سر 123 يقبل الدخول لكن والخطوة الأولى والخطوة الثانية لم أعملهم ودخل وهذا هو المطلوب وكذلك الشهر أريده أنه بمجرددخول أول أيام كل شهر يطالبني بثلاث خطوات ثم يدخل ولا يكرر هذه العملية إلا في بداية شهر جديد وهذا هو المطلوب الترتيب الموضح في الملف هام جدا يعني إنت ركزت فقط على تغيير الشهر في خلية بكلمة سر رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مايو 13, 2011 الكاتب مشاركة قام بنشر مايو 13, 2011 للرفع يا أساتذتي الكرام رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مايو 15, 2011 مشاركة قام بنشر مايو 15, 2011 السلام عليكم محاولة للرد في هذا الموضوع رابط هذا التعليق شارك 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.