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

السلام عليكم ورحمة الله تعالى وبركاته اعرف مسبقا ان الموضوع فتح من قبل واكثر من مره وبعد البحث لم اجد موضوع متكامل فى هذا الشأن اعرف ان الكمال لله وحده سبحانه وتعالى ولكن فكرت بطريقة مختلفه فى طرح الموضوع بفكرة ورشة عمل ليكون شاملا وليجتمع فيه معظم الافكار لنخرج بمشروع متكامل باشتراك كل كل الاخوة الذين برغبون فى الاشتراك وكذلك تحت اشراف اساتذتنا الكرام بارك الله فيهم فيكون علم ينتفع به وصدقة جاريه فلنجدد النوايا ونبدا على بركة الله وضعت بذور البداية ووصلت لمرحلة لابأس بها ولكن احب ان اابدا بالقاعدة من البداية من تحت الصفر حتى نضع الاساس سويا يد بيد اولا نضع تصور وخطوط عريضه لالية سير منظومة حتى نستطيع وضع الاسس لقاعدة البيانات - الحضور من الساعه 7 صباحا - الانصراف فى الساعة 3 عصرا - السهر " ساعات العمل الاضافية " من الساعة 4 الى الساعة 6 - ايام العمل من الأحد الى الخميس - العطلات الاسبوعية يومى الجمعة والسبت - قد يكون هناك استدعاء للعمل ايام العطل الاسبوعية فيحتسب اجر اضافى - هناك بعض الافراد حسب موقع عملهم بصرف لهم علبة حليب - لكل عامل فى وقت السهر وجبه أو بدل وجبه لكل عامل حرية الاختيار - التأمين الطبى إما تابع للمؤسسة أو تأمين خارجى للعامل حرية اختيار احداهما - الاجازات حسب الدرجه وحسب سنين الخدمه

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

السلام عليكم إخوتي وأبنائي الأحبة: رائع ما قدمتموه ...إذاًصار يمكننا استخراج الصور من ملف الإكسيل بكل يسر وسهولة يسّر الله عليكم جزاكم الله خيراً ...والسلام عليكم.

كيف لا تجدي نفعاً مع الملف الذي يحتوي على ماكرو .. الملف المرفق في الموضوع الذي اختفى كان بامتداد xlsm .. ومطبقة عليه الطريقة ..حاول مرة أخرى لربما أخطأ في الخطوات فقط

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

أخي الحبيب صلاح أنا بقالي يومين بحاول أشوف الموضوع فين .. يظهر العفاريت عملوها فينا وأخفوا الموضوع عموماً كنت قد طلبت الطريقة ووجب علي أن أقدمها لك خصوصاً بعد انتظار أسبوع الموضوع والحل الذي لدي في قمة البساطة والسهولة .. وأنا خايف تشتم بعد ما تعرف الطريقة (فعايز وعد منك من غير شتيمة) الحل بدون أكواد على الإطلاق المصنف اللي فيه الصور المراد استخراجها غير امتداده من xlsm إلى zip .. وروح اعمل كليك يمين عليه واعمل Extract أي استخراج للملفات .. هيطلع لك من ضمن المستخرج مجلد اسمه Media ودا جواه الصور بنفس التنسيق ونفس الحجم تماماً وسلم لي على التروماي .. ومش عاااااااااااااايز شتيمة تقبل وافر تقديري واحترامي

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

السلام عليكم ورحمة الله تعالى وبركاته أحبائي وأساتذتي الأفاضل أقدم لك هذه التجميعية البسيطه ليستفيد بها المبتدئ والمحترف تجمعية تحت عنوان تغذية القائمة المنسدلة خاصة بالفورم (ComboBox) بمدى ديناميكي أولا: نقوم بإنشاء فورم وندرج به قائمة منسدلة (ComboBox1) ثانيا : نفتح محرر الاكواد View Code) ثالثا: من نافذه المحرر نختر حدث بداية التشغيل الفورم UserForm_Initialize Private Sub UserForm_Initialize() End Sub نقوم بوضع المتغير التالي الخاص بتحديد ورقة العمل وهم أمر مهم جدا Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select End Sub نأتي الأن إلى الأكواد الخاصة بتغذية القائمة المنسدلة ملاحظه جميع الأكواد الخاصة بالتغذية أنا إخترت العمود الأول وبداية التغذية من الخلية A2 ولكم حرية التغيير الكود رقم 1 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Range("A2", Range("A" & Rows.Count).End(xlUp)).Name = "Dynamic" Me.ComboBox1.RowSource = "Dynamic" End Sub الكود رقم 2 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Me.ComboBox1.RowSource = Range("B2", Range("B65536").End(xlUp)).Address End Sub الكود رقم 3 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Me.ComboBox1.RowSource = ("A2:A") & ws.Cells(Rows.Count, "A").End(xlUp).Row End Sub الكود رقم 4 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Me.ComboBox1.List = Range("A2:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value End Sub الكود رقم 5 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim FR As Integer, LR As Integer With ws LR = .Range("A2").End(xlDown).Row For FR = 2 To LR Me.ComboBox1.AddItem .Range("A" & FR) Next FR End With End Sub الكود رقم 6 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim R As Integer With ws For R = 2 To .Range("A" & .Rows.Count).End(xlUp).Row If .Range("A" & R) <> "" Then Me.ComboBox1.AddItem .Range("A" & R) End If Next R End With End Sub الكود رقم 7 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim LR As Long LR = ws.Cells(Rows.Count, "A").End(xlUp).Row myList = ws.Range("A2:" & "A" & LR) Me.ComboBox1.List = myList End Sub الكود رقم 8 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim LR As Long LR = ws.Range("A" & Rows.Count).End(xlUp).Row Set myList = ws.Range("A2:A" & LR) Me.ComboBox1.List = myList.Value End Sub الكود رقم 9 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim LR As Long With ComboBox1 LR = ws.Cells(Rows.Count, 1).End(xlUp).Row .List = ws.Range(ws.Cells(2, 1), ws.Cells(LR, 1)).Value End With End Sub الكود رقم 10 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim myList As Range For Each myList In ws.Range("A2").SpecialCells(xlConstants) With Me.ComboBox1 .AddItem myList.Value .List(.ListCount - 1, 1) = myList.Offset(0, 1).Value End With Next End Sub الكود رقم 11 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim i As Integer, iMin As Integer, iMax As Integer iMin = 2: iMax = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row For i = iMin To iMax ComboBox1.List = Range(Cells(iMin, 1), Cells(iMax, 1)).Value Next i End Sub الكود رقم 12 من إدارة الأسماء نختر جديد الإسم انت حر فيما تختار أنا إخترت MyRange في خانة يشير إلى نقوم بوضع هذه المعادلة =OFFSET(Sheet1!$A$2;;;COUNTA(Sheet1!$A$2:$A$10000);1) في الفورم نقوم بوضع الكود التالي Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Me.ComboBox1.RowSource = "Myrange" End Sub الكود رقم 13 كود تغذية القائمة المنسدلة بدون فراغات Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim cell As Range With ws For Each cell In .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row) If Not IsEmpty(cell) Then ComboBox1.AddItem cell.Value Next cell End With End Sub الكود رقم 14 كود تغذية القائمة المنسدلة بدون فراغات وبدون تكرار Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim I As Integer Dim Valeurs As Variant Dim sDic As Object Set sDic = CreateObject("Scripting.Dictionary") With ws Valeurs = .Range("A2:A100").Value For I = LBound(Valeurs) To UBound(Valeurs) If Not IsEmpty(Valeurs(I, 1)) Then sDic(Valeurs(I, 1)) = "" Next I End With If IsArray(Valeurs) Then Me.ComboBox1.List = sDic.keys End Sub وفي الأخير أتمنى هذه التجمعية المتواضعة أن تفيدكم أعرف أن أستاذي القدير حيزعل مني لأني لم أقم بوضع هذه الاكواد في تجمعية مكتبه المنتدى ووضعها في موضوع منفصل حتى يكون هذا الموضوع مرجعا لكل من يريد التعلم بأبسط الطرق أستاذي القدير وحقك عليا تقبلو تحياتي لا تنسونا بخالص دعائكم

بالنسبة لطلبك الاول تفضل Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim I As Integer Dim Valeurs1, Valeurs2, Valeurs3 As Variant Dim sDic1, sDic2, sDic3 As Object Set sDic1 = CreateObject("Scripting.Dictionary") Set sDic2 = CreateObject("Scripting.Dictionary") Set sDic3 = CreateObject("Scripting.Dictionary") '=============================خاص بالكمبوبوكس3=============================== With ws Valeurs1 = .Range("A2:A1000").Value For I = LBound(Valeurs1) To UBound(Valeurs1) If Not IsEmpty(Valeurs1(I, 1)) Then sDic1(Valeurs1(I, 1)) = "" Next I End With If IsArray(Valeurs1) Then Me.ComboBox1.List = sDic1.keys '=============================خاص بالكمبوبوكس2=============================== With ws Valeurs2 = .Range("B2:B1000").Value For I = LBound(Valeurs2) To UBound(Valeurs2) If Not IsEmpty(Valeurs2(I, 1)) Then sDic2(Valeurs2(I, 1)) = "" Next I End With If IsArray(Valeurs2) Then Me.ComboBox2.List = sDic2.keys '=============================خاص بالكمبوبوكس3=============================== With ws Valeurs3 = .Range("C2:C1000").Value For I = LBound(Valeurs3) To UBound(Valeurs3) If Not IsEmpty(Valeurs3(I, 1)) Then sDic3(Valeurs3(I, 1)) = "" Next I End With If IsArray(Valeurs3) Then Me.ComboBox3.List = sDic3.keys End Sub

السلام عليكم ورحمة الله وبركاته وجدت هذه الدالة اثناء تجولي وحبيت ان اضع عليها مثال هنا لمن قد يبحث عنها الدالة هي FILELEN وهذا ببساطة شكل الدالة FileLen( file_path ) الدالة تحضر حجم الملف بالبايت .. وبإمكاننا التحويل الى ما نريد بعد ذلك هنا طرق التحويل المعروفة للجيمع . 1 Byte = 8 Bit 1 Kilobyte = 1,024 Bytes 1 Megabyte = 1,048,576 Bytes 1 Gigabyte = 1,073,741,824 Bytes 1 Terabyte = 1,099,511,627,776 Bytes في المرفق انا حولت الى كيلوبايت .. اترككم مع المثال .. فك الضغط على الدرايف D للتجربة وبعدها بإمكانك النقل الى اي مكان كل ما عليك هو معرفة المسار والإمتداد بالتوفيق للجميع fileSizeDemo.rar

لسّلام عليكم و رحمة الله و بركاته أخي الكريم " ياسر يا عربي " .. وخي " عبد العزيز البسكري "جزاكم الله خيرا دام الله عليكم الصحة والعافية وحفظكم الله ورعاكم وجعلكم من الناجون من هول يوم القيامة بارك الله فيكم

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

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

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

بعد اذن اخي الغالي عبد العزيز تفضل اخي الغالي هذا التحديد يشير الى رقم الاداة في الانتقال وفي المثال هنا التكست المشار لها رقمها 1 والليست بوكس رقمها 2 عند الوقوف داخل التكست والضغط على زر TAB يتم الانتقال لرقم 2 وهي الليست للأنتقال من التيكست بوكس ل الليست بوكس مباشرة.rar

بالنسبة لكود جلب الصورة اليك الكود التالي Private Sub CommandButton2_Click() Dim strFileName As String strFileName = Application.GetOpenFilename(filefilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select a File", MultiSelect:=False) If strFileName = "False" Then MsgBox "File Not Selected!" Else Me.Image1.Picture = LoadPicture(strFileName) End If End Sub

السلام عليكم انا على سفر ، وبعيد عن الكمبيوتر ، لهذا السبب انا بعيدا عن المنتدى عندي ملاحظة واحدة فقط ، وبحسب خبرتي في هذا الموضوع: الكمبيوتر يعطي أولوية تنفيذ أوامر CPU إلى برامج الوندوز ، ثم البرامج الاخرى ، مما قد يُؤخر تنفيذ أوامر برنامج الاكسس ثانية او اثنين ، إذًا ، عند تنفيذ الأمر التالي او أمر مثله: If rs!mish_time = Time() Then قد يكون CPU الكمبيوتر مشغولا ، وعند تنفيذ الامر ، الوقت لن يكون مطابقاً ، لأننا نقارن الوقت بالثواني ، وحينها ، فالمعادلة لن تُنفّذ !! لذلك ، ولتفادي هذه المشكلة ، اجعل مقارنة الوقت: إما بالساعة والدقيقة وبدون ثواني ، وإما اجعل المقارنة ">=" بدل "=" ، او شئ من هذا القبيل ، وإلا ، فقد يفوتك موعد ولن تعرف لماذا جعفر

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

أخى الفاضل ابو البراء وهل أحد يشتم مثله الأعلى , بل أدعو لك بكل خير " حفظك الله ورضى عنك وأرضاك وزادك علماً نافعا " الفكره جميله ومبتكره , واثراء للموضوع الفكره لم تجدى نفعا مع ملف الاكسل المحتوى على ماكرو فلابد من حفظ الملف اولا بصيغة اكسل العاديه ثم تغيير الامتداد ZIP أو RAR ثم فك الضغط

السلام عليكم الكوود التالي يلغي الطباعة من كل اوراق الملف Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True End Sub و يوضع في thisworkbook و الغاء الطباعة من ورقة محددة Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = ("Sheet1") Then Cancel = True End Sub

حياك الله اخ مصطفى جوابك يفيد بأنك لم تقراء اي شئ عن الباركود .... تابع هذه الفيديوهات عل بها فائدة https://www.youtube.com/watch?v=qaxMC_D7gYE بالتوفيق

السلام عليكم و رحمة الله وبركاته بسم الله الرحمن الرحيم و الصلاة و السلام على سيدنا محمد وآله وصحبه اجمعين هذ الموضوع هو الحاقا للموضوع السابق برنامج السكرتير الخاص الإصدار الأول / أحمد زمان http://www.officena.net/ib/index.php?showtopic=42018#entry239414 حيث مرة عدة سنوات عليه مما احتاج خلالها الى بعض الإضافات و بعض التحسينات مرفق ملف شرح اتمنى ان يكون به افائدة للجميع ‏السبت‏، 19‏/3‏/2016م الموافق ‏10‏/6‏/1437هـ خصائص عامة بالملف: - حفظ الملف تلقائيا عند الإستخدام كل 10 عشرة دقائق - إخفاء ورقة الأرقام السرية - بعد الدخول إليها بـ 12 دقيقة - إمكانية استخدام التاريخين الهجري و الميلادي - المحافظة على صغر حجم الملف: حيث يتم زيادة 9 صفوف عند الدخول إلى أي ورقة تلقائيا 1- المواعيد يتم تسجيل كل المواعيد المهمة حسب التاريخ وتقبل خانه التاريخ أي تاريخ هجري أو ميلادي يتم ترتيب البيانات حسب التاريخ عن الدخول مره أخرى إلى الورقة أو بالضغط على زر المواعيد المواعيد المنتهية و المنجزه يتم التسجيل أمامها (منتهى) ولن تظهر أمامك إلا من خلال البحث يمكنك البحث عن اي معلومة في المواعيد من خلال الخلية الصفراء الموجودة في أعلى الورقة 2- دليل الهاتف * هو دليل يشمل عدة خانات من جوال وفاكس وهاتف و ايميل * يمكنك البحث في دليل الهاتف من الخلية الصفراء أعلى الصفحة * يمكنك البحث عن اي جزء من أي معلومة جزء من الاسم أو الرقم , مع تلوين النتائج بلون مميز 3- التقويم والتاريخ نظرا لما عانيته في استخراج التاريخ من الهجري إلى الميلادي ومن الميلادي إلى الهجري تم عمل هذه الورقة بحيث يتم إدخال التاريخ (هجري أو ميلادي) في ألخانه الصفراء أعلى الصفحة - ثم - تظهر لك النتائج للتواريخ متسلسلة لمدة 45 يوما قبل التاريخ المدخل ب 8 أيام مع تفاصيل تسجيل اسم الشهر الهجري واسم الشهر الميلادي واسم اليوم بالعربي والانجليزي ويوجد على يسار الورقة قائمه بأسماء الأشهر هجري و ميلادى مرتبه بالتسلسل 4- تجميع هي ورقه عاديه لتجميع الأرقام في الخانات 5- كلمه سر بسبب كثرة اسم المستخدم وكلمات المرور التي نستخدمها يوميا حيث كل موقع حكومي له اسم مستخدم وكلمة مرور وكل موقع بنك له كذالك وغير ذلك كثير, لذلك تم إنشاء هذه الورقة: * يتم الدخول إلى الورقة بكلمه سر وهى (22) * يتم وضع وصف للموقع وكلمه السر وكلمه المرور * يتم إخفاء هذه الورقة بعد 10 دقائق من استخدامها لسرية المعلومات التي بها * يتم البحث من الخلية الصفراء أعلى الورقة وتظهر لك النتائج المحددة في خانة البحث فقط مع تمييزها بلون مميز 6-وصول سريع بسبب كثرة الملفات التي نحتاجها باستمرار ولتسهيل الوصول إلى هذه الملفات وحيث أنني وجدت البحث في ويندوز الجديد صعب علي إنا. بالدخول إلى وصول سريع يتم ترتيب البيانات بالتسلسل الأبجدي تضع اسم مختصر للملف وشرح لعمل الملف ثم تضغط على زر (اضافه رابطlink) الموجود أعلى يسار الصفحة, من مربع الحوار تختار الملف المطلوب يتم وضع رابط للملف في خانة الموقع والوصول (ارتباط شعبي). البحث :- في قائمة البحث أعلى الصفحة تكتب أي أحرف من اسم الملف أو المجلد تظهر لك النتائج المطلوبة وبالضغط على موقع الوصول يتم فتح الملف المطلوب. السكرتيرالخاص1437.rar

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

بالتوفيق يبو محمد ازعجناك بالسؤال هذا ... هههههه بالتوفيق

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

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

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

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

هناك جدول مخفى بقاعدة البيانات به حصر لكل الكائنات الموجودة فيها يمكنك إظهاره من جزء التنقل و يمكنك عد الكائنات الموجودة به ولكل نوع من الكائنات رقم فيمكن عمل استعلام يعد كل نوع حسب الرقم الخاص به

ذكرتني بمثال عندي يحسب حجم البيانات داخل قاعدة البيانات حجم البيانات في البرنامج.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. ومع كل جديد ومفيد ، أقدم لكم اليوم كود في منتهى الروعة ، يقوم الكود بإنشاء مصنف منفصل لكل ورقة عمل في نفس مسار الملف .. في الملف المرفق ، تم وضع المصنف المسمى Split Workbook في مجلد .. المصنف يحتوي على 4 أوراق عمل ( الأول Main - الثاني Data - الثالث Search - الرابع Result) في ورقة العمل المسماة Main يوجد زر أمر ، بالنقر عليه يتم عمل الكود ، ويبدأ في نسخ كل ورقة عمل ويسميها باسمها كمصنف جديد في نفس مسار المصنف الحالي ، ثم يقوم الكود بإغلاقه .. أسطر الكود مشروحة داخل الكود .. Sub SplitWorkbook() 'تعريف المتغير من النوع النصي Dim xPath As String 'تعريف المتغير من النوع ورقة عمل Dim SH As Worksheet 'تعيين المتغير لتساوي قيمته مسار المصنف الحالي xPath = Application.ActiveWorkbook.Path 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'إلغاء خاصية رسائل التنبيه Application.DisplayAlerts = False 'حلقة تكرارية لكل أوراق العمل بالمصنف For Each SH In ThisWorkbook.Sheets 'نسخ ورقة العمل SH.Copy 'حفظ ورقة العمل بنفس الاسم ونفس المسار Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & SH.Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled 'إغلاق المصنف الجديد والذي أصبح هو المصنف النشط Application.ActiveWorkbook.Close False 'الانتقال لورقة العمل التالية Next 'تفعيل خاصية رسائل التنبيه Application.DisplayAlerts = True 'تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub * ملحوظة : يجب ألا تكون هناك ورقة عمل بنفس اسم المصنف Split Workbook ، حتى لا يحدث مشكلة أثناء تنفيذ الكود أو لتجنب هذه المشكلة يمكن إضافة هذا السطر On Error Resume Next أرجو أن ينال الملف رضاكم ، وتستفيدوا منه في المقام الأول ... دمتم في رعاية الله وطاعته .. وهذا رابط لقناتي على اليوتيوب (في انتظار آرائكم حول القناة كبداية لمرحلة جديدة ..) My Channel أخوكم أبو البراء من منتدى أوفيسنا حمل الملف من هنا

في هذا الموضوع سوف تتعرف على جميع طرق تصوير الشاشة صور و فيديو للكمبيوتر و هواتف الاندرويد و كذلك تحميل افضل برامج تصوير الشاشه برابط مباشر من الموقع الرسمي لتكون قادر على عمل سكرين شوت و كذلك تصوير الشاشة فيديو لعمل الشروحات و شرح شىء معين في الكمبيوتر و رفع الفيديو على اليوت يوب. طريقة تصوير الشاشة للاندرويد هناك طريقتان لتصوير الشاشة لهواتف الاندرويد مثل ساسمونج جلاكسي او هواتف سوني و هي تعتمد على الضغط على ازرار الهاتف سوياً مثل: 1- الضغط على زر قفل الشاشة معه زر الرئيسية الموجود اسفل الهاتف في نفس الوقت و بسرعة و سيقوم بالتقاط صورة للشاشة سكرين شوت 2- الضغط على زر القفل بجانب الجوال و بعده مباشرة زر خفض مستوى الصوت او رفع الصوت على حسب نوع هاتفك يمكنك التجربة بنفسك طريقة تصوير الشاشة للكمبيوتر يوجد طريقة قديمة جداً من ايام ويندوز XP و هي الضغط على زر PRT SC الموجود في لوحة المفاتيح أعلى الاسهم ثم الذهاب الى برنامج الرسام و الضغط على Ctrl + v للصق صورة الشاشة التى تم التقاطها بواسطة الزر و من هنا يمكنك حفظ الصورة اما في ويندوز 7 او 8 او 10 يوجد برنامج يتم تنصيبه تلقائيا مع نسخة الويندوز فقط قم بالبحث عنه في قائمة إبدأ و هو يسمى Snipping Tool سهل و سريع في تحديد جزء معين من الشاشة لالتقاطها اما اذا كنت تريد برامج لتصوير الشاشة فيديو او صور فأرشح لك البرامج التالية 1- برنامج كامتزيا Camtasia يعتبر اشهر برنامج لتصوير الشاشة فيديو و صور و عمل الشروحات و الدروس على شاشة الكمبيوتر و رفعها مباشرة على اليوتيوب جودة عالية و مساحة صغيرة يمكنك الاعتماد على برنامج كامتزيا بشكل كلي لتصوير الشاشة صور و فيديو و ايضاً استخدامه كبرنامج مونتاج و تحرير الفيديو بعد التقاطه فيمكنك تقطيع و قص الفيديو و دمج المقاطع و اضافة النصوص و الصور بكل سهولة، يعتبر برنامج متكامل لـ التعديل على الفيديو شرح تثبيت البرنامج .. قم بالضغط على Next في الصور التالية و عند التسجيل تظهر هذه النافذة لضبط الاعدادات و تحديد الجزء المراد تسجيله فيديو او صورة في الشاشة و هذا هو محرر الفيديو او الصور الخاص بالبرنامج لمونتاج الفيديو بسهولة 2- برنامج سناج ات Snagit هذا البرنامج من نفس انتاج شركة برنامج كامتزيا و هي شركة Techsmith و يعتبر مثله تماماً في الفكرة و لكنه يخدم المستخدم و يريحه بصورة اكبر في عملية الالتقاط و التعديل على الصور و الفيديو بعد التقاطها شرح التثبيت بعد تحميل البرنامج قم بفتحه و الضغط على Install و بعد الانتهاء سيطلب منك الدخول يمكنك انشاء حساب جديد بكل سهولة و هذه هي واجهة البرنامج و محرر الفيديو و الصور و الآن مع تحميل برامج و تطبيقات تصوير الشاشة للكمبيوتر و الاندرويد المصدر: تصوير الشاشة فيديو برنامج سناج ات برنامج كامتزيا برنامج اسكرين شوت للاندرويد

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

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي الحبيب الغالي " ياسر العربي " أنهينا مراجعة السلسلة يا أبا أسيل .. و ننتظر بشوق .. جديدك .. بإذن الله خالص تحياتي

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

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

أخي ياسر ممكن ان نستعمل هذين الكودين و ما عليك سوى تشفيرها بواسطة كلمة سر (اذا احببت التعديل غليها او الغائها) و يا مين يجطر غلى باله ان يمسح الخلية XFD1 Private Sub Workbook_Open() With Sheets("Sheet1").Range("xfd1") .Value = "D'ont print" .NumberFormat = ";;;" End With End Sub Private Sub Workbook_BeforePrint(Cancel As Boolean) If Sheets("sheet1").Range("xfd1").Value = "D'ont print" Then Cancel = True End Sub

أخي الكريم أبو حماده إليك كود الأخ الحبيب عبد العزيز البسكري بعد تنسيقه فقط (لسهولة الإطلاع عليه) يرجى مراعاة عملية التنسيق للأكواد المقدمة ليسهل التعامل معها Private Sub UserForm_Initialize() Dim Ws As Object Dim I As Integer Dim Valeurs As Variant Dim sDic As Object Dim Cel As Range Set Ws = ThisWorkbook.Sheets(1) Set sDic = CreateObject("Scripting.Dictionary") With Ws Valeurs = .Range("A2:A100").Value For I = LBound(Valeurs) To UBound(Valeurs) If Not IsEmpty(Valeurs(I, 1)) Then sDic(Valeurs(I, 1)) = "" Next I End With If IsArray(Valeurs) Then Me.ComboBox1.List = sDic.keys For Each Cel In Range("B2:B100") ComboBox2 = Cel If ComboBox2.ListIndex = -1 And Cel <> "" Then ComboBox2.AddItem Cel Next Cel For Each Cel In Range("C2:C100") ComboBox3 = Cel If ComboBox3.ListIndex = -1 And Cel <> "" Then ComboBox3.AddItem Cel Next Cel End Sub يوضع الكود في حدث الفورم ..طبق بنفسك ولا تعتمد على الملفات المرفقة أخي العزيز أبو حماده تقبلوا تحياتي

حياك الله اخي الكريم هنا مثال للتحقق من الاتصال بالإنترنت Private Declare Function InternetGetConnectedState _ Lib "wininet.dll" (ByRef dwflags As Long, _ ByVal dwReserved As Long) As Long Private Const INTERNET_CONNECTION_MODEM As Long = &H1 Private Const INTERNET_CONNECTION_LAN As Long = &H2 Private Const INTERNET_CONNECTION_PROXY As Long = &H4 Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20 Function IsInternetConnected() As Boolean Dim L As Long Dim R As Long R = InternetGetConnectedState(L, 0&) If R = 0 Then IsInternetConnected = False Else If R <= 4 Then IsInternetConnected = True Else IsInternetConnected = False End If End If End Function في المرفق تطبيق للمثال بالتوفيق التحقق من الاتصال بالإنترنت.rar

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

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

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

نعم ممكن ذلك بجعل مصدر النموذج هو استعلام ويجمع هذا الاستعلام بكل الجداول التى تريدها

وإن كـانـت مثل زبـد البـحر أخي المسلم : السلام عليكم ورحمة الله وبركاته ... أما بعد فقد وردت بعض الأدعية والأذكار التي تكفر الذنوب وإن كانت مثل زبد البحر ومن ذلك: 1- عن أبي هريرة رضي الله عنه عن رسول الله صلى الله عليه وسلم أنه قال : ( من سبح الله في دبر كل صلاة ثلاثا وثلاثين وحمد الله ثلاثا وثلاثين وكبر الله ثلاثا وثلاثين فتلك تسعة وتسعون وقال تمام المائة لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شيء قدير غفرت خطاياه وإن كانت مثل زبد البحر ) رواه مسلم 2- عن أبي هريرة رضي الله عنه أن رسول الله صلى الله عليه وسلم قال : ( من قال سبحان الله وبحمده في يوم مائة مرة حطت خطاياه وإن كانت مثل زبد البحر ) متفق عليه 3- عن أبي هريرة رضي الله عنه عن النبي صلى الله عليه وسلم قال : ( من قال حين يأوي إلى فراشه لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شيء قدير لا حول ولا قوة إلا بالله العلي العظيم سبحان الله والحمد لله ولا إله إلا الله والله أكبر غفرت له ذنوبه أو خطاياه وإن كانت مثل زبد البحر ) . رواه النسائي وابن حبان في صحيحه . أخي الكريم : * في الأحاديث السابقة بيان لفضيلة ذكر الله تعالى فاحرص على دوام ذكر الله فهو سبب سعادة القلب وانشراحه . * تذكر أن هذا الفضل والثواب لمن اجتنب الكبائر . * تذكر أن هذا الفضل يكفر الصغائر ما لم يصر عليها . * تذكر أن التوبة النصوح تكفر الذنوب كلها . قال المناوي رحمه الله : "فلا يظن ظان أن من أدمن الذكر وأصر على ما شاء من شهواته وانتهك دين الله وحرماته أن يلتحق بالمطهرين المقدسين ويبلغ منازل الكاملين بكلام أجراه على لسانه ليس معه تقوى ولا عمل صالح " فيض القدير 6/190

اخي الغالي اوافقك الرأي في ربط الفيجوال بالاكسيل ليس بكفاءة الاكسس والاس كيو ال ولكن نحن في قسم الاكسيل الا يحتاج من يستخدم الاكسيل لمعرفة الربط بالفيجوال خصوصا ان ملف الاكسيل اقل حماية لمعادلاتك واكوادك ولحماية ملف نحوله لملف تنفيذي وكلام كدا ملوش اي تلاتين لازمة اما اذا نفذنا مثل المثال المرفق فهو أمن من ملف اكسيل به كل شغلنا اما بخصوص قسم خاص بالفيجوال فا دا اقتراح في محله وياريت يكون قسم رئيسي ويسمي لغات البرمجه ويندرج تحته فيجوال بيسك ٦ ودوت نت وسي وربنا يكرمنا ونمشي خطوة خطوة مع بعضينا ولما نتقن الفيجوال نزود بقيت لغات البرمجه بس لغةالبرمجه المعنيه الان هي الفيجوال بيسك٦ حيث هي الاقرب من برمجه الاكسيل vba

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

السلام علكيم أخي وحبيبي ياسر العربي بارك الله فيك على البرنامج القيم والمتميزيعمل بنجاح عندي ويندوز 8.1 اصدار 64 bit ونسخة اوفيس 2010 32bit ولكن اخي أذا كانت هذه البرامج تقوم ببرمجتها لكي تكون منتج لك تقوم بتسويقه تحتاج الى تعديلات في تصميم الواجهات والايقونات لكي تكون مواكب العصر في مجال التصميم والصور أثبتت دراسة علمية حديثة أن البرنامج عندما يكون متناسق الالوان مع بعض ككل يكون المستخدم قادر على التعامل معه بشكل افضل كثير مننا نقوم بتثبيت برامج كبيرة في مجالها ولكن عند فتحها لاتأتي لنا المزاج والنفسية للتعامل معها وذلك من تعقيدها ولعدم تناسق الالوان والايقونات والتصميم ككل وهو يعتبر قيم جداً في مجاله بارك الله فيك مرة أخرى هذا رأيي المتواضع ليس الإ لاأفرضه عليك وإنما نسعى أن تكون البرامج العربية في المستوى الاحترافي والأفضل حول العالم

23- الخاصيه ( ShowDrop Button When ):- وهذه الخاصيه تتيح للمستخدم التحكم فى ظهور او عدم ظهورعلامة الـ ComboBox عند عرض الفورم شاهد الصورة توضح لك الامر ************************************************************************************************************* 24- الخاصيه ( Style ):- وهى بنظرى من اهم الخصائص للكمبوبوكس زى ما احنا عارفين لفتح القائمة الخاصه بالكمبوبوكس للاختيار منها لابد من الضغط على السهم لتفتح القائمه ولكن هذه الخاصيه تتيح للمستخدم التحكم فى وقت فتح القائمة الخاصه بالكمبوبوكس فلها خيارين الخيار الاول Fm StyleDropDown Combo - 0 :- هو الافتراضى لابد من الضغظ على السهم لفتح القائمة كما تتيح للمستخدم كتابة اى شئ بالكمبوبوكس غير موجود بالقائمه بمعنى لا تلزم المستخدم من الخيار من القائمة والخيار الثانى Fm StyleDropDown List - 2 : -هو فتح القائمة من خلال الضغط على السهم او بمجرد وقوف مؤشر الماوس على الكمبوبوكس وكمان ميزة ثالته وهى مهمه جدا هو انه لا يمكن للمستخدم كتابة اى شئ فى الكمبوبوكس يعنى كانك عامل خاصيه حمايه للكمبوبوكس ولا سبيل امام المستخدم الا من الاختيار من القائمه ******************************************************************************* 25-الخاصيه (Text Align) :- وهذه الخاصيه تتيح للمستخدم التحكم فى اتجاه النص ( المحازاه للنص )داخل الـكمبوبوكس هل يكون يميناً أو يساراً أو وسط الـكمبوبوكس لو ذهبت للخصائص وعند الخاصيه Text Align ستجد سهم اضغط عليه ستجد 3 خيارات امامك وهى fm Text Align Left -1 عند الاختيار ستجد ان اتجاه النص داخل ComboBox يبداء من اليسار fm Text Align Center -2 عند الاختيار ستجد ان اتجاه النص داخل ComboBox فى المنتصف fm Text Align Right -3 عند الاختيار ستجد ان اتجاه النص داخل ComboBox يبداء من اليمين ******************************************************************************************** 26-الخاصيه (Tab index ) وهذه الخاصيه تتيح للمستخدم ترتيب التنقل بين الازرار على الفورم بعد الخروج منها من خلال الزر انتر ويمكن تعطيل هذه الخاصيه من خلال استخدام الخاصيه Tab stop = True هحاول اشرحها بشكل مبسط بفرض عندك فورم أنشئت فيه 3 عناصر ( Combobox1 - Textbox2 - Textbox1 )على نفس الترتيب فأن الفيجوال بيسك بشكل افتراضى يقوم بترتيب التنقل بينهم حسب ترتيب أنشائهم فعند تشغيل الفورم وانت واقف فى Textbox1 وضغط انتر سينتقل مؤشر الماوس الى Textbox2 ثم ضغط انتر سينتقل مؤشر الماوس الى Combobox1 فلو نا عايز وانا واقف فى Textbox1 واضغط انتر ينتقل الى Combobox1 وليس Textbox2 هنا تاتى اهميه الخاصيه Tab index اذهب لشاشة تصميم الفورم فى الفيجوال وحدد Textbox2 وفى الخاصيه Tab index اكتب رقم 4 ثم حدد Combobox1 ومن الخاصيه Tab index له اكتب رقم 2 ثم ارجع وحدد Textbox2 وفى الخاصيه Tab index اكتب رقم 3 بدلا من 4 وبكدا عند تشغيل الفورم والوقوف فى Textbox1 والضغط انتر سينتقل مؤشر الماوس الى Combobox1 وليس Textbox2 ارجوا ان تكون وضحت الفكره 27-الخاصيه (Tab Stop ) وهذه الخاصيه تحمل خيارين True و False عندد اختيار True يتم تعطيل خاصيه Tab index وعند اختيار False ٍسوف تفعل خاصيه Tab index للتنقل بين الازرار حسب الترتيب الذى ترغب فيه ******************************************************************************************** 28- الخاصيه ( ٍِSpecial Effect ) هذه الخاصيه من الخصائص الهامه للـ Combobox وهى تعطى اشكال مبهره ومميزه للـ Combobox ولها خمس اشكال اختر منها ما يناسب ذوقك شاهد الصوره التاليه **************************************************************************

الاخ الكريم والاستاذ العزيز مهند عبادي منتظرين شرحك لنا مع خالص التحيات وشكرا للاخ حسن خليفه على الرد