وليد حجاب

بس عند وضع الاسم بالعربي ، يظهر الاسم على شكل ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ علامات استفهام

هل بالأمكان اخي الكريم ، وضع ملف اكسل يحتوي على الكود و يكون مفعل شاكر لك ردك و تعاونك ^_^

عفوا اخي هل يعمل مع الاسماء باللغة العربية و تظهر بدون اي مشاكل ؟؟

ممكن تجرب اخي الحل الي موجود في الدعم الخاص بمايكروسوفت كما هو موضح ادناه الرساله "يتعذر ازاحه الكائنات خارج ورقه العمل" عند محاوله ادراج صفوف او اعمده في ورقه عمل، و# الخيار تحديد اي شيء (اخفاء الكائنات) تحت ل# الكائنات، اظهار القسم في خيارات Excel. هذا خطا معروفه في بعض اصدارات Excel. علي الرغم من انه لم يتم تحديد هذا الخيار ب# شكل افتراضي، ف# من الممكن تعيين عن طريق الخطا عن طريق الضغط علي اختصار لوحه مفاتيح معينه (CTRL + 6). ل# حل الخطا، يجب تغيير الاعداد من لا شيء (اخفاء الكائنات) ل# كافه. يتم اسرع طريقه ل# تنفيذ هذا الاجراء ب# الضغط علي CTRL + 6. بدلا من ذلك، يمكنك تغيير الاعداد الموجود في خيارات Excel. ل# القيام ب# ذلك، انقر فوق ملف > خيارات > خيارات متقدمة. ملاحظة: في Excel 2007، انقر فوق زر Microsoft Office ، و# من ثم انقر فوق خيارات Excel. علي علامه التبويب خيارات متقدمه، قم ب# التمرير الي اعدادات خيارات عرض هذا المصنف. ضمن ل# الكائنات، اظهار، حدد الكل بدلا من لا شيء (اخفاء الكائنات). قد يكون طريقه مقصوده اخفاء الكائنات في المصنف الخاص بك. علي سبيل المثال، اذا كان لديك عدد كبير من الكائنات في المصنف الخاص بك، الانسحاب ل# اخفاء هذه الكائنات قد جعل المصنف اكثر استجابه. اذا كان الامر كذلك، يمكنك استخدام اختصار لوحه المفاتيح (CTRL + 6) ل# التبديل بين اظهار الكائنات و# اخفائها. يتعذر ادراجها او اخفاء الاعمده اذا كانت الرساله "يتعذر ازاحه الكائنات خارج ورقه العمل" (او رساله وورديد ب# طريقه مماثله) يستمر حتي بعد تطبيق الدقه السابقه، ف# قد يكون سبب وجود كائنات مثل تعليقات او الصور او المخططات في الخلايا من اتجاه نهايه شبكه ورقه العمل. مقدار اعمده يمكنك اخفاء او ادراج يقتصر علي عدد الاعمده بين الحافه اليسري ل# الكائن و# العمود الاخير في ورقه العمل (عمود XFD ). اذا كانت اكبر من هذا الرقم عدد الاعمده الذي تريده ل# اخفاء او ادراج في اي مكان اخر في ورقه العمل، سيتم نقل الكائن خارج ورقه العمل، و# ستري الرساله. ب# شكل عام، يمكنك اصلاح هذه المشكله عن طريق البحث عن الكائن التالفه عن و# اما حذفه او نقل بعد ذلك بعيدا عن نهايه ورقه العمل. فيما يلي بعض التلميحات ل# البحث عن الكائنات: ل# ب# سرعه الانتقال الي الخليه الاخيره في صف او عمود، اضغط علي انهاء، و# ثم اضغط علي مفتاح "السهم ل# الاسفل" او سهم ل# اليمين. ل# الانتقال الي اخر خليه علي ورقه العمل التي تحتوي علي بيانات او تنسيق، انقر فوق CTRL + END. ل# البحث عن و# ازاله التعليقات، اضغط علي F5. في مربع الحوار الانتقال الي، انقر فوق خاص. حدد التعليقات، و# من ثم انقر فوق موافق. ل# حذف التعليق، انقر نقرا مزدوجا فوق الخليه التي تحتوي علي التعليق، و# من ثم انقر فوق حذف التعليق. ل# العثور ب# سرعه علي الكائنات الرسوميه، ب# ما في ذلك المخططات و# الازرار، اضغط علي F5. في مربع الحوار الانتقال الي، انقر فوق خاص. تحديد كائنات، و# من ثم انقر فوق موافق. بعد العثور علي الكائن، يمكنك حذف او نقلها. ملاحظة: تحدث هذه المشكله عاده عند ادراج او اخفاء الاعمده. يمكن ان تحدث المشكله نفسها ل# الصفوف، و# علي الرغم من انه لن يكون شائعه سبب حد الصف كبيره في Excel 2007، مما يؤدي الي اقل من المحتمل ان يكون لديك وضع الكائنات في النهايه الخاصه ب# ورقه العمل. ل# الحصول علي مزيد من المعلومات و# الحصول علي تلميحات اضافيه حول استكشاف الاخطاء و# اصلاحها، راجع رساله خطا عند محاوله اخفاء الاعمده في Excel: "يتعذر ازاحه الكائنات خارج الورقه". اذا لم ينفع هذا الحل تكرم اخي مشكورا بإرفاق الملف الخاص بالمشكلة للإطلاع عليه و حل المشكلة

are you using any code in the excel sheet. my keyboard is not writing in Arabic sorry ,

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

اشكرك اخي علي على الرد و لكن هل يوجد برنامج لفك اكواد ؟

أ/ محمد صالح الشكر لك على مجهودك الرائع جربت الكود و لكنه لا يعمل على فيجوال ما زال الملف بكلمة سر خاص بالملف ؟ هل من حل اخر

مرفق الملف المطلوب و لكن الكود ايضا يحتاج الى تعديل بحيث يصبح الاسم محفوظ فقط بدون الرقم بجانبه الملف عبارة عن Vcard قمت بتغيير الامتداد الى الى اكسل MyContacts.xls لم يظهر لدي ما طلبت ، حيث و قد قمت مسبقا بالرد بإنه لا يوجد هذا الخيار لدي !!! المعذرة لن يتكرر هذا

هل الكود النهائي سيصبح بهذا الشكل .؟ Sub excelTovcf() Dim FileNum As Integer Dim iRow As Integer Dim FirstName As String Dim LastName As String Dim FullName As String Dim EmailAddress As String Dim PhoneHome As String Dim PhoneWork As String Dim Organization As String Dim JobTitle As String iRow = 7 ' set a unique integer for the new ' text file FileNum = FreeFile ' Save this vcf file on desktop OutFilePath = VBA.Environ$("UserProfile") & "\Desktop\MyContacts.VCF" Open OutFilePath For Output As FileNum With Sheets("contacts") While VBA.Trim(.Cells(iRow, 1)) <> "" FirstName = VBA.Trim(.Cells(iRow, 1)) LastName = VBA.Trim(.Cells(iRow, 2)) FullName = VBA.Trim(.Cells(iRow, 3)) EmailAddress = VBA.Trim(.Cells(iRow, 4)) PhoneHome = VBA.Trim(.Cells(iRow, 5)) PhoneWork = VBA.Trim(.Cells(iRow, 6)) Organization = VBA.Trim(.Cells(iRow, 7)) JobTitle = VBA.Trim(.Cells(iRow, 8)) ' Start printing the data in above specified ' format of VCF file format Print #FileNum, "BEGIN:VCARD" Print #FileNum, "VERSION:3.0" Print #FileNum, "N;LANGUAGE=en-us;CHARSET=windows-1256:" & FirstName & ";" & LastName & ";;;" Print #FileNum, "FN;CHARSET=windows-1256:" & FullName Print #FileNum, "ORG:" & Organization Print #FileNum, "TITLE:" & JobTitle Print #FileNum, "TEL;TYPE=HOME,VOICE:" & PhoneHome Print #FileNum, "TEL;TYPE=WORK,VOICE:" & PhoneWork Print #FileNum, "EMAIL:" & EmailAddress Print #FileNum, "END:VCARD" iRow = iRow + 1 Wend End With 'Close The File MsgBox "Total " & iRow - 7 & " Contacts are exported to VCF File. It is saved on your Desktop" Close #FileNum End Sub اذا كان نعم ، فلا يوجد اي تغيير حيث تظهر الاسماء برموز و بجانبها الرقم ؟

استاذنا الغالي المعذرة منك جربت كود اخر و اشتغل معي كما هو مبين ادناه و لكن المشكلة في ظهور الاسماء على شكل رموز؟ هل يوجد تعديل في سطر معين في الكود لتلافي هذه المشكلة؟ Sub excelTovcf() Dim FileNum As Integer Dim iRow As Integer Dim FirstName As String Dim LastName As String Dim FullName As String Dim EmailAddress As String Dim PhoneHome As String Dim PhoneWork As String Dim Organization As String Dim JobTitle As String iRow = 7 ' set a unique integer for the new ' text file FileNum = FreeFile ' Save this vcf file on desktop OutFilePath = VBA.Environ$("UserProfile") & "\Desktop\MyContacts.VCF" Open OutFilePath For Output As FileNum With Sheets("contacts") While VBA.Trim(.Cells(iRow, 1)) <> "" FirstName = VBA.Trim(.Cells(iRow, 1)) LastName = VBA.Trim(.Cells(iRow, 2)) FullName = VBA.Trim(.Cells(iRow, 3)) EmailAddress = VBA.Trim(.Cells(iRow, 4)) PhoneHome = VBA.Trim(.Cells(iRow, 5)) PhoneWork = VBA.Trim(.Cells(iRow, 6)) Organization = VBA.Trim(.Cells(iRow, 7)) JobTitle = VBA.Trim(.Cells(iRow, 8)) ' Start printing the data in above specified ' format of VCF file format Print #FileNum, "BEGIN:VCARD" Print #FileNum, "VERSION:3.0" Print #FileNum, "N:" & FirstName & ";" & LastName & ";;;" Print #FileNum, "FN:" & FullName Print #FileNum, "ORG:" & Organization Print #FileNum, "TITLE:" & JobTitle Print #FileNum, "TEL;TYPE=HOME,VOICE:" & PhoneHome Print #FileNum, "TEL;TYPE=WORK,VOICE:" & PhoneWork Print #FileNum, "EMAIL:" & EmailAddress Print #FileNum, "END:VCARD" iRow = iRow + 1 Wend End With 'Close The File MsgBox "Total " & iRow - 7 & " Contacts are exported to VCF File. It is saved on your Desktop" Close #FileNum End Sub

لا توجد نافذة خاصة بMissing references او عنصر ضمن العناصر يتضمنها ؟

ما الاوفيس الذي تستخدمه و نظام تشغيل الويندوز هل هو 7 او 10

ممكن تقوم برفع الملف و العمل على نفس الملف او تقوم بعمل ذلك بناء على الصورة الموضحة أدناه

ممكن باستخدام Advance Filter