بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
عادل حنفي
-
Posts
2,490 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
8
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه عادل حنفي
-
-
-
يااخي هذه الرساله عاديه جدا و تاتي دائما عندما يكون الملف به
ارتباطات سواء هيبر لينك او معادلاتت داخل المصنف الواحد او بين المصنف واخر
وهذا امر طبيعي جدا ولا اعرف مايقلقك في هذه الرساله و بعدين لقد تم ارسال
طريقتين في منتهي الروعه لتخلصك من ان لايري احدا معادلاتك و اظن ان هذا هو ماكان
مغزي مطلبك كما ظننت !!!!!!
-
اخي العزبز ارسل المطلوب في ملف مرفق
-
الاخ العزيز ابو تامر
بعد تجربة الكود اكثر من مره
وجد به شيئ بسيط اعذرني و سامحني اخي لاضافتي هذه
Private Sub CommandButton_Click() On Error Resume Next MySheet = InputBox(ActiveSheet.Name, "Omar", ActiveSheet.Name) If MySheet = "" Then Exit Sub Sheets(MySheet).Select Sheets(MySheet).Copy Before:=ActiveSheet ActiveSheet.Name = "SendMe2 Mail" Application.ScreenUpdating = False With ActiveSheet.UsedRange .Value = .Value .Cells.Hyperlinks.Delete End With Application.ScreenUpdating = True End Sub
-
الاخ العزيز ابو تامر
يالفعل استاذ و احييك
فكودك رائع ربنا يوفقك الي ما فيه الخير
-
علي فكره يا اخي لقد قمت بعمل المطلوب
مع ملاحظة انك بضغطك علي الزر فسيقوم
بالغاء المعادلات والهيبرلينك ل الثلاث صفحات
و هذا للتاكيد فقط
-
الاخ العزيز
بالامس رايت طلبك ووجدت لك الحل و لكن للاسف
كان الوقت متاخر و اليوم لمجرد وجدت فرصه احببت
ان ارسل لك هذا فقد يساعدك ان شاء الله
و لكن ارجو الرد لمعرفة ان هذا الحل قد افادك من عدمه
-
احسنت اخي سمير
-
الاخ العزيز forcast
اتمني ان يكون قصدك قد وصلني وان كان كذلك
فاليك الحل و ان لم يكن فارجو الرد
-
اخي العزيز نزار سليمان
شكرا علي مرورك الكريم
-
اخي العزيز عذرا ارجو ان افهم الذي تريد ان تحققه المعادله
-
اخي العزيز ياريت تشرح ماتريد ان تفعله لك المعادله لان المعادله بها خطأ
و لكن الحل سيكون بفهم ماتريد ان تحققه المعادله
-
بسم الله الرحمن الرحيم
الاخوه الاعزاء هذه اول مشاركه فعايه لي و اتمني ان اجيد فيها قدر استطاعتي
لانني لالفعل احببت ان اكون مشاركا في هذا المنتدي الرائع و المشرف لكل
فرد تحت لواء الوطن العربي
لن ادعي ابد انني فلتة زماني في الاكسيل فما وجدته هنا بالفعل مستوي عالي
و اسعدني علي الاقل ان اكون عضوا بهذا المنتدي و اشارك فيه بما عملت يداي
حتي لو كان هذا الاشتراك بشكل بدائي او بمعني اصح علي قدر معرفتي
فلن اخزل ابدا من ان اكون مبتدئ فانا بالفعل مبتدئ بالنسبه لعظام موجودون
بهذا المنتدي و لن اذكر اسماء حتي لا انسي احدا فكل من مر علي هذا المنتدي
عرفهم من اللحظه الاولي فلهم مني خالص الاحترام و التقدير
اطلت عليكم انا اسف علي ذلك
اليوم اشترك معكم بملف اعمل عليه في عملي و كان المروض ان امحي البيانات التي داخل الملف
شهريا و اعمل منه 30 نسخه لتجهيزهم للشهر الجديد و من هنا بدأت فكره عمل شئ يكون سريع
وامن قدر المستطاع و لن انكر ان ما كنت اريده قربه لذهني هذا المنتدي و جعلني افكر فيه بترتيب ذهني
لاعمل هذا علي برنامج صغير و لمجرد ان نجحت في هذا احببتكم ان تشاركوني
اولا الرقم السري 1234
شرح سريع لاذرار الفورم
clear without save هذا الذر لمسح مدي معين في ال3 ورقات عمل و تجهيزهم فقط للعمل
save as هذا الذر لحفظ الملف بعد المسح باسم معين تريده و في مكان معين تريده
clear&save all work هذا الذر لمسح المدي المحدد سابقا و حفظ كامل الملف في مكان معين تم تحديده برمجيا
و بمسار و اسماء محدده وسيكون في درايف ال D داخل فولدر اسمه Adel لذا يجب عليك وخصوصا قبل الضغط علي ذر
clear&save all work ان تذهب لل D و تنشئ فولدر جديد و تسميه باسم Adelلعله عمل يعجبكم و منتظر ردوكم و آرائكم و دعواتكم
-
اخي العزيز
عذرا فقد يكون في كلامي قلة خبره ازعجتك
و لكن اعزرني فعندما جربت الكود وجدته يعمل عدد صفحات ل29 يوم فقط
و عندما عملت تعديل يدوي للمديول وجعلته For i = 1 To 32 النتيجه كانت جيده
ولكن المطلوب الاول من البرنامج ان يعمل عدد صفحات من 1:30 او من 1:31
حسب الشهر الفعلي دون تدخل مني
اما المطلوب الثاني ان يراعي او يضع في الاعتبار شهر مثل شهر فبراير اذا كان
لعام 2008 او 2007 بمعني اخر فقد يكون في سنه 28 يوم و في اخري 29 يوم
و الا سيتم التعديل اليدوي كل فتره
قد تكون فكرتي وصلت اليك و اسف علي الطلب القليل الخبره
-
اخي الحبيب و استاذنا ابو اسامه
دائما رائع و مبدع
و لكن ليكون للكود اكثر نفعا هل من الممكن ان يضيف بالضغطه الواحده عدد صفحات بعدد ايام الشهر عن سنه معينه
-
اخي العزيز لا نملك الا القول بالدعاء
لوالدك ان يتغمده الله برحمته و ان لله و انا اليه لراجعون
-
الاح العزيز ابو اسامه
كود رائع ما شاء الله عليك
و لكن عذرا انه عند حذف اسم بعد اضافته لايظهر هذا التاثير علي باقي الصفحات
و اشكرك
-
رائع ما شاء الله عيك
-
-
الاخ العزيز قد يساعدك هذا الكود
و لكن يجب عليك عما معاينه للصفحه التي تريد طباعتها
و تنسيقها قبل كتلبة الكود
ارجو ان يفيدك هذا برجاء الدعاء
-
-
اخي العزيز
لعل في هذا المثال اجابه لطلبك
الربط بين ملفين
في منتدى الاكسيل Excel
قام بنشر · تم تعديل بواسطه aah_aah2008
اخي الفاضل بكل بساطه عندما تربط ملف اكسل باخر
اظن انك تستخدم علامة التساوي "=" و للعلم اذا كان ربط خليتين في نفس الشيت فليس هناك
اي مشكله اما اذا كان الربط مع خليه في ملف اخر تظهر المشكله و المشكله باختصار انه يتولد عن ذلك معادله
ولكن مع تصبيت الخليه التي اشر اليها في الملف الاخر لذا يجب عليك التعديل عليها قبل سحبها داخل الملف
فسيكون شكل المعادله علي سبيل المثال كالتالي ='[العملاء.xls]تحليلي لحساب العملاء'!$D$68 لذا يتوجب عليك التخلص من علامتي ال $ ليكون شل المعادله كالتالي ='[العملاء.xls]تحليلي لحساب العملاء'!D68 بعد ذلك اسحب الخليه لتعمل باقي الخلايا ...... وياريت يكون هو ده قصدك و اكون قدرت اوصلك المعلومه....