-->

Excel Skills VBA: How To Create Tally Frequency IN Excel

بسم الله الرحمن الرحيم 


اهلا بكم متابعى موقع عالم الاوفيس

مهارة جديدة من مهارات الاكسل 

ومشكلة صعبة كنا نبحث لها منذ فترة كبيرة عن حل

Excel Skills VBA: How To Create Tally Frequency IN Excel

كيف نعمل بنظام الحزم او التكرار على الاكسل (الحزم ) هى طريقة احصائية تستخدم فى عالم الاحصاء لعد مجموعة معينة ويطلق عليها بالانجليزية  (  Tally )

الكود

نذهب الى تبويب المطور Developerوندخل على ورقة العمل Worksheet ونختار حدث النقر المزدوج Duobel click 


Dim targ As Range
Dim i As Long, j As Long, n As Long
Set targ = Me.Range("B3:f8")
Set targ = Intersect(targ, Target)
If Not targ Is Nothing Then
    Cancel = True
    Application.EnableEvents = False
    n = Len(targ.Value)
    j = n Mod 5
    If j = 4 Then
        targ.Value = targ.Value & " "
    Else
        targ.Value = targ.Value & "/"
    End If  targ.Font.Strikethrough = False
    For i = 1 To n Step 5  If (j = 4) Or (i < (n - j)) Then
            targ.Characters(i, 4).Font.Strikethrough = True
        End If
    Next
    Application.EnableEvents = True
End If

Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

  1. السلام عليكم شرح ممتاز وافكار رائعة لكن الرابط لايعمل

    ردحذف
  2. اسف الرابط يعمل الخطا كان عندي شكرا لحضرتك

    ردحذف