أكاديمية الصقر للتدريب

اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
khaled alborene Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil برنامج مرتبات الصقر - الاصدار التانى - حسام خطاب اكسيل اسئله واجابات



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


الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :khaled alborene
عدد النتائج (173) نتيجة
08-12-2018 08:51 صباحا
icon برنامج مرتبات الصقر - الاصدار التانى - حسام خطاب | الكاتب :khaled alborene |المنتدى: تطبيقات محاسبيه بالاكسيل
 صديقي الاستاذ حسام في الاردن طبيعة الرواتب تكون بالشكل التالي هل استطيع التعديل على النموذجك
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
06-12-2018 03:37 مساء
icon موضوع مميز_ازرار وايقونات للماكرو_عدة تصماميم | الكاتب :khaled alborene |المنتدى: اكسيل مشاريع جاهزه
 جزاك الله خيرا
04-12-2018 07:55 صباحا
icon هديتى 2018_برنامج حسابات و ميزان مراجعه_ECO2_ دبل كليك 2018_G_adham | الكاتب :khaled alborene |المنتدى: اكسيل مشاريع جاهزه
 بارك الله فيك
01-12-2018 06:18 مساء
icon مساعدة في التعديل من خلال اليوزر فورم | الكاتب :khaled alborene |المنتدى: اكسيل اسئله واجابات
 اخي ما المقصود باسم الوكيل و اسم فاتورة الوكيل - تظهر عند اضافة وكيل 
 
01-12-2018 12:53 مساء
icon مساعدة في التعديل من خلال اليوزر فورم | الكاتب :khaled alborene |المنتدى: اكسيل اسئله واجابات
 ممكن فكرة عن المشاكل الي واجهتك
 
30-11-2018 08:17 صباحا
icon وافدة جديدة إلى الدنيا ....اللهم اجعلها من أهل الصلاح والفلاح | الكاتب :khaled alborene |المنتدى: المنتدى العام
 مبارك استاذ ياسر المولودة الجديدة 
وجعلها قرة عين لك ولوالدتها 
28-11-2018 10:17 مساء
icon مشكلة في زر الفأرة الايمن | الكاتب :khaled alborene |المنتدى: اكسيل اسئله واجابات
 شكرا لك اخي ياسر تم حل المشكلة 
بارك الله فيك
 
27-11-2018 06:59 مساء
icon عزاء واجب لأخينا الأستاذ ياسر العربي بوفاة جدته | الكاتب :khaled alborene |المنتدى: المنتدى العام
 عظم الله اجركم واحسن الله عزاءكم
25-11-2018 08:11 صباحا
icon تلوين الخلية النشطة بكود VBA | الكاتب :khaled alborene |المنتدى: اكسيل شروحات ودروس
 بارك الله فيك
24-11-2018 09:27 مساء
icon نقل البيانات من ورقة الى اخرى باستخدام الفلترة | الكاتب :khaled alborene |المنتدى: اكسيل اسئله واجابات
 كنت قد قرات شرحك عن كائن القاموس ولم استوعب الفكرة 
على العموم شكرا كثير لك 
24-11-2018 11:44 صباحا
icon نقل البيانات من ورقة الى اخرى باستخدام الفلترة | الكاتب :khaled alborene |المنتدى: اكسيل اسئله واجابات
 استاذ ياسر ممكن شرح الكودين التاليين وشو النتيجة منهم
Set d = CreateObject("Scripting.Dictionary")
        d.CompareMode = vbTextCompare
        v = Array(0, vbNullString)
    


 If IsError(Application.Match(c.Value, v, 0)) Then d.Item(CStr(c.Value)) = CStr(c.Value)
23-11-2018 12:57 مساء
icon دمج كودين معا | الكاتب :khaled alborene |المنتدى: اكسيل اسئله واجابات
 
Sub ad_sheets()
Application.ScreenUpdating = False
Dim my_range As Range
Dim final_range As Range
Dim x, y, r
' Dim source As Worksheet
' Dim Rg_To_Copy As Range
 Dim targ As Worksheet
 Dim sh_name$
 Dim t$, Laste_Row%
 'Dim r%, c%
 Dim Answer%
 Set source = Sheets("Sheet1")
 t = Replace(CStr(source.Range("d2")), "/", "-")
 'Set Rg_To_Copy = source.Range("c5").CurrentRegion
 'r = Rg_To_Copy.Rows.Count: c = Rg_To_Copy.Columns.Count
 On Error Resume Next
Set my_range = Selection
x = my_range.Areas.Count
 For y = 1 To x
  r = my_range.Areas(y).Rows.Count
   If final_range Is Nothing Then
    Set final_range = my_range.Areas(y).Cells(1, 1).Resize(r, 2)
    Else
    Set final_range = Union(final_range, my_range.Areas(y).Cells(1, 1).Resize(r, 2))
   End If
   Next
  Set targ = Sheets(t)
  
If targ Is Nothing Then
   Sheets.Add after:=source
    With ActiveSheet
      .Name = t
      final_range.Copy Sheets(t).Range("a5")
        .Range("a4:b4").Value = source.Range("c5:d5").Value
       .Columns("A:B").AutoFit
    End With
     Exit Sub
 '============================
Else
    Answer = MsgBox("This shetts is Allready exit" & Chr(10) & _
    "do you want to replace it??", vbYesNo)
   'xxxxxxxxxxxxxxxxxxxxxxxxxxxx
    If Answer <> 6 Then
      Laste_Row = targ.Cells(Rows.Count, 1).End(3).Row + 2
       targ.Cells(Laste_Row, 1).Resize(r, c).Value = final_range.Value
      Exit Sub
    End If
  'xxxxxxxxxxxxxxxxxxxxxxxxxxxx
   Application.DisplayAlerts = False
   targ.Delete
   Application.DisplayAlerts = True
   Sheets.Add after:=source
   With ActiveSheet
       .Name = t
       .Range("a5").Resize(r, c).Value = _
        final_range.Value
        .Columns("A:B").AutoFit
    End With
 End If
 '=========================================
 final_range = Nothing
  source.Activate
  Application.ScreenUpdating = True
End Sub

الصفحة 1 من 15 < 1 2 3 4 15 > الأخيرة »





الساعة الآن 09:23 صباحا

أعلن هنا
أعلن هنا
أعلن هنا