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

حسونة حسين

أوفيسنا
  • Posts

    1,059
  • تاريخ الانضمام

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

  • Days Won

    30

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

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

Important Information