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

كيفية حفظ ملف Excel بقيمة الخلية؟

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

احفظ ملف Excel بقيمة خلية محددة باستخدام التعليمات البرمجية لـ VBA

علامة تبويب Office تمكن من التحرير والتصفح المبوب في المكتب ، واجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ والمخططات الأكثر استخدامًا أو تعقيدًا وأي شيء آخر إلى مفضلاتك ، وأعد استخدامها بسرعة في المستقبل.
  • أكثر من 20 ميزة نصية: استخراج رقم من سلسلة نصية ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية.
  • أدوات الدمج: مصنفات وأوراق متعددة في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقد البيانات ؛ دمج الصفوف المكررة والمجموع.
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد لملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة.
  • لصق التخطي صفوف مخفية / مصفاة العد والمجموع حسب لون الخلفية؛ إرسال رسائل بريد إلكتروني مخصصة إلى مستلمين متعددين بشكل مجمع.
  • مرشح سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ تصنيف حسب: حسب الأسبوع واليوم والتكرار والمزيد ؛ تصفية بواسطة bold، formulas، comment ...
  • أكثر من 300 ميزة قوية ؛ يعمل مع Office 2007-2021 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

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

قد تساعدك التعليمات البرمجية لـ VBA التالية في حفظ المصنف بقيمة خلية محددة ، يرجى القيام بما يلي:

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

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

كود فبا: احفظ ملف إكسل بقيمة خلية محددة

Private Sub filename_cellvalue()
'Update 20141112
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

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

doc-save-with-cell-value-1. حفظ المستند بالخلية

الملاحظات:

1. يمكنك تحديد أي قيمة خلية كاسم ملف بمجرد تعديل A1 إلى مرجع خلية أخرى في الكود أعلاه.

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


مقالات ذات صلة:

كيفية حفظ الملف مع التاريخ والوقت في إكسيل؟

كيفية إظهار مسار الملف في شريط العنوان أو شريط الأدوات في إكسيل؟


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (33)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الوحدة النمطية لا يحفظ في. xlsx ؛ أعتقد أن لها علاقة بالسطر 7 ؛؛ ".xls" ، تنسيق الملف: = xlNormal ؛ أيضًا كيف يمكنني التعديل لأخذ القيمة من 3 خلايا مختلفة متسلسلة؟ على سبيل المثال: الاسم الأول ، الاسم الأخير ، التاريخ ؛ في السطر 6 من الكود؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
خافت اسم الملف كسلسلة
Dim filename1 كسلسلة
Dim filename2 كسلسلة

المسار = "C: \ Users \ dt \ Desktop \ my information \"
اسم الملف = النطاق ("A1")
filename1 = النطاق ("A2")
filename2 = النطاق ("A3")
ActiveWorkbook.SaveAs اسم الملف: = المسار & اسم الملف & "-" & filename1 & "-" & filename2 ".xls" ، تنسيق الملف: = xlNormal
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كريس. يمكنك تجميعها في خلية منفصلة ثم إعادة إحياء تلك الخلية لتكون قيمة اسم الملف الخاص بك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، سيحفظ Mine كمسار واسم ملف فقط. أريد فقط حفظ اسم الملف المشار إليه من الخلية فقط. هل تستطيع مساعدتي رجاء؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا رائع جدًا ... ولكن يبدو أن هناك خطأ لست متأكدًا من كيفية تصحيحه. أنا أستخدم هذا في قالب ممكن بماكرو. أقوم بفتح القالب ، وإجراء التغييرات / التحديثات ، والضغط على F5 لتشغيل الماكرو ... و ... ينبثق مربع حوار "الانتقال إلى" متوقعًا مني إدخال "مرجع". ومع ذلك ، إذا قمت بالضغط على ALT F11 ، ثم اضغط على F5 ، يتم حفظ ملف .xls الجديد كما هو متوقع. هل أحتاج دائمًا إلى فتح وحدة Visual Basic لتشغيل إجراء "الحفظ" هذا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي قالب لا أرغب في كتابته بحيث يُطلب من المستخدم حفظ الملف المسمى حسب التاريخ الذي تم إدخاله في أحد الحقول. لا أريد أن يضطر المستخدم إلى فتح الأدوات ثم تحديد / تشغيل الماكرو. قد يقومون فقط بإدخال اسم الملف.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يمكنك إضافة = NOW () كمعامل إلى اسم الملف الخاص بك في الخلية قبل استخراجه في الماكرو (وأيضًا ضع زرًا قياسيًا في زاوية الصفحة بحيث لن يضطر الممارس إلى فتح أي أدوات
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنتم منقذون يا رفاق. شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ولست بحاجة للحفظ كملف .csv. كيف يمكنني تغيير هذا لحفظه كملف .csv؟ Private Sub filename_cellvalue () 'Update 20141112 Dim Path As String Dim filename As String Path = "C: \ Doorlister \ import \ DoorJob \" filename = Range ("AC2") ActiveWorkbook.SaveAs اسم الملف: = المسار & اسم الملف & ".xls "، FileFormat: = xlNormal End Sub شكرًا لك مقدمًا على مساعدتك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أعتقد أنني فعلت شيئًا خاطئًا هنا ...

يعطيني خطأ في أوراق السطر ("shitname"). حدد

ربما فعلت شيئًا خاطئًا عندما قمت بتسمية "shitname" مثل الخلية K10

أريد تغيير الورقة إلى ورقة أخرى تسمى تمامًا مثل الخلية K10


ماكرو جكسيل
'
اختصار لوحة المفاتيح: Ctrl + Shift + C
'
الاختيار
أوراق ("debagat"). حدد
صفوف ("8: 8"). حدد
ActiveSheet.Paste
مسار خافت كسلسلة
المسار = "C: \ cgxml \"
خافت اسم الملف كسلسلة
اسم الملف = النطاق ("A8")
اسم خافت كسلسلة
shitname = المدى ("K10")
أوراق ("shitname"). حدد
Application.CutCopyMode = خطأ
ActiveWorkbook.SaveAs اسم الملف: = المسار & اسم الملف & ".xml" ، تنسيق الملف: = xltxt ، CreateBackup: = خطأ
الأوراق ("TOTAL"). حدد
ActiveCell.Offset (1، 0) .EnireRow.Select
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا يعمل بشكل رائع ... شكرًا لك ، لكني بحاجة إلى الحفظ كملف PDF ... أي أفكار؟

شكر

كريس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كما هو مذكور أعلاه ولكن استبدل ActiveWorkbook.SaveAs بـ: "ActiveSheet.ExportAsFixedFormat Type: = xlTypePDF ، اسم الملف: = _" C: \ input filenamne.pdf "، الجودة: = _
xlQualityStandard ، IncludeDocProperties: = صحيح ، IgnorePrintAreas: = خطأ ، _
OpenAfterPublish: = صحيح
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لملاحظاتك ، ساعدني كثيرا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
ما الذي يجب علي إضافته إذا أردت حفظ ورقة العمل النشطة ولكن باستخدام قيمة الخلية 1 في الورقة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الرجاء المساعدة ... لقد تمكنت من القيام بكل شيء. لكنه يحفظ المستندات في "المستندات" بدلاً من الخادم المحدد ...



أمر فرعي خاص
مسار خافت كسلسلة
خافت اسم الملف 1 كسلسلة
خافت اسم الملف 2 كسلسلة
خافت اسم الملف 3 كسلسلة
خافت اسم الملف 4 كسلسلة
خافت اسم الملف 5 كسلسلة
المسار = "J: \ Protection Services \ Documents \ Booysendal security"
FileName1 = النطاق ("A2")
FileName2 = النطاق ("B2")
FileName3 = النطاق ("C2")
FileName4 = النطاق ("D2")
FileName5 = النطاق ("E2")
ActiveWorkbook.SaveAs Filename: = FileName1 & "-" & FileName2 & "-" & FileName3 & "-" & FileName4 & "-" & FileName5 & ".xls"، FileFormat: = xlNormal
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أضف شرطة مائلة للخلف بعد الأمان وقبل الاقتباس ... ... الأمان \ "
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا لو كنت تريد فقط تحديد اسم الملف ولكن لديك خيار اختيار مسار الملف في كل مرة تحفظ فيها؟

يمكنك أيضًا تحديد خلايا متعددة لاسم الملف. يتم دمج الخلايا أيضًا.

احفظ في مسارات ملفات مختلفة في كل مرة

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

كيف يمكن حفظ الإدخال المتكرر في نفس الخلايا ، في خلايا أخرى ، باستخدام ماكرو؟

في الورقة 1 ، أدخل البيانات في A1 ، B1 ، C1 ، لعدد n من المرات في اليوم. في الورقة 2 ، أحتاج إلى حفظ كل هذه السجلات ، في A2 ، B2 ، C2 ، A3 ، B3 ، C3 ، إلخ. Tnx!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا الأصدقاء،
لدي مشكلة وسأكون سعيدًا إذا كان هناك من يساعدني
لدي ملف على محرك الأقراص "F" والمجلد "ABS" - اسم الملف الخاص بي هو "Listdata"
في ملف Excel على سطح المكتب ، أريد خلايا (4,4،1) لاسترداد البيانات من ورقة "ABS" (2,2) والخلية (XNUMX،XNUMX)
الكود أدناه
الماكرو الفرعي 1 ()
activesheet.Cells (4، 4) .Value = "F: \ ABS \" & listdata & ".xlsx" & Sheets (1) .Cells (2، 2) .Value
نهاية الفرعية
لكنها لا تعمل بشكل صحيح
شكرا اصدقاء
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أحاول استخدام هذا الرمز ولكن عندما أحاول التنفيذ ، أحصل على خطأ وقت التشغيل 1004 ويبرز الصف 7 على أنه غير صالح: ActiveWorkbook.SaveAs filename: = Path & filename & ".xls" ، FileFormat: = xlNormal
كيف يمكنني حل هذا؟ أنا باستخدام Office 365
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Se a célula de Referencia estiver em uma outra planilha já aberta؟ كومو فاسو؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلاً. أنا متحمس جدًا لأنه يمكن أن ينجح ولكن بالنسبة لي يقول "خطأ وقت التشغيل الأساسي. لم يتم تحديد إجراء Sob أو إجراء وظيفي." والسهم الذي يشير إلى السطر 6. ماذا أفعل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي زر تحكم للحفظ بتنسيق PDF باسم محدد لموقع معين يعمل بالفعل ، لكني أريد تعديل الرمز لأن اسم الملف هو اسم الورقة النشطة بالإضافة إلى قيمة خلية معينة من ورقة أخرى. كيف يمكنني فعل ذلك؟ هذا ما لدي من أجل حفظه بصيغة PDF:


أمر فرعي خاص
Application.ScreenUpdating = خطأ
نوع ActiveSheet.ExportAsFixedFormat: = xlTypePDF ، _
اسم الملف: = "\\ U: \ Documents \ My_IT_Stuff \ T&A \ PP11"، _
OpenAfterPublish: = خطأ
Application.ScreenUpdating = ترو
نهاية الفرعية

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

المدخرات الفرعية الخاصة ()

مسار خافت كسلسلة

Dim filename1 كسلسلة



المسار = "C: \ User \ Compwork \"



filename1 = المسار & المدى ("G4") & "" & "-" & "& المدى (" G6 ") &" "&" - "&" & المدى ("H7") & "" & "VTError "

Application.DisplayAlerts = خطأ

ActiveWorkbook.Saveas filename1 ، FileFormat: = 52 ، CreateBackup: = False

ThisWorkbook.Worksheets ("report"). ExportAsFixedFormat Type: = x1typePDF، Filename: = filename1

Application.DisplayAlerts = صحيح

ActiveWorkbook. إغلاق



نهاية الفرعية



ومع ذلك ، فإن مشكلتي هي أنني أرغب في حفظ اسم ملف دون ترك مسافة إذا كانت قيمة الخلية NULL على سبيل المثال ، إذا كانت قيمة G6 فارغة ، فأنا أحب إخراج "G4-H7 VTError".
هل هناك طريقة للتعامل مع هذا؟


شكر.
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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