1- حول لغة الكيبورد الى الاجنبية
2- اضغط باستمرار على مفتاح Alt
3-اضغط توالي الاحرف التالية M ثم X ثم A
4- اترك الزر Alt
هذا كل شيء اذا كان عندك اوفيس 2010
زيادة في اثراء الموضوع هذا الملف
كيلو جرام salim.zip
show_names_1_2_by letters.zip
يمكن ايضاً بكل بساطة استعمال هاتين المعادلتين
=MOD(A3,1000)
والثانية
=QUOTIENT(A3,1000)
انسخ هذه المعادلة للى الخلية K4 و اسحب نزولاً
لا تنس تنسيق الخلايا ( h]:mm] ) بهذا الشكل
انظر الى المرفق
=SUMPRODUCT(--($C4:$J4="صباحي")*MOD(($B$37-$A$37),1))+SUMPRODUCT(--($C4:$J4="ليلي")*MOD(($B$38-$A$38),1))
جدول دوام salim.zip
زيادة في اثراء الموضوع هذا الكود البسيط
ملاحظة كود على السريع حيث ان البيانات يجب ان تبدأ من العامود A (يمكن التعديل)
Sub mylastecel()
Dim lr, lc As Integer
lr = UsedRange.Rows.Count
lc = UsedRange.Columns.Count
For i = 1 To lc
If Cells(lr, i) <> "" Then
Cells(lr, i).Select
Selection.Offset(0, 1).Select
If Selection = "" Then Selection.Offset(0, -1).Select
End If
Next
End Sub
انا قبلت التحدي و اليك المعادلة اللازمة لهذا الشيء
انسخها الى الخلية F2 واسحب نزولاً
=SUBSTITUTE(TRIM(SUBSTITUTE(D2,CHAR(32),"")),"٫",".")*1+(SUBSTITUTE(TRIM(SUBSTITUTE(D2,CHAR(32),"")),"٫",".")*E2)
اخي خالد لتلافي عذه المشكلة قم بما يلي:
1- افتح الملف
2 هضغط F12
3- يطهر لك صندوق حوار
4 من الخانة Save As اختر اسماً جديديا للملف
5- من الخانة Save as Type اختر Excel workbook او Excel 2003
6- اضغط على SAve
بهذا يكون عندك ملف جديد لا يحتوي غلى ماكرو تحت الاسم الجديد الذي اخترته
رائع اخي ياسر
زيادة في اثراء الموضوع معادلة اخرى (بدون IFERROR) . و تستطيع وضعها في اي مكان من الصفحة و لبس من الضروري الصف الثاني
Find Salim + Yasser.zip
تم التعديل على الملف ليناسب المطلوب (دون اي كود)
تلوين خلايا Salim2.zip
استاذ مختار يمكن اختصار الكود الذي وضعته بسطر واحد هو:
Range("B2", Range("B" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 38
جرب هذا الملف
التنسيق يطبق فقط على العامود B كما تريد انت و يمكن التوسع في ذلك
حاول ان تمسح اي معادلة (أو تضيف اي معادلة) في العامود المذكور و شاهد النتيجة
تلوين خلايا Salim1.zip
اانسخ هذا الكود
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
lr = Cells(Rows.Count, 2).End(3).Row
Set myrange = Range("b2:b" & lr)
If Not Intersect(Target, myrange) Is Nothing And Target.Count = 1 And Target.HasFormula Then
Target.Interior.ColorIndex = 4
End If
End Sub