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

(تمت الإجابة) شرح استعمال array بالكود المرفق


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

ارجو العمل على توضيح استعمال 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
رابط هذا التعليق
شارك

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