سليم حاصبيا
-
Posts
8,723 -
تاريخ الانضمام
-
Days Won
262
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو سليم حاصبيا
-
يمكن عمل معادلة تظهر لك ما موجود بالصفحة الاولى و غير موجود في الصفحة الثانية والعكس بالعكس
-
ممتاز لكن حبذا عدم التقيد بالرقم 10 ودع المستخدم يختار الرقم الذي يريده
-
جرب الملف المرفق(يعمل حتى 100 اسم و يمكن الزيادة) ass3are salim.rar
-
جرب هذا الكود Sub Makloub() i = 1 answer = Application.InputBox("type yourNumber", "Salim you ask", 5) t = Abs(Val(answer)) If t = 0 Then GoTo 1 With ActiveCell .Value = "number from" & Chr(10) & t & " to " & 1 .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Offset(1, 0).Resize(500, 1).ClearContents End With Do Until i > t ActiveCell.Offset(t - i + 1, 0) = i i = i + 1 Loop Exit Sub 1: MsgBox "You must type a Positive number" End Sub
-
تم معالحة الامر تقسيم تلقائى for print salim.rar
-
بالاضافة الى حل الاخ ابو حنين (For Next) حلين اخرين 1-بواسطة Loop 2-بواسطة Array for VBA lovers Two In One.rar
-
كيف اجعل لاسماء المتشابهة تظهر في القائمة المنسدلة
سليم حاصبيا replied to aljaberi2016's topic in منتدى الاكسيل Excel
اعمل Copy للشيت و اعطه اسماً اخر 1-حدد الشيت المطلوب 2-اضغط Ctrl بشكل متواصل مع تحريك الماوس الى اي مكان تريد ان تضع النسخة(تظهر لك علامة + و يحدد المكان بمثلث اسود صغير متحرك مع الماوس) 3 -ضغطة يمين على اسم الصفحة الجديدة واعطها الاسم -
حل ممتاز لكن الاخ الزباري يريدها عن طريق Loop
-
جرب هذا الملف sheet5 salim.rar
-
الترحيل من اكثر من شيت لشيت واحد
سليم حاصبيا replied to ابولجين العزالي's topic in منتدى الاكسيل Excel
الملف مضروب بفيروس و قد رفض الجهاز فتحه -
كيف لنا ان نعرف مادة التدريس من خلال العامود A اذا كنت قد فهمت الموضوع ربما هذه المعادلة تناسبك انسخها الى الخلية B1 واسحب نزولاً =REPLACE(TRIM($A1),1,FIND(" ",TRIM($A1),FIND("ترب",TRIM($A1))+1),"")
-
تم معالجة الامر تقسيم تلقائى لورقة العمل salim.rar
-
اين الملف
-
جرب هذا الملف Page_brak_By_choise.rar
-
موضوع اخر خطر على بالي كيف نحول جدول من شكل الى اخر انظر الى المرفق ملاحظة(الكود فيما بعد) for VBA lovers.rar
-
الهدف الاول تحديد اول خلية في الجدول و ذلك يتم بواسطة هذا الكود Sub first_cell() For i = 1 To ActiveSheet.Columns.Count On Error Resume Next Set My_rg = Columns(i).SpecialCells(xlCellTypeConstants).Cells(1) If Not IsEmpty(My_rg) Then Err.Clear Exit For End If Next r = My_rg.Row: c = My_rg.Column '====================================== ' من هنا يمكن متابعة الكود 'بعد ان عرفنا اول خلية في الجدول '======================================= End Sub
-
اكتب هذه المعادلة في الخلية J2 واسحبها الى الخلية J3 =SUMPRODUCT(($D$5:$R$5=TODAY())*($D$6:$R$40="غ")*($B$6:$B$40=ROWS(A1:$A$2)))
-
تكرم عينك و عينه Sub salim2() With Range("a1:f" & Cells(Rows.Count, 1).End(3).Row) .Interior.ColorIndex = xlNone .Borders.LineStyle = xlContinuous = 0 End With Set my_rg = Range("a1:a" & Cells(Rows.Count, 1).End(3).Row).SpecialCells(xlCellTypeConstants) k = 1 Do Until k = my_rg.Areas.Count + 1 y = 1 Do Until y = my_rg.Areas(k).Count + 1 my_rg.Areas(k).Cells(y).Activate If ActiveCell.Offset(0, 1) = "student" Then With ActiveCell.Resize(1, ActiveCell.Columns.End(xlToRight).Column) .Interior.ColorIndex = 4 .Borders.LineStyle = xlContinuous = 1 End With End If y = y + 1 Loop k = k + 1 Loop Range("a1").Select End Sub
-
عندها يلزم هذا الكود (مع الاخذ بعين الاعتبار مشاركتكم السابقة حول عدد الاعمدة) لم اذكرها هنا لضيق الوقت Sub salim1() lr = Cells(Rows.Count, 1).End(3).Row Range("a1:f" & Cells(Rows.Count, 1).End(3).Row).Interior.ColorIndex = xlNone Set my_rg = Range("a1:a" & lr).SpecialCells(xlCellTypeConstants) k = my_rg.Areas.Count For x = 1 To k For y = 1 To my_rg.Areas(x).Count If my_rg.Areas(x).Cells(y).Offset(0, 1) = "student" Then _ my_rg.Areas(x).Cells(y).Resize(1, 6).Interior.ColorIndex = 4 Next Next End Sub
-
وماذا اذا كان عدد الاعمدة متغير (كل صف له عدد من الاعمدة مختلف عن الاخر )
-
استعمل هذه المعادلة =SUMPRODUCT(($D$5:$R$5=TODAY())*($D$6:$R$40="غ"))
-
كيف اجعل لاسماء المتشابهة تظهر في القائمة المنسدلة
سليم حاصبيا replied to aljaberi2016's topic in منتدى الاكسيل Excel
تم معالجة الامر book1 salim.rar -
اسمحوا لي بهذا الكود Sub tlween1() Range("a1").CurrentRegion.Interior.ColorIndex = xlNone Cells(1, 1).Activate Do While ActiveCell <> "" If ActiveCell.Offset(0, 1) = "student" Then _ ActiveCell.Resize(1, 3).Interior.ColorIndex = 4 ActiveCell.Offset(1, 0).Activate Loop End Sub تم ادراج اول سطر بالكود لاعادة اللون السابق في حال انتقلت كلمة Student من صف الى اخر ملاحظة اخرى: ماذا لو كتبت كلمة student بهذا الشكل StuDent أو sTuDEnt أو غيره سؤال لعشاق ال VBA
-
بعد كتابة المعادلة اضغط (Ctrl+Shift+Enter) و ليس Enter وحدها
-
جرب هذا الملف القائمة المنسدلة مطاطة في الخلية الصفراء(تستجيب لاي تغيير في البيانات ولا تذكر المكرر الا مرة واحدة) Master Data salim.rar
