ثامر أبو بلقيس
21-12-2015, 10:01 PM
السلام عليكم ورحمة الله وبركاته
التعبئة السريعة ... إجراء غاية في الاهمية يستعمل في الايكسل
بحيث تتم عملية استخلاص لمفردات من أسطر " خلايا" بناء على مفردة معيار للفلترة
هذه التقنية حسب معلومات الجد محدودة flash fill in excel أستحدثت في الاصدارات الجديدة
لو نريد تحقيقها في الاوتوبلاي على مستوى عناصره ذات القوائم المنسدلة مثل ListBox أو Grid
قد نحتاج لكود يستخلص هذه المفردات " كلمات كانت أو تواريخ أو أرقاما ...."
لهذا دعنا صديقي نجرب الاتي :
ListBox في التجميعية أسطره تشمل مفردات كثيرة كانت او قليلة
و تحتاج لأنبوت -- في هذا الانيوت ـ أكتب أي مفردة موجودة في ListBox
على ضوء ترتيبها الثانية أو الثالثة أو ... سيتم استخراجها و استخراج مثيلاتها في الترتيب في كل الأسطر
لذلك يمكنك تعبئة صفوف مثلا بمفردات لها نفس السمة و هي ترتيب تواجدها
:abc_085:...فقط ... :abc_085:
عفوا نسينا الكود ضعه في زر لتنفيذ المطلوب و إن شاء الله تستفيد موفق :abc_138:
Y = Input.GetText("Input1");x=1;n =1;-------------------------------------------
for u =1,ListBox.GetCount("ListBox1") do----------------------------------------
for token in string.gmatch(ListBox.GetItemText("ListBox1", u), "[^%s]+") do-----
if token==Y then ---------------------------------------------------------------
k= u ;break;end;end;end---------------------------------------------------------
for token3 in string.gmatch(ListBox.GetItemText("ListBox1", k), "[^%s]+") do----
if token3==Y then---------------------------------------------------------------
b = x;break;end;x=x+1;end ------------------------------------------------------
for pp = 1,ListBox.GetCount("ListBox1")do---------------------------------------
ahmed=ListBox.GetItemText("ListBox1", pp);--------------------------------------
for token2 in string.gmatch(ahmed, "[^%s]+") do---------------------------------
if n == b then---------------------------------ABOU_BELKISS LE:21-12-2015-------
Dialog.Message("Notice", token2);break------------------------------------------
end;n=n+1;end;n=1;end-----------------------------------------------------------
قد لا تحتاجها الان ... يوما ما ستعود اليها حينها خصنا بالدعاء :abc_138:
مشكور جدا أخي المحترف اقلي لتفاعله الجاد و تحفيزه لي
التعبئة السريعة ... إجراء غاية في الاهمية يستعمل في الايكسل
بحيث تتم عملية استخلاص لمفردات من أسطر " خلايا" بناء على مفردة معيار للفلترة
هذه التقنية حسب معلومات الجد محدودة flash fill in excel أستحدثت في الاصدارات الجديدة
لو نريد تحقيقها في الاوتوبلاي على مستوى عناصره ذات القوائم المنسدلة مثل ListBox أو Grid
قد نحتاج لكود يستخلص هذه المفردات " كلمات كانت أو تواريخ أو أرقاما ...."
لهذا دعنا صديقي نجرب الاتي :
ListBox في التجميعية أسطره تشمل مفردات كثيرة كانت او قليلة
و تحتاج لأنبوت -- في هذا الانيوت ـ أكتب أي مفردة موجودة في ListBox
على ضوء ترتيبها الثانية أو الثالثة أو ... سيتم استخراجها و استخراج مثيلاتها في الترتيب في كل الأسطر
لذلك يمكنك تعبئة صفوف مثلا بمفردات لها نفس السمة و هي ترتيب تواجدها
:abc_085:...فقط ... :abc_085:
عفوا نسينا الكود ضعه في زر لتنفيذ المطلوب و إن شاء الله تستفيد موفق :abc_138:
Y = Input.GetText("Input1");x=1;n =1;-------------------------------------------
for u =1,ListBox.GetCount("ListBox1") do----------------------------------------
for token in string.gmatch(ListBox.GetItemText("ListBox1", u), "[^%s]+") do-----
if token==Y then ---------------------------------------------------------------
k= u ;break;end;end;end---------------------------------------------------------
for token3 in string.gmatch(ListBox.GetItemText("ListBox1", k), "[^%s]+") do----
if token3==Y then---------------------------------------------------------------
b = x;break;end;x=x+1;end ------------------------------------------------------
for pp = 1,ListBox.GetCount("ListBox1")do---------------------------------------
ahmed=ListBox.GetItemText("ListBox1", pp);--------------------------------------
for token2 in string.gmatch(ahmed, "[^%s]+") do---------------------------------
if n == b then---------------------------------ABOU_BELKISS LE:21-12-2015-------
Dialog.Message("Notice", token2);break------------------------------------------
end;n=n+1;end;n=1;end-----------------------------------------------------------
قد لا تحتاجها الان ... يوما ما ستعود اليها حينها خصنا بالدعاء :abc_138:
مشكور جدا أخي المحترف اقلي لتفاعله الجاد و تحفيزه لي