Note: The other languages of the website are Google-translated. Back to English

كيف تحفظ جميع أوراق العمل كقيم فقط؟

إذا كان لديك مصنف يحتوي على صيغ متعددة ، فأنت الآن بحاجة إلى توزيع هذا الملف على مستخدمين آخرين ، ولا ترغب في إظهار الصيغ ولكن يتم عرض القيم فقط. عادة ، يمكننا حفظ ورقة العمل بسرعة كقيم عن طريق نسخ البيانات ولصقها كقيم فقط. ولكن ، كيف يمكنك حفظ جميع أوراق العمل كقيم فقط دون نسخ ولصق واحدة تلو الأخرى؟

احفظ جميع أوراق العمل كقيم فقط باستخدام كود VBA


السهم الأزرق الحق فقاعة احفظ جميع أوراق العمل كقيم فقط باستخدام كود VBA

يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية في حفظ جميع الأوراق بسرعة كقيم (بدون صيغ) والحفاظ على جميع تنسيقات الخلايا. يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

كود فبا: احفظ كل أوراق العمل كقيم فقط:

Sub Saveasvalue()
'Updateby Extendoffice
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذه التعليمات البرمجية ، وتم حفظ المصنف بأكمله كقيم فقط ، تمت إزالة جميع الصيغ مرة واحدة فقط اترك القيم بتنسيق الخلية.

ملاحظة: قبل تطبيق التعليمات البرمجية ، يمكنك حفظ نسخة من المصنف أولاً.


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (18)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا! عمل كود VBA بشكل رائع.
هناك شيء واحد لاحظته ، عندما حاولت استخدامه في مصنف مع عامل التصفية في بعض الخلايا ، لن يعمل.
أي حل بديل لهذا الرمز للعمل دون تعطيل عامل التصفية؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي نفس المشكلة عند استخدام كود فبا مع عامل التصفية. هل كان لديك حل لذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هل كنت قادرًا على إصلاح هذا؟ لدي نفس المشكلة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
جيد جدًا! لقد حل العديد من مشاكلي. شكرًا جزيلاً. يعتبر.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا يا أخي .. هذا مذهل .. ساعدني كثيرا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Sub Saveasvalue ()
'تحديث بواسطة Extendoffice 20161025
خافت وسك ورقة عمل
لكل wsh في ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues ​​- الحصول على خطأ وقت التشغيل 1004 - هل يمكن لأي شخص المساعدة في هذا الأمر.
التالى
Application.CutCopyMode = خطأ
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما أقوم بتشغيل هذا الرمز ، أحصل على خطأ "الحصول على خطأ وقت التشغيل 1004".
لمعلوماتك ، في بلدي التفوق هناك دمج الخلايا.

سيكون من المفيد إذا قدم شخص ما الحل

شكراً لك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ميرنا
يعمل الكود أعلاه بشكل جيد في كتاب العمل الخاص بي ، ما هو إصدار Excel الذي تستخدمه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنه يعمل بشكل جيد. شكرًا.

mirna: تحتاج إلى إلغاء حماية الورقة أو الخلية. VB لا يحب وضع الحماية :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
فونسيونو !! Muito Bom !!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Tengo ese código، si bien es cierto funciona pero quisiera que no يعتبر algunas hojas de mi archivo ممتازًا. حد ذاتها puede؟
تحية.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
قم بإزالة جميع المرشحات / الحماية من جميع الملاءات. يجب أن تعمل بشكل مثالي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
جيد! ممتاز! أحتاج هذا ولكن لا يوجد أي ملاءات
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحتاج إلى نشر البيانات المالية القائمة على Excel مع المجموعات. نجح هذا في مسح جميع الصيغ وترك الأرقام فقط. الطرق الأخرى التي جربتها أدت إلى تطهير التجمعات.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك أي طريقة للتراجع عن هذا إذا نسيت حفظ إصدار الصيغة أولاً؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إنه يعمل بشكل جيد ولكني أحتاج إلى VBA من اللصق كقيمة لمجموعة من مصنفات Excel.



تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
هذا ما أستخدمه (أخرج من الملف تلقائيًا لذا لن أحفظ عن طريق الخطأ بالقيم فقط).

لكنني أردت الاحتفاظ بها تم حفظ ورقة واحدة فقط "بشكل عادي" لأن لدي قائمة منسدلة هناك لا أرغب في خسارتها عند مشاركة الملف.


هل يمكن لأي شخص أن يساعدني في فعل هذا؟

شكرا!


Sub Saveasvalue ()

خافت وسك ورقة عمل
لكل wsh في ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpeed ​​xlPasteValues
التالى
Application.CutCopyMode = خطأ

savename = Application.GetSaveAsFilename (fileFilter: = "ملفات Exel (* .xlsx) ، * .xlsx")
ActiveWorkbook.SaveAs اسم الملف: = اسم حفظ ، تنسيق الملف: = 51

Application.DisplayAlerts = False 'خروج بدون تنبيهات
التطبيق
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
sämst shjkjhgasghjdfsjhkfdgsdjhgafgb، ja u fdsvjkhgfkjahfg ka khdfzhjkg
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL