وليد حجاب

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

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

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

ممكن تجرب اخي الحل الي موجود في الدعم الخاص بمايكروسوفت كما هو موضح ادناه الرساله "يتعذر ازاحه الكائنات خارج ورقه العمل" عند محاوله ادراج صفوف او اعمده في ورقه عمل، و# الخيار تحديد اي شيء (اخفاء الكائنات) تحت ل# الكائنات، اظهار القسم في خيارات 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

يتوقف في السطرالمبين في هذه الصورة

سيد علي الكود لا يعمل في رسالة تظهر كما هو مبين تحت

هل بالأمكان معرفة سبب ظهور هذه الرسالة ؟

الاوفيس المستخدم هو 2007 ، والنافذة التي اشرت اليها غير مفعلة ؟ و عندما اقوم بالضغط على F8 يظهر اللون الاصفر على اول صف في الكود ظهرت هذه الاشارة على السطر المبين في الصورة ادناه بعد الضغط على debug

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

الشكر الجزيل لك أخي محمد طاهر على مجهودك ، و لكن في مشكلة بتظهر كما هو مبين في الصورة ادناة عند الضغط على تشغيل الكود

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

بارك الله فيك أخي ، بحاول اليوم بس لماذ ا يظهر الاسم بجانب الرقم ،

الأخ القدير الأستاذ محمد ، ظهر لدي الملف كما ترون بالصورة الموضحة أدناة على شكل رموز ، اشكر لك مجهودك الرائع ، و لكن لا زالت المشكلة قائمة

و عليكم السلام و رحمة الله و بركاته ،،، مرفق ملف المراد تحويله الى صيغة VCARD و ذلك بعد تحويل ملف الاكسل الى صيغة CSV المشكلة التي تحصل عند التحويل و في حال وجود اسماء بالعربي والانجليزي ، لا توجد مشكلة في تحويل الاسماء بالانجليزي ، أما العربي فتكون على شكل علامات استفهام ؟؟؟؟؟؟؟؟؟؟؟؟ المرفق بصيغة اكسل Xls الاسماء.xls هل يوجد كود يجعل الاسماء بالعربي تظهر بدون اي رموز