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

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

تفضل طلبك و لا تنساني بدعوة طيبة مثال.accdb

تفضل عسى يكون المطلوب Sub test() Dim a Dim i&, ii&, nn&, x&, xx& Dim myArea As Range With Sheets("الرئيسية اول") a = Range(.Cells(6, 1), .Cells(6, 3).End(xlDown)).Cells nn = .Cells(2, 7) End With For i = 2 To Sheets.Count - 1 With Sheets(i) x = 1: xx = 0 For ii = 0 To UBound(a) / nn .Cells(6 + xx, 1).Resize(30, 3).ClearContents .Cells(6 + xx, 1).Resize(nn, 3).Value = Application.IfError(Application.Index(a, Evaluate("row(" & x & ":" & x + nn - 1 & ")"), [{1,3,2}]), "") x = x + nn: xx = xx + 41 Next End With Next End Sub

برنامج نقل النص العربي من إكسيل أو وُرِّد إلى الأتوكاد بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته عندما يكون عندك نصوص مكتوبة في ملف ورّد أو اكسيل وتريد نقلها إلى الأوتوكاد بفنط الأوتوكاد مثل Xarb فيجب إعادة كتابتها في الأتوكاد فهذا البرنامج يحوّل أي نص تكتبه مباشرة في مربع الحوار أو تنسخه من الورد أو يمكن تحديد عدد من الخَلايا إلى الأوتوكاد ولتشغيل البرنامج تفتح ملف في الأوتوكاد تختار فنط يعتمد على Xarb أو ما يشابهه ليكون هو الفنط الحالي ثم تفتح ملف الاكسيل وتشغل البرنامج من زر نقل النص الموجد بالملف وتكتب أي عبارة أو تنقلها نسخا من أي برنامج أو تختار مجموعة خلاليا في الإكسيل ثم تضغط الزر المقابل ثم تنتقل إلى الأوتوكاد فتختار نقطة البداية فينقل النص لها بعد تحويله يمكن نقل النص العربي من الورد أو الإكسيل إلى الأوتوكاد ولكن لا يعمل بطريقة صحيحة إلا ذا كان بفنطات الأوتوكاد مثل xarb فهذا البرنامج يساعدك على تحويل النص المكتوب في خلايا الإكسيل أو صفحة ورد إلى الأوتوكاد بفط xarb أو مثيله وعند استخدام البرنامج تفتح ملف أوتوكاد وتختار استيل يستخدم فنط xarb ثم تفتح ملف الإكسيل المرفق وتختار مجمعة من الخلايا بنها النص المراد نقله إلى الأوتوكاد أو نتسخ النص في المربع الموجود وتختار زر النقل ويمكن نقل نص من سطر واحد أو الخلية الحالية إلى ثم لسقها في الأوتوكاد نقل النص من إكسل او ورد إلى الأوتوكاد .xls

اسوأ شي عندي ..هو عدم تمكني ايصال المعلومة للمتلقي ..وهذا ضعف مني ..ربما لاني مهندس مدني ولست معلما على كل حال .. هذه معناه ...في الحالي ..معناها وانا واقف شغال على النموذج ...دير بالك يانموذج ...اي تعديل لا يسمح به ناتي لمربع التحرير cbof If Len(Me.cboF & vbNullString) > 0 Then معناها اذا طول الكلمات الموجودة في مربع التحرير والسرد اكبر من 0 فأعمل الاتي [Forms]![eradat]![tblExpenses_e].Form.Filter = "[flatNo] = '" & Me.cboF & "'" اجعل الحقل الموجود في النموذج الفرعي وهو حقل الشقق = الحقل الموجود في مربع التحرير والسرد وطالما اننا جعلناهم متساويان ..فيجب ان نعطي الامر بالتصفية ...وهنا يأتي الامر : [Forms]![eradat]![tblExpenses_e].Form.FilterOn = True اما اذا كان مربع التحرير فارغا ولم تكن هناك تصفية ....فيعرض كل السجلات ...ولهذا نلجأ لاستخدام [Forms]![eradat]![tblExpenses_e].Form.FilterOn = False لا اعلم ...ان كنت اوصلت الفكرة ام لا ؟

تفضل أخي . ' بمديول عام نلصق Public Function Baba(strReportName As String) DoCmd.SelectObject acReport, strReportName, True DoCmd.PrintOut acPages, 1, 1 End Function ' ثم على زر الطباعة بالفورم Private Sub CmdPrint_Click() Baba(Report_Name) End Sub

kkhalifa1960 شكرا اخي الكريم دايما سند وعون شاكر اهتمامك بجد

الموضوع شييق و متعب للعقل تفضل هذه المحاولة فقط افتح التقرير رقم 2 و سيقوم بجمع البيانات و عرضها تلقائيا baset2.zip

تفضل أساذ @moho58 ووافني بالرد . baset-1.accdb

تفضل أخي المطلوب ........كان في خطأ بالعلاقات وعدلته ... ووافني بالرد . VACATIONS-2.rar

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

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

كلام خبير .... نعم اخي السبب في العبارات المحجوزة ................ حاول تقرأ عنها لكى تتجنب التسمية بها ..... والدليل غير مسمى الكائن لديك مثلا بهذه الصورة ... تمشي معاك .. Forms![frmZetMotor].btnsave.Caption = "update" Forms![frmZetMotor].btndelete.Enabled = True Forms![frmZetMotor].btnNew.Enabled = True Forms![frmZetMotor].CodeZet = Me.CodeZet Forms![frmZetMotor].CodeSayara = Me.CodeSayara Forms![frmZetMotor].KM = Me.KM Forms![frmZetMotor].NumKM = Me.NumKM Forms![frmZetMotor].OilType = Me.OilType Forms![frmZetMotor].Cost = Me.Cost Forms![frmZetMotor].Filter1 = Me.Filter2 'Forms![frmZetMotor]!Filter = [Forms]![frmZetMotor]![subqryLastRecordZM].[Form]![Filter] Forms![frmZetMotor].DateChange = Me.DateChange Forms![frmZetMotor].DateRigster = Me.DateRigster

حتى لا نبدأ من الأول لأن الموضوع به أعمالة كثيرة لدينا عمل مثل طلبك بالضبط أقرأه وافحصه جيداً بتحصل طلبك . مشاركة مع أستاذنا @Moosak تفضل أخي عمل متكامل بكل طلباتك افحصه جيداً وجرب ووافنا بالرد . جدول أسبوعي-1.accdb

جاري العمل .

تفضل أخي أقرأه جيداً وجرب ونحن معك بأي استفسار . ووافني بالرد ... Shaker Hassan Training Institute.rar

2saad -عليك بالضغط على الإعجاب لهذه الإجابة الممتازة .وهذا هو أقل ما يقدم لمن فرج كربتك وحل مشكلتك ..وعليك أيضاً بتحديد أفضل إجابة ..وشكراً !!!!

شكرا جزيلا أخي الفاضل

كان لابد ان تبدأ مشاركتك بالتحية .. كما عليك تغيير عنوان المشاركة ليعبر عن طلبك ... فلا تنتظر المساعدة من أحد بدون رفع ملف مدعوم بشرح كافى عن المطلوب وذلك تجنباً لإهدار وقت كل من يطلع على مشاركتك دون جدوى أو أهمية ؟!!! فلا يمكن العمل على التخمين !! فعليك بالإطلاع على هذا الرابط فقد يفيدك https://www.researchgate.net/profile/Gomaa-Dawod/publication/335110972_qwad_albyanat_w_nzm_almlwmat_aljghrafyt_GIS_and_databases_in_ARABIC/links/5d514c064585153e594eeced/qwad-albyanat-w-nzm-almlwmat-aljghrafyt-GIS-and-databases-in-ARABIC.pdf

ممكن توضيح اكثر اخي الكريم

وعليكم السلام ورحمه الله وبركاته تفضل 2017-Final.xlsb

السلام عليكم كمال على طارق جزاك الله خيرا وأحسن إليك.

اسف فيه تصيح لخطأ تم تصحيحه ارجو اعتماد الملف المرفق بدلا من الاخرAnalysis MaM.xlsx

بالنسبة لسؤالك الأول بالمرفق زر للتقرير الجديد . أما بالنسبة لسؤالك الثاني وضح أي شاشة صورها . تفضل المرفق وغداً نلتقي. RapportQ-1.rar

عن طريق البحث والاستبدال تكتب في خانة البحث = وتترك خانةالاستتبدال فارغة ثم ضغط زر استبدال الكل

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

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

بارك الله

الطريقة في الفيديو لمن يحب أن يستفيد

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ..كيف يمكن جعل vlookup تبحث في عدة أعمدة بشروط مختلفة أكبر من وأصغر من أو لا يساوي افتجربة2.xls

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته نفس الملف باستخدام نصوص تجربة2.xls

اضافة ورقة اضافية .. اختر الصف والشعبة .. سوف تظهر اسماء الطلبة .. وعدد الطلبة لكل صف Copy of طلاب.xlsx

لا حاجة لادراج آلاف الأسماء (عيّنه بسيطة تكفي)لأن الماكرو ديناميكي يأخذ كل الطلاب مهما كان عددهم الكود Option Explicit Dim i Dim arr(1 To 6) Dim Ws As Worksheet Dim New_sheet As Worksheet Dim Rg As Range, Spes_Rg As Range, x% '++++++++++++++++++++++++++++++++++++ Sub ADD_Sheet() Set Ws = Sheets("KOUSHOUFAT") arr(1) = "الأوّل": arr(2) = "الثّاني" arr(3) = "الثّالث": arr(4) = "الرّابع" arr(5) = "الخامس": arr(6) = "السّادس" For i = LBound(arr) To UBound(arr) If Not Application.Evaluate("ISREF('" & _ arr(i) & "'!A1)") Then Sheets.Add(, Sheets(Sheets.Count)).Name = arr(i) End If Next End Sub '++++++++++++++++++++++++++++++++++++ Sub Get_Studiantes() Application.ScreenUpdating = False ADD_Sheet Set Rg = Ws.Range("A1").CurrentRegion i = 1 For Each New_sheet In Sheets If New_sheet.Name <> Ws.Name Then New_sheet.Range("A1").CurrentRegion.Clear Rg.AutoFilter 3, arr(i) Rg.SpecialCells(12).Copy With New_sheet.Range("A1") .PasteSpecial (8) .PasteSpecial (12) .PasteSpecial (4) End With Set Spes_Rg = New_sheet.Range("A1").CurrentRegion x = Spes_Rg.Rows.Count If x > 1 Then Spes_Rg.Cells(2, 1).Resize(x - 1).Value = _ Evaluate("row(1:" & x - 1 & ")") End If i = i + 1 End If Next With Application .CutCopyMode = False .ScreenUpdating = True End With Ws.Select Ws.AutoFilterMode = False End Sub الملف مرفق jako.xlsm

السلام عليكم ورحمة الله بمعية جدول مساعد واستعمال الدالة CONCATENATE تم عمل المطلوب في الملف المرفق... باستعمال الأكواد يمكن أن يكون العمل أفضل... بن علية حاجي HR.xlsx

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

تفضل اخي الكريم وللعلم الكود هو من احد المواقع الاجنبية Excel e whatapp.xls

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

اخواني الكرام بعد التوكل على الله ثم الاستشارة وحسب رغبة بعض الاخوة نبداء على بركة الله هذه الدورة شروط الدورة: تقتصر الدورة على شرح الفيجول بيسك للتطبيقات VBA ولا علاقة للمعادلات بهذه الدورة لذا نرجو ان يقتصر السؤال والاستفسار حول الاكواد فقط. عدم إضافة عبارة الشكر (نشكر الجميع على تقدير الجهود) حتى لا يحتاج الموضوع الى تنقيح فإن أعجبك شرح أو رد يمكنك تقييمه من خيار أعجبني شكراً. ان يكون موعد الاستفسارات حول الجزء المطروح للشرح خلال 24 ساعة فقط ويتم الانتقال الى جزء أخر لتعميم الفائدة. سيكون الشرح بشقين كتابي ومرئي. على الاساتذة الذين يشاركون في الشرح اخذ الشرط الثالث بالاعتبار (مشكورين). * سيتم حذف أي مشاركة لا يتم التقيد فيها بالشروط. == تم نقل جميع مشاركات النقاش الى هنا =============================== دروس الدورة ============================= الدرس الاول1 الدرس الاول2 الدرس الثاني الدرس الثالث الدرس الرابع 1 الدرس الرابع 2 الدرس الرابع 3 اساسيات لغة VBA كلغة برمجة (نظري) الفصل الثالث ج1 الفصل الثالث ج2 اسئلة الدورة (الجزء الاول)

بسم الله، إذا كان لديك ورقة عمل فيها معلومات حساسة، كالعنواين، وأرقام الهاتف، والأعمار، والمعلومات الطبية، فإنه ينبغي ألا يقرأها أي شخص غير مصرح له. والسبيل إلى ذلك هو "التشفير". المرفق التالي يحتوي على دالة تشفير/فك تفشير إسمها XorC ، وهي للأمانة العلمية ليست من تصميمي، لكنها دالة مفتوحة قمتُ بإجراء تعديلات طفيفة جدا عليها وأضفتها داخل وحدة برمجية Module مستخدماً إسمها الأصلي، وطبقت عليها جدولاً بسيطاً مؤلفاً من بضعة أسماء وعنواين وأرقام اتصال. الدالة تأخذ الشكل العام التالي XorC (String, Key) حيث String : النص المطلوب تشفيره، وَ Key : مفتاح التشيفر. وكي ترى مثالاً سريعاً على الدالة وكيفية عملها، قم بطباعة التالي داخل إحدى الخلايا الفارغة في ملف إكسيل المرفق XorC("Officena.net", "1234567890") حيث مفتاح التشفير يأخذ أي قيمة تريدها أنت، وهو يعمل بمثابة كلمة مرور للنص المشفر، وكلما كان أطول كان أفضل في قوة التشفير. ولفك التشفير، أعد طباعة النص المشفر داخل الدالة مستخدماً نفس المفتاح XorC("xxxUV^WTZZ_UG", "1234567890") وفق الله الجميع، عبدالله،،، Encrypted Text v01.rar

السلام عليكم، إستكمالاً للموضوعين الخاصين بالتشفير وحماية كلمات المرور على ورقات إكسيل http://www.officena....showtopic=57624 في كتاب العمل المرفق، هناك ورقتا عمل، أحدهما للوحة تحكم مبسطة جدا بالمستخدمين ومعلوماتهم، وورقة أخرى تُحاكي واجهة دخول المستخدم. تدور فكرة التطبيق على الكيفية التي يتم بها تقييد كلمة المرور على ورقة العمل Control Panel . جرب أن تُسجل مستخدما خاصاً بك وضع كلمة مرور واختر Admin ، سوف ترى أن كلمة المرور يتم تشفيرها بتقنية SHA-1 وتقييدها على قائمة المستخدمين بالطريقة التي نُسميها مجازاً "مفرومة" Hashed ، أو بالعامية "مفشفشة". لا يمكن إستعادتها "نظرياً" إلى كلمة المرور الأصلية. على ورقة Control Panel ، هناك ثلاثة مستخدمين وأمام كل مستخدم كلمة مرور خاصة به، وكل ما تراه أنت ليس إلا حروفاً وأرقاماً عشوائية، ولن تستطيع الحصول على كلمة المرور الأصلية، كما هو موضح في الصورة التالية: والسؤال، إذا لم نعرف كلمة المرور، كيف أمكننا توثيق المستخدم في ورقة العمل Logon ؟ والإجابة، وفق الخوارزمية البسيطة التالية: 1. يقوم المستخدم بإدخال رمز المستخدم وكلمة المرور 2. يقوم إكسيل بتطبيق دالة التشفير على كلمة المرور التي أدخلها المستخدم، ويحصل على "الفرمة" أو الهاش، وهي مجموعة الأرقام والحروف العشوائية التي نتجت بعد التشفير. 3. يُقارن إكسيل الهاش الذي حصل عليه من المستخدم مع الهاش الموجود في قائمة المستخدمين، فإذا حصل تطابق تم توثيق العميل، وإلا فسوف يواجه رسالة خطأ تفيده بعدم التوثيق. طويلة أو معقدة بعض الشيء؟ ربما. لكنها الطريقة التي توثق بها جميع نُظُم التشغيل Windows, Linux, Mac المستخدمين عبر رمز المستخدم وكلمة المرور. أنظمة التشغيل لا تحتفظ بكلمات المرور في صيغتها الأصلية. إذا قابلتك أخي الكريم مشكلة في فهم أو تتبع المنطق في أي جزئية في الملف المُرفق، فلا تتردد في وضع سؤالك هنا وسوف أبذل قصارى جهدي في الإجابة عليه حسب المُتاح من الوقت. جُمعة مباركة، ويومٌ سعيد، عبدالله،،، SHA1 with Control Panel.rar

الاستاذ الفاضل كيماس حفظه الله ماشاء الله دالة رائعة الاستاذ الفاضل هشام حفظه الله ملاحظة مهمة تشكر على لفت الانتباه لها المرفق فيه دالة VLOOKUP تعمل بالعكس وهي من لمسات ملك المعادلات الاستاذ يحيى حسين حفظه الله ولا تتاثر بالترتيب الابجدي وانا كنت قد طرحت هذا الموضوع في السابق على الرابط ادناه http://www.officena.net/ib/index.php?showtopic=35061 عكس اتجاه دالة vlookup.rar

الأخ أندر تيكر لو كنت تقصد الإرتباط التشعبى عن طريق عمل لينك بين كلمة فى الملف وبين ملف آخر فالطريقة سهلة كالتالى 1. فى الوورد حدد الكلمة التى سنضغط عليها لفتح المرفق 2. كليك يمين عليها 3. إختار إرتباط تشعبى 4. تصفح البراوزر حتى تصل للمرفق المراد إرفاقه ثم إختاره فى الإيكسيل كليك يمين فى الخلية وكمل مثل الوورد كما سبق ملحوظة هامة لو كنت ستقوم بنقل الملف من جهاز لجهاز فلابد من وضع المرفق مع الملف فى نفس المجلد ونقل المجلد كاملاً بالمرفقات بعد ذلك ستختلف طريقة الفتح فى الإيكسيل عن الوورد 1. فى الإيكسيل يكفى كليك شمال على الكلمة لفتح المرفق 2. فى الوورد لابد من ضغط كنترول مع الكليك شمال لفتح المرفق وسنلاحظ تحول سهم الماوس إلى يد إشارة الملف المرفق به مثال إرفاق مرفق داخل ملف.rar