اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

حسونة حسين

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

  • Posts

    1096

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

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

  • Days Won

    33

 نوع المحتوي 

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

  1. حسونة حسين
    وعليكم السلام ورحمه الله وبركاته اخى الكريم ما هو الشكل المتوقع لوضع البيانات في صفحه total صمم نموزج لشكل البيانات وليكن لعدد ٢ طالب لتتضح الرؤيه
  2. حسونة حسين
    السلام عليكم ورحمة الله وبركاته يمكنك الاستفاده من هذا الموضوع
  3. حسونة حسين
    السلام عليكم ورحمة الله وبركاته يمكنك الاستفاده من هذا الموضوع وايضا هذا الموضوع وهذا الموضوع به عده طرق لاستخدام التاريخ في التكست بوكس
  4. حسونة حسين
    وجزاكم مثله اخى الكريم الحمد لله الذي بنعمته تتم الصالحات
  5. حسونة حسين
    وعليكم السلام ورحمة الله وبركاته المعادله الاولى =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");"");"")
  6. حسونة حسين
    وعليكم السلام ورحمه الله وبركاته يمكنك الاستفاده من هذا الموضوع
  7. حسونة حسين
    السلام عليكم ورحمه الله وبركاته جرب هذا التعديل اخى الكريم test2.xlsb
  8. حسونة حسين
    بعد اذن الاساتذه عدل هذا الجزء LR = Range("G" & Rows.Count).End(3).Row الي LR = Range("E" & Rows.Count).End(3).Row
  9. حسونة حسين
    عدل File_name = "Filename" الى File_name = SH.Range("E7").Value
  10. حسونة حسين
    وعليكم السلام ورحمه الله وبركاته تفضل بالنسبة لطلبك الاول 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
  11. حسونة حسين
    الكود المرفق في ملفك ليس به اي مشاكل اخى الكريم
  12. حسونة حسين
    وعليكم السلام ورحمه الله وبركاته تفضل اخى الكريم Private Sub Workbook_Open() #If VBA7 Then Application.WindowState = xlMaximized #Else Application.Quit #End If End Sub
  13. حسونة حسين
    وعليكم السلام ورحمة الله وبركاته اخى الكريم كيف غريب الملف هذه اكواد الامتدات الخاصه بالاكسل اختر ما تشاء منها .xlsx = 51 .xlsm = 52 xlsb = 50 .xls = 56
  14. حسونة حسين
    وعليكم السلام ورحمه الله وبركاته تفضل اخى الكريم Sub File_Save_As() ThisWorkbook.SaveAs Filename:="e:\" & Format(Date, "ddd") & "-" & Format(Date, "dd-mm-yyyy") & "new", FileFormat:=52 End Sub
  15. حسونة حسين
    أخى الفاضل جزاكم الله خيرا على مجهودك جعله الله في ميزان حسناتك يوم القيامة المعادلة الخاصة بصافى الراتب A36*e36 )/c37+d36) تعطى العامل لو اشتغل ساعه اضافى بالمعادله تعطية ساعتين المفروض المعادلة تكون بهذا الشكل A36*e36 )/c37) هل كلامى صواب ام خطأ مرفق ملف 05.zip
  16. حسونة حسين
    أخى الفاضل جزاكم الله خيرا على مجهودك جعله الله في ميزان حسناتك يوم القيامة الملف مرفق النهائى بعد تعديل بسيط ليستفيد منه الأخوة 4.zip
  17. حسونة حسين
    أخى الفاضل من غير كتابه الأرقام نجد أن هناك مبلغ سوف يأخذه العامل (100 ) حتى لو لم ياتى إلى العمل هنا المشكله
  18. حسونة حسين
    لم تحل المشكلة العامل لم يعمل وصافى المرتب 1000 العامل مطلوب منه عدد ساعات في الشهر 8 في عدد ايام الشهر بدون الجمعه ثم نطرح ما عمله العامل في الشهر من ساعات من الساعات المطلوبة فما ذاد يكون ساعات اضافية
  19. حسونة حسين
    يوجد مشكلة في حساب ساعه الاضافى على حسب ايام الشهر ما عدا يوم الجمعه 1.zip
×
×
  • اضف...

Important Information

  I accept