-
Posts
11638 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
291
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Ali Mohamed Ali
-
يمكنك استخدام هذا الكود Sub printter() Dim myrange Dim Rng, cell As Range Set myrange = Range("A600").End(xlUp) Set Rng = Range("A1:" & myrange.Address) For Each cell In Rng If cell = "" Then myrange = cell.Address MsgBox cell.Address ActiveSheet.PageSetup.PrintArea = "$A$1:P" & cell.Row ActiveSheet.PrintOut Exit Sub End If Next End Sub
-
تفضل اخى طلبك فى هذا الرابط
-
أهلا وسهلا بك اخ كريم فى منتدانا الكريم وكل عام وانتم بخير ورمضان مبارك من الأفضل ومن قواعد المنتدى تقوم انت بنفسك بعمل الملف واذا تعثرت فى اى جزء فتقوم برفعه الى المنتدى وسوف تلقى المساعدة ان شاء الله ولكنى وجدت هذا الملف عندى لعله يفيدك بارك الله فيك Reservation 2003.rar
-
أخى الكريم حاول نقل الملف الى شيت اكسيل اخر فهذا الملف به فيروس جزاك الله كل خير
-
وعليكم السلام اخى الكريم -وكل عام وانتم بخير من الأفضل ارسال ملف وتوضيح ما تريده عليه حتى تجد الأخوة الأساتذة سهولة فى مساعدتك بارك الله فيك
-
هناك شرح داخلى لكود وضع الدوائر يمكنك تغيير واختيار العمدة التى تريد وضع الدوائر بها وهذا هو الكود مع شرح بسيط له Option Explicit Option Base 1 Sub DrawRedCircles() Dim myArray As Variant Dim Rng As Range Dim Cel As Range Dim Cell As Range Dim L As Long Dim T As Long Dim W As Long Dim H As Long Dim X As Long Dim rRow As Long Dim startRow As Long 'مصفوفة بأسماء الأعمدة المراد وضع دوائر حمراء بها myArray = Array("Q", "U", "Z", "AD", "AI", "AM", "AS", "AT", "AU", "AY", "BE", "BF", "BG", "BK", "BN", "BQ", "BR", "BW", "CA", "CG", "CH", "CI", "CM", "CR", "CV") 'رقم الصف الذى يحتوى على الدرجات النهائية الصغرى rRow = 9 'صف البداية أى أول صف به درجات الطلاب startRow = 10 Application.ScreenUpdating = False Call RemoveCircles With Sheets("Sheet1") For X = LBound(myArray) To UBound(myArray) Set Cel = .Range(myArray(X) & rRow) Set Rng = .Range(myArray(X) & startRow, .Range(myArray(X) & startRow).End(xlDown)) For Each Cell In Rng If Cell.Value < Cel Or Cell.Value = "Û" Then L = Cell.Left: T = Cell.Top W = Cell.Width: H = Cell.Height With .Shapes.AddShape(msoShapeOval, L, T, W, H) .Fill.Visible = msoFalse .Line.ForeColor.RGB = RGB(255, 0, 0) .Line.Transparency = 0 .Line.Weight = 1.5 End With End If Next Cell Next X End With Application.ScreenUpdating = True End Sub
-
محتاج كود برمجي بآخر حاجة موجودة داخل الخلية
Ali Mohamed Ali replied to اسلام يونس's topic in منتدى الاكسيل Excel
من فضلك اخى الكريم قم بإرسال ملف ووضح ما تريده عليه حتى يتسنى للأساتذة مساعدتك -
تفضل جرب هذا alma1-1(Recovered).xlsm
-
يمكنك اخى الكريم البحث عن اى فيديوهات تحتاجها عن هذا الموضوع فى اليوتيوب
-
ما هي طريقة اختبار قيمة بين رقمين ؟
Ali Mohamed Ali replied to أحمد حجاج's topic in منتدى الاكسيل Excel
تفضل أخى الكريم 1-111.xls -
سلسلة شروحات فيديو " الترحيل " أربعة أجزاء
Ali Mohamed Ali replied to عبدالله المجرب's topic in منتدى الاكسيل Excel
أخى الكريم لو لديك الملف من الأفضل قم بإرساله للعمل عليه توفيرا للوقت وحتى تتمكن الإخوة والأساتذمة تقديم المساعدة لك جزاك الله كل خير -
اضافة معادلة الى نموذج حضور وانصراف للموظفين
Ali Mohamed Ali replied to عيسى العامري's topic in منتدى الاكسيل Excel
تفضل اخى الكريم الحضور والانصراف معدلة-1.xlsx -
وعليكم السلام اخى الكريم لو ممكن رفع الملف مرة اخرى فهناك مشكلة فى تحميله -جزاك الله كل خير
-
تظهار البيانات فى list box مرة اتجاهها يمين و مرة شمال
Ali Mohamed Ali replied to Ahmed mordy's topic in منتدى الاكسيل Excel
وعليكم السلام أخى الكريم ورمضان مبارك تقبل الله أعمالكم من فضلك دعم مشاركتك برفع ملف واشرح ما تريد عليه وان امكن رفع صور للمشكلة التى تواجهك حتى يكون ذلك أيسر على الأساتذة والخبراء مساعدتك بارك الله فيك -
برنامج المخازن برنامج المخازن اهداء لكم
Ali Mohamed Ali replied to عبد اللطيف سلوم's topic in منتدى الاكسيل Excel
بارك الله فيك وجزاك الله كل خير شكرا جزيلا لك على المشاركات الفعالة جعله الله فى ميزان حسناتك -
احتصارات ضرورية اختصارات مهمة اكسيل
Ali Mohamed Ali replied to عبد اللطيف سلوم's topic in منتدى الاكسيل Excel
جزاك الله كل خير جعله الله فى ميزان حسناتك -
أخى الكريم اين الملف للعمل عليه ! من فضلك قم برفع الملف
- 1 reply
-
- 1
-
-
وعليكم السلام -اهلا وسهلا بك أخ كريم فى منتدانا الكريم يمكنك البداية مع هذا الملف فبه بدايات وشرح لهذا الموضوع جزاك الله كل خير شرح رائع وسهل لتعليم VBA بجانب مجموعة أكواد هامة.rar
-
كود استدعاء وظهور الفورم بدبل كليك فى اى خلية Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.ScreenUpdating = False منع خاصية اهتزاز الشاشة' If Target.Column = 1 And Target.Row > 5 Then "يقصد بهذا السطر هو شرط ومكان الدبل كليك لإظهار الفورم -وفى هذه الحالة يكون الضغط فى أى خلية من العمود الأول A -ولكن بشرط بعد' الصف أو السطر الخامس ,,,,,,,, ويمكنك التغيير فى هذا السطر من الكود لأى ملف أخر تريد عمله' " UserForm1.Show بعد ذلك يظهر لك الفورم' End If End Sub 'نهاية الكود تفضل اخى الكريم أما بالنسبة لأكواد الفورم حاول متابعتها ودراستها بنفسك
-
دالات ضرورية تطبيق على بعض الدالات الضرورية في اكسيل
Ali Mohamed Ali replied to عبد اللطيف سلوم's topic in منتدى الاكسيل Excel
جزاك الله كل خير وبارك الله فيك وجعله فى ميزان حسناتك -
اخفاء الأعمدة والصفوف الفارغة
Ali Mohamed Ali replied to وائل عبد الصمد's topic in منتدى الاكسيل Excel
تفضل اخى الكريم-كل عام وأنتم بخير ورمضان مبارك -1م تشغيل.xlsm -
- 149 replies
-
- 1
-
-
هل يمكن حفظ اليوزرفورم بصيغة jpg
Ali Mohamed Ali replied to فادى سامى's topic in منتدى الاكسيل Excel
تفضل هذا هو الملف وبه الكود Book1.xlsm -
وممكن تجرب هذا الملف فبمجرد الضغط دبل كليك على اى خلية من العمود الأول A ويكون بداية من الصف السادس سيظهر لك الفورم مباشرة كل عام وانتم بخير ورمضان مبارك Search.xlsm