accountant_mostafa قام بنشر مارس 17, 2011 قام بنشر مارس 17, 2011 الأخوة الأفاضل اريد عند الضغط علي الشهر مثلا " 1 " يقوم البرنامج بفك الهيد واذا ضغط علي الشهر مرة اخرة يقوم بالأخفاء مرة اخرة أو العكس يعني انا عاوز اضغط علي اي شهر يقوم البرنامج بتهيد الشهر مرفق الملف المطلوب التعديل فية علي كل الشهور سواء بالأكواد او المعادلات
accountant_mostafa قام بنشر مارس 20, 2011 الكاتب قام بنشر مارس 20, 2011 أخي الكريم مصطفى لا توجد أي ملفات مرفقة جزاك الله كل خير علي ردك نسيت ان ارفقة وارفقتة الان ???????.rar
طارق محمود قام بنشر مارس 22, 2011 قام بنشر مارس 22, 2011 السلام عليكم أخي الكريم / مصطفي ضع الكود التالي في حدث الورقة "اكسبريس" Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column <> 3 Then Exit Sub For i = 1 To 12 k = (i - 1) * 201 If Target.Row = k + 3 Then GoTo 10 Next i Exit Sub 10 If Rows(k + 2).EntireRow.Hidden = True Then Rows(k + 2).EntireRow.Hidden = False Range(Rows(k + 4), Rows(k + 202)).EntireRow.Hidden = False Else Rows(k + 2).EntireRow.Hidden = True Range(Rows(k + 4), Rows(k + 202)).EntireRow.Hidden = True End If End Sub وبعدها تحفظ الملف بصيغة xlsm لحفظ الماكرو مع الملف ثم بالضغط دبل كليك علي أي من الأرقام (1...12) سوف يخفي أو يعيد إظهار مايلي (أ) صفا واحدا من فوقها (ب) 199 صفا واحدا اسفلها ليصل للشهر التالي وهكذا مرفق الملف أيضا اكسبريس.rar
accountant_mostafa قام بنشر مارس 22, 2011 الكاتب قام بنشر مارس 22, 2011 السلام عليكم أخي الكريم / مصطفي ضع الكود التالي في حدث الورقة "اكسبريس" Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column <> 3 Then Exit Sub For i = 1 To 12 k = (i - 1) * 201 If Target.Row = k + 3 Then GoTo 10 Next i Exit Sub 10 If Rows(k + 2).EntireRow.Hidden = True Then Rows(k + 2).EntireRow.Hidden = False Range(Rows(k + 4), Rows(k + 202)).EntireRow.Hidden = False Else Rows(k + 2).EntireRow.Hidden = True Range(Rows(k + 4), Rows(k + 202)).EntireRow.Hidden = True End If End Sub وبعدها تحفظ الملف بصيغة xlsm لحفظ الماكرو مع الملف ثم بالضغط دبل كليك علي أي من الأرقام (1...12) سوف يخفي أو يعيد إظهار مايلي (أ) صفا واحدا من فوقها (ب) 199 صفا واحدا اسفلها ليصل للشهر التالي وهكذا مرفق الملف أيضا اخي الفاضل جزاك الله كل خير ولكن للأسف الملف لا يعمل قد يكون السبب هو عدم معرفتي كيف احفظ الملف بنفس الصيغة المطلوبة أو للسبب اخر لا اعلمه واني انتظر توجيهك اخي الفاضل جزاك الله كل خير ربنا يذيد علمك وينفعك بة في الدنيا والأخرة
accountant_mostafa قام بنشر مارس 22, 2011 الكاتب قام بنشر مارس 22, 2011 جزاك الله كل خير اخي الكريم الملف يعمل الان ولكن حوالت تنفيذ الكود في شيت اخر ولكن لا يعمل فما هو السبب جزاك الله كل خير
accountant_mostafa قام بنشر مارس 22, 2011 الكاتب قام بنشر مارس 22, 2011 ضع الكود التالي في حدث الورقة "اكسبريس" ما معني كلمة حدث فلم اتعامل معها من قبل أو اقوم بأضافة اكواد في الحدث قمت من قبل باضافة اكواد في الموديلز فبرجاء من اخي الفاضل توضيح لي كيف يمكن لي اضافة اكواد في الحدث جزاك الله كل خير
طارق محمود قام بنشر مارس 23, 2011 قام بنشر مارس 23, 2011 السلام عليكم ما معني كلمة حدث أخي الكريم كل شيء سهل إن شاء الله بالصبر والتعلم افتح الملف افتح محرر الفيجوال بيزيك ALT-F11 ستجد علي اليسار قائمة بها أسماء الملفات المفتوحة وأسفل كل ملف مكوناته وفي ملفنا هذا لن تجد إلا Sheet1 (إكسبريس) ------------- الخيار الأول للأكواد الخاصة بهذه الورقة فقط This workbook ------------- الخيار الثاني للأكواد الخاصة بالملف كله وطبعا يمكن إضافة موديول أو فورم أو أكثر أيضا أنقر دبل كليك علي Sheet1 (إكسبريس) ستجد المؤشر انتقل اوتوماتيكيا للجهه اليمني من الشاشة حيث ستكتب الكود (أو تنسخه) أي أنك ستكتب هنا كود خاص فقط بهذه الورقة ولن يتم تنفيذه في باقي الملف ان كان به اكثر من ورقة وستجد أيضا تصنيف آخر للكود وذلك أعلي المساحة المخصصة لكتابة الكود مباشرة والتصنيف هذا (إن ضغطت علي السهم الخاص به) ستجده إما General أو Worksheet أي أنك ستحدد الكود هذا للورقة عموما أم أنه مرتبط بحدث معين في الورقة وهذا هو معني كلمة حدث موضوع السؤال وكودنا الحالي مرتبط كما هو واضح في اسمه Worksheet_BeforeDoubleClick بعملية الدبل كليك وكموجز سريع عن الكود أنه يعمل أوتوماتيكيا عندما تضغط دبل كليك داخل هذه الورقة إن كان موضع ضغط دبل كليك في غير المواضع المطلوبة يخرج من البرنامج وكأن شيئا لم يحدث وإن كان موضع ضغط دبل كليك في أي موضع من المواضع المطلوبة يبدأ بالتنفيذ كالتالي يراجع علي الصف أعلي الموضع إن كان مخفيا ، يظهره ومايتبعه 199 أسفل الموضع وإن كان ظاهرا ، يخفيه ومايتبعه 199 أسفل الموضع أرجو أن أكون وفقت لتسهيل الأمر عليك مع خالص تحياتي
accountant_mostafa قام بنشر مارس 23, 2011 الكاتب قام بنشر مارس 23, 2011 والله ما اعلم كيف اشكر اخي الفاضل الكريم ولكن جزاك الله كل خير علي توضيحك لي الأمر وعلي مجهودك وادعو الله لك ان يذيدك من علمه وفضله وينفعك به في والدنياالأخرة آمـــــــــــــــين
accountant_mostafa قام بنشر مارس 25, 2011 الكاتب قام بنشر مارس 25, 2011 اخي الفاضل TareQ M جزاك الله كل خيرعلي ماتقدمة لكل اعضاء المنتدي لي استفسار اخر 1- الكود السابق يعمل بصورة جيدة علي شيت واحد ولكن عند محاولة تطبيقالكود علي الورك بوك كاكل لا يعمل الكود مع تطبيق ما تعلمتة منك اخي الكريم 2-اريد من حضرتك ان اتعلم كيف اكتب الكود او تطبيق فكرة معينة عن طريق الأكواد فهل من الممكن ان ترشدني الي ذلك وطبعا اكيد هرجع لحضرتك اثناء تطبيق اي كود لكي استفيد من خبرة حضرتك وجزاك الله كل خير
طارق محمود قام بنشر مارس 26, 2011 قام بنشر مارس 26, 2011 السلام عليكم 1- الكود السابق يعمل بصورة جيدة علي شيت واحد ولكن عند محاولة تطبيقالكود علي الورك بوك كاكل لا يعمل الكود مع تطبيق ما تعلمتة منك اخي الكريم صحيح فهذا الكود خاص فقط بهذه الورقة كما قلت لك في مشاركتي من قبل ... أنقر دبل كليك علي Sheet1 (إكسبريس) ستجد المؤشر انتقل اوتوماتيكيا للجهه اليمني من الشاشة حيث ستكتب الكود (أو تنسخه) أي أنك ستكتب هنا كود خاص فقط بهذه الورقة ولن يتم تنفيذه في باقي الملف ان كان به اكثر من ورقة ... لذلك لابد من أخذ نسخة من الكود لكل ورقة تريده ان يعمل بها كما أوضحت في مشاركتي السابقة أو عمل كود آخر للملف ككل 2-اريد من حضرتك ان اتعلم كيف اكتب الكود او تطبيق فكرة معينة عن طريق الأكواد بالمنتدي كثير من الموضوعات ادخل واقرا وحاول وكلنا معك لأي أسئلة واستفسارات مع تمنياتي بالتوفيق والسداد
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.