اذهب الي المحتوي
أوفيسنا

commandos1975

03 عضو مميز
  • Posts

    108
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

9 Neutral

عن العضو commandos1975

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مدرس
  • البلد
    egypt
  • الإهتمامات
    excell

اخر الزوار

1,325 زياره للملف الشخصي
  1. اخفاء محتولات الصف عند كتابة حرف معين في خلية في الصف I لاخفاء محتويات هذا الصف عدا A و F aaxlsx.xlsx
  2. يوجد مجموعه من الاسماء لها اكواد وتم حذف بعض الاسماء والمطلوب كود ماكرو ينسخ الكود المقابل للاسم الي المكان الجديد له بجواره copy.xlsm
  3. Sub a_b() ' ' a_b Macro ' Macro recorded 12/11/2009 by USER ' ' Application.GoTo Reference:="sheet" Selection.Sort Key1:=Range("E7"), Order1:=xlAscending, Key2:=Range("F7") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _ :=xlSortNormal Range("A1").Select End Sub
  4. نقل اسماء الطلبة من الورقي الاوالي الي الثانية حسي الاسم المكتوب في e3 data.xlsx
  5. السلام عليكم دا ملف متجمل من النت بهذه الطريقة ونريد وضع الارقام في خلايا
  6. كود نسخ الارقام الي عمود اخر aa.xlsx
  7. تلوين الارقام الموجودة في الجدول مع التسلسل العمود الاول باللون والعمود الثاني باللون اخر Boo.xlsx
  8. كود يساعد في طباعة البرقيات بحيث يتغير الاسم والمسلسل وطباعة برقية في ورقة او 3 برقيات في ورقة طباعة.xlsx
  9. اريد دمج دوال الملفين ملف يستخرج البيانات من الرقم القومي والملف الاخر يستخرج اسم الاب انتبه من فضلك ... مشاركة مكررة ,تــــم بالفعل حذف المشاركة الأخرى 1.xls 2.xls
  10. اذا كان الناتج سالب يظهر صفر بدلا منه .... عنوان مخالف , تم تعديل عنوان المشاركة ليعبر عن طلبك Book1.xlsx
  11. ربنا يبارك فيك يا غالي شغل عالي استفسار هذا الكود يعمل مع اي ملف اي ل اعداد كثيرة من الاعمدة وجدت هذا الكود كيف يمكنني الاستفادة منه Sub SortTable() Dim myTable As Range Dim myColToSort As Long Dim curWks As Worksheet Dim mySortOrder As Long Dim LastRow As Long Dim iCol As Integer Dim strCol As String iCol = 170 '10 columns strCol = "A" ' column to check for last row Set curWks = ActiveSheet With curWks ActiveSheet.Unprotect myColToSort = .Shapes(Application.Caller).TopLeftCell.Column LastRow = .Cells(.Rows.Count, strCol).End(xlUp).Row Set myTable = .Range("a6:a" & LastRow).Resize(, iCol) If .Cells(myTable.Row + 1, myColToSort).Value _ < .Cells(LastRow, myColToSort).Value Then mySortOrder = xlDescending Else mySortOrder = xlAscending End If myTable.Sort Key1:=.Cells(myTable.Row, myColToSort), _ Order1:=mySortOrder, _ Header:=xlYes End With ActiveSheet.Protect End Sub اجعل وقت لغيرك فى طلب الإستفسار والمشاكل, طالما تحصلت على الإجابة المطلوبة
  12. السلام عليكم اريد معرفة طريقة تشغيل ميكرو الترتيب علي اكثر من عمود اي عند التوجة للمسلسل يرتب المسلسل وعند التوجه لعمود الاسم يرتب الاسم وعند التوجة لعمود المستوي يرتب المستوي الضغطة الاولي تصاعدي والضغطة الثانية تنازلي agh.xlsm
×
×
  • اضف...

Important Information