اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


Popular Content

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

  1. 2 points
    جرب هذا الكود 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. 1 point
    شرح كيفية عمل فورم من خلال دخول ارقام فى خانة المرتب وعدم زيادة تاريخ العام الجذء الرابع الفيديو الصور شرح كيفية عمل فورم من خلال دخول ارقام فى خانة المرتب وعدم زيادة تاريخ العام الجذء الرابع.rar
  3. 1 point
    كود رائع أستاذ سليم بارك الله فيك وزادك الله من فضله
  4. 1 point
    الف شكر يا أستاذنا الكبير محمد بك حفظه الله بنسخ كود سيادتكم ظلت المشكلة كما هى لكن بالبحث فى الكود و عمله إكتشفت أن التعديل الذى قمت به و تسبب فى وقف الكود كان ينبغى أن أكرر التعديل فى رؤوس أعمدة الهدف كما غيرته فى رؤوس أعمدة المصدر حيث أن الكود يقوم بعمل فلترة للبيانات وبتغيير رؤوس الأعمدة فى المصدر دون الهدق لا تتم عملية الفلترة كما يجب الف شكر تم حل المشكلةالاولى المشكلة حاليا فى صفحة واحدة ساقوم برفعها مستقلة و احتاج فيها عدة معادلات سأوضحها فى الملف المرفوع
  5. 1 point
    شكرا الاستاذ سليم العمل منجز كما ينبغي حفظكم الله
  6. 1 point
    اعتقد بإضافة الخاصية المطلوبة لاختيار أفضل اجابة لم يعد هناك ما يستدعي التقسيم . تسهيلا للمتابعة و البحث
  7. 1 point
    السلام عليكم أعد نسخ ولصق المعادلة من جديد لأني لم أجد فيها أي خلل... =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))) أو أرفق الملف الذي تعمل عليه كما اقترح عليك أخي الكريم "أحمد يوسف".... بن علية حاجي
  8. 1 point
  9. 1 point
  10. 1 point
    اخي الفاضل لم اجد فارق بين الاصدارين يستحق الانتقال للنسخة الاحدث
  11. 1 point
    اخى الحبيب نحن كلنا فى هذا المنتدى نكمل بعضنا البعض وشكر على كلماتك الطيبة وكا عام وانتم بخير
  12. 1 point
    تفضل التعديل اخي الكريم نظرا لكبر حجم القاعدة فقط تم تحميل الملف على سيرفر خارجي اضغط هنا للتحميل
  13. 1 point
    عزيزى الاستاذ محمد طاهر كل سنة وحضرتك بخير اللى شايفه صح اعملة انا بتابع القسمين كل مافتح لكن للاسف الاقبال على البوربوينت عموما ضعيف وده سبب انى بدأت اعمل شغل على الاكسل عموما فى مواضيع جديدة حبتدى بيها بعد العيد ان شاء الله
  14. 1 point
    طيب بس الاول كده تمام باقى العدد بس يعنى
  15. 1 point
  16. 1 point
    دون الدخول فى تفاصيل الملف حيث لم استطع تحميله ، جاولت تعديل الكود ببحسب ما فهمت ، انه يقوم بفلترة و بترحيل من مجال 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
  17. 1 point
    السلام عليكم ورحمة الله ربما هذه المعادلة (بتحفظ): =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))) بن علية حاجي
  18. 1 point
    يعجز لسانى عن إيجاد عبارات الأمتنان والشكر والتقدير لمجهوداتكم الرائعة وجزاكم الله عنا كل خير وكل عام وأنتم بخير بمناسبة عيد الفطر المبارك أعادة الله عليكم وعلينا وعلى الأمة الإسلامية بالخير واليمن والبركات
  19. 1 point
    الملف الاخير به مشكلة في الضغط يمكتك رفع ملف الاكسيل مباشرة دون ضغط
  20. 1 point
    كما في الكود الذي ارفقه الاستاذ علي .... واتبع مايلي: 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
  21. 1 point
    السلام عليكم ارجو تجربة المرفق وقد تم مراعاة معظم المشاكل لكن عليكي بان يكون القسم المدرج تحته البيانات مطابقا للعمل للتوضيح يجب ان يكون العمل مادة القرآن الكريم وليس القران تحت قسم مادة القرآن الكريم وقد تم عمل الملف بطريقة يسهل تعاملك معه بالرغم من انه استغرق 3 ايام لفكرة صغيرة وهي كيفية التعرف علي الاقسام والصف الاخير في كل قسم اخيرا بنفس طريقة عملك لهذا الملف صممي الملف الذي سيتم عليه عملك الفعلي والصقي نسحة فارغة من البيانات وليس من الاقسام في شيت Source فهو الشيت الذي يعتمد عليه لعمل نسخة لكل مدرسة ارجو انني قد فهمت المطلوب ونفذ بالطريقة الصحيحة ولو فيه اي استفسار انا منتظر للرد عليه تحياتي حافظة الدوام أوفيسنا.rar
  22. 1 point
    تم تحميل الإضافة برجاء التجربة 😆
  23. 1 point
  24. 1 point
    السلام عليكم ورحمة الله و بركاته اخواني اسرة اوفيسنا المحترمين هذا برنامج صغير من عملي وهو لحساب الجمل الصغير و الكبير وهذه نبذة مختصرة عن هذا العلم لمن لا يعرفه كان حساب الجمل مستعملا قبل استعمال نظام الترقيم الحالي -الهندي الأصل- كما استعمله السريان والعبرانيون، مع أن عدد حروفهم أقل. واستعمله الشعراء في تأريخ بعض الأحداث، بنظم أبيات في موضوع الحدث، ثم صوغ جملة يبلغ مجموع حروفها سنة وقوع الحدث، وتميز هذه الجملة عن غيرها من سياق الأبيات بأنها ترد بعد ذكر التاريخ، بقوله: أرخ، أو: أرخته، أو: أرخوا، وسوى ذلك. وهذه امثلة على بعض هذه الاحداث و ما قيل فيها: في سيل أصاب مكة وارتفع ذراعا فوق الركن اليماني: يا سائلي تاريخ سيل طمى علا على الركن اليماني (ذراع) 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
  25. 1 point
    تحيه لكم جميعا اعضاء وزوار الممنتدى لا اخفي اني تقدم في الاكسس من خلال هذا المنتدى الرائع وبجهودي الذاتيه ولكن اود ان اعبر عن استيائي للطريقه التي يتم في تدوال المعلومه حيث تعتبر المعلومه في اغلب الاحيان سر خفيا وشي مبهم حيث يتم في كثير من الاحيان الاستجابه للتساولات المطروحه ولكن تكون الاجابه مبهم وبحاجه الى حل عذرا على الاطاله ولكني اتمنى عليكم جميعا اداره واعضاء تعميم الفائده للجميع كي تعم المعرفه وذلك من خلال شرح المثال بشكل واضح ومن ثم ادراج مثال تطبيقي حيث يتم ادراج مثال تطبيقي مغلق نرى منه النتيجه وليس الطريقه للوصول الى النتيجه والله من وراء القصد


×
×
  • اضف...