easydvb قام بنشر سبتمبر 12, 2009 مشاركة قام بنشر سبتمبر 12, 2009 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
obad65 قام بنشر سبتمبر 12, 2009 مشاركة قام بنشر سبتمبر 12, 2009 11 September 2009 - 11:36 PM اسأل الله أن يزيد في علمك وعندي استفسار كيف أجعل الافتراضي البحث في ورقة معينة واحدة مع الشكر الجزيل للرفع رابط هذا التعليق شارك More sharing options...
mewahid قام بنشر سبتمبر 14, 2009 مشاركة قام بنشر سبتمبر 14, 2009 جزاكم الله خيراً رابط هذا التعليق شارك More sharing options...
الموسى1423 قام بنشر أكتوبر 13, 2009 مشاركة قام بنشر أكتوبر 13, 2009 جزاك الله خير أيها المبدع خبور خير عمل في غاية الروعة والإبداع رابط هذا التعليق شارك More sharing options...
أم عبد الله قام بنشر أكتوبر 13, 2009 مشاركة قام بنشر أكتوبر 13, 2009 الأخ العزيز أستاذنا القدير / خبور جزاك الله الفردوس الأعلى من الجنة ودائما متألق كالعادة وتمتعنا بأعمالك العظيمة ولي طلب من حضرتك أنا اجتهدت وعملت برنامج المرتبات للمدارس ولكن ينقصه اللمسة الفنية الأخيرة وينقصه الخبرة والترتيب لكي يؤدي الغرض بطريقة حضرتك الجميلة أما من الناحية العلمية فاعتقد أنه مبني على اسس صحيحة وأنا جربته على حالات كثيرة فكانت النتيجة ممتازة بالنسبة لصافي كل موظف فأتعشم من حضرتك لو أنا أرسلت البرنامج تلقي نظرة وتفيدني بكيفية التعديل فيه من ناحية الشكل العام والتنظيم أو حضرتك تنفذه بطريقتك وبناء على البيانات الاساسية التي استندت عليها لأن نتيجتها ممتازة وكما تنفذ من الإدارة التعليمية وبعد التعديل سوف يستفاد منه الجميع أرجو الرد من فضلك وزادك الله علماً ولكم جزيل الشكر0 رابط هذا التعليق شارك More sharing options...
naderwatfa قام بنشر أكتوبر 15, 2009 مشاركة قام بنشر أكتوبر 15, 2009 بسم الله ما شاء الله بارك الله فيك و جزاك كل الخير رابط هذا التعليق شارك More sharing options...
obad65 قام بنشر أكتوبر 16, 2009 مشاركة قام بنشر أكتوبر 16, 2009 استاذنا الفاضل خبور آمل التكرم بالاجابة عن سؤالي وهو كيف أجعل الكود يبحث في ورقة واحدة فقط تكون هي الافتراضية زادك الله من علمه رابط هذا التعليق شارك More sharing options...
abdoahmed قام بنشر أكتوبر 22, 2009 مشاركة قام بنشر أكتوبر 22, 2009 شكراًجزيلاً وبارك الله فيكم علي هذا المجهود abdoahmed رابط هذا التعليق شارك More sharing options...
ابو الحمز قام بنشر أكتوبر 24, 2009 مشاركة قام بنشر أكتوبر 24, 2009 مبدع كالعادة بارك الله فيك رابط هذا التعليق شارك More sharing options...
obad65 قام بنشر أكتوبر 24, 2009 مشاركة قام بنشر أكتوبر 24, 2009 للرفع رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أكتوبر 24, 2009 الكاتب مشاركة قام بنشر أكتوبر 24, 2009 السلام عليكم الشكر واصل لجميع المشاركين الاخ/ obad65 كيف أجعل الكود يبحث في ورقة واحدة فقط تكون هي الافتراضية في هذا الكود لفورم البحث Private Sub UserForm_Activate() Dim C As Integer Comb_Find.AddItem "بحث في جميع اوراق العمل" For C = 1 To ActiveWorkbook.Sheets.Count Comb_Find.AddItem ActiveWorkbook.Sheets(C).Name Next Comb_Find.Text = Comb_Find.List(0) End Sub في هذه الجزئية Comb_Find.Text = Comb_Find.List(0) حدد الاندكس للورقة التي تريدها او اكتب اسم الورقة مثلا: Comb_Find.Text = "بيانات اساسية" رابط هذا التعليق شارك More sharing options...
obad65 قام بنشر أكتوبر 27, 2009 مشاركة قام بنشر أكتوبر 27, 2009 أستاذي العزيز خبور خير تم التعديل وجزاك الله خير وزادك من علمه وفضله وجعل كل حرف في هذا المنتدى في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
wisam0 قام بنشر مارس 14, 2010 مشاركة قام بنشر مارس 14, 2010 الف شكر في قمة الابداع رابط هذا التعليق شارك More sharing options...
أبو جديد قام بنشر مارس 14, 2010 مشاركة قام بنشر مارس 14, 2010 ما شاء الله تبارك الله عمل ممتاز أخي خبور الله يعيطك العافية والصحة رابط هذا التعليق شارك More sharing options...
قصي قام بنشر مارس 15, 2010 مشاركة قام بنشر مارس 15, 2010 بسم الله ماشاء الله رااااااااائع رابط هذا التعليق شارك More sharing options...
BuFaisal قام بنشر مارس 15, 2010 مشاركة قام بنشر مارس 15, 2010 (معدل) انت انسان رائع بجميع المقاييس حيث اني كنت ابحث عن هذا الكود منذ اكثر من 6 اشهر في جميع المنتديات الأنترنت حتى وجدته على طبق من فضة مقدم الي من اخ كريم يحب ان يشارك اخوانه في الله ماعنده من علم فلك الحب والتقدير والاجلال ولا حرمنا الله من علمك اخوك من السعودية - الدمام بوفيصل تم تعديل مارس 15, 2010 بواسطه BuFaisal رابط هذا التعليق شارك More sharing options...
أحمد عبدالعزيز قام بنشر سبتمبر 15, 2010 مشاركة قام بنشر سبتمبر 15, 2010 (معدل) مهما فكرت أن أقول ... ليس لدىَّ ما أقوله سوى ....... تم تعديل سبتمبر 15, 2010 بواسطه ARABYS رابط هذا التعليق شارك More sharing options...
حسين شاكر قام بنشر سبتمبر 15, 2010 مشاركة قام بنشر سبتمبر 15, 2010 رابط هذا التعليق شارك More sharing options...
ولد جدة قام بنشر سبتمبر 17, 2010 مشاركة قام بنشر سبتمبر 17, 2010 كيف استثني احد اوراق العمل والمسماه aaa من البحث رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 19, 2010 الكاتب مشاركة قام بنشر سبتمبر 19, 2010 السلام عليكم الشكر واصل لجميع المشاركين ========================================= كيف استثني احد اوراق العمل والمسماه aaa من البحث هنا في هذا الكود Private Sub UserForm_Activate() Dim sh As Worksheet Comb_Find.AddItem "بحث في جميع اسماء القائمة" For Each sh In ActiveWorkbook.Sheets If Not sh.Visible = xlSheetVisible Then GoTo 1 If IsError(Application.Match(sh.Name, Array("aaa"), 0)) Then Comb_Find.AddItem sh.Name End If 1: Next Comb_Find.ListIndex = 0 End Sub في هذه الجزئية ممكن تضيف اسماء الاوراق التي لا تريدها Array("aaa") لو فرضنا ثلاث ورق Array("aaa", "sss", "mm") شاهد المرفق فورم بحث1.rar رابط هذا التعليق شارك More sharing options...
محمدي عبد السميع قام بنشر سبتمبر 20, 2010 مشاركة قام بنشر سبتمبر 20, 2010 ماشاء الله حفظك الله ورعاك رابط هذا التعليق شارك More sharing options...
ahmed25 قام بنشر سبتمبر 20, 2010 مشاركة قام بنشر سبتمبر 20, 2010 السلام عليكم استاذ خبور خير احيك على هذا العمل الاكثر من رائع وربنا يعطيك الصحة والعافية دايما ويجعله في ميزان حسناتك. ولك جزيل الشكر والتقدير رابط هذا التعليق شارك More sharing options...
ولد جدة قام بنشر سبتمبر 20, 2010 مشاركة قام بنشر سبتمبر 20, 2010 الله يعطيك العافية اخ خبور وفقك الله رابط هذا التعليق شارك More sharing options...
احمد غانم قام بنشر ديسمبر 25, 2010 مشاركة قام بنشر ديسمبر 25, 2010 جزاك الله خيرا فقد قال رسول الله صلى الله عليه وسلم : من اسدى إليك معروفا وأردت أن تكافأه فقل له جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
عبد الله-بلال قام بنشر يناير 9, 2011 مشاركة قام بنشر يناير 9, 2011 إخواني الأساتذة السلام عليكم و رحمة الله و بركاته ، أشكركم جزيل الشكر على الإبداعات التي تعطونها لنا فنتمنى من الله العزيز الكريم أن يجعلها في صحيفتكم و يجازيكم الجنة . عندي إقتراح لو تقبلتم عندما تكتبوا لنا الكود في الرد لو سمحتم أن تكتبوه فيما يقابله بالعربية حتى نفهم الكود ماذا يعني لأننا مبتدئين جدا و الله لا يضيع أجر المحسنين . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها