اذهب الي المحتوي
أوفيسنا

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

  1. محمد طاهر عرفه

    محمد طاهر عرفه

    إدارة الموقع


    • نقاط

      5

    • Posts

      8,486


  2. ابو جودي

    ابو جودي

    أوفيسنا


    • نقاط

      4

    • Posts

      6,503


  3. بن علية حاجي

    بن علية حاجي

    الخبراء


    • نقاط

      2

    • Posts

      4,330


  4. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      2

    • Posts

      8,723


Popular Content

Showing content with the highest reputation on 03 يون, 2019 in all areas

  1. جرب هذا الكود Sub give_data() Application.ScreenUpdating = False Dim x As Byte x = Application.CountA(Sheets("SAISIE").Range("B1:B6")) If x < 6 Then MsgBox "Incomplete Data" & Chr(10) & _ "You have Only " & x & " Values": GoTo Exit_sub Sheets("SAISIE").Range("B1:B6").Copy Sheets("DATA").Range("A" & Rows.Count).End(3).Offset(1) _ .PasteSpecial Paste:=xlPasteAll, Transpose:=True Sheets("SAISIE").Range("B1:B6").ClearContents Exit_sub: Application.ScreenUpdating = True End Sub الملف مرفق COPY-VBA.xlsm
    2 points
  2. شرح كيفية عمل فورم من خلال دخول ارقام فى خانة المرتب وعدم زيادة تاريخ العام الجذء الرابع الفيديو الصور شرح كيفية عمل فورم من خلال دخول ارقام فى خانة المرتب وعدم زيادة تاريخ العام الجذء الرابع.rar
    1 point
  3. كود رائع أستاذ سليم بارك الله فيك وزادك الله من فضله
    1 point
  4. الف شكر يا أستاذنا الكبير محمد بك حفظه الله بنسخ كود سيادتكم ظلت المشكلة كما هى لكن بالبحث فى الكود و عمله إكتشفت أن التعديل الذى قمت به و تسبب فى وقف الكود كان ينبغى أن أكرر التعديل فى رؤوس أعمدة الهدف كما غيرته فى رؤوس أعمدة المصدر حيث أن الكود يقوم بعمل فلترة للبيانات وبتغيير رؤوس الأعمدة فى المصدر دون الهدق لا تتم عملية الفلترة كما يجب الف شكر تم حل المشكلةالاولى المشكلة حاليا فى صفحة واحدة ساقوم برفعها مستقلة و احتاج فيها عدة معادلات سأوضحها فى الملف المرفوع
    1 point
  5. شكرا الاستاذ سليم العمل منجز كما ينبغي حفظكم الله
    1 point
  6. اعتقد بإضافة الخاصية المطلوبة لاختيار أفضل اجابة لم يعد هناك ما يستدعي التقسيم . تسهيلا للمتابعة و البحث
    1 point
  7. السلام عليكم أعد نسخ ولصق المعادلة من جديد لأني لم أجد فيها أي خلل... =IF(B3="";"";IF(OR(MID(H3;1;4)="قرار";MID(H3;1;10)="عدم اختصاص";MID(H3;1;5)="تدافع";TODAY()-B3=0);"صدرت";IF(TODAY()-B3>=10;"لم تصدر";TODAY()-B3))) أو أرفق الملف الذي تعمل عليه كما اقترح عليك أخي الكريم "أحمد يوسف".... بن علية حاجي
    1 point
  8. اتفضل يا استاذ @الشربيني123 555(3).accdb
    1 point
  9. اخي الفاضل لم اجد فارق بين الاصدارين يستحق الانتقال للنسخة الاحدث
    1 point
  10. اخى الحبيب نحن كلنا فى هذا المنتدى نكمل بعضنا البعض وشكر على كلماتك الطيبة وكا عام وانتم بخير
    1 point
  11. تفضل التعديل اخي الكريم نظرا لكبر حجم القاعدة فقط تم تحميل الملف على سيرفر خارجي اضغط هنا للتحميل
    1 point
  12. عزيزى الاستاذ محمد طاهر كل سنة وحضرتك بخير اللى شايفه صح اعملة انا بتابع القسمين كل مافتح لكن للاسف الاقبال على البوربوينت عموما ضعيف وده سبب انى بدأت اعمل شغل على الاكسل عموما فى مواضيع جديدة حبتدى بيها بعد العيد ان شاء الله
    1 point
  13. طيب بس الاول كده تمام باقى العدد بس يعنى
    1 point
  14. دون الدخول فى تفاصيل الملف حيث لم استطع تحميله ، جاولت تعديل الكود ببحسب ما فهمت ، انه يقوم بفلترة و بترحيل من مجال 1 الي مجال 2 بعد فك الحماية اذا لم تسر الامور كما تريد اقترح ارفاق ملف الاكسيل دون ضغط و ووضع شرح مبسط لما يفترض ان يقوم به الكود ليستطيع الاخوة التفاعل بسهولة Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Dim Range0, Range1, Range2 As Range Set Range0 = Range("A1:gg20000") Set Range1 = Range("A1:B2") Set Range2 = Range("C1:D2") If MsgBox("هل تريد الترحيل حسب الشروط", vbYesNo, "تنبيه") = vbYes Then Range0.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range1, CopyToRange:=Range2 MsgBox "تم الترحيل بنجاح ", vbOKOnly, "تنبيه" End If Set Range0 = Nothing Set Range1 = Nothing Set Range2 = Nothing ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub
    1 point
  15. السلام عليكم ورحمة الله ربما هذه المعادلة (بتحفظ): =IF(B3="";"";IF(OR(MID(H3;1;4)="قرار";MID(H3;1;10)="عدم اختصاص";MID(H3;1;5)="تدافع";TODAY()-B3=0);"صدرت";IF(TODAY()-B3>=10;"لم تصدر";TODAY()-B3))) بن علية حاجي
    1 point
  16. يعجز لسانى عن إيجاد عبارات الأمتنان والشكر والتقدير لمجهوداتكم الرائعة وجزاكم الله عنا كل خير وكل عام وأنتم بخير بمناسبة عيد الفطر المبارك أعادة الله عليكم وعلينا وعلى الأمة الإسلامية بالخير واليمن والبركات
    1 point
  17. الملف الاخير به مشكلة في الضغط يمكتك رفع ملف الاكسيل مباشرة دون ضغط
    1 point
  18. كما في الكود الذي ارفقه الاستاذ علي .... واتبع مايلي: 1- ضع هذا الكود في module Option Explicit Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _ ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, _ ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long Private Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" _ (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, _ ByVal lpClassName As String, _ ByVal nMaxCount As Long) As Long Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long Private Const EM_SETPASSWORDCHAR = &HCC Private Const WH_CBT = 5 Private Const HCBT_ACTIVATE = 5 Private Const HC_ACTION = 0 Private hHook As Long Public Function NewProc(ByVal lngCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim RetVal Dim strClassName As String, lngBuffer As Long If lngCode < HC_ACTION Then NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam) Exit Function End If strClassName = String$(256, " ") lngBuffer = 255 If lngCode = HCBT_ACTIVATE Then RetVal = GetClassName(wParam, strClassName, lngBuffer) If Left$(strClassName, RetVal) = "#32770" Then SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), &H0 End If End If CallNextHookEx hHook, lngCode, wParam, lParam End Function Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _ Optional YPos, Optional HelpFile, Optional Context) As String Dim lngModHwnd As Long, lngThreadID As Long lngThreadID = GetCurrentThreadId lngModHwnd = GetModuleHandle(vbNullString) hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID) InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context) UnhookWindowsHookEx hHook End Function 2- ضع هذا الكود في حدث الورقة sheet1 بدل الكود الذي ارفقته "Password:"123123 Private Sub CommandButton1_Click() Dim strAdminPWord As String strAdminPWord = InputBoxDK("Password required to proceed.", "Enter Licence Code") If strAdminPWord = "123123" Then MsgBox "كلمة المرور صحيحة ", vbOKOnly, "success" Else MsgBox ("كلمة المرور خاطئة حاول مرة اخرى") ' Exit Sub End If End Sub
    1 point
  19. السلام عليكم ارجو تجربة المرفق وقد تم مراعاة معظم المشاكل لكن عليكي بان يكون القسم المدرج تحته البيانات مطابقا للعمل للتوضيح يجب ان يكون العمل مادة القرآن الكريم وليس القران تحت قسم مادة القرآن الكريم وقد تم عمل الملف بطريقة يسهل تعاملك معه بالرغم من انه استغرق 3 ايام لفكرة صغيرة وهي كيفية التعرف علي الاقسام والصف الاخير في كل قسم اخيرا بنفس طريقة عملك لهذا الملف صممي الملف الذي سيتم عليه عملك الفعلي والصقي نسحة فارغة من البيانات وليس من الاقسام في شيت Source فهو الشيت الذي يعتمد عليه لعمل نسخة لكل مدرسة ارجو انني قد فهمت المطلوب ونفذ بالطريقة الصحيحة ولو فيه اي استفسار انا منتظر للرد عليه تحياتي حافظة الدوام أوفيسنا.rar
    1 point
  20. تم تحميل الإضافة برجاء التجربة 😆
    1 point
  21. السلام عليكم ورحمة الله و بركاته اخواني اسرة اوفيسنا المحترمين هذا برنامج صغير من عملي وهو لحساب الجمل الصغير و الكبير وهذه نبذة مختصرة عن هذا العلم لمن لا يعرفه كان حساب الجمل مستعملا قبل استعمال نظام الترقيم الحالي -الهندي الأصل- كما استعمله السريان والعبرانيون، مع أن عدد حروفهم أقل. واستعمله الشعراء في تأريخ بعض الأحداث، بنظم أبيات في موضوع الحدث، ثم صوغ جملة يبلغ مجموع حروفها سنة وقوع الحدث، وتميز هذه الجملة عن غيرها من سياق الأبيات بأنها ترد بعد ذكر التاريخ، بقوله: أرخ، أو: أرخته، أو: أرخوا، وسوى ذلك. وهذه امثلة على بعض هذه الاحداث و ما قيل فيها: في سيل أصاب مكة وارتفع ذراعا فوق الركن اليماني: يا سائلي تاريخ سيل طمى علا على الركن اليماني (ذراع) 971 في تاريخ تولي السلطان مراد (الثالث) العثماني: بالبخت فوق التخت أصبح جالسا ملك به رحم الإله عباده وبه سرير الملك سر فأرخو (حاز الزمان من السرور مراده) 982 في تاريخ وفاة شخص: أبكى المساجد والجوامع فقد من قد كان سمت عوارف التمكين وكذا المدارس أظلمت لما أتى تـاريخـه (بخفـاء بدر الدين) 984 في وفاة آخر: لما لدار التقى مفتي الأنام مضى فالعين تبكي دما من خشية الله لفقد مولى خطيب الشام سيدنا من لم يزل قائما في نصرة الله وفاته قد أتت فيمـا أؤرخه (البهنسي عليـه رحمـة الله) 986 وقيل في عرس احدهم ، وعلى القارئ حساب التاريخ: هنئتـم بعرســكم والســعد قد خولكم وقـد أتى تاريخه (نساؤكم حرث لكم) ووجد على قبر امرأة: فإن كان هذا الرمس أضحى مؤرخا (فجنة عدن والنعيم مقامها) أرجو أن تكتشفوا تاريخ موتها رحمها الله. وهناك استخدامات اخرى كيفية استخدام الرموز في الشعر: 1- التعبير اللفظي :- عندما يريد الشاعر أن يعبر عن احدى الكلمات التي لا يريد الافصاح عنها مباشرة فانه يختار الأرقام التي تقابل كل حرف من حروف الكلمه ويذكرها في القصيده مثال ذلك يريد الشاعر أن يعبر عن أسم محبوبته وأسمها ( هند) فيختار ( 5/هـ ) (50/ن ) ( 4/ د ) وهي خمسة وخمسون وأربعه تعبر عن الأسم المقصود وهو هند . - التعبير عن كلمه لا يراد إظهارها حياءاً ( نـهد) فيختار (50/ن) (5/هـ) ( 4/د) . تظهر الارقام مكتوبه بالحروف وليس عدديا ونلاحظ أن بعض الشعراء وخاصة في شعر المحاوره يتطرق لموضوع واضح للمستمع من خلال القصيدة ولكنه يقصد شي آخر كأن يتكلم عن الغزل ومحبوبته.. مثال ذلك قول شاعر قديم في محاورة كان يفهم منها أنها تعني المحبوبه ويقول : أسمه ميه مع ثلاثين وخمس عد معدود غصن من الموز ماخوته الهيايب والسمومي نلاحظ أنه اختار ( 100/ق) (30/ل) (5/هـ) فبترتيب الكلمات كما هي فهو يقصد قله ( وهي قلة التمر ) وليس إمرأه . مع ملاحظة أنه في هذا النوع من الرمز ليس بالضرورة أن تكون الأحرف مرتبة ولكن لا بد أن الأحرف التي يتم تحديدها تؤدي الى جمله مفيده أو كلمه لها معنى. 2- التعبير الرقمي :- وهو استخدام معكوس الأبجدي ( حساب الجمل ) بمعنى أن الشاعر عندما يريد أن يعبر عن تاريخ معين لحادثة ما أو رقم لأي غرض فهو يقوم باستخدام كما في الجدول السابق فيأخذ الحرف المقابل للرقم وهكذا مثال نفترض أنه يريد التعبير عن الرقم 156 فيأخذ (100/ق) (6/و) (50/ن) فيكـون عندنا اللفظ ( قون ) وهو ما يكتب في القصيده ويعبر عن الرقم 156 ( نلاحظ أن الاختيار يعتمد على التسلسل اللفظي وليس التسلسل الكتابي ) . مثال أخر عندما يريد الشاعر أن يعبر عن عام 1413 فيختار الأحرف (1000/غ) (400/ت) (3/ج) (10/ي) فيكون اللفظ الذي يظهر في القصيده ( ختجي ) وهو يدل على عام 1413 . و السلام عليكم تقبلو تحياتي __________.rar
    1 point
  22. تحيه لكم جميعا اعضاء وزوار الممنتدى لا اخفي اني تقدم في الاكسس من خلال هذا المنتدى الرائع وبجهودي الذاتيه ولكن اود ان اعبر عن استيائي للطريقه التي يتم في تدوال المعلومه حيث تعتبر المعلومه في اغلب الاحيان سر خفيا وشي مبهم حيث يتم في كثير من الاحيان الاستجابه للتساولات المطروحه ولكن تكون الاجابه مبهم وبحاجه الى حل عذرا على الاطاله ولكني اتمنى عليكم جميعا اداره واعضاء تعميم الفائده للجميع كي تعم المعرفه وذلك من خلال شرح المثال بشكل واضح ومن ثم ادراج مثال تطبيقي حيث يتم ادراج مثال تطبيقي مغلق نرى منه النتيجه وليس الطريقه للوصول الى النتيجه والله من وراء القصد
    1 point
×
×
  • اضف...

Important Information