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

mselmy

03 عضو مميز
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    181

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

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

 نوع المحتوي 

مشاركات المكتوبه بواسطه mselmy

    انشاء ملف جديد بالكود

    في منتدى الاكسيل Excel

    قام بنشر

    هل نستطيع جعل الكود يعمل على ورقه 2 اى ما كان اسمها تحويل او غيره حيث اننى استطيع تغيير اسم الورقه الى اسم اخر ويقوم الكود بنفس العمل ويسمى الملف الجديد بالاسم الجديد

     مثال تغيير اسم الورقه من  التحويل الى تحويل شهر يناير

    تعديل كود

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم 

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

    Sub kashfsanok()
    Run "offFilter"
     
    Dim mo As String
    Dim ws As Worksheet
     
    Dim Lr As Long, i As Long
    Dim r As Integer
    mo = Range("b3").Value
     
    Range("a5:f1000").ClearContents
     
    Application.ScreenUpdating = False
     
    With ActiveSheet
        Lr = Sheets("بيان_قبض").Cells(.Rows.Count, "b").End(xlUp).Row
       For i = 2 To Lr
         
          If Sheets("بيان_قبض").Cells(i, "b") <> "" And Sheets("بيان_قبض").Cells(i, "c") >= [c3] And Sheets("بيان_قبض").Cells(i, "c") <= [d3] Then
            r = r + 1
     Cells(r + 4, "a").Value = Sheets("بيان_قبض").Cells(i, "c").Value
     Cells(r + 4, "b").Value = Sheets("بيان_قبض").Cells(i, "e").Value
     Cells(r + 4, "c").Value = Sheets("بيان_قبض").Cells(i, "f").Value
     Cells(r + 4, "d").Value = Sheets("بيان_قبض").Cells(i, "b").Value
     Cells(r + 4, "e").Value = Sheets("بيان_قبض").Cells(i, "g").Value & " " & Sheets("بيان_قبض").Cells(i, "h").Value
     Cells(r + 4, "f").Value = Sheets("بيان_قبض").Cells(i, "d").Value
    End If
     
    Next
    End With
     
     
    Run "OnFiltercashf"
     
    End Sub

    نطاق الطباعه

    في منتدى الاكسيل Excel

    قام بنشر

    اريد عمل امر بالكود يقوم بعمل طباعة نظاق معين من ورقة العمل ويتم طباعته ثم يقوم بتحديد نطاق اخر من نفس الورقه ثم يقوم بطباعته ايضا " مثال يقوم الامر بطباعة النطاق من A1 : C15 وذلك فى الطبعه الاولى ثم يقوم بطباعة النطاق من A1 : D20 فى الطباعة الثانية " وشكرا لكم

    كود بدل الدالة sumifs

    في منتدى الاكسيل Excel

    قام بنشر

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

    استخراج كشف حساب من قاعدة بيانات طبقا للفترة المطلوبة

    في منتدى الاكسيل Excel

    قام بنشر · تم تعديل بواسطه mselmy

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

    استخراج كشف حساب.rar

    • Like 1

    تحويل ملف اكسيل الى ملف نص

    في منتدى الاكسيل Excel

    قام بنشر

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

×
×
  • اضف...

Important Information

  I accept