المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : التعبئة السريعة


ثامر أبو بلقيس
21-12-2015, 11: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:

مشكور جدا أخي ‏المحترف اقلي لتفاعله الجاد و تحفيزه لي

عبد الهادي بهاب
21-12-2015, 11:49 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:

مشكور جدا أخي ‏المحترف اقلي لتفاعله الجاد و تحفيزه لي

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

:abc_152::abc_152:

abohmam
22-12-2015, 12:40 AM
جزاك الله خيرا أخى ثامر ابا بلقيس

ماشاء الله دائما على طريق الإبداع

:abc_022:

بارك الله فيك

ثامر أبو بلقيس
22-12-2015, 01:05 AM
الشكر موضول كلم استاذنا على الشرح و ربي يجعله في ميزان حسناتكم .........اود الاشارة ان الكود يصلح لمن يودون تصميم مسابقات مثلا في البحث عن الاجابة مثلا او الجواب الصح ...الخ

:abc_152::abc_152:

مرور زاد لمحاولتنا توهجا شكرا :abc_138:

ثامر أبو بلقيس
22-12-2015, 01:06 AM
جزاك الله خيرا أخى ثامر ابا بلقيس

ماشاء الله دائما على طريق الإبداع

:abc_022:

بارك الله فيك

جزاك الله خيرا متوقع منكم التشجيع :abc_138: شكرا :abc_138: