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

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

قام بنشر

ارجو العمل على توضيح استعمال 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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information