ريان أحمد قام بنشر مايو 9, 2011 قام بنشر مايو 9, 2011 السلام عليكم عندي برنامج كل شهر أقوم بعمل روتيني وهو جلب ملف من ورقة خارجية ونسخ البيانات منها بواسطة فورم ونسخ عمود a في العمود b في ورقة 01 وتغير تاريخ في الخلية تبعا للشهر الحالي المطلوب أنني كل ما يأتي شهر جديد وأدخل البرنامج يعلمني بعمل هذه الإجراءات وإلا يغلق الملف ولا يدعني أكمل
طارق محمود قام بنشر مايو 10, 2011 قام بنشر مايو 10, 2011 السلام عليكم أنظر المرفق قد يكون هو ماتريد تغير تاريخ الخلية تبعا للشهر .rar
طارق محمود قام بنشر مايو 10, 2011 قام بنشر مايو 10, 2011 (معدل) جلب ملف من ورقة خارجية ونسخ البيانات منها بواسطة فورم ونسخ عمود a في العمود b في ورقة 01 وتغير تاريخ في الخلية تبعا للشهر الحالي المطلوب أنني كل ما يأتي شهر جديد وأدخل البرنامج يعلمني بعمل هذه الإجراءات وإلا يغلق الملف ولا يدعني أكم نسيت ان اذكر لك أن الإجراءات المطلوبة في المثال السابق أنا فرضتها أنها مجرد كلمة السر وهي 123 تم تعديل مايو 10, 2011 بواسطه TareQ M
ريان أحمد قام بنشر مايو 10, 2011 الكاتب قام بنشر مايو 10, 2011 إليك المرفق ليتضح المطلوب ---ضع ملف بإسم tahar في الدرايف c لكي يعمل المثال 88.rar
طارق محمود قام بنشر مايو 10, 2011 قام بنشر مايو 10, 2011 أين هي الخلية التي تغيرها جلب ملف من ورقة خارجية ونسخ البيانات منها بواسطة فورم ونسخ عمود a في العمود b في ورقة 01 وتغير تاريخ في الخلية تبعا للشهر الحالي المطلوب أنني كل ما يأتي شهر جديد وأدخل البرنامج يعلمني بعمل هذه الإجراءات وإلا يغلق الملف ولا يدعني أكم وتغير تاريخ في الخلية تبعا للشهر الحالي
طارق محمود قام بنشر مايو 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
ريان أحمد قام بنشر مايو 12, 2011 الكاتب قام بنشر مايو 12, 2011 السلام عليكم أخي وأستا\ي شكرا على الملف لكن .... عندما أغير التارخ في الخلية يطالبني بكلمة سر أدخل كلمة سر 123 يقبل الدخول لكن والخطوة الأولى والخطوة الثانية لم أعملهم ودخل وهذا هو المطلوب وكذلك الشهر أريده أنه بمجرددخول أول أيام كل شهر يطالبني بثلاث خطوات ثم يدخل ولا يكرر هذه العملية إلا في بداية شهر جديد وهذا هو المطلوب الترتيب الموضح في الملف هام جدا يعني إنت ركزت فقط على تغيير الشهر في خلية بكلمة سر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.