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

حسونة حسين

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1092

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

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

  • Days Won

    32

 نوع المحتوي 

كل منشورات العضو حسونة حسين

  1. حسونة حسين
    وجزاكم مثله اخى الكريم الحمد لله الذي بنعمته تتم الصالحات
  2. حسونة حسين
    وعليكم السلام ورحمة الله وبركاته المعادله الاولى =iferror(DATE(IF(LEFT(C1232;1)="2";MID(C1232;2;2);"20"&MID(C1232;2;2));MID(C1232;4;2);MID(C1232;6;2));"") المعادله الثانيه =iferror(IF(Q1232>1;DATEDIF(Q1232;$P$1;"md");"");"")
  3. حسونة حسين
    وعليكم السلام ورحمه الله وبركاته يمكنك الاستفاده من هذا الموضوع
  4. حسونة حسين
    السلام عليكم ورحمه الله وبركاته جرب هذا التعديل اخى الكريم test2.xlsb
  5. حسونة حسين
    بعد اذن الاساتذه عدل هذا الجزء LR = Range("G" & Rows.Count).End(3).Row الي LR = Range("E" & Rows.Count).End(3).Row
  6. حسونة حسين
    عدل File_name = "Filename" الى File_name = SH.Range("E7").Value
  7. حسونة حسين
    وعليكم السلام ورحمه الله وبركاته تفضل بالنسبة لطلبك الاول Sub Export_PDF() Dim SH As Worksheet, R As Range, File_name As String Set SH = ThisWorkbook.Worksheets("Sheet1") File_name = "Filename" Set R = SH.Range("A1:H20") R.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & File_name End Sub
  8. حسونة حسين
    الكود المرفق في ملفك ليس به اي مشاكل اخى الكريم
  9. حسونة حسين
    وعليكم السلام ورحمه الله وبركاته تفضل اخى الكريم Private Sub Workbook_Open() #If VBA7 Then Application.WindowState = xlMaximized #Else Application.Quit #End If End Sub
  10. حسونة حسين
    وعليكم السلام ورحمة الله وبركاته اخى الكريم كيف غريب الملف هذه اكواد الامتدات الخاصه بالاكسل اختر ما تشاء منها .xlsx = 51 .xlsm = 52 xlsb = 50 .xls = 56
  11. حسونة حسين
    وعليكم السلام ورحمه الله وبركاته تفضل اخى الكريم Sub File_Save_As() ThisWorkbook.SaveAs Filename:="e:\" & Format(Date, "ddd") & "-" & Format(Date, "dd-mm-yyyy") & "new", FileFormat:=52 End Sub
  12. حسونة حسين
    أخى الفاضل جزاكم الله خيرا على مجهودك جعله الله في ميزان حسناتك يوم القيامة المعادلة الخاصة بصافى الراتب A36*e36 )/c37+d36) تعطى العامل لو اشتغل ساعه اضافى بالمعادله تعطية ساعتين المفروض المعادلة تكون بهذا الشكل A36*e36 )/c37) هل كلامى صواب ام خطأ مرفق ملف 05.zip
  13. حسونة حسين
    أخى الفاضل جزاكم الله خيرا على مجهودك جعله الله في ميزان حسناتك يوم القيامة الملف مرفق النهائى بعد تعديل بسيط ليستفيد منه الأخوة 4.zip
  14. حسونة حسين
    أخى الفاضل من غير كتابه الأرقام نجد أن هناك مبلغ سوف يأخذه العامل (100 ) حتى لو لم ياتى إلى العمل هنا المشكله
  15. حسونة حسين
    لم تحل المشكلة العامل لم يعمل وصافى المرتب 1000 العامل مطلوب منه عدد ساعات في الشهر 8 في عدد ايام الشهر بدون الجمعه ثم نطرح ما عمله العامل في الشهر من ساعات من الساعات المطلوبة فما ذاد يكون ساعات اضافية
  16. حسونة حسين
    يوجد مشكلة في حساب ساعه الاضافى على حسب ايام الشهر ما عدا يوم الجمعه 1.zip
×
×
  • اضف...

Important Information

  I accept