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

بسم الله نبدأ عامنا الحالي بهذه الموسوعة 1200_Visual_Basic_macro_examples.rar عسى أن ينال إعجابكم

وأخيراً تمت مشاركة ملف الإكسيل في شبكة محلية مع الموظفين وتم تبادل البيانات معهم والتعديل عليها.. تابعونا لمعرفة الخطوات.

السلام عليكم بعد اذن الأستاذ الفاضل زيزو العجوز أخى الفاضل ناصر جرب هذا الجزء فى نهاية كود الأستاذ زيزو [J2:J1000].ClearContents For T = 1 To 6 For i = 2 To Range("A" & Rows.Count).End(xlUp).Row If Not IsEmpty(Cells(i, T)) Then Range("J" & Range("j" & Rows.Count).End(xlUp).Row + 1) = Cells(i, T) End If Next Next

ما شاءالله اخي سليم وعمل جميل منك أخي أحمد تحياتي لكم

جرب هذا الماكرو Sub formula_to_Vba() Dim Lr As Integer Lr = Sheets("سجل مبيعات نقد").Cells(Rows.Count, 2).End(3).Row Sheets("سجل مبيعات نقد").Range("j5:j" & Lr).ClearContents Sheets("سجل مبيعات نقد").Range("j5").Formula = "=IF(AND(B5>=$M$5,B5<=$M$6),'سجل مبيعات نقد'!C5,"""")" Range("j5").AutoFill Destination:=Range("j5:j" & Lr) Range("j5:j" & Lr).Value = Range("j5:j" & Lr).Value End Sub

أعزائي أعضاء أوفيسنا الكرام أسعد الله أوقاتكم أرفق لكم نموذج تقييم أداء الموظفين يقوم بحساب نتيجة الموظف دون عناء باستخدام برمجة إكسل أما باقي الإجراءات في التقييم فكل حسب شركته أرجو أن ينال هذا العمل المتواضع رضاكم وأتمنى أن أعرف آراءكم تحياتي وتقديري لكم جميعاً أخوكم أبوهـــديــل نموذج تقييم.rar

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع عندكم و تبدأ من جديد و تنتهى عندكم" ايام مباركه من الله عز وجل و لا تنسونا من صالح الدعاء أقدمه لكم صدقه جاريه على روح المغفور لها امى و استاذنا / عماد الدين الحسامى للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه و هديتى متجدده باذن الله تعالى من هنا اضغط على رابط العنوان اسفله للوصول للمدونه

السلام عليكم، جرب التعديل التالي. 2017_v002.1.rar

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

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

مازلات المشكة كما في الصورة التي ارفقتها لك

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = True Dim My_Value If Target.Address = "$A$2" Then Range("A2").Select My_Value = ActiveCell.Value Range("B2").Select ActiveCell.FormulaR1C1 = ActiveCell.Value - My_Value End If End Sub مرفق الملف مشاركة من الفاضل / أبو أنس حاجب ______________.rar و لا تنسونا من صالح الدعاء تحياتى

السلام عليكم، تفضل المرفق معدل جلب البيانات_ن05.rar

استاذ ى الفاضل مجدى يونس الف شكر

اخى الزبارى معاك ياريس ومتبعينك كويس بس انت شد حيلك شويه المركب ماشيه ببطئ قوى ياريت لو تزود السرعه شويه تقبل تحياتى

السلام عليكم و رحمة الله تعالى و بركاته أستاذ جعفر بعد إذنك أريد أن أطرح حلا آخر أو طريقة أخرى إن صح التعبير. نقوم بكتابة الكود التالي في منشأ التعبير لمربع النص الغياب: =IIf([الغياب]>0;[الغياب]) و أيضا مربع التسمية نحوله إلى مربع نص و نكتب في الكود التالي: =IIf("الغياب]>0;"الغياب]) و نغير خاصيتهما قابل للتقلص إلى نعم و كذلك التفصيل أو detail لنتحصل على النتيجة التالية: التقرير.rar

السلام عليكم أخوي ابوخليل لما تطلع لك نافذة الطباعة: . 1. تقدر تختار عدد صفحات الطباعة: . 2. عندك الخيارات ، حجم الصفحة ، الهوامش (لاحظ الهوامش عندي بالبوصة Inch حسب اعدادات الكمبيوتر) ، والكتابات في اعلا الصحة واسفلها ، وجميع هذه الاعدادات تضبطها لمرة واحدة فقط ، وسيحفظها الكمبيوتر للمرات التالية: . جعفر هذه صورة من الكود الموجود في البرنامج: . 1. نستطيع تغيير نوع الخط Font من هنا ، 2. وحجم الخط ، 3. انا كنت اعمل على عمل حد وبرواز حول الحقول ، ولون البرواز الاسود هو dddddd# ، ثم قمت بتعطيل هذا الكود ، واستبدلت اللون باللون الابيض FFFFFF# ، واستعملت هذا الكود جعفر

بالفعل ، هذا الموضوع نموذج جدا راقي لتعدد الآراء والاجابات ، حتى انا لم يخطر ببالي طريقة الاستاذ رمهان ولا طريقتك ، فهما مكسب لي الآن ومافي اجابة صح او غلط ، فكل الطرق تعمل ، واختيار الجواب هي حسب حاجة المبرمج والظروف حوله والمستفيد من هذا كله هو كلنا جعفر

سلمت اناملك .. ابداع وجميل جدا .. وهو جديد علي في اكسس بقي شيء قليل حتى تكتمل العملية وتكون متقنة 2- تمت الطباعة على ورق A4 بشكل عمودي وهي وضعية الورق الموجود في الاسواق وكانت النتيجة ممتازة وبقي : 1- ازالة الكتابات الزائدة في اعلى الصفحة واسفلها 2- ضبط الهوامش العلوي والسفلي من حد الورقة = 1.3 سم واليمين واليسار = 0.7 سم والسبب بضبط الهوامش حتى تنطبق الكتابة تماما على الملصقات اما بالنسبة لملاحظات الاخوة الكرام حول اظهار حدود الحقل فليس ضروريا وحسب الحاجة الحالية ارى تركها هكذا افضل لانها عبارة عن ملصقات نكتب بها عناوين ويمكن ان نكتب بها اكواد الباركود هذا لو اردنا طباعة اسم واحد فقط ولكننا نريد طباعة جميع مافي الجدول وملاحظة الاستاذ رمهان كانت غائبة عنا من امتناع تطبيق الفكرة على ملفات mde

فكرة رائعة كصاحبها ويقى فقط : 1. الحدود للنص واعتقد يمكن نحتاج الوسم td 2. التاكد ان المقاس لصفحة الويب هي مناسبة لمقياس الورق A4 تحياتي

ليس الأمر صعبا إذا تم الدخول عليه من بابه! إعادة ربط الجداول المرتبطة له مكون يخصه في قاعدة البيانات. هذا المكون له خصائص يمكن أعادة تخصيصها من قبل مطور قواعد البيانات.. إليك الطريقة.. .. المكون هو [TableDef] يعيد هذا المكون مصفوفة بجداول البيانات المرتبطة وغير المرتبة بما فيها جداول النظام. .. هذه الجداول لها عدة خصائص منها خصيصة أتصال الجدول بقاعدة البيانات؛ إذا كان الجدول مضمناً في قاعدة البيانات فإن هذه القيمة تكون خاليه، أما إذا كان مرتبطا فإنها تعود بقيمة نصية تمثل نوع الجدول واسمه ومساره. هذه القيمة يمكن إعادة تخصيصها. .. إذا قلنا أن [TableDef] يعيد مصفوفة بالجداول فنحن إذا بحاجة دوارة غرضية تعيد جميع الجداول لفحصها هل هي مرتبطة أم لا؟ .. إذا كانت مرتبطة.. هل الرابط سليم أم معطوب؟ .. إذا كان معطوبا.. هل يمكن إصلاحه تلقائيا أم يحتاج إلى تدخل من قبل المستخدم؟ __ إشكالية!! هل مصدر البيانات واحد أو متعدد؟ وهل هو من نوع واحد أو متعدد؟ __ للمعلومية يقوم أكسس بتخزين خصائص هذا المكون، والمكونات الأخرى في جدول من جداول النظام يسمى [MSysObjects] وهذا يعني أن القيم التي يُعاد تخصيصها تبقى ثابته. __ لطيفة إذا كان مصدر البيانات موحدا فيمكن فحص قيمة الاتصال باستخدام الوظيقة [DLookup] لإعادة أول سجل يحمل اسم ومسار قاعدة البيانات للجداول المرتبطة؛ ومن ثم نمرر الناتج على التابع [Dir] هذا التابع يعيد اسم الملف إذا المسار إليه صحيحا ويعيد قيمة خالية إذا كان معطوبا! __ التطبيق .. أليك طرف الخيط Sub LINK_TABLE(Optional LINK_DIR As String) Dim dbs As DAO.Database Dim tdf As DAO.TableDef Set dbs = CurrentDb() If Not Len(LINK_DIR) Then LINK_DIR = XDEF_PATH End If '-- Loop through TableDefs collection, only processing _ '-- the table if it already has a Connection property. _ '-- (all other tables are local ... not linked) For Each tdf In dbs.TableDefs If tdf.Connect <> "" Then LD = Mid(tdf.Connect, InStr(tdf.Connect, "\DATA")) tdf.Connect = ";DATABASE=" & LINK_DIR & LD tdf.RefreshLink End If Next End Sub

كود ممتاز أستاذ جعفر لكن هل يمكن رسم إطار مربع النص نعم أستاذ رمهان أنا لم أضع ملف mde في الحسبان

السلام عليكم هذه طريقة عمل صفحة الانترنت webBrowser ، ويجب ان نتأكد من اختيار : . وهذا الكود يقوم بالعمل: Private Sub cmd_ie_Click() ' 'make Reference to Microsoft Internet Controls 'c:\windows\sysytem32\ieFrame.dll ' Dim web As SHDocVw.InternetExplorerMedium Set web = New SHDocVw.InternetExplorerMedium Dim HTML_File As String 'url header webBody = "<html style='width: 100%; height: 100%;'>" & vbCrLf webBody = webBody & "<head><style>" & vbCrLf '1 here we can change the Font Type, and Font size webBody = webBody & "table {font-family: arial, sans-serif; font-size:15px;border-collapse: collapse; width: 100%;}" & vbCrLf '2 here we can change cell border size, border color, Text alignment 'with black border 'webBody = webBody & "td, th {border: 1px solid #dddddd; text-align: center; padding: 8px;}" & vbCrLf 'without black border webBody = webBody & "td, th {border: 1px solid #FFFFFF; text-align: center; padding: 8px;}" & vbCrLf webBody = webBody & "</style></head><body>" & vbCrLf webBody = webBody & "<table style='width: 100%; height: 100%;'>" & vbCrLf 'How many Rows For i = 1 To Me.Rows 'to create the Table Row webBody = webBody & "<tr>" 'How many columns For j = 1 To Me.columns 'make each cell webBody = webBody & "<th>" & Me.co1.Column(1) & "</th>" Next j 'close the Table Row webBody = webBody & "</tr>" & vbCrLf Next i 'close the HTML code webBody = webBody & "</table></body></html>" 'Debug.Print webBody 'save the HTML file HTML_File = Application.CurrentProject.Path & "\524.webBody.html" Open HTML_File For Output As #1 Print #1, webBody Close #1 'make an IE web.Navigate HTML_File 'wait until the page if fully loaded Do While web.ReadyState <> READYSTATE_COMPLETE Loop web.Stop 'print preview web.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT web.Quit Set web = Nothing End Sub . ولأن العمل كان بالـ HTML ، وانا لا افهم فيه ، فأخذ مني هذا الوقت الكود يعمل ملف مؤقت في مجلد البرنامج ، اسمه 524.webBody.html ونستطيع ان نحذفه برمجيا كلما اغلقنا البرنامج. جعفر 524.2.rep2.mdb.zip

أخي ابراهيم.. تمام كده، لكن الطريق لا يخلو من المفاجآت والتفرعات والمشاكل التي تعرقل الوصول للهدف سنستعرضها لاحقاً.. خليك معانا

الفكرة الثانية: ظن ابراهيم بأنه لو أنشأ ملف إكسيل يقوم فيه بعملية تجميع ملفات المندوبين بالمعادلات هي الطريقة السليمة تجنبه فتح ملفات المندوبين كالتالي: ومن هنا يضمن ابراهيم تحديث الملف حين فتحه بما لا يتعارض مع المندوبين، فيا ترى هل ما قام به يعتبر صحيح، وما هي المشاكل التي سيتعرض لها، تابعوووونا.

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

جرب الكود التالي (ضع أسماء الملفات الجديدة في العمود المجاور في العمود الثاني قبل تنفيذ الكود) Sub RenameWBs() Dim strFolder As String Dim strFile As String Dim cel As Range Application.ScreenUpdating = False strFolder = ThisWorkbook.Path & "\" strFile = Dir(ThisWorkbook.Path & "\" & "*.xlsx") Do While strFile <> "" On Error Resume Next For Each cel In Worksheets(1).Range("A1:A" & Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row) If cel.Value = Replace(strFile, ".xlsx", "") Then Name strFolder & strFile As strFolder & cel.Offset(, 1).Value & ".xlsx" Exit For End If Next cel On Error GoTo 0 strFile = Dir Loop Application.ScreenUpdating = True End Sub

تفضل اخى تم ربط الجدولين باضافة عمود فى الجدول detials_transactions2 لربط الجدول الاخر واعطائة ارقام افتراضية للربط عليك بتغيرها للمناسب عمل استعلام عن المعدّة عن طريق تاريخ detials_transactions2_date الاستعلام detials_transactions last Database2.rar

السلام عليكم و رحمة الله تعالى و بركاته تفضل استعمل هذا الكود سوف يطبق العملية على جميع السجلات: Dim i As Integer Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.MoveFirst For i = 1 To rs.RecordCount If t = cood Then rs.Edit rs!asasy1 = (rs!asasy - (rs!asasy / 30) * rs!hrmnd) rs.Update End If rs.MoveNext Next i Set rs = Nothing و بإمكانك إضافة باقي المعادلات العمليات الحسابية.rar

اتفضل اخي الفاضل ، واتمنى من الله بأن يكون هو المطلوب تقبل تحياتى المصنف1.rar

حفظك الله ورعاك .. ولكن هذا السطر اريد مزيد من التوضيح بمعنى اخر لو ازلنا هذا السطر مثلا ماذا يحدث ؟

الأخ الكريمناصر سعيد لشرح الكود السطر الأول g2 تساوى أول رقم تريد طباعتة وهو فى الخلية E3 السطر الثانى حلقة تكرارية تبدأ من أو رقم تريد طباعتة وهو فى الخلية e3 وتنتهى بآخر رقم تريد طباعتة بالخلية f3 ثم مقدار الزيادة 2 السطر الثالث الخلية g2 قيمتها تساوى قيمة العداد لأن المعادلة التى فى نص الجواب تبحث عن الرقم الموجود بالخلية فى اسماء الملاحظين السطر الثالث يطبع الصفحة الحالية السطر الرابع غلق الحلقة التكرارية ارجو ان يكون الشرح مفهوم

وعليكم السلام، جرب المرفق. جلب البيانات_ن003 .rar

Sub abo_abary() [g2] = [e3] For i = [e3] To [f3] Step 2 [g2] = i ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next End Sub جزاكم الله كل خير ارجوكم اشرحو الكود عشان افهمه وما فائده ال g2

الأخوة الكرام يمكن التحكم فى عدد الجوابات المطبوعة من خلال المرفق التالى ارجو أن يفى بالغرض abo_abary_الفاروق ابتدائي1.zip

Sub Printing() For J = 1 To [I2] Step 2 If J <= [I2] Then [I4] = J ActiveWindow.SelectedSheets.PrintOut Copies:=1 End If Next [I4] = 1 End Sub كود متميز ..جزاك الله الف خير يا اخي الكريم بن عليه ========================================= قد يكون العدد الاجمالي كبير ولذلك كرما منك نريد ان يكون فيه جدول به من 1 الى ... العدد الذي نبغاه

السلام عليكم ورحمة الله تمت بعض التنسيقات وإضافة معادلات لاستدعاء البيانات وكود يقوم بطباعة كافة الجوابات من النموذج مع مراعاة طباعة جوابين في الورقة الواحدة... بن علية الفاروق ابتدائي1.rar

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

وعليكم السلام Shared ، هذه خاصية تم ادخالها في الاكسس 2010 ، والتي يعمل الاكسس جدول خاص للصور ، ثم يحفظ الصورة/الصور في الجدول ، فهذا معناه ان هذه الطريقة في واقع الامر مدمجة Embedded ، ولكن ، الميزة انك تستطيع استعمال نفس الصورة مرارا في النماذج والتقارير بينما اذا رجعنا الى طريقة ربط الصور Linked ، فبعدما تربط الصورة ، كالتالي ، مثلا: اسم الحقل: img اسم النموذج: frm_Main ربط الصورة يكون هكذا ، مثلا: Me.img.Picture = application.currentproject.path & "\Images\myPic.jpg" . واذا اردت استعمال نفس الصورة في نموذج/تقرير ثاني/ثالث ، فيمكنك استعمال الكود التالي: Me.img2.Picture = Forms!frm_Main.img.picturedata والذي لن يأخذ الصورة من القرص الصلب ، وانما سيأخذ نسخة من الصورة التي في الحقل img في النموذج frm_Main ، وسيكون اسرع من استدعاء الصورة من القرص الصلب ، ويمكنك استعمال هذا الكود في جميع اصدارات اكسس جعفر

رابط اخر للملفات سابقة الذكر في المشاركة السابقه فقط http://up.top4top.net/downloadf-3338689i1-rar.html

الأخ الكريم أهلا بك ومرحبا في المنتدى ونورت وشرفت بين إخوانك يرجى تغيير الاسم باللغة العربية .. كما يرجى الإطلاع على التوجيهات http://www.officena.net/ib/index.php?s=3d2662b90f8c2523d3412282bbd8a777&showtopic=60147 وعند طرح موضوع يرجى إرفاق ملف ..قم بضغط الملف ثم رفعه عموماً إليك هذا الملف محتفظ به بخصوص هذا الموضوع عله يفيدك جمع الأسهم.rar

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

الاستاذ a12 فكرة البراويز فى اكسل ليس مثل ورد تماماً هناك بعض التحايل على البرنامج هناك طريقتين 1 - تحديد بعض الخلايا تم اختيار حد الخلية 2 - ادراج صورة برواز فى الصفحة و الكتبة فى الخلف مرفق ملف للتوضيح ارجو ان اكون وضحت الفكرة لكم براويز.rar

الاستاذ الفاضل العزيز خبور بارك الله فيك ونفع بعلمك عمل مبدع ومتقن اللهم احفظ بلدي الغالي اليمن السعيد من الفتن والتمزق والمشاكل واحفظ شعبه اللهم امين.

مشكووووووووووووووووووووووووور

ياخي انا رفعت الملف بس مش عارف فية اية لو عندك طريقة للرفع ارشدني

اخى العزيز يمكنك زيارة هذا الموضوع إضغط هنا

السلام عليكم ورحمة الله تعالى وبركاته أخي الكريم aah_aah2008 بذلت مجهودا كبيرا أرجو أن يجعله الله في ميزان عملك أنت وباقي الإخوة مبلغاً إيّاهم تحياتي وسلامي أنظر أخي الكريم الملف التالي وأرجو أن تجد الجدول الديناميكي كما تريد كما يمكنك من إضافة أو حذف أعمدة أو أسطر دون الحاجة لماكرو رجاء أن ينال رضاك وأن ينتفع منه الإخوة TABLO.rar