اذهب الي المحتوي
أوفيسنا

استفسار عن طريقة لازالة المعادلات او الارتباطات التشعبية


الردود الموصى بها

بسم الله الرحمن الرحيم

يا اخوان انا عندي برنامج مكون من 10 صفحات مثلا واريد ان ارسل صفحة واحد فقط من هذه العشرة صفحات

ولو نفرض اني اريد ارسل الصفحة رقم 3 بالبريد الاكتروني

هناك مشكلة الصفحة 3 تحتوي على بعض المعادلات وبعض الارتباطات التشعبية على نفس البرنامج

واذا ارسلت فقط الصفحة عند الطرف الثاني يظهر عنده زر التحديث الملف انا ما ابيه يحدث انا انهيت البرنامج

والارقام والارتباطات واريد ارسلها ثابته يعني بدون تغيير فكيف اعمل ذلك بانتظار الاخوان المبدعين
رابط هذا التعليق
شارك

بسم الله الرحمن الرحيم

يا اخوان انا عندي برنامج مكون من 10 صفحات مثلا واريد ان ارسل صفحة واحد فقط من هذه العشرة صفحات

ولو نفرض اني اريد ارسل الصفحة رقم 3 بالبريد الاكتروني

هناك مشكلة الصفحة 3 تحتوي على بعض المعادلات وبعض الارتباطات التشعبية على نفس البرنامج

واذا ارسلت فقط الصفحة عند الطرف الثاني يظهر عنده زر التحديث الملف انا ما ابيه يحدث انا انهيت البرنامج

والارقام والارتباطات واريد ارسلها ثابته يعني بدون تغيير فكيف اعمل ذلك بانتظار الاخوان المبدعين

برجاء إرفاق ملف

تقبل تحياتي

رابط هذا التعليق
شارك

ما يحتاج اني اضيف مرفق لان السوال اتوقع واضح

المطلوب ترسل شيت واحد من برنامج مصصم على الاكسل من عدة صفحات وهذه الصفحة اللي انت تبي ترسلها فيها ارتباطات تشعبية

فيها روابط معادلات مرتبطة مع البرنامج

انا ابي ارسل فقط الشيت هذا في البريد الاكتروني وزملائنا البقية اذا فتحوا الملف يطلع لهم الملف فقط بالارقام بدون ما يقوله تحديث

او الملف مربوط مع ملف اخر

اذا ماهو واضح سوف ارفق ملف بس حتى لو ارفقته ما رايح يكون له فائده

رابط هذا التعليق
شارك

هذا ملف مرفق

حاول تفتح صفحة جديده بالاكسل وتنسخ الشيت مثلا 2 وترسله بالبريد الى شخص ما

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

test.zip

رابط هذا التعليق
شارك

الاخ العزيز

بالامس رايت طلبك ووجدت لك الحل و لكن للاسف

كان الوقت متاخر و اليوم لمجرد وجدت فرصه احببت

ان ارسل لك هذا فقد يساعدك ان شاء الله

و لكن ارجو الرد لمعرفة ان هذا الحل قد افادك من عدمه

:fff::fff:

For_you.rar

رابط هذا التعليق
شارك

الاخ فهيد

اخى ضع هذا الكود بالملف فى موديول ونفذه

Sub Del_All_Link()
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
End Sub

رابط هذا التعليق
شارك

الاخ العزيز ابو تامر

بعد تجربة الكود اكثر من مره

وجد به شيئ بسيط اعذرني و سامحني اخي لاضافتي هذه

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

تم تعديل بواسطه aah_aah2008
رابط هذا التعليق
شارك

مشكورين اخواني على المساعدة لكن للاسف ما ضبط معي

اولا الكود هذا وين احطه في محرر الفيجول بيسك وبعدين لصقته وسويت له حفظ وطلعت من الملف

عند العوده قالي لازم تسوي تحديث من المستند الاصلي اللي انا ناسخ منه

رابط هذا التعليق
شارك

يااخي هذه الرساله عاديه جدا و تاتي دائما عندما يكون الملف به

ارتباطات سواء هيبر لينك او معادلاتت داخل المصنف الواحد او بين المصنف واخر

وهذا امر طبيعي جدا ولا اعرف مايقلقك في هذه الرساله و بعدين لقد تم ارسال

طريقتين في منتهي الروعه لتخلصك من ان لايري احدا معادلاتك و اظن ان هذا هو ماكان

مغزي مطلبك كما ظننت !!!!!! :fff:

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information