Ali Mohamed Ali

ان لم يعجبك هذا فيمكنك متابعة هذا الموقع Generating QR Code barcodes from cells in Excel using VBA and Bytescout BarCode SDK

وعليكم السلام-اهلا بكى معنا فى منتدانا الكريم تشرفنا بوجود علم من اعلام واساتذة الإكسيل بيننا -ان شاء الله الى الأمام دائماً عمل ممتاز بالتأكيد بارك الله فيكى وزادك الله من فضله ورجاء ياريت دائما لو هناك تدعيم للفيديو بملف الشرح لكى تعم الفائدة والإستفادة لجميع الأعضاء ان شاء الله وفى ميزان حسناتك دائما

تفضل..ببساطة كل ما عليك هو تحميل هذا النوع من الخط وستجد ما تريد barcodefont وستجد هذا الخط بالمرفقات قم بإدخاله ثم بعد ذلك يمكنك الإطلاع على الملف barcodefont.zip AMINE1.xlsx

وعليكم السلام-وبما انك لم تقم برفع ملف فخذ هذا به طلبك وسيفيدك How to Copy or Import VBA Code to Another Workbook

بارك الله فيك وزادك الله من فضله

أحسنت استاذنا الكبير عمل رائع بارك الله فيك وزادك الله من فضله

تفضل المشكلة بالمعادلة كانت بعلامة التنصيص قبل كلمة طباعة , فتم وضعها من قبلك 3 علامات ولابد ان تكون 2 فقط كهذه "طباعة" entag tam.xlsm

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

أحسنت استاذ عبد اللطيف بارك الله فيك

بارك الله فيك استاذ مجدى وجزاك الله كل خير

أحسنت استاذ مجدى بارك الله فيك وزادك الله من فضله

بارك الله فيك استاذ احمد وندعو الله جميعا له بالشفاء العاجل وان يرده الله لنا سالماً غانماً وبكل صحة وسعادة وان نسأل الله ان يشفى كل مرضانا ويرحم كل موتانا

وعليكم السلام-لك ما طلبت Data Entry.xlsm

بارك الله فيك وزادك الله من فضله

بارك الله فيك وزادك الله من فضله

بارك الله فيك وزادك الله من فضله

جزاك الله كل خير استاذ منير

بارك الله فيك استاذ حسن كود ممتاز-وبعد اذنك أخى الكريم ولإثراء الموضوع , هذا حل أخر بالمعادلات =COUNTIFS($B$4:$B$150,$E5,$C$4:$C$150,F$4) معادلة حساب عدد التوافق في الشرط من خليتين.xls

أحسنت استاذ منير أعمال رائعة بارك الله فيك

تفضل يمكنك ذلك بإستخدام هذه المعادلة بالتنسيق الشرطى =AND(COUNTIF($A$2:$A$310,H2)=0,H2<>"") تنسيق شرطى للمختلف.xlsx

داخل المرفقات شوفها بعد التحميل Password: 123456

بارك الله فى علمك استاذ محمد وجزاك الله خير الثواب

أحسنت استاذ عبد اللطيف .. عمل ممتاز بارك الله فيك

تفضل UserformKeyboard.xls

تفضل هذه المعادلة Option Explicit Option Compare Text Function kh_count_y_m_d(Mydate_Birth As Date, Optional Mydate_Now _ , Optional Y_M_D As String = "Y_M_D", Optional MyCalendar As Boolean) Dim Mydate As Date, KH_Calendar As Integer Dim D_1 As Integer, D_2 As Integer, M_1 As Integer, M_2 As Integer, Y_1 As Integer _ , Y_2 As Integer, D As Integer, M As Integer, Y As Integer If IsDate(Mydate_Now) Then Mydate = Mydate_Now Else Mydate = Date If IsDate(Mydate_Birth) And CDate(Mydate_Birth) <= CDate(Mydate) Then KH_Calendar = Calendar If MyCalendar = True Then Calendar = 1 Else Calendar = 0 D_1 = Day(Mydate): D_2 = Day(Mydate_Birth) M_1 = Month(Mydate): M_2 = Month(Mydate_Birth) Y_1 = Year(Mydate): Y_2 = Year(Mydate_Birth) If D_1 >= D_2 Then D = D_1 - D_2: M = 0 Else D = D_1 + 30 - D_2: M = -1 If M_1 + M >= M_2 Then M = M_1 + M - M_2: Y = 0 Else M = M_1 + M + 12 - M_2: Y = -1 Y = Y_1 + Y - Y_2 If Y_M_D <> "Y" Or Y_M_D <> "M" Or Y_M_D <> "D" Then kh_count_y_m_d = Y & "y-" & M & "m-" & D & "d" If Y_M_D = "Y" Then kh_count_y_m_d = Y If Y_M_D = "M" Then kh_count_y_m_d = M If Y_M_D = "D" Then kh_count_y_m_d = D Calendar = KH_Calendar End If End Function kh_count.xlsm