الزباري

بعيداً عن تعقيدات الكود.. سطر واحد يقوم بالمهام.. إليكم المرفق hide-unhide.rar

أحيانا نقوم بإدخال رقم طويل جداً ولا نعلم مدى صحته ولا نتأكد من عدد خاناته مث الرقم القومي أو رقم الهوية، هنا طريقة لتنسيق خانة الإدخال وتحديد عدد الخانات المطلوب عدم تجاوزها بحيث لو تم تجاوزها تتوقف الكتابة، إليكم المثال مع الشرح تنسيق الإدخال.rar

أتمنى أن يكون قصدك الاستعلام عن النتيجة كما في المرفق Choose.rar

ولو أردنا الكتابة في سطرين نكرر كتابة الكود التالي: Print #1, "اسمي هو: " Print #1, "الزباري" لتكون النتيجة كالتالي: أما إذا أردنا الكتابة في نفس السطر (العمود التالي) فإننا نضيف فاصلة كالتالي: Print #1, "اسمي هو: ", Print #1, "الزباري" لتكون النتيجة كالتالي:

Print #1, "مرحبا.. هنا منتدى أوفيسنا" ومن الممكن استبدال كلمة "print" ب "write" وكلهم يؤدون نفس الغرض كالتالي: write #1, "مرحبا.. هنا منتدى أوفيسنا"

شكراً على تفاعلك البناء معنا يا أباحمزة ، في الحقيقة لقد احترت في الموضوع وقتلتها بحثاً ، ووجدت معظم الشكاوى على أمر الدوز ، حيث أنني جربت أمثلة جاهزة إلا أن بعضها لم يتوافق معي، وبعضها يعمل مرة واحدة فقط ولا يعمل مرة أخرى إلا بعد إعادة نشغيل الملف. على العموم تم حل الموضوع بكود بديل، أرجو تجربة الملف وموافاتنا بالنتائج. وتقبلوا نحياتي ابراهيم2.rar

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

أخي العزيز أبويوسف وأخي العزيز أبوحمزة لعلكما بدأتما من حيث انتهينا وهذه هي المشكلة هناك مجلد اسمه info نقلناه إلى سطح المكتب في بداية الدرس .. حاولا نقله إلى سطح المكتب وسيعمل معكما حتماً . وتقبلوا تحياتي

يبدو أنك لم تنقل الملف إلى سطح المكتب الملف مرتبط بالمجلد info جرب أن تنقل الملف إلى المكان الذي تم فيه تخزين ملف ابراهيم والمندوبين

نعود لأخونا ابراهيم، وكما قلنا بأن أخونا ابراهيم أراد أن يجمع الملفات في شيت واحد طالما أن المندوبين لديهم نفس النموذج. ولعمل هذه التجميعة فلا بد أن نتبع إحدى الطريقتين: إما أن يتم استدعاء جميع الملفات النصية من المجلد إلى الإكسيل بشكل مباشر. أو أن يتم تجميع الملفات النصية إلى ملف نصي جديد ، ومن ثم يتم الإستدعاء من الملف النصي الجديد إلى الإكسيل بشكل مباشر. اعتمدت أنا على الطريقة الثانية كالتالي: ابراهيم2.rar لا تنسى نقل الملف إلى مكانه الصحيح حيث يوجد المجلد info لو لاحظت أننا لم نغير في الكود سوى هذا السطر Shell Environ$("COMSPEC") & " /c Copy" & ThisWorkbook.Path & "\info\*.txt" & ThisWorkbook.Path & "\info\CombinedFile.txt " والذي يعني لأن يجمع الملفات النصية داخل المجلد info إلى ملف نصي جديد اسمه combinedfile تأكد من الملف النصي الجديد داخل المجلد تابعــــــــــــــــــــــــونا

في ملف الإكسيل طبعاً

LOF: ترمز إلى long file open بمعنى حجم محتوى الملف من حروف وفراغات والذي يقرأه بشكل تلقائي جرب بأن تستبدل (1) LOF بالرقم 10مثلاً ستشاهد بأنه قلل شاشة العرض حيث تحتوي على 10 خانات.

ثانياً: القراءة (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 جرب الكود بعد تغيير مسار الملف المطلوب قراءته. لاحظ بأنه لا يمكن قراءة الملف إذا لم يكن موجود.

جزاك الله خيراً.. شرح واف وأسلوب جميل

الأرقام هي عملية تنظيمية لدخول الملف .. يُمنع دخول شخص آخر في نفس الملف إلا إذا كان يحمل رقم مختلف .. وهذا يساعدنا في فتح الملف لأكثر من مستخدم في نفس اللحظة طالما أن كل شخص يحمل رقم مختلف.