كل الانشطه

الاساتذه الكرام السلام عليكم ورحمة الله وبركاتة لدي نموذجين الرئيسي اسمه FMBoxCustomersMain ويوجد به خيار ch1 ونموذج فرعي اسمه FMBoxCustomersSup ويوجد به حقل اسمه text2 المطلوب عندما يكون خيار ch1 يساوي true تختفي السجلات التي قيمتها صفر في المربع (text2) في النموذج الفرعي وعندما يكون خيار ch1 يساوي false تظهر جميع السجلات سوى قيمتها صفر او اكبر من الصفر في النموذج الفرعي وشاكر للجميع اظهار واخفاء السجلات حسب قيمة الحقل.rar

اعرض الملف تعديل على برنامج محاسبى السلام عليكم ورحمة الله وبركاتة اريد ان تساعدونى فى اضافة مورد لفاتورة الشراء واضافة عميل للصرف (البيع) وربط المندوب او السيارة (مخزن) بالعميل بحيث عند اختيار مندوب بيع يعرض كل العملاء التابعه له مع عمل كرت صنف مع المخزن بين تاريخين وكشف حساب عميل او مورد صاحب الملف mahmoud nasr alhasany تمت الاضافه 01/24/26 الاقسام قسم الأكسيس  

السلام عليكم ورحمه الله وبركاته الساده الافاضل عمالقه الاكسيل الكرام محتاج ملف كنترول الثانوى العام الصف الاول والثانى مفتوح المصدر ولكم خالص الشكر وجزاكم الله خيرا

السلام عليكم لدي ملف اكسيل اسمه ملف أريد إدراج أيقونة إستراد البيانات عند الضغط على زر الاستراد نقوم بالاختيار ملف إكسيل إسم Employees لي إستراد البيانات في ملف الاكسيل ملف ملف.zip

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

السلام عليكم استاذ اليك ملف الاكسيل Horaire.xlsb

تفضل استاذ @بلال اليامين المرفق بعد التعديل بطلبك . ووافني بالرد . Bilal_Yamen.rar

تمام بارك الله فيك وجعله في ميزان حسناتك

السلام عليكم حسب قهمي للكود الكود يتعامل مع العمود A والذي به ترقيم والمفترض التعامل مع الاسماء في العمود B اذا كان فهمي للامر صحيح اليك الكود المعدل والا قم بتوضيح الامر اكثر تصوري Sub Compare2() Dim lr As Long, i As Long, j As Long Dim strCol As String Dim WS As Worksheet: Set WS = Worksheets("Data") Dim hasMissing As Boolean: hasMissing = False Application.ScreenUpdating = False On Error Resume Next lr = WS.Columns("B").Find(What:="*", SearchDirection:=xlPrevious).Row On Error GoTo 0 If lr < 6 Then Application.ScreenUpdating = True Exit Sub End If For i = 6 To 18 strCol = Split((WS.Columns(i).Address(, 0)), ":")(0) Dim lastInCol As Long lastInCol = WS.Cells(WS.Rows.Count, strCol).End(xlUp).Row If lastInCol < 6 Then lastInCol = 6 For j = 6 To lr If WorksheetFunction.CountIf(WS.Range(strCol & "6:" & strCol & lastInCol + 500), WS.Range("B" & j)) = 0 Then With WS.Cells(WS.Rows.Count, strCol).End(xlUp).Offset(1) .Value = WS.Range("B" & j).Value End With hasMissing = True lastInCol = lastInCol + 1 End If Next j Next i Application.ScreenUpdating = True End Sub

السلام عليكم أستاذ بارك الله فيك وجازاك الله كل خير استاذ هل نسطيع اخفاء حقول الفرنسية وحماية الشريط العناوين من التعديل لأن الملف يسلم للموظف

تفضل استاذ @بلال اليامين المرفق مع اخفاء الاسماء الفرنسية هي موجودة للبرمجة لكنها مخفية . Bilal_Yamen.rar

تفضل استاذ @بلال اليامين طلبك راجعه زين . الورقتان بملف اكسل واحد لكل موظف . صدر ، عدل وزود باي منهما بيرجع التعديلات والاضافات للجدولان الرئيسيان . ووافني بلرد . Bilal_Yamen.rar

الكود Compare2 ......... المطلوب تعديلة فهو مقتبس من احد الملفات للامانة الاحتياطي.rar

حياك الله

ولن يعمل لان ملفك ليس به اي كود ولن يقبل حفظ اي كود لانه بامتداد xlsx ولو قرأت ما شرحته لك في الرد السابق لقهمت سبب عدم عمل الملف تحياتي

أفهم ان التواريخ كرقم والتنسيق فقط قناع ليسهل علينا قراءته ... أجبت وأفدت، بارك الله فيك وزادك من فضله 🌹🌹🌹

بارك الله فيك وجزاك الله خير استاذي الغالي جعفر تم تعديل الكود كماذكرت الف شكر لك استاذي ولجميع الاخوه🌹🌹

استاذ لا يعمل قمت بختيار ولا يعمل اليك ملف Employees.xlsx

وعليكم السلام ورحمة الله وبركاته حسب طلبك في الرسائل الحاصة استاذ هذا هو طلبي لقد اعادة ملف الاكسيل لقد حاولت وضع الكود ولم اسطيع الاجابة على طلبك ارجع الى اول ملف في مشاركتك الاولى اسم الملف (امتداده) يتنهي xlsx ارجع الى الملف الذي ارفقت لك به الاجابه وبه الكود اسم الملف (امتداده) يتنهي xlsb لماذا قمت انا بتغيير امتداد الملف من xlsx الى xlsb ؟ لسبب بسيط وهو ان اي ملف اكسل يتنهي اسمه (امتداده) xlsx لا يمكن ان يحفظ كود في هذه النوعية من الملفات ماذا يحدث لو وضعت كوداً في ملف xlsx؟ إذا قمت بوضع كود داخل ملف xlsx ثم قمت بالحفظ: ستظهر لك رسالة تنبيه واضحة. إذا ضغطت "نعم" (Yes) للحفظ بصيغة xlsx فسيقوم إكسل بمسح الكود تماماً. عند فتح الملف مرة أخرى، لن تجد أي أثر للكود الذي كتبته. وملفك الاخير بنفس الامتداد xlsx فلن يتم حفظ الكود لذلك عند حفظ الملف وظهور رسالة التنبيه احتيار لا بدل نعم كما في الصور المرفقة اليك الملف وبه الكود بغد تحويله من xlsx الى xlsb وهو نفس الملف في احر مشاركة لي Employees.xlsb

السلام عليكم استاذ اريدتصدير ملفان لاكسل واحد لتعديل واضافة بيانات جديدة لجدول الموظفين والثاني لاضافة وحجز ساعات العمل التوقيت يكون الاختيار من القائمة 08:00-09:00 الايام يكون الاختيار من القائمة هل معني تكملة النصاب من نوع نعم/لا . الفوج التربوي يكون الاختيار من القائمة مؤسسة تكملة النصاب يكون الاختيار من القائمة عدد الذكور رقم و عددالاناث رقم استاذ كل موظف لديه من 5حصص الى 27حصة يتم حجزها في الاكسيل استاذ ملف الاكسيل عند تحميل الى الاكسيل اخفاء اللغة الفرنسية ملف الاكسيل عند تحميل الى الاكسيل يسلم للموظف لحجز التوفيت استاذ عند استراد ملف الاكسيل عند اختيار اسم وملف الاكسل استاذ عند تصدير ملف الاكسيل عند اختيار اسم والمؤسسة

استاذ @بلال اليامين سؤال مهم ... هل تريدتصدير ملفان لاكسل واحد لتعديل واضافة بيانات جديدة لجدول الموظفين والثاني لاضافة وتعديل لجدول الساعات ؟ . - جدول (الساعات) حقل (التوقيت) هل عدد ساعات 1..2..3 أم مثلاً 08:30 ص ---- حقل (الايام) بيكون مثلاً احد .. اثنين .... أم ماذا ---- حقل (هل معني تكملة النصاب) من نوع نعم/لا . لازم ترد على الاسئله السابقة بأسرع وقت كي نكمل .....

هذا اذا استعملت الكود كاملا !! رجاء انظر الى الرابط الذي وضعته في مشاركتي الاولى ، وهذا كود عمل Vcard الموجود هناك ، ولكني استعملت حقول الاسم الاول ومكان العمل ورقم الهاتف وتاريخ الميلاد فقط ، واوفقت الباقي (بهذه الطريقة انت اختار الحقل اللي تريدها) : Function Add_Items() Dim VCard_Text As String 'clear field VCard_Text = "" VCard_Text = "BEGIN:VCARD" & vbCrLf VCard_Text = VCard_Text & "VERSION:3.0" & vbCrLf ' VCard_Text = VCard_Text & "N:" & Me.[Family Name] & ";" & Me.[Given Name] & ";" & Me.[Additional Name] & ";" & Me.[Name Prefix] & ";" & vbCrLf VCard_Text = VCard_Text & "FN:" & Me![Name] & vbCrLf VCard_Text = VCard_Text & "ORG:" & Me.[Organization 1] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 1 - Type] & ",VOICE:" & Me.[Phone 1 - Value] & vbCrLf ' VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 2 - Type] & ",VOICE:" & Me.[Phone 2 - Value] & vbCrLf ' VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 3 - Type] & ",VOICE:" & Me.[Phone 3 - Value] & vbCrLf ' VCard_Text = VCard_Text & "ADR;:" & ";;" & Me.[Address 1] & ";;;;" & vbCrLf VCard_Text = VCard_Text & "BDAY:" & Me.[Birthday] & vbCrLf ' VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 1 - Type] & ":" & Me.[E-mail 1 - Value] & vbCrLf ' VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 2 - Type] & ":" & Me.[E-mail 2 - Value] & vbCrLf ' VCard_Text = VCard_Text & "NOTE:" & Me.Notes & vbCrLf ' VCard_Text = VCard_Text & "URL:" & Me.[Website 1] & vbCrLf VCard_Text = VCard_Text & "END:VCARD" Add_Items = VCard_Text End Function

السلام عليكم Employees.xlsx

@mahmoud nasr alhasany @ابو جودي @جلال محمد