Omar_Kreem قام بنشر يناير 22 مشاركة قام بنشر يناير 22 الخبراء الكرام .. لدى قاعدة بيانات أكسس 2003 .. واقوم بتصدير استعلام منها إلى أكسيل 2003.. المشكلة هى تحويل الأرقام والتواريخ إلى اللغة العربية. Formatt_Ex.mdb رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يناير 23 مشاركة قام بنشر يناير 23 أخي الكريم ، اتبع ما يلي لتحقيق هدفك . ثم بالعودة إلى إكسل قم بتطبيق ما يلي لتبديل تنسيق الأرقام والتاريخ . وهذه النتيجة رابط هذا التعليق شارك More sharing options...
Omar_Kreem قام بنشر يناير 23 الكاتب مشاركة قام بنشر يناير 23 شكراً جزيلا لردك أخى الكريم Foksh - إعدادات ويندوز عندى كما ذكرت حضرتك. - كنت أود أن يكون الحل برمجياً .. وليس عن طريق قوائم التنسيق. رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يناير 23 مشاركة قام بنشر يناير 23 11 دقائق مضت, Omar_Kreem said: - كنت أود أن يكون الحل برمجياً .. وليس عن طريق قوائم التنسيق. لا يوجد عندي فكرة محددة في الوقت الحالي اذا كانت الطريقة ممكن تكون برمجياً ، ولكن ان وجدت شيئاً ستجده هنا إن شاء الله . 1 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يناير 24 مشاركة قام بنشر يناير 24 13 ساعات مضت, Omar_Kreem said: - كنت أود أن يكون الحل برمجياً .. وليس عن طريق قوائم التنسيق. هل تريدها لجميع اوراق الاكسل ام ورقة محددة ؟؟؟؟ رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يناير 24 مشاركة قام بنشر يناير 24 13 ساعات مضت, Foksh said: لا يوجد عندي فكرة محددة في الوقت الحالي اذا كانت الطريقة ممكن تكون برمجياً ، ولكن ان وجدت شيئاً ستجده هنا إن شاء الله . أخي الكريم قم بتجربة إضافة هذا الجزء قبل الجزء المسؤول عن الحفظ والتصدير .. ' تحديد نطاق الورقة بأكملها Dim rngSheet As Object Set rngSheet = objWorksheet.UsedRange ' يمكن تغيير هذا حسب احتياجاتك ' قم بتحديد خاصية NumberFormat لتنسيق الخانات التي تحتوي على الأرقام rngSheet.NumberFormat = "0" رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يناير 24 مشاركة قام بنشر يناير 24 21 دقائق مضت, kanory said: هل تريدها لجميع اوراق الاكسل ام ورقة محددة ؟؟؟؟ اعتذر أخي الكريم وأستاذنا @kanory على المداخلة ، قمت بالرد وتفاجأت بردك ومتابعتك بعد التحديث 😬 1 رابط هذا التعليق شارك More sharing options...
Omar_Kreem قام بنشر يناير 24 الكاتب مشاركة قام بنشر يناير 24 (معدل) 11 ساعات مضت, Foksh said: أخي الكريم قم بتجربة إضافة هذا الجزء قبل الجزء المسؤول عن الحفظ والتصدير .. ' تحديد نطاق الورقة بأكملها Dim rngSheet As Object Set rngSheet = objWorksheet.UsedRange ' يمكن تغيير هذا حسب احتياجاتك ' قم بتحديد خاصية NumberFormat لتنسيق الخانات التي تحتوي على الأرقام rngSheet.NumberFormat = "0" أخى الكريم .. - يعطى خطأ (Object required (Error 424)). - وأعتقد هذا الكود لتنسيق الرقم وليس تعريبه، كما أنه سيحول التواريخ إلى سلسلة رقمية. ************************************ 11 ساعات مضت, kanory said: هل تريدها لجميع اوراق الاكسل ام ورقة محددة ؟؟؟؟ أستاذنا الفاضل .. أريدها لجميع أوراق الاكسل. تم تعديل يناير 24 بواسطه Omar_Kreem فصل الردود رابط هذا التعليق شارك More sharing options...
أفضل إجابة kanory قام بنشر يناير 24 أفضل إجابة مشاركة قام بنشر يناير 24 15 دقائق مضت, Omar_Kreem said: أستاذنا الفاضل .. أريدها لجميع أوراق الاكسل. طيب اضف هذا السطر في فانك الفورمات لديك <<<<>>>>>>> .usedRange.ReadingOrder = -5004 3 رابط هذا التعليق شارك More sharing options...
Omar_Kreem قام بنشر يناير 24 الكاتب مشاركة قام بنشر يناير 24 (معدل) نعم أستاذى الكريم تم تعديل الأرقام إلى اللغة العربية .... وتم اضافة .. .usedRange.Columns(4).NumberFormat = "yyyy/mm/dd" لتعديل اتجاه التاريخ الى اليمين.. جزيل الشكر لحضرتك تم تعديل يناير 24 بواسطه Omar_Kreem 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان