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

جرب الكود التالى حدد النطاق المراد تصويره ثم الخلية لوضع الصوره بجوارها Option Explicit Sub paste_Picture() Dim UserRange As Range, OutputRange As Range Dim MyPrompt As String, MyTitle As String MyPrompt = "Select the range you would like to capture." MyTitle = "User Input Required" On Error Resume Next Set UserRange = Application.InputBox(Prompt:=MyPrompt, Title:=MyTitle, Default:=ActiveCell.Address, Type:=8) If UserRange Is Nothing Then End On Error GoTo 0 UserRange.CopyPicture MyPrompt = "Select the range on which you would like to paste." MyTitle = "User Input Required" On Error Resume Next Set OutputRange = Application.InputBox(Prompt:=MyPrompt, Title:=MyTitle, Default:=ActiveCell.Address, Type:=8) If OutputRange Is Nothing Then End On Error GoTo 0 OutputRange.PasteSpecial Selection.Formula = UserRange.Address End Sub

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. بعد أن نال الملف القاتل إعجاب الكثيرين على هذا الرابط الملف القاتل (ملف يحوي كود لحذف أي ملف تحدده) ، فقد قررت أن تمتد سلسلة القتل (ليكون القتل بشكل جماعي) .. القاتل أصبح سفاح ..!! الملف المرفق ، تقوم بتحديد اسم المجلد داخل الكود ، ويكون المجلد في نفس مسار المصنف ، وبالطبع يمكن تحديد أي مجلد في أي مسار بشرط كتابة اسم المسار الصحيح ، حتى يصل السفاح للمجلد ، ويقوم بعملية الاغتيال الجماعية .. أي حذف كل الملفات الموجودة داخل المجلد ..بصرف النظر عن امتدادات الملف .. أكيد فيه ناس دلوقتي بتقول عليا إني بميل للعنف .. !! ربنا يكفينا شر القتلة والسفاحين تقبلوا تحيات أخوكم أبو البراء Delete All Files In A Folder.rar

بسم الله الرحمن الرحيم السلام عليكم و رحمة الله الخميس‏ 4‏/7‏/1433هـ الموافق ‏24‏/5‏/2012م متابعة المواعيد المهمة وما تم تنفيذة مع البحث و تسجيل ارقام الهواتف و الإيميلات مع امكانية البحث عن أي معلومة به المميزات يجب تمكين وحدات الماكرو اولا 1- المواعيد استخدام التاريخين الهجري و الميلادي معا في عمود التاريخ يتم التريب و الفرز حسب التاريخ تلقائيا عند الدخول اضافة صفوف جديدة مع دوالها تلقائيا عند الحاجة تلوين القديم باللون الزهري تلوين المواعيد الحالية بلأخضر الفاتح تلوين المواعيد البعيدة وهي بعد 7 ايام من تاريخ اليوم او اكثر باللون الأصفر تسجيل كلمة منتهي امام كل موعد تم انجازة ليتم اخفائة من القائمة رسالة تحذيرية للتاريخ قبل تاريخ اليوم او بعد سنة من تاريخ اليوم امكانية البحث عن أي معلومة قديمة او جديدة - بحث سريع بجزء من أي كلمة 2- الهاتف يتم الترتيب او الفرز حسب اسماء العملاء اضافة صفوف جديدة مع دوالها تلقائيا عند الحاجة امكانية البحث عن أي جزء من اسم او رقم او بريد الكتروني - بحث سريع تلوين نتائج البحث باللون الأصفر التنقل استخدم زر صورة الهاتف او صورة التقويم اعلى يمين الشاشة للتنقل كلمة المرور لحماية الأوراق ="0" كلمة المرور لحماية محرر الفيجوال بيزك ="0" آمل ان يكون به الفائدة للجميع السكرتيرالخاصv2012.rar

1- حساب السن عند الوفاة ، 2 - وحساب مدة الوفاة حتي الآن بدون ظهور رسالة خطأ أو الخروج من الفورم في حالة ترك خانة تاريخ الوفاة خالية 3- إظهار الحالة الدراسية للأبناء لو أكبر من أو يساوي 5 سنوات وإخفائها لو أقل من 5 سنوات 4- إظهار الحالة الإجتماعية للأبناء لو أكبر من أو يساوي 15 سنوات وإخفائها لو أقل من 15 سنوات 5- إدراج صورة بمجرد الضغط علي مكانها يفتح Browser في MyComputer حساب السن عند الوفاة ومدة الوفاة.rar

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

اضف كلمة value Private Sub Combo2_AfterUpdate() Dim i As Integer Dim Num1 As Variant Num1 = Array(2, 6, 8, 25, 28, 62) For i = 0 To 5 If Me.Combo2.Value = Num1(i).Value Then MsgBox Combo2.Value: Exit Sub Else MsgBox ("لا يوجد هذا الرقم") End If Next End Sub اخي الكريم هل جربت الكود لاني فتح قاعدة البيانات مرة أخرى لم يعمل معي متأسف على الخطأ وان شاء الله نتوصل للحل بمساعدة أعضاء المنتدى الكرام

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

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

اخي ابو جمانة بدرت لي ملاحظة : لاحظ ان الاستعلام لديك يقوم على التجميع على اساس اسم العميل والمحل ! بينما انا وضعت الحل على اساس العميل وهو طلبك ! فهل ياترى انت على علم بان اخر تاريخ للفاتورة هو للعميل بغض النظر عن المحل ؟ ولتعلم بان عمليات الجمع لديك هي على اساس العميل والمحل معا ! بمعنى لو تكرر العميل لمحل اخر سيكون هناك مجموعين للدفعات وللفواتير .. الخ ! بينما هناك تاريخ واحد فقط الذي يمثل اخر فاتورة وطبعا سيتكرر نفسه عند تكرر العميل لمحل اخر ! بالتوفيق

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

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

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

جرب هذا الملف قائيمة منسدلة اخفاء عمودsalim.zip

مشكورين يااساتذة الاكسيل

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

بعد القراءة مرارا انصحك بان يكون هناك عمود ترقيم تلقائي في الجدول وهو يساعد كثيرا في مثل هذه الحالات ! وهذه محاولة حسب فهمي . طبقها في استعلام (الصقها) : Expr1: DMax("[التاريخ]";"الحركات";"[الفواتير] is not null and [اسم العميل]='" & [اسم العميل] & "'") بالتوفيق

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

عزيزنا ابا جمانة ردودك بها توتر ولم نتعوده منك .. تعودنا منك سعة الصدر وثق تماما ان استفساراتي هي لحاجة في نفس يعقوب ! هذه اول مداخله لي معك ابا جمانه ! في الصوره الاولى يظهر سجل واحد فقط ! بينما لم اجده في الاستعلام الاول في المرفق الاول ! اريد منك ان تعطيني سجلا واحدا يمثل المطلوب لعميل واحد ! وكمثال للمطلوب ! ولا اخفيك انني مررت هنا وجعلني اتساأل مالفرق بين اخر معاملة واخر فاتورة ؟ والجدول واحد وهو الحركات ! كما انه لدي استفسار : لو تم ادخال فاتورة في اخر الجدول لعميل ما ولكن بتاريخ قديم هل هي في نظرك اخر فاتورة ام اخر حركة ام تاخذ الترتيب حسب تاريخها ؟ بالتوفيق

مع اختيار first - last - max-min في عمود الرقم يمكن الاستفادة من فكرة التجميع ! بالتوفيق

تفضل شغل الكود و اختر ملف الورد ( قائمة بالاسعار ) ثم اضغط open تحياتى قائمة بالاسعار مختار.rar

السلام عليكم شكرا للاساذ عبدالرحمن وهذا حل آخر يمكنك فعل ذلك اذا جعلت الحقل في مصدر القائمة والذي هو الاستعلام : تجميعي ( Group by) ولكن لاحظ انه يجب ازالة حقل الترقيم والا لن تستفيد من التجميع

نعم هي ما ذكرت تفضل : كود اللغة في الكمبيوتر.rar

اولا اضبط لغة الكتابة في خصائص مربع النص = النظام ثم الصق هذه الجمل داخل محرر النموذج باعتبار combo هو مربع التحرير ورقم واحد هو قيمة المربع ويمثل اللغة الانجليزية و 2 يمثل اللغة العربية Option Compare Database Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long Private Sub combo_AfterUpdate() If combo.Value = 1 Then Call LoadKeyboardLayout("00000409", 1) ElseIf combo.Value = 2 Then Call LoadKeyboardLayout("00000401", 1) End If End Sub لا حظ انه يمكنك اضافة العديد من اللغات

أخي الكريم في الحقيقة، عالم كتابة وحدات الماكرو شاسع للغاية، والإنترنت مليء بالمواقع التي تعلّم VBA وكتابة الماكرو. كذلك توجد كتب متخصصة كثيرة حول هذا الموضوع. جرّبت في الماضي تعلّم VBA ولكن وجدت نفسي أنسى ما أتعلمه لعدم استعمالي إياه مطلقا. فعملي لا يتطلب مني تعلمه، وبرنامج الوورد هو هواية عندي فحسب. لكي أجد ما تطلبه، اكتفيت بالبحث في غوغل عن: toggle show text boundaries word vba وإذا به يعطيني الجواب في أول نتيجة بحث على هذه الصفحة: https://msdn.microsoft.com/en-us/library/office/ff604039(v=office.14).aspx وهي تتضمن طريقتين لكتابة هذا الماكرو: Sub ToggleTextBoundaries1() ActiveDocument.ActiveWindow.View.ShowTextBoundaries = Not ActiveDocument.ActiveWindow.View.ShowTextBoundaries End Sub Sub ToggleTextBoundaries2() With ActiveDocument.ActiveWindow.View .ShowTextBoundaries = Not .ShowTextBoundaries End With End Sub يمكنك استخدام أيّ ماكرو من الاثنين لإظهار حدود النص إن لم تكن ظاهرة، ولإخفاء حدود النص (بالماكرو نفسه) إن كانت ظاهرة.

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

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

مشكور ربنا يحفظك على سرعة التجاوب والحلول التي تاتي اكثر من المتوقع صراحة مبدع ولك كل الشكر وتسلم يداك

تسل الايادي

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

السلام عليكم اختى الكريمة تم الرد على موضوعك السابق بأكثر من حل ؟ على العموم تفضلي المرفق وبه الكود اكتبي التاريخ في خلية B3 وانقري انتر تحياتي كود انتقال_111.rar

وهذه فكرة اخرى لفكرة الاخ عبدالله If Len(Dir(CurrentProject.Path & "\" & ID, vbDirectory)) = 0 Then MkDir CurrentProject.Path & "\" & ID MsgBox ("تم الانشاء بنجاح") Else MsgBox ("المجلد موجود مسبقا") End If بالتوفيق

قيد النظر .. بالنسبة للمشكلة الاولى جرب : اجعل مصدر الفاتورة استعلام معياره رقم الفاتورة

مجموعة رائعة و مفيدة جدا جزاك الله خيرا أستاذنا / قنديل الصياد

الأخ الكريم / حيدر السلام عليكم ورحمة الله وبركاته بالمرفقات الملف بعد الانتهاء من استمارة الاضبارة واستمارة المعلومات الوظيفية وكذلك مرفق الشرح لوظائف الفورم كما طلبت بالمشاركة رقم 10 في موضوع طباعة كتاب التأييد راجع الملف جيدا ان كان هناك اي تعديل اخبرني به ووفقنا الله واياك للخير Hayedr V.2.rar

ويمكن اختصار الكود ليصبح Private Sub Worksheet_Change(ByVal Target As Range) LR = Range("A" & Rows.Count).End(xlUp).Row If Target.Column <> 1 Then Exit Sub If Target.Row > LR Then Exit Sub If Cells(Target.Row, 1).Value <> "" Then Cells(Target.Row, 2).Value = Format(Now(), "hh:mm:ss") End If End Sub والله اعلم

دالتك صحيحة أخي الكريم ولكن يلزمها تحديث البيانات استعمل هذا الكود بعد الضغط دبل كلك على this work book Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.Calculate End Sub ولا تنس أن تجعل تنسيق الخلية التي بها المعادلة تاريخ

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