اذهب الي المحتوي
أوفيسنا

Lamyaa

02 الأعضاء
  • Posts

    91
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

61 Excellent

عن العضو Lamyaa

البيانات الشخصية

  • Gender (Ar)
    أنثي
  • Job Title
    Teacher

اخر الزوار

1,641 زياره للملف الشخصي
  1. جزيل الشكر والتقدير على هذا المجهود الجبار بارك الله فيك
  2. رائع جدا هل يمكن أن تظهر النتيجة بشكل منسق لتسهل القراءة (تظهر لي جميع الأسطر مدمجة في سطر واحد)
  3. نعم ، هي المرحلة الأولى وقد أشبعت في المنتدى شرحا وحلولا من قبل أساتذتنا الكرام وعلى رأسهم @أبو إبراهيم الغامدي و @ابو جودي والمرحلة الأولى كانت عبارة عن ترميز لبيانات الفاتورة وإظهاره في الفاتورة من خلال QR Code أما المرحلة الثانية فهي ربط عمليات البيع بسيرفرات وزارة الزكاة وفق الآلية التي ذكرها الأستاذ at_aziz هنا:
  4. هذه طريقتي Dim QRLines As Variant QRLines = Split(Replace(QRText, Chr(13), ""), Chr(10)) ' يتم قراءة الأسطر من حقل QR ومن ثم تجزئتها إلى مصفوفة ' من ثم يتم إسناد القيم من المصفوفة إلى الحقول Textbox1 = QRLines(0) Textbox2 = QRLines(1) Textbox3 = QRLines(2) Textbox4 = QRLines(3)
  5. ما شاء الله .. دائما متميز أستاذ موسى .. هل لديك شيء لكتابة دالة iif فحينما تكون الشروط كثيرة تصبح معقدة
  6. قم بنسخ الأداة إلى مجلد C:\WINDOWS\SysWOW64 ثم افتح Command Prompt كمسؤول وقم بتسجيل الأداة regsvr32 RotateLabelVer2.ocx والآن يمكنك في برنامج إضافة الأداة ستظهر الأداة بهذا الاسم: يمكنك تعديل نوع الخط والحجم واللون من صندوق الخصائص RotateLabelVer2.zip
  7. شخصيا استخدم مكتبة ActiveX تصنع لك Label يمكنك أن تحدد من خلالها زاوية الكتابة وهي مجانية من الأستاذ عباس الملاحي لو أردتها سأقوم برفعها لك
  8. السلام عليكم ورحمة الله وبركاته تأكد من تثبيت النواة المناسبة لك .. قد تكون قمت بتثبيت أوفيس 64 بت وأنت كنت تستخدم إصدارة 32 بت أو العكس
  9. يبدو أن شركة الوتساب حدثت البرنامج اليوم رجعت إلى مثال الأستاذ موسى الكلباني .. وإذا به يعمل بشكل صحيح ودون مشاكل
  10. للأسف لم يعمل معي بشكل صحيح يتم وضع رقم الجوال المرسل إليه والرسالة في صندوق البحث
  11. السلام عليكم ورحمة الله وبركاته شكر على المشاركة جربت المرفق وللأسف لم يعمل معي بشكل صحيح الصورة يتم إرسالها كمستند مرفق في أحيان أخرى يتم إرسال ملف غير الملف المحدد !
  12. أستاذي الفاضل أنا افتح الوتساب بهذه الطريقة ' أولا يتم التعريف Enum MSStoreAppName WhatsApp End Enum 'ثم يمكن استخدام هذا الكود لتشغيل الوتساب CreateObject("WScript.Shell").Run "whatsapp:", 0, False
×
×
  • اضف...

Important Information