-
Posts
4,431 -
تاريخ الانضمام
-
Days Won
191
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو أ / محمد صالح
-
المساعدة فى حل هذة المشكلة
أ / محمد صالح replied to Ashraf Atteya Abo Zaid's topic in منتدى الاكسيل Excel
يا ريت توضح اكتر هل تقصد عند الضغط بالزر الأيمن الفأرة على خلية تظهر القائمة المختصرة للخلية وتختفي بسرعة أم ماذا ؟ ويفضل ارفاق الملف الذي تحدث به هذه المشكلة فربما يكون هذا بفعل كود من اكواد الملف -
مساعدة طريقة جلب البيانات بشرط باستخدام فيجوال بيسك vba
أ / محمد صالح replied to القول المأثور's topic in منتدى الاكسيل Excel
الفكرة في تغيير النطاق الذي سيتم وضع المعادلة له ثم تحويله إلى قيمة مثلا من b6:b1000 With Range("b6:b1000") .Formula = "=iferror(INDEX('1.xlsx'!$C:$C,MATCH(A6,'1.xlsx'!$A:$A,0)),"""")" .Value = .Value End With تم وضع دالة iferror بالتوفيق -
مساعدة طريقة جلب البيانات بشرط باستخدام فيجوال بيسك vba
أ / محمد صالح replied to القول المأثور's topic in منتدى الاكسيل Excel
المشكلة في ملفك أنها نطاقات متباعدة لو كانت كتلة واحدة من الصف مثلا 5 الى الصف 1000 سيتم كتابة المعادلة مرة واحدة ومعها القيمة في with واحدة لكن ملفك كل صفين مجموعة ثم مجموعها -
مساعدة طريقة جلب البيانات بشرط باستخدام فيجوال بيسك vba
أ / محمد صالح replied to القول المأثور's topic in منتدى الاكسيل Excel
يمكنك استعمال هذا الاجراء Sub mas_getvalues() With Range("b6:b7") .Formula = "=INDEX('1.xlsx'!$C:$C,MATCH(A6,'1.xlsx'!$A:$A,0))" .Value = .Value End With With Range("b10:b12") .Formula = "=INDEX('1.xlsx'!$C:$C,MATCH(A10,'1.xlsx'!$A:$A,0))" .Value = .Value End With With Range("b15:b16") .Formula = "=INDEX('1.xlsx'!$C:$C,MATCH(A15,'1.xlsx'!$A:$A,0))" .Value = .Value End With With Range("c6:c7") .Formula = "=INDEX('2.xlsx'!$D:$D,MATCH(A6,'2.xlsx'!$A:$A,0))" .Value = .Value End With With Range("c10:c12") .Formula = "=INDEX('2.xlsx'!$D:$D,MATCH(A10,'2.xlsx'!$A:$A,0))" .Value = .Value End With With Range("c15:c16") .Formula = "=INDEX('2.xlsx'!$D:$D,MATCH(A15,'2.xlsx'!$A:$A,0))" .Value = .Value End With وربطه بشكل أو زر ولا تنس حفظ الملف بامتداد مثل xlsb أو xlsm -
ممكن بس فين رمز كنترول الصواب Application.SendKeys("^z") ولكن تذكر أن هذا السطر يساوي Application.undo وهما معا يقومان بالتراجع خطوة واحدة قبل تنفيذ الكود vba
-
يمكنك استعمال هذا الإجراء Sub clr_with_pw() If InputBox("من فضلك أدخل كلمة المرور.", "حماية") = "1234" Then Range("A2:D15").ClearContents Range("A2").Select Else: MsgBox "كلمة المرور خطأ": End If End Sub حيث أن كلمة المرور لتنفيذ هذا الإجراء هي 1234 ويمكن استعمال ذلك الكود مع أي ماكرو بوضع اكواد الماكرو مكان السطرين الثالث والرابع وتغيير 1234 إلى كلمة المرور المطلوبة بالتوفيق
-
يا ريت توضح اكثر .... هل تقصد عند الضغط على زر معين يطلب من المستخدم إدخال كلمة مرور فإذا كانت صحيحة يتم تنفيذ الأكواد المخصصة للزر وإلا فلا ينفذ ؟؟؟؟
-
الترحيل كود vba
-
يبدو أن حضرتك لم تقرأهذا الجزء
-
كود التراجع عن آخر حركة واحدة قام بها المستخدم هو Application.undo وفي حالة التراجع عن أكثر من خطوة يفضل استعمال ctrl+z أو من شريط الوصول السريع QAT ******* أما إذا كان المقصود الرجوع إلى إصدار سابق من الملف قبل إجراء أية تعديلات فيمكن عن طريق تفعيل version history من تبويب file ثم info و رفع الملف في حساب OneDrive بالتوفيق
-
ينفع طالما لم يتم إغلاق الملف أو لم يتم تنفيذ كود vba على الملف
-
المساعده فى معرفه سبب عدم عمل المعادلات
أ / محمد صالح replied to محمد قاسم 12's topic in منتدى الاكسيل Excel
من أساسيات التعامل مع vba عدم تسمية الدالة function بنفس اسم الموديول module يمكنك حل هذه المشكلة بإعادة تسمية الدوال أو اضافة اللاحقة _mod في نهاية اسم الموديول من خلال نافذة الخصائص أسفل يسار نافة محرر الأكواد بالتوفيق -
تغيير حجم اليوزرفزرم ليتناسب مع حجم اي اشاشة تلقائياً
أ / محمد صالح replied to Alaaq3's topic in منتدى الاكسيل Excel
بعد إذن أخي الكريم @عبدالفتاح في بي اكسيل كانت لي محاولة في هذا الشأن منذ عام 2011 في الأكسس فقمت بتطويع الكود للعمل مع نماذج الاكسل فقط يتم تحديد أفضل عرض bestw وأفضل ارتفاع besth في الكود في حدث UserForm_Initialize وهما دقة الشاشة التي تم التصميم عليها بالتوفيق resizeform.xlsb -
للأسف لا يوجد طريقة نسخة الاكسل للموبايل محدودة الإمكانيات وتفتقد الكثير من المميزات من ضمنها بعض المعادلات وإضافة أكواد vba أو عناصر activeX لأن هذه الأشياء تعتمد على نظام التشغيل ويندوز وربما في المستقبل القريب يتم التوصل لمحاكي ومترجم لاكواد vb في الاندرويد بالتوفيق
-
جرب هذا الكود لزر الترحيل فقط Private Sub CommandButton3_Click() Dim rng1 As Range Dim str_search As String str_search = Txt2.Value Set rng1 = sheets("SHEET1").Range("E:E").Find(str_search, , xlValues, xlWhole) If Not rng1 Is Nothing Then Application.ScreenUpdating = False Dim row_number As Long row_number = rng1.Row lastColumn = IIf(Sheets("SHEET1").Range("t" & row_number) = "", 20, Sheets("SHEET1").Range("t" & row_number).End(xlToRight).Column + 1) sheets("SHEET1").Cells(row_number, lastColumn).Value = Txt4.Value sheets("SHEET1").Cells(row_number, lastColumn + 1).Value = Txt7.Value sheets("SHEET1").Select Cells(row_number, lastColumn).Select Me.Hide Application.ScreenUpdating = True End If MsgBox "تم ترحيل المبلغ والتاريخ" End Sub بالتوفيق
-
يمكنك اخفاء ورقة العمل بدون كود كلك يمين على اسم الشيت ثم اخفاء hide ولو بالكود Sheets("sheet name").visible = False مع تغيير اسم الشيت المطلوب مكان sheet name بالتوفيق
- 1 reply
-
- 2
-
المساعدة فى استدعاء بيانات قائمة الفصل بالكود
أ / محمد صالح replied to محمد قاسم 12's topic in منتدى الاكسيل Excel
يمكن ربط تشغيل الكود بتغيير الخلية D3 خلية الفصل لا يؤثر ذلك على الكود وهذا كود حدث عند التغيير في شيت قائة فصل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$3" Then Call mas_getdata4 End Sub يمكنك أن تبدأ من دورة vba الموجودة في أول موضوع مثبت في منتدى الاكسل (دليل المواضيع المثبتة) وفقنا الله جميعا لكل خير -
هذا الموضوع يعتمد على ملفين dll وملف خط ttf لذلك فقد شروط طلبك بالتوفيق
-
هل كان الكود المستخدم من قبل الأستاذ حلمي فؤاد بدون مكتبات dll أو ocx ؟؟ لو يوجد واستعمل في الأكسس يمكن تطويعه للاستخدام في اكسل
-
المساعدة فى استدعاء بيانات قائمة الفصل بالكود
أ / محمد صالح replied to محمد قاسم 12's topic in منتدى الاكسيل Excel
تفضل ملفك بعد تعديل أرقام الأعمدة في الصف الأول وتعديل المسلسل في العمودين A & E وتعديل كود الاجراء mas_getdata4 واضافة عمودين لحساب النوع وعدد البنين والبنات للعلم بعض خلايا الرقم القومي ناقصة بالتوفيق قائمة فصل.xlsm -
صاحب السؤال يقول والشرح بالفيديو يستخدم google chart api مثلها مثل مكتبات dll & ocr & QR4Office فضلا عن أن هذه المكتبات لا تتطلب الاتصال بالنترنت مثل google chart api
-
يمكن استعمال المعادلة التالية في الخلية J17 من شيت المقسطون ='تسديد عميل'!C9 وهي لجلب قيمة عدد الأشهر المسددة مع وضع هذا الكود في حدث عند تغيير محتوى شيت المقسطون Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$3" Then Sheets("تسديد عميل").Range("b2").Value = Target.Value End Sub وهو يقوم بوضع رقم الملف المكتوب في شيت المقسطون في مكانه في شيت تسدسد عميل حتى يتم جلب الاشهر المسددة هناك أولا والمعادلة تجلبها هنا بالتوفيق
-
التاريخ في حقل تاريخ الميلاد نص وليس تاريخا تم تحوله إلى تاريخ باكواد vba وإعادة تنسيقه ووضع خلية بها تاريخ حساب السن ووضع معادلة السن باليوم والشهر والسنة بالتوفيق تنسيق رياض الاطفال - Copy.xlsx