نجوم المشاركات

The name in cell C10 should have a space between the first name and last name so as to be identical as the name in cell C5 Sub Test() Dim a, txt As String, i As Long, ii As Long a = Range("C5:G" & Cells(Rows.Count, "C").End(xlUp).Row).Value With CreateObject("Scripting.Dictionary") For i = 1 To UBound(a, 1) txt = a(i, 1) If Not .Exists(txt) Then .Item(txt) = .Count + 1 For ii = 1 To UBound(a, 2) a(.Count, ii) = a(i, ii) Next ii Else For ii = 2 To UBound(a, 2) a(.Item(txt), ii) = a(.Item(txt), ii) + a(i, ii) Next ii End If Next i i = .Count End With [J6].Resize(i, UBound(a, 2)) = a End Sub

مشاركة مع اخي جعفر ومن باب اثراء الموضوع عثرت على وظيفة تنسخ الصورة من النموذج ويمكن لصقها في برامج التواصل كــ الوتساب للصق استخدم ctrl+v photo.rar

وعليكم السلام 🙂 حسب نتيجة بحثي الآن ، ممكن واحد من هذه الاسباب ، وطبعا يجب ان تكون في وضع التصميم : اذا لما تنقر على زر الخصائص ، يتحول لونه الى برتقالي (او ممكن عن طريق لوحة المفاتيح Alt + Enter) ، فممكن المشكلة (اترك الزر ولونه برتقالي) : 1. نافذة الخصائص ممكن تكون على يمين او يسار الشاشة ، فيجب تغيير دقة الشاشة وتكبيرها ، ثم ستراها ، فقم بسحبها الى منتصف الشاشة وقم بتصغيرها للحجم المناسب ، 2. اذا لم تراها ، فقد يكون حجمها صغير جدا ، لذا انقر على زر الخصائص عدة مرات وحاول ان ترى اي نقطة في الشاشة ، وتستطيع تكبيرها. 3. اضغط على Alt Space S واستعمل الاسهم لتكبير وتوسيع العرض والارتفاع (لا تخاف في ان تعمل العرض كبير ، بعدين تقدر تضبطه) وتحريك الفأرة الى منتصف الشاشة واضغط على الزر Enter. اما اذا نقرت على زر الخصائص ولم يتحول لونها برتقالي ، او لم يستجيب الزر ، فقد يكون هناك كود يقوم بتوقيف القوائم ، فاعمل التالي حتى تظهرها: افتح نافذة الكود بالمفاتيح Ctrl + G وفي اسفل النافذة ، في نافذة immediate window . اكتب التالي ، ثم اضغط على زر Enter في لوحة المفاتيح (اكتب اول سطر ثم اضغط Enter ، ثم احذف الموجود واكتب السطر التالي واضغط Enter ، ثم احذف الموجود واكتب السطر التالي واضغط Enter) فالمفروض ان تظهر نافذة الخصائص في اعلى يسار الشاشة : CommandBars("Property Sheet").Enabled = True CommandBars("Property Sheet").Top = 0 CommandBars("Property Sheet").Left = 0 . واذا كذلك لم تظهر نافذة الخصائص ، اكتب التالي في immediate window CommandBars("Property Sheet").Position =msoBarTop ثم اضغط على زر Enter في لوحة المفاتيح ، وستأتيك نافذة ، انقر على No (واذا لم يحدث شيء ، جربها مرة اخرى ، وهذه المرة انقر على Yes) جعفر

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

السلام عليكم مشاركه مع اخوانى واساتذتى جزاهم الله خيرا اتفضل ان شاء الله يكون ماتريد بالنسبه للتعديلات تمت فى اضافه المتغيرات التاليه فى الوحده النمطيه UserModule User_Name User_ID ثم فى زر الدخول فى الفورم frm-UserLogon تم اسناد القيم للمتغيرات User_Name = Me.user User_ID = Me.user.Column(1) ثم فى فورم MAIN عند الفتح تم اسناد قيم المتغيرات للحقول Me.Text17 = User_ID Me.us = User_Name بالتوفيق test AMA.rar

ما هو المطلوب ؟

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

هل جربت هذه الجزئية من الجواب

ممكن شرح مبسط للعملية الحسابية المطلوبة يعني مثلا الفصل الدراسي الاول + الفصل الدراسي الثاني = اجمالي / ماذا؟!

Option Explicit Sub addHyperlinks() Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim i As Integer Dim dataSheet As Worksheet Set dataSheet = ورقة1 'Create an instance of the FileSystemObject Set objFSO = CreateObject("Scripting.FileSystemObject") 'Get the folder object Set objFolder = objFSO.GetFolder("C:\Users\Khaled\Desktop\ارشيف") i = 1 'Loop through each file in the folder For Each objFile In objFolder.Files dataSheet.Hyperlinks.Add Anchor:=Cells(i, 5), Address:=objFile.Path, TextToDisplay:=objFile.Name, ScreenTip:=objFile.Path i = i + 1 Next objFile End Sub جرب هذا الكود وهو منقول من موقع اجنبي

في احد برامجي ، انقر نقرتين على الصورة ، وهذا الكود خلف النقرتين : Private Sub Pic_DblClick(Cancel As Integer) 'use irfan view to copy the picture in clipboard dim A as string A = "C:\Program Files\IrfanView\" 'location of i_view32.exe file Shell (A & "i_view32.exe " & Me.Pic.Picture & "/ClipCopy /killmesoftly") MsgBox "تم عمل نسخة من هذه الصورة في الذاكرة ، يمكنك الصاقها في اي برنامج" & vbCrLf & _ "This image is copied in the clipboard, you can paste it in any program" End Sub . ثم الصق الصورة في اي برنامج ، مثل الوورد 🙂 لإستعمال الكود ، استخدم برنامج IrfanView المجاني من هنا: https://www.irfanview.com/ وضبط المسار ، والنسخة سواء 64 او 32 بت ، واسم حقل الصورة هو Pic ، فيقوم الكود بحفظ الصورة في الذاكرة ، وبدون اي واجهة 🙂 جعفر

اليك الحل باعمدة مساعدة غيرت المعادلات . جرب وان شاء الله يعمل بشكل جيد لكم تحياتي البطاقة المدرسية++.xlsm

السلام عليكم ورحمة الله وبركاته أخى الكريم يمكنك استخدام المكرو عن طريق أمر Exportwithformatting ثم تختار أسم النموذج وتختار Excel Workbook (*.xlsx) وفى auto start أجعله yes أو نعم وفى Output Quality اختار Screen فقط هذا ما فى الأمر وبعد أن يصلح لك النتائج يمكنك تحويل الماكرو إلى VBA واستخلاص الكود الصحيح

تسلم استاذي الفاضل

السلام عليكم ورحمة الله فى الكود الاول اجعل آخر سطرين هكذا End With Call Macro2

Private Sub Worksheet_Activate() Dim e, ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> Me.Name Then ws.Visible = xlSheetVeryHidden End If Next ws For Each e In Array("1", "2") Worksheets(e).Visible = xlSheetVisible Next e End Sub

@فوزى فوزى لم تجيني على استفساري لا اجد اي مبرر لهذه الطريقة انت تصعب الامور على نفسك وعلينا . مع هذا هذه محاولة اذا لم يكن ما تريده عليك انتظار شخص اخر. index.xlsm

تما تصحيح الكود داخل الملف جرب كود الترصيد جاري تنفيذ البقية في انتظار تعليقك إرسال رسائل عبر الوتساب1.xlsm

اولاً يجب الاجابة علي الاتي 1: هل تريد تأمين الورقة كامله 1: اما تريد تأمين الجدول فقط من النسخ واللصق

اخي زياد 🙂 هذا البرنامج مقفل ، وكذلك الكود مقفل ، مما يعني ان صاحبه اقفله لأسباب معينة ، وقوانين المنتدى : 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية جعفر

وعليكم السلام اخوي سامي 🙂 نظرت في الملف بشكل عام ، ومثل ما قال اخونا العود ابوخليل : جعفر