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

عبدالله باقشير

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4796

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

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

  • Days Won

    57

 نوع المحتوي 

كل منشورات العضو عبدالله باقشير

  1. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم و كل عام و انتم بخير تقبلوا تحياتي وشكري
  2. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  3. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  4. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  5. عبدالله باقشير
    السلام عليكم استخدم الكود التالي في حدث الورقة وهو عند تغيير الشهر في الخلية A1 يتم تشغيل الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim Cel As Range If Target.Address = Range("A1").Address Then For Each Cel In Range("H1:BQ1") If Weekday(Cel.Value) = 6 Then Range(Cells(3, Cel.Column), Cells(252, Cel.Column)).Resize(, 2).Value = "ج" End If Next End If End Sub تحياتي قيمة بواسطة تنسيق شرطى.rar
  6. عبدالله باقشير
    اسعدني مروركم الطيب ودعائكم الطيب اثابكم الله به واعطاكم بمثله اضعاف مضاعفة جزاكم الله خيرا تقبلوا تحياتي وشكري
  7. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  8. عبدالله باقشير
    السلام عليكم استخدم الدالة المعرفة التالية: Function kh_HijToMilady(Textdate As String) Dim kh_Calendar As Integer kh_Calendar = Calendar Calendar = vbCalHijri If IsDate(Textdate) Then kh_HijToMilady = CDate(Textdate) Calendar = kh_Calendar End Function تحياتي date11.rar
  9. عبدالله باقشير
    تم اضافة نسخة 2003 في المشاركة الاولى جزاكم الله خيرا تقبلوا تحياتي وشكري
  10. عبدالله باقشير
    اسعدني مروركم الطيب جزاكم الله خيرا تقبلوا تحياتي وشكري
  11. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  12. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  13. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  14. عبدالله باقشير
    اسعدني مروركم جزاكم الله خيرا تقبلوا تحياتي وشكري
  15. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  16. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  17. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  18. عبدالله باقشير
    السلام عليكم تجد طلبك في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=48420
  19. عبدالله باقشير
    السلام عليكم خواتم مباركة نموذج بسيط للترحيل والبحث والتعديل هو طلب لاحدهم جعلته هنا للعموم الفائدة تم تعديل النسخة السابقة بهذه بعد ان حملت 80 مرة المرفق 2010-2003 نموذج بحث وترحيل وتعديل.rar ================================== هذا نموذج مع البحث في جميع الاعمدة وطباعة الفورم المرفق 2003-2010 نموذج بحث وترحيل وتعديل.rar ================================== هذا نموذج مع زيادة زر حذف سجل المرفق 2003 نموذج بحث وترحيل وتعديل.rar
  20. عبدالله باقشير
    شاهد المرفق في المشاركة الاولى بعد استبداله واجراء بعض التعديلات عليه
  21. عبدالله باقشير
    السلام عليكم على السريع شاهد المرفق 2010 ملف بحث بفورم ممتاز +2.rar
  22. عبدالله باقشير
    السلام عليكم شاهد المرفق 2010 تصفية الى اوراق.rar
  23. عبدالله باقشير
    السلام عليكم جرب المعادلة التالية التي توضع في العمود بي =DATE(YEAR(A2);MONTH(A2)+2;DAY(A2)) تحياتي Book1ق.rar
  24. عبدالله باقشير
    السلام عليكم استخدم دالة SUMIF
  25. عبدالله باقشير
    السلام عليكم جرب التعديل التالي Sub Hide_Rows() Dim Cel As Range MsgBox ("You are now in the process set the page settings for printing") Application.ScreenUpdating = False W = ActiveSheet.UsedRange.Rows.Count On Error Resume Next Range("A1:AE" & W).AutoFilter Field:=1, Criteria1:="<>" ''''''''''''''''' For Each Cel In Range("E65:AC65") If Cel.Value = "" Then Cel.EntireColumn.Hidden = True Next '''''''''''''''' ActiveSheet.PrintPreview Range("AF:AF").AutoFilter Range("E65:AC65").EntireColumn.Hidden = False Application.ScreenUpdating = True End Sub تحياتي
×
×
  • اضف...

Important Information

  I accept