اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

ارجو العمل على توضيح استعمال array في كتابة الاكواد و اهميتها و توضيح الكود باللون الاحمر


Columns("A:A").Select

    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _

	    FieldInfo:=Array(Array(0, 2), Array(9, 2), Array(50, 1), Array(58, 9)), _

	    TrailingMinusNumbers:=True


Columns("A:A").Select

    Application.CutCopyMode = False

    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

	    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _

	    Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _

	    :=Array(Array(1, 2), Array(2, 2), Array(3, 1), Array(4, 9), Array(5, 9)), _

	    TrailingMinusNumbers:=True

قام بنشر

سباق دائما اخي عبدالله الله يفتح عليك

الملف يستعمل لنسخ بيانات من txt بها رقم الموظف و اسمة و مبلغ الراتب يقوم الكود بترتيها حسب صيغة معينة و احتاج فهمها لاتكن من التعامل معها في حال اختلفت البايات في txt فايل

شكرا و جزاكم الله خير111.rar

قام بنشر

اخي الفاضل

انا جربت الكود

ثم

قمت بحذف هذا الجزء من الكود


Columns("A:A").Select

    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

	    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _

	    Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _

	    :=":", FieldInfo:=Array(Array(1, 9), Array(2, 2), Array(3, 2), Array(4, 1), Array(5, _

	    9), Array(6, 9), Array(7, 2), Array(8, 9)), TrailingMinusNumbers:=True

وكانت النتيجة واحدة

اي ان هذا الجزء ليس له اي دور فالكود يقوم بعملية نسخ ولصق وتعبئة وخذف

اي ان الكود تم تسجيله

قام بنشر (معدل)

هل اطمع بالمزيد من الشرح حيث تم شطب الجزء الذي اشرت له ولم يعد المف يعمل بالشكل الصحيح

تم تعديل بواسطه jarwan
قام بنشر

السلام عليكم

اخي الفاضل هذا الجزء خاص بتحويل النص الى اعمدة اي بمعنى

ان الخلية المستهدفة لو كان بها هذا الاسم (عبدالله المجرب)

فسيتم تجزئته الى جزئين الاسم عبدالله في الخلية الاصلية والمجرب في الخلية المجاورة

قام بنشر (معدل)

مشكور على المتابعة اخي عبدالله

الله يكرمك و يفتح عليك يا عسل الان فهمت

والله صرت احب الاكسل من ورا منتدى اوفيسنا الغالي و الشباب المحترمين

تم تعديل بواسطه jarwan

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information