Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الزباري

Expert
  • Content Count

    462
  • Joined

  • Last visited

  • Days Won

    11

الزباري last won the day on January 16 2017

الزباري had the most liked content!

Community Reputation

443 Excellent

About الزباري

  • Rank
    Name

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    eng
  • Location
    دولة الإمارات العربية المتحدة

Recent Profile Visitors

3,073 profile views
  1. بعيداً عن تعقيدات الكود.. سطر واحد يقوم بالمهام.. إليكم المرفق hide-unhide.rar
  2. أحيانا نقوم بإدخال رقم طويل جداً ولا نعلم مدى صحته ولا نتأكد من عدد خاناته مث الرقم القومي أو رقم الهوية، هنا طريقة لتنسيق خانة الإدخال وتحديد عدد الخانات المطلوب عدم تجاوزها بحيث لو تم تجاوزها تتوقف الكتابة، إليكم المثال مع الشرح تنسيق الإدخال.rar
  3. أتمنى أن يكون قصدك الاستعلام عن النتيجة كما في المرفق Choose.rar
  4. ولو أردنا الكتابة في سطرين نكرر كتابة الكود التالي: Print #1, "اسمي هو: " Print #1, "الزباري" لتكون النتيجة كالتالي: أما إذا أردنا الكتابة في نفس السطر (العمود التالي) فإننا نضيف فاصلة كالتالي: Print #1, "اسمي هو: ", Print #1, "الزباري" لتكون النتيجة كالتالي:
  5. Print #1, "مرحبا.. هنا منتدى أوفيسنا" ومن الممكن استبدال كلمة "print" ب "write" وكلهم يؤدون نفس الغرض كالتالي: write #1, "مرحبا.. هنا منتدى أوفيسنا"
  6. شكراً على تفاعلك البناء معنا يا أباحمزة ، في الحقيقة لقد احترت في الموضوع وقتلتها بحثاً ، ووجدت معظم الشكاوى على أمر الدوز ، حيث أنني جربت أمثلة جاهزة إلا أن بعضها لم يتوافق معي، وبعضها يعمل مرة واحدة فقط ولا يعمل مرة أخرى إلا بعد إعادة نشغيل الملف. على العموم تم حل الموضوع بكود بديل، أرجو تجربة الملف وموافاتنا بالنتائج. وتقبلوا نحياتي ابراهيم2.rar
  7. بالفعل هناك مشكلة مع البعض، وأعتقد الأمر يرجع إلى نوع الويندوز المستخدم، لأن الكود يشمل على إحدى أوامر الدوز والذي لم يتوافق مع البعض، إلى أن نجد الحل ، تابعونا.
  8. أخي العزيز أبويوسف وأخي العزيز أبوحمزة لعلكما بدأتما من حيث انتهينا وهذه هي المشكلة هناك مجلد اسمه info نقلناه إلى سطح المكتب في بداية الدرس .. حاولا نقله إلى سطح المكتب وسيعمل معكما حتماً . وتقبلوا تحياتي
  9. يبدو أنك لم تنقل الملف إلى سطح المكتب الملف مرتبط بالمجلد info جرب أن تنقل الملف إلى المكان الذي تم فيه تخزين ملف ابراهيم والمندوبين
  10. نعود لأخونا ابراهيم، وكما قلنا بأن أخونا ابراهيم أراد أن يجمع الملفات في شيت واحد طالما أن المندوبين لديهم نفس النموذج. ولعمل هذه التجميعة فلا بد أن نتبع إحدى الطريقتين: إما أن يتم استدعاء جميع الملفات النصية من المجلد إلى الإكسيل بشكل مباشر. أو أن يتم تجميع الملفات النصية إلى ملف نصي جديد ، ومن ثم يتم الإستدعاء من الملف النصي الجديد إلى الإكسيل بشكل مباشر. اعتمدت أنا على الطريقة الثانية كالتالي: ابراهيم2.rar لا تنسى نقل الملف إلى مكانه الصحيح حيث يوجد المجلد info لو لاحظت أننا لم نغير في الكود سوى هذا السطر Shell Environ$("COMSPEC") & " /c Copy"
  11. LOF: ترمز إلى long file open بمعنى حجم محتوى الملف من حروف وفراغات والذي يقرأه بشكل تلقائي جرب بأن تستبدل (1) LOF بالرقم 10مثلاً ستشاهد بأنه قلل شاشة العرض حيث تحتوي على 10 خانات.
  12. ثانياً: القراءة (read): وهي نفس مبدأ الكتابة ولكنها تختلف في أمرين وهما: - استخدام كلمة input بدلاً من output - تخزين البيانات لعرضها بدلاً من نقلها مثال: Sub read() Dim FilePath As String Dim FileContent As String ' تحديد مسار الملف المطلوب قراءته FilePath = "C:\testfolder\create.txt" 'فتح الملف النصي Open FilePath For Input As #1 'تخزين البيانات FileContent = Input(LOF(1), #1) 'عرض البيانات المخزنة MsgBox FileContent 'إغلاق الملف النصي Close #1 End Sub جرب الكود بعد تغيير مسار الملف المطلوب قراءته. لاحظ بأنه لا يمكن قراءة الملف إذا لم يكن م
  13. الأرقام هي عملية تنظيمية لدخول الملف .. يُمنع دخول شخص آخر في نفس الملف إلا إذا كان يحمل رقم مختلف .. وهذا يساعدنا في فتح الملف لأكثر من مستخدم في نفس اللحظة طالما أن كل شخص يحمل رقم مختلف.
×
×
  • Create New...