اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search

محمد أبوصهيب

الخبراء
  • Content Count

    53
  • تاريخ الانضمام

السمعه بالموقع

32 Excellent

2 متابعين

عن العضو محمد أبوصهيب

  • الإسم الفعلي
    فارس محمد
  • تاريخ الميلاد 27 ماي, 1973

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    معلم قرأن
  • بلد الإقامة
    وهران / الجزائر
  • الإهتمامات
    جميع أنواع البرمجة -Micro-soft -office / php-css

اخر الزوار

772 زياره للملف الشخصي
  1. Option Explicit Dim Criteria_Filter As String Dim Drc As String Dim Img As Object Private Sub phone_Change() If phone.Text <> "" Then phone = Format(phone, "00 00 00 00 00") End If End Sub Private Sub Txt_Filter_Change() 'تصفية بيانات بفلترة ديناميكية 'كود فلترة اسم العميل في الحقل المشار اليه 'Field:=2 بواسطة التكست البوكس If Txt_Filter <> "" Then 'في حالة إذا كانت تكست بوكس لا تساوي فراغ طبق مايلي Criteria_Filter = "*" & Sheets("AutoFilter").Txt_Filter.Text & "*" ' يعني تحديد كلي بمعنى لوأردت التصفية تكون بمعلومات غير الاسم العميل ' معيار التصفية حددنه "*" Range("B7").AutoFilter Field:=2, Criteria1:=Criteria_Filter Else Criteria_Filter = "" Sheets("AutoFilter").Range("B7").CurrentRegion.AutoFilter End If End Sub Private Sub Txt_Filter_GotFocus() Clear End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'كود جلب صورة العميل وبيانته من مسار خارجي 'استعمال الدالة Intersect وتحديد حقل الأسماء Application.ScreenUpdating = False 'Range("$C$8:$C$30")لعملية الفلترة الديناميكية If Not Intersect(Target, Range("$C$8:$C$30")) Is Nothing And Target.Count = 1 Then 'وكل اسم من الأسماء في الحقل يطابق اسم الصورة الموجود في مجلد الصور Drc = ThisWorkbook.Path & "\OFFICINA\" 'مسار مجلد الصور On Error Resume Next Shapes("Image").Delete 'حذف الصورة السابقة عند تحيد اسم العميل الحالي Clear Set Img = ActiveSheet.Pictures.Insert(Drc & Target & ".jpg") 'جلب الصورة بالاستعان بدالةActiveSheet.Pictures.Insert(Drc & Target & ".jpg") CustomerName = Intersect(Target, Range("$C$8:$C$30")) 'تصدير البيانات التكست بوكس والاستعانة بدالة vlookup code = WorksheetFunction.VLookup(CustomerName, [Data], 5, 0) gove = WorksheetFunction.VLookup(CustomerName, [Data], 4, 0) national_id = WorksheetFunction.VLookup(CustomerName, [Data], 2, 0) address = WorksheetFunction.VLookup(CustomerName, [Data], 3, 0) country = WorksheetFunction.VLookup(CustomerName, [Data], 6, 0) phone = WorksheetFunction.VLookup(CustomerName, [Data], 7, 0) With Img ' خصائص وتحريك الصورة .name = "Image" .Width = 50 .Height = 60 .Left = 680 .Top = 15 End With End If End Sub Sub Clear() On Error Resume Next CustomerName = "" code = "" national_id = "" address = "" country = "" phone = "" gove = "" Shapes("Image").Delete End Sub Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 'الطريقة الثانية بواسطة AdvancedFilter Range("B7:J30").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("B4:I5"), Unique:=False End Sub Option Explicit Private Sub Workbook_Activate() Call Menu_Formating End Sub Private Sub Workbook_Open() Call Menu_Formating End Sub Option Explicit ' معادلة استخراج أكواد ومحافظات جمهورية مصر العربيةحسب مصلحة السجل المدني Function GovName(national_id As String) As String If Len(national_id) = 14 And Not IsEmpty(national_id) Then Select Case Mid(national_id, 8, 2) Case "01": GovName = "القاهرة" Case "02": GovName = "الإسكندرية" Case "03": GovName = "بور سعيد" Case "04": GovName = "السويس" Case "11": GovName = "دمياط" Case "12": GovName = "الدقهلية" Case "13": GovName = "الشرقية" Case "14": GovName = "القليوبية" Case "15": GovName = "كفر الشيخ" Case "16": GovName = "الغربية" Case "17": GovName = "المنوفية" Case "18": GovName = "البحيرة" Case "19": GovName = "الإسماعيلية" Case "21": GovName = "الجيزة" Case "22": GovName = "بني سويف" Case "23": GovName = "الفيوم" Case "24": GovName = "المنيا" Case "25": GovName = "أسيوط" Case "26": GovName = "سوهاج" Case "27": GovName = "قنا" Case "28": GovName = "أسوان" Case "31": GovName = "البحر الأحمر" Case "32": GovName = "الواد الجديد" Case "33": GovName = "مطروح" Case "34": GovName = "شمال سيناء" Case "35": GovName = "جنوب سيناء" Case "86": GovName = "مدينة الاقصر" Case "88": GovName = "خارج الجمهورية" Case Else: GovName = "راجع الرقم؟؟" End Select End If End Function Sub Menu_Formating() 'كود إخفاء شريط Ribbon With Application .ScreenUpdating = False .EnableEvents = True .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" .DisplayFormulaBar = False .DisplayStatusBar = False .Caption = "استعلام مفلتر بالأسماء والصورة" With ActiveWindow .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = False .DisplayGridlines = False .DisplayHeadings = False .DisplayWorkbookTabs = False End With End With End Sub الملف مدرج من مركز الخليج وهذا رابط اخر ايسر بدون كلمة سر استعلام مفلتر بالأسماء والصورة استعلام بتصفية ديناميكية بالاسماء والصورة https://www.gulf-up.com/jc2dksuow5am كلمة المرور : mo77996931 لرفع الملف من مركز الخليج دخول إلى مطور فيجوال بيسيك : كلمة المرور : mo77996931
  2. السلام عليكم ....أحبابي في الله..... يقول الله تعالى : كُلُّ نَفْسٍ ذَائِقَةُ الْمَوْتِ ۖ ثُمَّ إِلَيْنَا تُرْجَعُونَ (57) سورة العنكبوت رحمه الله أخونا في الله وأسكنه فسيح جنته .... اللهم رحمه وعافه وعف عنه واغسله بالماء والثلج والبرد اللهم نقه من الخطايا كما ينقى الثوب الأبيض من الدنس اللهم إن كان محسن فزد في إحسانه وإن كان مسيء فتجاوز عنه اللهم أبدله بدار خير من داره وأهلاً خير من أهله اللهم أدخله الجنة وأعده من النار.....آمين اللهم اغفر لحينا وميتنا وشهدنا وغائبنا وذكرنا وأنثانا وصغيرنا وكبيرنا ..اللهم اغفر لوالدينا ومشايخنا وأئمتنا وولاة أمرنا واحفظ بلادنا من كل سوء وبلدان المسلمين كافة من مشارقها ومغاربها ...اللهم لا تدع في مقامنا ذنباً إلا غفرته ولا عصياً إلا اهتديته ولا ضال طريق إلا أرشدته ولا تائباً إلا قبلته برحمتك نستغيت يا رحمان يا رحيم وصلى الله وسلم على نبيه الكريم وازوجه الطاهرين وصحابته الأخيار ومن اهتدى بهداه ....سبحان رب العزة عما يصفون وسلام على المرسلين والحمد لله رب العالمين .
  3. السلام عليكم ....حيكم الله وبياكم ..أخي محمد الحسن المحمد ...أولا : عيد أضحى مبارك تقبل الله منا ومنكم صالح الأعمال واعده علينا بليمن والبركات ... لأول مرة سمعت أن الأخ والصديق أبا جودي مريض ...لم يكن لي علم بهذا ...نظراً ليس عند وسائل الاتصال لمعرفة أحوال الأصدقاء المهم لقد بلغني منك صحة وعافية الأخ و الصديق أباجودي والاسلام يحث على ذلك زيارة المريض والدعاء له والدعاء عنده ..لأن دعوة المريض مستجابة ...فيما عندنا ما عسانا أن نقول : ((اللهم رب الناس، أذهب الباس، واشفه وأنت الشافي؛ لا شفاء إلا شفاؤك، شفاء لا يغادر سقماً)) لا بأس طاهور إن شاء الله الحمدلله والصلاة والسلام على رسول الله : اللهم مسبب الأسباب ومنزل القرآن ومنزل الشفاء ندعوك بأسمائك الحسنى وصفاتك العلى وندعوك بكل اسم هو لك ما علمنا ومالانعلم أو استاثرته في علم الغيب أوعلمته أحد من خلقك أوأنزلته في كتابك العزيز أو جاء على لسان نبيك محمد صلى الله عليه وسلم أن ترفع الأسقام والأوجاع ما ظهر منها وما بطن وأن تشفي عبدك أباجودي وسائر عبادك المؤمنين وترزقهم بالصحة والعافية غانمين إلى أهلهم وأن تكفهم وتكن لهم مجيب لدعوتهم ..اللهم من كان منهم مبتلى فرفع عنه ماهو فيه وأن يكون كل وجع في ميزان حسانته وتكفير لذنوبه يارحمان يارحيم يامالك يا مجيب يامغيث ياشافي ياأالله ..واخير دعونا أن الحمدلله رب العالمين.... أرجوا من الجميع من يعلم بصحة الأخ اباجودي أن يخبرني مما يشكي من العلة التي اصابته ربما أستطيع أن أنفعه بإذن الله ...نظراً لحكم خبرتي في مجال الطب البديل والرقية الشرعية أرجوا من الجميع من يعلم بصحته أن يرسل رسالة تدل على علة المرض الذي أصاب الأخ أباجودي .. والله هو الشافي ثانياً: أن الله تعالى لم ينزل داء إلا وأنزل له شفاء، وله أسباب. عن جابر رضي الله عنه: عن رسول الله صلى الله عليه وسلم أنه قال: ((لكل داء دواء، فإن أصيب دواء الداء، برأ بإذن الله تعالى)) (5) . وعن أسامة بن شريك رضي الله عنه قال: أتيت النبي صلى الله عليه وسلم وأصحابه، كأنما على رؤوسهم الطير، فسلمت ثم قعدت، فجاء الأعراب من ههنا وههنا؛ فقالوا: يا رسول الله، أنتداوى؟ فقال: ((تداووا، فإن الله عز وجل لم يضع داء، إلا وضع له دواء، غير داء واحد: الهرم))
  4. ربما سببه هو النسخ مختلفة ...لأني أعددت الملف بنسخة 2013 وأنت عندك نسخة 2010 ...والفارق واضح من حيث النسخ ...النسخة 2013 تحتوي على أكبر من option والنسخة 2010/2007 ناقصة من حيث option .. لهذا يرجى كل من يستعمل الأكسل أو الأوفيس أن يكون من نفس الجيل لتفادي الأخطاء بين النسخ ...والظاهر والله أعلم تقريب المتناول بين الأعضاء أنهم يستعملون النسخة 2013 لأنها خير من النسخة 2016 ....ثقيلة نوعا ما من حيث الأداء ....ما عليك أن تجرب النسخة ألتي ترتاح فيها ...
  5. لقد أضفت لك ملف بصيغة 2003/2007 ....وهو الأخير في التحميل
  6. السلام عليكم حياكم الله ....عيد أضحى مبارك للأمة الإسلامية عامة وللجالية المسلمة في بلاد العجم خاصة ...تقبا الله منا ومنكم سائر الأعمال .... تصميم واجهة برنامج المخازن.rar تصميم واجهة برنامج المخازن.bmp تصميم واجهة برنامج تسير محلات تجارية.xlsm تصميم واجهة برنامج تسير محلات تجارية.xls
  7. من ذكريات شاطئء مداغ الواقع في ساحل مدينة وهران ببلدية بوتليليس ..من أروع الشواطىء ...مكان مريح للعائلات المصطفة وعشاق الصيد ....من اروع ما يكون ..هذه الصحبة الطيبة محمد امين صياد من مدينة وهران .المقيم بفرنسا من مدينة ليون الفرنسية قدري لا عب كرة وصياد من مدينة وهران
  8. لا عليك أبعثه في ميديا فار...أو قسمه الى 4 أجزاء ..بالوينرار .... أنا لا استطيع أن اجوابك حتى ارى الملف ... حتى من قوانين المنتدى لا يستطيع الزملاء الاجابة حتى يكون ملف مرفوع من إحدى مراكز الرفع ...و لا تخشى اي شيء ...الزملاء المنخرطين ضمن المنتدى نحسبهم كذلك والله حسيبهم ...لأن مرات الخطأ يكون بسيط ولا يستطيع المرء رايته نتيجة الوقت الطويل اتجاه شاشة الحاسوب و كتابة أكواد البرمجة ...المهم الظاهر والله أعلم من الكود 1 - صرحت بالمتغير x من نوع worksheet ... المفروض اتخاذ العبارة set x =sheet1 على حسب الشيت المراد تحويل البيانات . 2- المتغير b غير مصرح في الكود ....لأنك كتابة b= معادلة instr 3- المتغير k لم تصرح به من نوع integer 4- المتغير ss صرح به من نوع integer أو long راجع هذه النقاط ..ثم رد علي ...لو تكرمت ارسل الي الملف ... لا نعلم ما الذي تريد فعله ..لأننا لم نرى ملف ...باتجربة يتضح المثال ..حتى هذا الكود الذي أرسلته فكله مبهم لأن فكرتك األتي الوصول اليها لا يعرفها اي احد ..لهذا الواجب عليك ارسال الملف ليتضح المثال حتى نستطيع التعديل على الملف أو الكود نفسه
  9. السلام عليكم الأخ محمد طاهر ..لأعلكم أن كان لي حساب أول بنفس الاسم الحالي ولم أستطع استرجاعه نظراً لظروف أحطت بي اود من طقم المنتدى استرجاع حساب الول ودمج الحسابي الثاني...وشكرا بريدي الالكتروني الأول : samstarcherokee@gmail.com بريدي الحالي : rolandgarros737@gmail.com شكراً الأخ محمد طاهر ...أكن ممنون لك .....
  10. اعرض الملف تصميم الخرائط https://muslims-res.com/مَن-صنع-إليكم-معروفاً-فكافئوه.html. ولقد علمنا الإسلام في القرآن والسنة أنه من العدل والإنصاف شكر الناس أو مَن يُسدي إلينا معروفاً حتى ولو كان كافراً – فإنصاف الناس بما عندهم من خير والتحدث به لا يقدح في الدين والإيمان .. بل وندعو لهم بالهداية والخير .. ولقد سئل الشيخ ابن عثيمين رحمه الله عن : هل يجوز شكر الكافر إذا صنع معروفا لمسلم ؟ فقال : نعم هذا داخل في قول الرسول عليه الصلاة والسلام: (من صنع إليكم معروفاً فكافئوه، فإن لم تجدوا ما تكافئونه فادعوا له حتى تروا أنكم قد كافأتموه) فإذا أحسن إليك أحد من غير المسلمين فكافئه فإن هذا من خلق الإسلام، وربما يكون في ذلك تأليف لقلبه فيحب المسلمين فيسلم. صاحب الملف محمد أبوصهيب تمت الاضافه 19 يون, 2019 الاقسام قسم الإكسيل
  11. يا أخي ..أين المشكل ..الأمر واسع ...أين المظلمة ...المهم تسهيل الطرق ...كل الطرق تؤدي إلى مكة .....وكل الطرق تدخل إلى الجنة .. فهمكم كفاية ...ان كنت من طقم المنتدى وغير ذلك فلا يحق لك أن تكلمني بهذه اللهجة ...أنا لم افعل شيء يخالف ذالك إنما سهلت الطريق للأعضاء الجدد للوصول إلى الملف ....
  12. لا...يوجد...لأن البرنامج يدعم من 2007/إلى ما وفق...حتى لو لحظت في الصورة الأخيرة من البرنامج لوجدت أن البرنامج يدعم نسخة الأوفيس 2016/2013/2010/2007...... اليك ....هناك طريقة أخرى ..بالكود من فيجوال بيسيك.....commandBar..وللحديث باقية.....والذي أراه ..أن تكون مع الإصدارات الجديدة حتى تسطيع أن تطور مهارتك ..لأن فائدة تحديث النسخ من الأوفيس هو إطلاع على الجديد من ..المعادلات وغيرها من option..... والأمر سهل في توعدك على النسخ الجديدة ....وتطوير مهارتك <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="customTab" label="ToolBar Meu / ImageList"> <group id="customGroup" label="Customers DataBase"> <button id="customButton" label="SHOW" imageMso="AddResourcesFromActiveDirectory" size="large" onAction="SHOW" /> </group> </tab> </tabs> </ribbon> </customUI>
×
×
  • اضف...