بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'vba'.
تم العثور علي 107 نتائج
-
موعدنا اليوم مع شرح طريقة كيف تعرف أسعار العملات اليوم بدون مغادرة برنامجك في VBA اوفيس 2003 أو 2007 أو 2010 أو 2013 أو 2016 أو 2019 سواء برنامج اكسس أو اكسل أو وورد أو باوربوينت مع التعرف على أكواد عملات العالم وكذلك اسماء العملات باللغة العربية والانجليزية التعرف على نسخ النص الموجود في مربع النص إلى الحافظة والكثير من المفاجآت اكتشفها بنفسك ثالثا لمن يريد تحميل الملف الذي تم استخدامه في الشرح يمكنكم التعليق سواء هنا في المدونة أو في اليوتيوب وسيصلكم رابط الملف بإذن الله والآن مع فيديو الشرح ************** ولا تنسوا أحبابي الدعاء لغيركم بظهر الغيب حتى يقول لك الملك: آمين ولك مثلها إن شاء الله وتذكر لو بخل بها غيرك ما وصلت إليك فشارك المعلومة مع جميع أصدقائك في جميع مواقع التواصل الاجتماعي ============ القادم أفضل بإذن الله- 2 تعليقات
-
- 6
-
-
- اسعار العملات
- vba
- (و2 أكثر)
-
السلام عليكم ورحمة الله اساتذتنا واخواننا في هذا المنتدى تحية لكم ارجو مساعدتي في خطاء برمجي عند الضغط على زر السكنر تظهر لي هذه الجملة (Type mismatch) Private Sub أمر166_Click() On Error Resume Next Dim y y = [dd] & "\" & [رقم الطلب] Dim fs As Object Dim q As Object Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(y) = True Then Else Set q = fs.Createfolder(y) End If Dim hg, OldFile, DBwithEXT Dim fdialog As Office.FileDialog Dim filepath As String Dim sdialog As New WIA.CommonDialog Dim imagefile As WIA.imagefile On Error GoTo errorhandle Set fdialog = Application.FileDialog(msoFileDialogSaveAs) OldFile = Me.x DBwithEXT = Dir(OldFile) hg = y & "\" & [a] & " " & [b] & " " & Format([c], "yyyy-mm-dd") & " " & [d] & "." & Right(DBwithEXT, 3) With fdialog .Title = "Save as" .AllowMultiSelect = False .InitialFileName = [hg] If .Show Then filepath = .SelectedItems(1) ' Else Exit Sub End If Set imagefile = sdialog.ShowAcquireImage() imagefile.SaveFile filepath [ImagePath] = filepath End With errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit End Sub
-
• طباعة التقرير مباشرة من نموذج فى الاكسيس • طباعة التقرير من داخل التقرير نفسه • معالجة الاخطاء عند الغاء امر الطباعة RUN TIME ERROR https://youtu.be/nm_gxqt7D-U -
السلام عليكم اخواني الاعزاء ارجو مساعدتي في التعرف على سبب المشكلة في VBA وقد قمت برفع صورة للاخطاء مع الشكر والتقدير
-
https://youtu.be/GEWA0QKZJ7A ملفات الدرس الخامس.rar
-
السلام عليكم اقدم لكم نسخه من برنامج كاشير للمطاعم حسب ارقام الطاولات رقم المظلل بالاحمر يعني ان الطاولة رقم ... محجوز يمكنك رجوع اليها وعمل اوردر من تعديل البرنامج سهل للغايه يعمل فقط على الماوس * - الجدول : _ الفواتير المسدده يمكنك رجوع وتعديل عليها عن طريق الجدول وضغط دبل كليك على المراد تعديله * - التقرير :_ *- حذف الفواتير :_ يمكنك حذف الفواتير عن طريق تحديد الرقم وضغط على حذف يمكن استعلام على الفواتير المحذوفه من التقرير - فواتير محذوفه *- نقل الطاولة :_ يمكن نقل الطاولة حسب طلبك بتحديد على الطاولة المراد نقلها واختيار امر نقل الطاولة يظهر مربع تختار رقم الطاولة الجديد بحيث لا يكون مظلل بالاحمر . *- تعديل على الفاتورة : _ في حال رغبت الزبون طلب اوردر تختار رقم الطاولة المظلل بالاحمر وتغضط تعديل الفاتورة وتضيف الاوردر الثاني ويمكنك تكرار العملية في حال تكرار الصنف تضغط دبل كليك على الصنف +1 في حال الغاء -1 يوجد زر بجانب الشاشة الاصناف -1 في حال الغاء الصنف يوجد زر بجانب الشاشة * * - الاصناف : _ يمكنك اضافة اصناف رئيسية واصناف فرعيه الاصناف لا تحتاج الى كود لانها تختار كود اتوماتيكي طباعه الفواتير بشكل جديد دينماكيه صلاحية كامله للبرنامج الدخول : الدعم الفني كلمة سر : 123 يمكنك اضافت صلاحيات ومستخدمين كما قلت لكم نسخه قيد تطوير ... الحقوق النشر محفوظه ... اتنمنى ان ينال اعجابكم لتحميل : _ كاشير-توزيع.xlsb
-
سلام عليكم اخواني ... في هذا الفيديو نشرح كيف تحمي اكسس في مشروعاتك بدون كود فيجوال بيسك طريق سهل جدا https://www.youtube.com/watch?v=1AvCOO_ee4M
-
السلام عليكم الاخوده الكرام برجاء المسلعده فى الملف المرفق فى معادله فى العمود K , (تراكمى) برجاء زضع المعادله فى كود VBA لان الملف الاساسى تقيل جدا بسبب هذه المعادله ولكم وافر الشكر مقدما officena 2.xlsm
-
السلام عليكم الاخوه الكرام برجاء المساعده فى الملف المرفق المطلوب البحث عن القيمه الموجوده فى العمود ( من عمود الكود الموجود فىجدول البيانات الاساسى ) وترتيبها افقيا فى جدول نتيجه البحث حسب التاريخ وشكرا لكم مقدما get all codes.xlsx
-
السلام عليكم البعض ينسى بعض اوامر واكواد فيجوال بيسك عند البرمجة والبعض يستعمل الماكرو كونه اسهل لكن عندما يكون البرنامج باللغة العربية تحدث اخطاء لذلك هناك خدمة تحويل الماكرو الى فيجوال بيسك تساعدنا كثيرا في كتابة الاكواد لا اريد الاطالة عليكم تفضلوا رابط اليوتيوب شرحت الدرس صورة وصوت للتواصل والاستفسار عبر الواتس اب 00962787787573 اتمنى لكم الفائدة
-
السلام عليكم يا رفاق من المعلوم أن لدالة indirect استخدمات عديدة، منها أنها يمكن لها إنشاء مرجع معين أو نطاق من ورقة داخل المصنف أو من مصنف خارجي، لكن للأسف لا تعمل بشكل صحيح إلا إذا كان المصدر من نفس المصنف، أما إذا كان من مصنف خارجي فلا تعمل إلا إذا كان المصنف الخارجي هذا مفتوحا، وإلا فسوف تُرجع المَرجع هذا #REF! وفي هذا أود منكم إرشادي إلى كود أضعه في الـ VBA لكي أجعل المصنف الآخر هذا مفتوحا فور فتح المصنف الذي فيه الدالة، وإغلاق المصنف الآخر حين إغلاق المصنف الذي فيه الدالة مع الأخذ في الاعتبار أنه قد يكون أكثر من مصنف مأخوذ منه، فأرجو إرفاق في حالة تعدد المصنفات المرجعية ماذا أكتب في VBA وقد أرفقت لكم ملفًا يوضح ذلك مثل على المطلوب.rar
-
تحية طيبة أسعد الله جميع أوقاتكم بكل خير،،، أرجوا التكرم من المدربين والأساتذة شرح طرق الاستفادة من MsgBox و InputBox في الاكسل VBA. أنا أحتاج توضيفها في ملف العمل الخاص بي. لدي ورقة عمل بها عدة خلايا من B6:T150 يتم تعبئتها كما يلي: يتم إضافة البيانات بشكل عادي من B6:D6 و الخلية E6 إذا تم إضافة بيانات فيها يظهر لي MsgBox إذا تم إختيار لا يختفي و إذا تم إختيار نعم يظهر لي InputBox يتم إضافة البيانات التي تكتب داخله في خليه T6. الخلية G6:G150 إذا حدث فيها إضافة بيانات تظهر لي رسالة MsgBox توضح لي البيان المكتوب في نفس السطر T6 ويتم تكراراها إلى T150 ولكم كل اشكر والتقدير،،، مثال.xlsm -
السلام عليكم رفاقي بفضل الله فقد فهَّمني الله كثيرًا في اكسيل، لكن يتبقى لي الكثير لأتعلمه اليوم عندي مشكلة صغيرة، وهي أنني عندما أستخدم دالة INDIRECT لاستحضار بيانات خارجية كارتباطات من مصنف آخر لا تعمل إلا عندما يكون المصنف الآخر مفتوحًا وفي ذلك أود منكم إرشادي ماذا يمكنني أن أفعل لكي تكون البيانات محدثة وظاهرة دائما دون الحاجة لفتح المصنف المأخوذ منه الارتباط. ولكي يكون الأمر على واقع، فقد أدرجت لكم مصنفين أحدهما فيه الدالة والآخر فيه القيمة المأخوذة، وأود ممن حمل الملف أن يفتح أولا Book1 (indirect).xlsx ثم يفتح المصنف الثاني لكي يدرك ما أعنيه أوفيسنا، ومثل على المطلوب.rar -
السلام عليكم ورحمة الله وبركاته لدي في الخليه A ارقام تبداء من 0001 الى 2359 ولدي في الخليه B خلايا فارغه اذا تم اضافة رقم ولنفرض 0530 في الخليه B مقابل الخليه A وهي تحتوي الرقم 0150 يتم فرز الخليه B الى اصغر رقم مقارب له في الخليه A
-
السلام عليكم كيف يمكن التحكم بخاصية Validationrule لمربع نص ؟ لدي نموذج لإدخال أرقام هواتف و هي على نوعين : تحويلات داخلية و أرقام خارجية عند اختيار تحويلات يجب أن يكون عدد الأرقام في حقل الرقم ٤ بينما يجب أن يكون في حالة الرقم الخارجي ٤أو ٧ أو ٨ حاولت استخدام المعادلة iif في قاعدة التحقق و لكنها لم تنجح . ففكرت باستخدام VBA و لكن لم أتمكن من عمل المطلوب و الكود الذي استخدمته : If me.combo.value = "تحويلة" then Me.field.validationrule =" Len ([field])=4" Elseif me.combo.value = "رقم" then Me.field.validationrule=" Len ([field])=4 or len([field]) = 7" End if . شكراً لكم و بارك الله بكم . * لم أتمكن من لصق الكود بالطريقة المناسبة لأن الأيقونة الخاصة به لم تظهر لي . -
السلام عليكم تظهر هذه الرسالة عند محاولة فتح محرر الأكواد لكتابة كود فما سببها وهذا فى ملف واحد بسيط وتفتح مع ملفات أخرى
-
رجاء المساعدة في برمجة الملف خاصة اليوزر فورم 2 وصلت الى مرحلة عجزت فيها يرجى اعادة برمجة اليوزر فورم 2 مع شيت الالتزام Classeur2الجديد.xlsm
-
السلام عليكم اقدم لكم تصميم نموذج ادخال بيانات احترافي بواسطة VBA فيجوال بيسك اتمنى لكم الفائدة وأتمنى من اساتذتي الافاضل ( الخبراء ) مشاركتنا الرأي واذا يحتاج النموذج الى تطوير او اضافة فلا يبخلوا علينا مرفق قاعدة البيانات salloum68.accdb1.accdb
-
السلام عليكم لدي ملف وأرغب في أن ألزم المستخدم أن يستخدم رموز معينه للإدخال هذه الرموز موجودة في الشيت الأول وباقي الصفحات شيت2 وشيت3 للعمل حاليا أستخدم هذه المعادلة في المدى المطلوب وهي فعالة =IF(SUMPRODUCT(COUNTIF(Sheet1!B4:O24,E7))=1,1,0) المشكلة أحيانا بعض المستخدمين يقومون بالنسخ من أمكان مختلفه وتختفي خاصية التحقق أريد نفس الطريقة ولكن VBA مرفق ملف للعمل ولكم جزيل الشكر Book2.xlsm
-
السلام عليكم الصورة المرفقة عندي سند صرف اريد ان اجعل قيمة x1 المبلغ تأخذ المبلغ من الحقل x2 الاجمالي بواسطة كود vba بعد تحديث الحقل x2 حاولت وبحثت ولم اوفق كتبت الكود التالي : كما هو مرفق بالصورة
-
السلام عليكم الصورة المرفقة عندي سند صرف اريد ان اجعل قيمة x1 المبلغ تأخذ المبلغ من الحقل x2 الاجمالي بواسطة كود vba بعد تحديث الحقل x2 حاولت وبحثت ولم اوفق كتبت الكود التالي : كما هو مرفق بالصورة
-
السلام عليكم و كل عام و أنتم بخير لدى حقل لرقم الفصل وحقل مجموع الطالب فى السنة السابقة أرغب فى ملء هذا الحقل حسب النمط التالى بالتتابع حيث يتم ترتيب مجموع التلاميذ تنازليأ و النمط هو مثلا 5 فصول 1_2_3_4_5 2_3_4_5_1 3_4_5_1_2 4_5_1_2_3 5_1_2_3_4 وهكذا بحيث تتحقق أكبر نسبة من التوازن بين مجموع المجاميع فى الفصول كيف يمكن كتابة كود لحلقة تكرار تحقق النمط السابق وفقكم الله
-
السلام عليكم كل عام و أنتم بخير إخوتى الكرام لدى كود برمجى يرجع فى أحد سطوره .5 يعنى نصف i=i+.5 المشكلة أنه يرجع واحدا صحيحا و السؤال كيف يمكن إلغاء التقريب و هذا هو الكود كاملا و هو عبارة عن وظيفة تعد المدرسين على درجة كادر معين فى مادة معينة و تواجدهم فى المدرسة يساوى 1 أو 2 يعنى توجد كلى أو جزئى المفروض فى التواجد الجزئى الذى يساوى 2 أن يرجع الكود نصفا وفقكم الله Private Function getcountW(ss2 As Double) As Double Dim i As Integer Dim skn As Integer i = 0 skn = Me.kn Do Until rs.EOF If rs.Fields("empdepart") = skn And rs.Fields("kader_n") = ss2 And rs.Fields("emp_hala") = 1 Then i = i + 1 ElseIf rs.Fields("empdepart") = skn And rs.Fields("kader_n") = ss2 And rs.Fields("emp_hala") = 2 Then i = i + Fix(0.5) End If rs.MoveNext Loop getcountW = i rs.MoveFirst End Function
-
السلام عليكم ورحمة الله وبركاته الرجاء المساعدة في حل مشكلة اولى تظهر عند تشغيل كود لتكرار اوراق وتعبئتها حسب الداتا الموجودة في ورقة ثانية . مشكلة تانية ظهور اصفار (0) عند عدم وجود احد البيانات والمفروض عدم ظهور شيء في الخلية وشكرا مقدماً ورقة اسماء اولية.xlsm
-
بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي شرح طريقة تنفيذ إجراءين بزر أمر واحد two macros by one button فتابعونا. شرح طريقة تنفيذ إجراءين بزر أمر واحد two macros by one button نبدأ أولا بمعرفة القواعد النظرية التي اعتمد عليها الشرخ. لتنفيذ ماكرو أو مجموعة أوامر vba يتم تعيين ماكرو لشكل تلقائي وهكذا مع كل ماكرو لكن هل يمكن أن ننفذ إجرائين بالضغط على زر أمرواحد أو شكل تلقائي auto shape واحد؟؟!! تابعونا للإجابة عن هذا السؤال وأكثر تابعونا في هذا الفيديو ونتعرف أيضا على: إدراج شكل تلقائي في الشيت تغيير نص الشكل التلقائي بصورة عادية وبالكود vba إدراج وحدة نمطية module استدعاء تنفيذ إجراء macro من داخل إجراء آخر إخفاء عمود / أعمدة في إكسل بالكود والكثير من المهارات الأساسية في فيجوال بيسك للتطبيقات لا أريد أن أطيل عليكم تابعوا معي هذا الفيديو شرح طريقة تنفيذ إجراءين بزر أمر واحد two macros by one button الشرح يعمل في إكسل 2016 و 2013 و 2010 و 2007 و 2003 رابط الملف المستعمل في الشرح ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك لا تنس تقييم المنشور two macros by one button.rar
- 8 replies
-
- 5
-
-
-
- شرح
- قيجوال بيسك للتطبيقات
- (و5 أكثر)
