أبو حنــــين

السلام عليكم أخي : أبو حمزة لم ارى هذه المشاركات الا اليوم فقط فأردت ان اعبر لك عن مدى اعجابي الشديد بهذا المجهود المعتبر جزاك الله خيرا و جعله في ميزان حسناتكم

السلام عليكم اخي احمد عمل جبار و متعوب عليه جعله الله في ميزان حسناتكم

السلام عليكم أخي يوسف جزاك الله خيرا على هذا الشعور النبيل تقبل تحياتي

السلام عليكم أحبيتي و إخواني الكرام : الأخ الحبيب : ضاحي الغريب الأخ الحبيب : رجب جاويش الأخ الحبيب : حمادة عمر الأخت الفاضلة : سما محمد جزاكم الله كل الخير على هذا الشعور الجميل و الكلمات الطيبة طيبة قائليها و التي لا تصدر إلا من شخص على خلق كبير حفضكم الله و رعاكم و سدد خطاكم و جعل الجنة مثواكم

السلام عليكم جميعا جمعة مباركة لكل الأحباء الكرام و بعد اذن الأخوين ضاحي الغريب و حمادة عمر ( ابو سما ) الذي احييه تحية خاصة هذه مساهمة مني عسى انها تفيد فورم ادخال 22.rar

السلام عليكم جرب الكود التالي في حدث الورقة Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 1 Then Exit Sub For Each cl In Range("A:A") If Target.Address = cl.Address Then Application.Union(cl, cl.Offset(0, 1), cl.Offset(0, 3)).Select Exit For End If Next End Sub

السلام عليكم أخي سعيد لم ادخل النت منذ ايام و لم ارى مشاركتك الرائعة الا اليوم فقط اولا تهانيا الحارة على هذا العمل الممتاز و الذي يستحق كل تقدير و دون اي مجاملة فهو عمل يستحق كل الشكر و التقدير بالنسبة لتغيير الصورة مع الاسماء قمت بوضع كودين جربته على الفورم رقم 1 و اعتقد انهما يفيان بالغرض الكود الأول : Private Sub ComboBox1_Click() ScrollBar1.Value = ComboBox1.ListIndex End Sub و الكود الثاني في نفس الفورم Private Sub ScrollBar1_Change() Dim j As Integer s = Me.ScrollBar1.Value With Me.salma .Caption = Replace(.Caption, .Tag, "") & s .Tag = s End With biram_Picture s salma.ScrollTop = 0 ComboBox1.ListIndex = ScrollBar1.Value End Sub لاحظ انني اضفت فقط السطر الأخير في الكود الثاني

السلام عليكم ورحمة الله و بركاته أولا : أعتذر عن تأخري في الرد بسبب انقطاع النت عندي ثانيا : أود ان اعبر لك عن مدى شكري و تقديري لكم لما بذلتموه و تبذلوه من جهد في سبيل نشر المعرفة بطريقة مبسطة و سهلة تفيد كل عضو اراد ان يبتدأ من الصفر لكن اود ان أنبهك لملاحظة هامة و هي انك سلكت طريقا ذو اتجاه واحد و لا يمكنك الرجوع او التراحع للخلف حتى تكتمل رحلة المعرفة ان شاء الله تقبل تحياتي و شكري حفظكم الله و رعاكم

السلام عليكم جرب المرفق 1.rar

العفو أخي أحمد زمان جزاك الله خيرا حفظكم الله و رعاكم

الملف الذي أرسلته في مشاركتك رقم 8 محمي بكلمة مرور قم بفك الحماية أولا على الملف

السلام عليكم هذا فيديو من نوع فلاش لتتضح الطريقة ان لم يكن لديك برنامج الفلاش افح الملف بواسطة Internet Explorer اي الضغط بيسار الفأرة ثم فتح باستخدام Internet Explorer مثال.rar

وهذا بالتنسيق الشرطي و اضافة لما ورد في ملف أخي الحبيب أحمد زمان المصنف222.rar

السلام عليكم جرب المرفق 2003 المصنف2.rar

السلام عليكم ما قصدته في المشاركة السابقة هو كود يقوم فقط بمهمة ثم تستطيع الاستغناء عنه جرب المرفق لا ادري ان كان فهمي للسؤال صحيح او خطأ Book1.rar

جزاك الله خيرا أخي محمود عمل و تنسيق رائعين جعله الله في ميزان حسناتكم حفظكم الله ورعاكم

السلام عليكم اذا كانت المشكلة في التعبئة يمكن وضع الماكرو التالي Sub Formulaa() For i = 1 To 7000 ورقة1.Cells(i, 3).Formula = "=B" & i & "+" & "A" & i Next End Sub

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

جزاكم الله خيرا و جعل عملكم هذا في ميزان حسناتكم حفظكم الله و رعاكم

للتو فقط قرأت الموضوع و اعتذر أخي الكريم ضاحي الغريب على التأخر في تهنئتك بالترقية التي تعتبر دفعا لصاحبها و نفعا للأعضاء جزاك الله خيرا تقبل تحياتي الأخوية حفظكم الله و رعاكم

عمل ممتاز أخي apt جزاك الله خيرا حفظكم الله ورعاكم

أخي أحمد زمان طريقة ممتازة جدا جزاكم الله خيرا حفظكم الله و رعاكم

قم بضغط الملف ببرنامج ضغط مثل WinRAR ثم ارفع الملف الى المنتدى

ارسل نموذجا لذلك اخي

ارجو ان تعود للعنوان التالي http://www.officena.net/ib/index.php?showtopic=46031