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

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

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

علامة تبويب Office تمكن من التحرير والتصفح المبوب في المكتب ، واجعل عملك أسهل بكثير ...

اقرأ أكثر... تحميل مجاني ...

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

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

اقرأ أكثر... تحميل مجاني ...

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

رائعة حقا! استخدام علامات تبويب فعالة في Excel مثل Chrome و Firefox و Safari!

وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

قد تساعدك التعليمات البرمجية لـ 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 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء...

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

تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...

التعليقات (33)

لا يوجد تقييم. كن أول من يقيم!

كريس

منذ حوالي 7 سنوات

#13899

تم تصغير هذا التعليق بواسطة المشرف على الموقع

الوحدة النمطية لا يحفظ في. xlsx ؛ أعتقد أن لها علاقة بالسطر 7 ؛؛ ".xls" ، تنسيق الملف: = xlNormal ؛ أيضًا كيف يمكنني التعديل لأخذ القيمة من 3 خلايا مختلفة متسلسلة؟ على سبيل المثال: الاسم الأول ، الاسم الأخير ، التاريخ ؛ في السطر 6 من الكود؟

رد

شون كريس

منذ حوالي 3 سنوات

#13900

تم تصغير هذا التعليق بواسطة المشرف على الموقع

خافت اسم الملف كسلسلة
Dim filename1 كسلسلة
Dim filename2 كسلسلة

المسار = "C: \ Users \ dt \ Desktop \ my information \"
اسم الملف = النطاق ("A1")
filename1 = النطاق ("A2")
filename2 = النطاق ("A3")
ActiveWorkbook.SaveAs اسم الملف: = المسار & اسم الملف & "-" & filename1 & "-" & filename2 ".xls" ، تنسيق الملف: = xlNormal

رد

دان

منذ حوالي 6 سنوات

#15966

تم تصغير هذا التعليق بواسطة المشرف على الموقع

كريس. يمكنك تجميعها في خلية منفصلة ثم إعادة إحياء تلك الخلية لتكون قيمة اسم الملف الخاص بك.

رد

الانا

منذ حوالي 6 سنوات

#17060

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا ، سيحفظ Mine كمسار واسم ملف فقط. أريد فقط حفظ اسم الملف المشار إليه من الخلية فقط. هل تستطيع مساعدتي رجاء؟

رد

جريج

منذ حوالي 6 سنوات

#17240

تم تصغير هذا التعليق بواسطة المشرف على الموقع

هذا رائع جدًا ... ولكن يبدو أن هناك خطأ لست متأكدًا من كيفية تصحيحه. أنا أستخدم هذا في قالب ممكن بماكرو. أقوم بفتح القالب ، وإجراء التغييرات / التحديثات ، والضغط على F5 لتشغيل الماكرو ... و ... ينبثق مربع حوار "الانتقال إلى" متوقعًا مني إدخال "مرجع". ومع ذلك ، إذا قمت بالضغط على ALT F11 ، ثم اضغط على F5 ، يتم حفظ ملف .xls الجديد كما هو متوقع. هل أحتاج دائمًا إلى فتح وحدة Visual Basic لتشغيل إجراء "الحفظ" هذا؟

رد

كين جاينز

منذ حوالي 6 سنوات

#17278

تم تصغير هذا التعليق بواسطة المشرف على الموقع

لدي قالب لا أرغب في كتابته بحيث يُطلب من المستخدم حفظ الملف المسمى حسب التاريخ الذي تم إدخاله في أحد الحقول. لا أريد أن يضطر المستخدم إلى فتح الأدوات ثم تحديد / تشغيل الماكرو. قد يقومون فقط بإدخال اسم الملف.

رد

مارتن S كين جاينز

منذ حوالي 5 سنوات

#17279

تم تصغير هذا التعليق بواسطة المشرف على الموقع

يمكنك إضافة = NOW () كمعامل إلى اسم الملف الخاص بك في الخلية قبل استخراجه في الماكرو (وأيضًا ضع زرًا قياسيًا في زاوية الصفحة بحيث لن يضطر الممارس إلى فتح أي أدوات

رد

إيونيل د

منذ حوالي 5 سنوات

#19356

تم تصغير هذا التعليق بواسطة المشرف على الموقع

أنتم منقذون يا رفاق. شكرًا!

رد

كلفن

منذ حوالي 5 سنوات

#19448

تم تصغير هذا التعليق بواسطة المشرف على الموقع

ولست بحاجة للحفظ كملف .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 شكرًا لك مقدمًا على مساعدتك!

رد

جورج كلفن

منذ حوالي 5 سنوات

#19449

تم تصغير هذا التعليق بواسطة المشرف على الموقع

أعتقد أنني فعلت شيئًا خاطئًا هنا ...

يعطيني خطأ في أوراق السطر ("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
نهاية الفرعية

رد

كريس

منذ حوالي 5 سنوات

#20579

تم تصغير هذا التعليق بواسطة المشرف على الموقع

هذا يعمل بشكل رائع ... شكرًا لك ، لكني بحاجة إلى الحفظ كملف PDF ... أي أفكار؟

شكر

كريس

رد

مارتن S كريس

منذ حوالي 5 سنوات

#20580

تم تصغير هذا التعليق بواسطة المشرف على الموقع

كما هو مذكور أعلاه ولكن استبدل ActiveWorkbook.SaveAs بـ: "ActiveSheet.ExportAsFixedFormat Type: = xlTypePDF ، اسم الملف: = _" C: \ input filenamne.pdf "، الجودة: = _
xlQualityStandard ، IncludeDocProperties: = صحيح ، IgnorePrintAreas: = خطأ ، _
OpenAfterPublish: = صحيح

رد

فالديمار بينيا مارتن S

منذ حوالي 3 سنوات

#20581

تم تصغير هذا التعليق بواسطة المشرف على الموقع

شكرا لملاحظاتك ، ساعدني كثيرا.

رد

كينان

منذ حوالي 5 سنوات

#21289

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا،
ما الذي يجب علي إضافته إذا أردت حفظ ورقة العمل النشطة ولكن باستخدام قيمة الخلية 1 في الورقة؟

رد

STEF

منذ حوالي 5 سنوات

#21661

تم تصغير هذا التعليق بواسطة المشرف على الموقع

الرجاء المساعدة ... لقد تمكنت من القيام بكل شيء. لكنه يحفظ المستندات في "المستندات" بدلاً من الخادم المحدد ...

أمر فرعي خاص
مسار خافت كسلسلة
خافت اسم الملف 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
نهاية الفرعية

رد

مايكل Z STEF

منذ حوالي 2 سنوات

#21662

تم تصغير هذا التعليق بواسطة المشرف على الموقع

أضف شرطة مائلة للخلف بعد الأمان وقبل الاقتباس ... ... الأمان \ "

رد

جانيس برباج

منذ حوالي 5 سنوات

#21905

تم تصغير هذا التعليق بواسطة المشرف على الموقع

ماذا لو كنت تريد فقط تحديد اسم الملف ولكن لديك خيار اختيار مسار الملف في كل مرة تحفظ فيها؟

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

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

استخدم خلايا متعددة لاسم الملف

رد

بروس ماكنتاير

منذ حوالي 5 سنوات

#22501

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

رد

راجيف

منذ حوالي 4 سنوات

#26361

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

رد

إشعاع

منذ حوالي 4 سنوات

#26418

تم تصغير هذا التعليق بواسطة المشرف على الموقع

تحية للجميع!

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

في الورقة 1 ، أدخل البيانات في A1 ، B1 ، C1 ، لعدد n من المرات في اليوم. في الورقة 2 ، أحتاج إلى حفظ كل هذه السجلات ، في A2 ، B2 ، C2 ، A3 ، B3 ، C3 ، إلخ. Tnx!

رد

أحمد

منذ حوالي 4 سنوات

#27813

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا الأصدقاء،
لدي مشكلة وسأكون سعيدًا إذا كان هناك من يساعدني
لدي ملف على محرك الأقراص "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
نهاية الفرعية
لكنها لا تعمل بشكل صحيح
شكرا اصدقاء

رد

تيم

منذ حوالي 3 سنوات

#28496

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا ، أحاول استخدام هذا الرمز ولكن عندما أحاول التنفيذ ، أحصل على خطأ وقت التشغيل 1004 ويبرز الصف 7 على أنه غير صالح: ActiveWorkbook.SaveAs filename: = Path & filename & ".xls" ، FileFormat: = xlNormal
كيف يمكنني حل هذا؟ أنا باستخدام Office 365

رد

برونا

منذ حوالي 3 سنوات

#30409

تم تصغير هذا التعليق بواسطة المشرف على الموقع

Se a célula de Referencia estiver em uma outra planilha já aberta؟ كومو فاسو؟

رد

إيزابل

منذ حوالي 3 سنوات

#30885

تم تصغير هذا التعليق بواسطة المشرف على الموقع

أهلاً. أنا متحمس جدًا لأنه يمكن أن ينجح ولكن بالنسبة لي يقول "خطأ وقت التشغيل الأساسي. لم يتم تحديد إجراء Sob أو إجراء وظيفي." والسهم الذي يشير إلى السطر 6. ماذا أفعل؟

رد

مورينا

منذ حوالي 3 سنوات

#30906

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

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

شكرا!

رد

بلغ

فيياز

منذ حوالي 2 سنوات

#32939

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

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

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

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 الشخصيات

أنا أوافق على أحكام وشروط