أبو حنــــين
-
Posts
2845 -
تاريخ الانضمام
-
Days Won
9
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو أبو حنــــين
-
و لمعرقة باقي الحروف استعمل هذا الكود ثم اخترمنه الارقام التي تناسب طلبك هذا الكود هو فقط لمعرقة الحروف العربية و العلامات و غيرها يمكنك استغلاله Private Sub CommandButton1_Click() For i = 1 To 255 Cells(i, 1) = i '============================== Cells(i, 2) = Chr(i) '============================== Next End Sub
-
السلام عليكم اكتب هذه المعادلة بدل المعادلة التي كتبتها ثم اسحبها الى الاسفل =SUMPRODUCT(($C$3:$C$13=B16)*($E$3:$E$13<>"")) -
السلام عليكم هذا الكود لكتابة الارقام فقط Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii < 46 Or KeyAscii > 57 Then KeyAscii = 0 End Sub
-
و كل عام و انتم بخير
-
عيدكم مبارك أخي إبراهيم كل عام و انت و كل الاسرة بخير اعاده الله على كافة الامة الاسلامية بالخير و البركات
-
السلام عليكم هذا مثال لحذف ورقة رقم3 ضع كموندبوتون في الورقة الاولى و انسخ هذا الكود Private Sub CommandButton1_Click() Application.DisplayAlerts = False Sheets("ورقة3").Delete End Sub
-
برنامج آيات
أبو حنــــين replied to محمد طاهر عرفه's topic in المنتدى التقني العام و تطبيقات الأوفيس الأخرى
السلام عليكم الأستاذ محمد الطاهر جزاكم الله خيرا عيدكم مبارك و كل عام و انتم بخير -
السلام عليكم جرب المرفق أخي اظهار التيكست _1بوكس بشرط.rar
-
حذف سجلات بين أوراق العمل- سعيد بيرم
أبو حنــــين replied to أبو سجده's topic in منتدى الاكسيل Excel
السلام عليكم لا ادري معيار الحذف عندك لكنني جعلته الخلية الصفراء عندما تكتب بها اسم ما يحذف من الورقتين حذف سجلات بين أوراق العمل- سعيد بيرم.rar -
السلام عليكم تمكن و قدرة واضحة في التحكم في المعادلات جزاك الله خيرا أخي محمود حفظكم الله و رعاكم
-
جزاك الله خيرا أخي عبد الله
-
الأخ الحبيب : عباس السماوي جزاك الله خيرا على المرور ----------------------- حفظكم الله و رعاكم
-
أخي حمادة ( ابو سمسمه) جزاك الله خيرا لقد تحايلت على الاكسل و انتصرت عليه بوضع قائمتين كما تحايلت انا باخفاء الاعمدة بارك الله فيكم حفظكم الله و رعاكم
-
أخي عبد السلام زاوي جزاك الله خيرا على المرور و أعتذر عن عدم رؤية ردكم إلا الآن ----------------------- حفظكم الله و رعاكم
-
السلام عليكم اخي ابراهيم جرب المرفق list_1.rar
-
السلام عليكم أخي عبد الله باقشير مروركم دائما يسعدنا و يزيدنا فخرا جزاك الله خيرا حفظكم الله و رعاكم
-
أخي الأستاذ محمد السيد جزاك الله خيرا على المرور =============== أخي الأستاذ هاني مصطفى جزاك الله خيرا على المرور ----------------------- حفظكم الله و رعاكم
-
أخي أبو سما جزاك الله خيرا على المرور =============== أخي أبو جيداء جزاك الله خيرا على المرور ----------------------- حفظكم الله و رعاكم
-
جرب التالي Private Sub UserForm_Activate() r = ActiveCell.Row With ActiveSheet If .Name = "sale" Then TextBox7 = .Cells(r, 2) If .Name = "main" Then TextBox7 = .Cells(r, 1) End With End Sub
-
حسب ما فهمت انك تريد الكود ينفذ فقط في الورقة التي اسمها sale
-
السلام عليكم هذه احدى طرق التكملة التلقائية و طريقة العمل تكون كالتالي 1 اضغط مرتين في أي خلية و في أي ورقة تظهر لك قائمة الاسماء 2 إما ان تكمل الكتابة او تستعمل الاسهم للذهاب الى الاسم المختار 3 تضغط مفتاح انتر لاختيار الاسم 4 لإلغاء العملية اضغط مفتاحح إشاب Esc تكملة تلقائية.rar
-
السلام عليكم عيدكم مبارك و كل عام و الجميع بخير اعاده الله على كافة الامة الاسلامية بالخير و الامن و اليمن و البركات
-
السلام عليكم استعمل هذا الكود Private Sub UserForm_Activate() r = ActiveCell.Row With ActiveSheet S = .Name If S = "sale" Then TextBox1 = .Cells(r, 2) End If End With End Sub
-
ارجو المساعده فى اظهار المعادلات فى التيكست بوكس
أبو حنــــين replied to إبراهيم ابوليله's topic in منتدى الاكسيل Excel
السلام عليكم جزاك الله خيرا أخي ضاحي الغريب على مروركم و على توقيعكم الخاص -
كود مختصر للحصول على اسم المستخدم للجهاز
أبو حنــــين replied to إبراهيم محمد's topic in منتدى الاكسيل Excel
السلام عليكم اخي الأستاذ إبراهيم عمل رائع و فكرة طيبة و كنت قد اتجزت برنامجا بنفس الفكرة تقريبا لكن لا يعتمد على اسم المستخدم بل على رقم القرص لمنع نقل الملف الى مكان آخر جزاك الله خيرا