وليد حجاب قام بنشر فبراير 5, 2018 قام بنشر فبراير 5, 2018 (معدل) 14 hours ago, محمد طاهر said: جرب التالي من لوحة التحكم Control Pannel Region Adminstrative Change System Local و اختار عربي لاحدى الدول المتاحة شكرا أستاذنا العزيز محمد طاهر على الرد المشكلة ليست على الجهاز ، و إنما في الملف الذي يتم تحويله ،حيث يظهر الملف Vcard بشكل رموز عند تحويله الى و لكن الاسماء باللغة الانجليزية تظهر بشكل صحيح قمت بعمل محاولة على GMAIL تم اظهار الاسماء بالعربي لكن بدون ارقام ، شاكر لك ردك ،،،، تم تعديل فبراير 5, 2018 بواسطه وليد حجاب
محمد طاهر عرفه قام بنشر فبراير 5, 2018 قام بنشر فبراير 5, 2018 السلام عليكم ربما من المناسب ان ترفق عينة من الملف مع تغيير البيانات ، مع توضيح ما تود عمله خطوة بخطوة ليجرب الاخوة معك و يتضح وجود أسلوب اخر من عدمه او ان المشكلة عامة ام لا 1
وليد حجاب قام بنشر فبراير 7, 2018 قام بنشر فبراير 7, 2018 On 2/5/2018 at 5:52 PM, محمد طاهر said: السلام عليكم ربما من المناسب ان ترفق عينة من الملف مع تغيير البيانات ، مع توضيح ما تود عمله خطوة بخطوة ليجرب الاخوة معك و يتضح وجود أسلوب اخر من عدمه او ان المشكلة عامة ام لا و عليكم السلام و رحمة الله و بركاته ،،، مرفق ملف المراد تحويله الى صيغة VCARD و ذلك بعد تحويل ملف الاكسل الى صيغة CSV المشكلة التي تحصل عند التحويل و في حال وجود اسماء بالعربي والانجليزي ، لا توجد مشكلة في تحويل الاسماء بالانجليزي ، أما العربي فتكون على شكل علامات استفهام ؟؟؟؟؟؟؟؟؟؟؟؟ المرفق بصيغة اكسل Xls الاسماء.xls هل يوجد كود يجعل الاسماء بالعربي تظهر بدون اي رموز
ياسر خليل أبو البراء قام بنشر فبراير 7, 2018 قام بنشر فبراير 7, 2018 راسلني على الخاص على حساب الفيس بوك yakh777@yahoo.com 2
محمد طاهر عرفه قام بنشر فبراير 8, 2018 قام بنشر فبراير 8, 2018 لماذا الخاص أخي ياسر ؟ أرجو التوضيح الأخ وليد وجدت هذا الكود، و قام بتصدير السطر الثاني في ملفك بنجاح الي ملف VCF مرفق الكارت الخاص بالسجل الثاني الذي تم تصديره ، و العربية تظهر بصورة سليمة OutputVCF.rar و يمكن تعديله ليصدر السجلات كلها اذا كان هذا هو المطلوب Sub Create_VCF() 'Open a File in Specific Path in Output or Append mode Dim FileNum As Integer Dim iRow As Double iRow = 2 FileNum = FreeFile OutFilePath = ThisWorkbook.Path & "\OutputVCF.VCF" Open OutFilePath For Output As FileNum 'Loop through Excel Sheet each row and write it to VCF File While VBA.Trim(Sheets("Sheet1").Cells(iRow, 1)) <> "" FName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 1)) LName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 2)) PhNum = VBA.Trim(Sheets("Sheet1").Cells(iRow, 3)) Print #FileNum, "BEGIN:VCARD" Print #FileNum, "VERSION:3.0" Print #FileNum, "N:" & FName & ";" & LName & ";;;" Print #FileNum, "FN:" & FName & " " & LName Print #FileNum, "TEL;TYPE=CELL;TYPE=PREF:" & PhNum Print #FileNum, "END:VCARD" iRow = iRow + 1 Wend 'Close the File Close #FileNum MsgBox "Contacts Converted to Saved To: " & OutFilePath End Sub و الملف شامل الكود الاسماء.xls 1
وليد حجاب قام بنشر فبراير 8, 2018 قام بنشر فبراير 8, 2018 الأخ القدير الأستاذ محمد ، ظهر لدي الملف كما ترون بالصورة الموضحة أدناة على شكل رموز ، اشكر لك مجهودك الرائع ، و لكن لا زالت المشكلة قائمة
محمد طاهر عرفه قام بنشر فبراير 8, 2018 قام بنشر فبراير 8, 2018 هذا هو الملف كما يظهر لدي ، طبعا مازالت الحقول تحتاج لضبط و لكن العربي يظهر سليم قد يكون الامر مشكلة فى اعدادت الويندوز جرب تغيير بعض الامور فى الاعدادت الاقليمية بلوحة التحكم Control pannel ما نسخة الويندوز و الاوفيس لديك 1
ehab saeed قام بنشر فبراير 8, 2018 قام بنشر فبراير 8, 2018 الرجاء التواصل لمن لدية مشكلة بهذا الخصوص 00966598179743 1 1
محمد طاهر عرفه قام بنشر فبراير 8, 2018 قام بنشر فبراير 8, 2018 أيضا بالاضافة الي الاعدادات السابق ذكرها راجع تحميل اعدادات اللغة للأوفيس و تأكد من التحميل 59 دقائق مضت, ehab saeed said: الرجاء التواصل لمن لدية مشكلة بهذا الخصوص 00966598179743 لماذا التواصل على الهاتف و لماذا لا تحاول المساعدة هنا ليستفيد الجميع كما هو متعارف عليه ارجو التوضيح 1
وليد حجاب قام بنشر فبراير 8, 2018 قام بنشر فبراير 8, 2018 53 minutes ago, محمد طاهر said: أيضا بالاضافة الي الاعدادات السابق ذكرها راجع تحميل اعدادات اللغة للأوفيس و تأكد من التحميل لماذا التواصل على الهاتف و لماذا لا تحاول المساعدة هنا ليستفيد الجميع كما هو متعارف عليه ارجو التوضيح بارك الله فيك أخي ، بحاول اليوم بس لماذ ا يظهر الاسم بجانب الرقم ،
محمد طاهر عرفه قام بنشر فبراير 8, 2018 قام بنشر فبراير 8, 2018 السلام عليكم الكود يحتاج لتعديل . و لكن الهدف آلان هو مشكلة اللغة العربية فان حلت تعدل الكود بإذن الله و اعتقد ان المشكلة مشكلة اوفيس او ويندوز و ليس كود و صراحة لم انتبه الي الاكواد الموجودة فى الضفحة الاولى من الموضوع الا الان ،ويبدو لي انها افضل من هذا و لم اجربها بعد احد الحلول هو ان تعيد تحميل الاوفيس او على الاقل ال Proofing Tool https://support.office.com/en-us/article/language-accessory-pack-for-office-82ee1236-0f9a-45ee-9c72-05b026ee809f?ui=en-US&rs=en-US&ad=US 1
وليد حجاب قام بنشر فبراير 10, 2018 قام بنشر فبراير 10, 2018 On 2/8/2018 at 2:41 PM, محمد طاهر said: السلام عليكم الكود يحتاج لتعديل . و لكن الهدف آلان هو مشكلة اللغة العربية فان حلت تعدل الكود بإذن الله و اعتقد ان المشكلة مشكلة اوفيس او ويندوز و ليس كود و صراحة لم انتبه الي الاكواد الموجودة فى الضفحة الاولى من الموضوع الا الان ،ويبدو لي انها افضل من هذا و لم اجربها بعد احد الحلول هو ان تعيد تحميل الاوفيس او على الاقل ال Proofing Tool https://support.office.com/en-us/article/language-accessory-pack-for-office-82ee1236-0f9a-45ee-9c72-05b026ee809f?ui=en-US&rs=en-US&ad=US مشكور أخي أ/ محمد طاهر على مجهودك الرائع و بالنسبة للكود هل يتعامل مع البيانات بغض النظر عن عدد الأسطر ؟ و أين يكون تعديل الكود من اجل اظهار الاسم فقط بدون ظهور الرقم بجانبه لك جزيل الشكر والتقدير
محمد طاهر عرفه قام بنشر فبراير 10, 2018 قام بنشر فبراير 10, 2018 السلام عليكم ريما اكود وجدت الحل لموضوع اللغة العربية حيث تبين انه يمكن تحديد الترميز اثناء تكوين الملف و قد عرفت ذلك عندما سجلت احد العناوين بالعربية و صدرته وجدت ان الصيغة قد تغيرت لتشمل ترميز العربية CHARSET=windows-1256 و كان محتوي ملف ال CVF كالتالي عندما فتحته بمجرر النصوص BEGIN:VCARD VERSION:2.1 N;LANGUAGE=en-us;CHARSET=windows-1256:عرفة;محمد;طاهر FN;CHARSET=windows-1256:محمد طاهر عرفة TEL;HOME;VOICE:666666 TEL;CELL;VOICE:777777 END:VCARD و عليه يمكن تعديل كود الترميز ليحوي ترميز العربية ، و يبنى الملف بنفس الطريقة فى الملف اعلاه ساحاول باذن الله الآن و احاول ايضا تعديل الكود ليشمل الحقول التي تريدها كما فى السطور السابقة ، الاسم و رقم المنزل و رقم الهاتف 1
محمد طاهر عرفه قام بنشر فبراير 10, 2018 قام بنشر فبراير 10, 2018 الماكرو بعد التعديل ليصدر اول تسعة سجلات للتجربة تم ايضا محاولة تثبيت ترميز اللغة العربية و اختيار الثلاثة حقول التي تريد الاسم و هاتف المنزل و المحمول Sub Create_VCF() Dim iRow, FileNum For iRow = 2 To 10 FileNum = FreeFile CNAMe = ActiveSheet.Cells(iRow, 1) MTel = ActiveSheet.Cells(iRow, 2) HTel = ActiveSheet.Cells(iRow, 3) OutFilePath = ThisWorkbook.Path & "\" & CNAMe & ".VCF" Open OutFilePath For Output As FileNum Print #FileNum, "BEGIN:VCARD" Print #FileNum, "VERSION:2.1" Print #FileNum, "N;LANGUAGE=en-us;CHARSET=windows-1256:" & CNAMe Print #FileNum, "FN;CHARSET=windows-1256:" & CNAMe Print #FileNum, "TEL;HOME;VOICE:" & HTel Print #FileNum, "TEL;CELL;VOICE:" & MTel Print #FileNum, "END:VCARD" Close #FileNum Next iRow End Sub لتجربة الملف يمكنك تغيير عدد السجلات التى ترغب فى تصديرها بتغيير الرقم 10 الي الرقم الذي ترغب به ، حاليا اختيار الرقم 10 يصدر اول تسع سجلات (الي الصف العاشر فى الملف) ايضا يمكنك تعديل البداية بدلا من 2 التي تمثل السطر الثاني الي اي رقم ترغب به ليبدأ التصدير منه من لكن ليس رقم 1 لانه يحوي اسماء الحقول ExporttoCVF.xls 1
وليد حجاب قام بنشر فبراير 11, 2018 قام بنشر فبراير 11, 2018 الشكر الجزيل لك أخي محمد طاهر على مجهودك ، و لكن في مشكلة بتظهر كما هو مبين في الصورة ادناة عند الضغط على تشغيل الكود
محمد طاهر عرفه قام بنشر فبراير 11, 2018 قام بنشر فبراير 11, 2018 السلام عليكم لقد جربته على جهازين مختلفين و يعمل جيدا ، و الجهازين بهما اوفيس 2016 ربما بعد الكود غير منوافق مع النسخة لديك افتح محرر الاكود و اختار Debug compile VBA Project و أخبرني اذا توقف لكود عند سطر معين او اعطي رسالة مختلفة 1
وليد حجاب قام بنشر فبراير 11, 2018 قام بنشر فبراير 11, 2018 (معدل) 26 minutes ago, محمد طاهر said: السلام عليكم لقد جربته على جهازين مختلفين و يعمل جيدا ، و الجهازين بهما اوفيس 2016 ربما بعد الكود غير منوافق مع النسخة لديك افتح محرر الاكود و اختار Debug compile VBA Project و أخبرني اذا توقف لكود عند سطر معين او اعطي رسالة مختلفة الاوفيس المستخدم هو 2007 ، والنافذة التي اشرت اليها غير مفعلة ؟ و عندما اقوم بالضغط على F8 يظهر اللون الاصفر على اول صف في الكود 13 minutes ago, وليد حجاب said: الاوفيس المستخدم هو 2007 ، والنافذة التي اشرت اليها غير مفعلة ؟ و عندما اقوم بالضغط على F8 يظهر اللون الاصفر على اول صف في الكود ظهرت هذه الاشارة على السطر المبين في الصورة ادناه بعد الضغط على debug تم تعديل فبراير 11, 2018 بواسطه وليد حجاب
محمد طاهر عرفه قام بنشر فبراير 11, 2018 قام بنشر فبراير 11, 2018 للاسف ليس لدي نسخة 2007 لاجرب معك ساحاول لاحقا تعديل الكود ببديل اخر باذن الله او ربما يفيدك احد الاخوة بالتعديل المطلوب 1
mazin55 قام بنشر فبراير 11, 2018 قام بنشر فبراير 11, 2018 السلام عليكم اخوتي عند نقل الملف الى الهاتف او تصديره الى الاوتلوك تظهر هكذا كما في الصورة المرفقة
mazin55 قام بنشر فبراير 11, 2018 قام بنشر فبراير 11, 2018 الاستاذ محمد طاهر سلمت يمناك اخي كنت اعاني من نفس المشكلة وتمت العملية بنجاح بعد تجربة ملفك المرفق تحيتي وتقديري 1
محمد طاهر عرفه قام بنشر فبراير 11, 2018 قام بنشر فبراير 11, 2018 1 ساعه مضت, mazin55 said: الاستاذ محمد طاهر سلمت يمناك اخي كنت اعاني من نفس المشكلة وتمت العملية بنجاح بعد تجربة ملفك المرفق تحيتي وتقديري الحمد لله ، شكرا على الافادة أخي وليد ، اذا كان الكود السابق الذي كان يصدر الملف بالاسم مدمجا به الرقم ، قد عمل معك فجرب فى الكود الاخير استبدال طريقة تعريف المتغيرات أي استبدل السطر التالي Dim iRow, FileNum بالتالي Dim FileNum As Integer Dim iRow As Double أو Dim iRow, FileNum as integer 1
محمد طاهر عرفه قام بنشر فبراير 12, 2018 قام بنشر فبراير 12, 2018 فى اي سطر يتوقف الكود ؟ جرب الخطوات السابقة الخاصة بال Debug 1
وليد حجاب قام بنشر فبراير 12, 2018 قام بنشر فبراير 12, 2018 (معدل) On 2/11/2018 at 10:23 AM, وليد حجاب said: الاوفيس المستخدم هو 2007 ، والنافذة التي اشرت اليها غير مفعلة ؟ و عندما اقوم بالضغط على F8 يظهر اللون الاصفر على اول صف في الكود ظهرت هذه الاشارة على السطر المبين في الصورة ادناه بعد الضغط على debug يتوقف في السطرالمبين في هذه الصورة تم تعديل فبراير 12, 2018 بواسطه وليد حجاب
محمد طاهر عرفه قام بنشر فبراير 13, 2018 قام بنشر فبراير 13, 2018 صراحة من الصعب التجربة دون وجود نسخة الاوفيس 2007 و من الافضل ان تحاول ترقية النسخة اذا تيسر لك ذلك من ناحية اخري جرب التالي: اولا عند توقف الكود قف بالماوس عند كل متغير فى السطر الاصفر ، و اكتب القيمة التي تظهر لك هنا ثانيا جرب تعريف المتغيرات كلها فى البداية Dim iRow, FileNum As Integer Dim OutFilePath As String ثالثا افتح Tools references واكتب ما هي ال Missing references التي تظهر و اكتبها هنا ثم بعد ذلك جرب ازالتها من الشاشة و جرب مرة اخرى 1
الردود الموصى بها