بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
مهارة جديدة من مهارات الاكسل
ومشكلة صعبة كنا نبحث لها منذ فترة كبيرة عن حل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