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

أنا ثبت المدخلات لحمايتها وهنا بالمعادلات بيان السولار اليومى لمزارع الامهات (1).xlsm

هذا بالمعادلات VLOOKUP عرض سند بواسطة الكود.xlsx وهذا بالأكواد بعد تسريع الكود ولك حرية الاختيار VLOOKUP عرض سند بواسطة الكود.xlsb

لم افهم عليك ولكن هل هذا ما تريد . أرشفة الدردشة:يمكن للمستخدمين أرشفة الدردشة بالضغط على اختصار لوحة المفاتيح التالي Ctrl + Alt + Shift + E. 2. تثبيت الدردشة: لتثبيت دردشة ما في تطبيق واتساب ويب، يمكنك الضغط على الأزرار التالية بلوحة المفاتيح على جهاز الكمبيوتر الخاص بك: Ctrl + Alt + Shift + P. 3. بحث في الدردشة: إذا كنت تريد البحث عن دردشة ما في إصدار واتساب على سطح المكتب، فاضغط على الاختصار التالي: Ctrl + Alt + Shift + F. 4. كتم الصوت: باستطاعة مستخدمي واتساب ويب أيضا “كتم صوت” الدردشة الخاصة بإصدار الويب على غرار إصدار الهاتف المحمول، من خلال الضغط على المفاتيح التالية: Ctrl + Alt + Shift + M. 5. حذف الدردشة: يتوفر على إصدار الويب من واتساب خيار لحذف الدردشة، يمكنك الوصول إليه من خلال الضغط على الاختصار الآتي: Ctrl + Alt + Backspace 6. إنشاء مجموعة جديدة: على غرار ميزات إصدار الهاتف المحمول من واتساب، يمكن للمستخدمين بدء أو إنشاء مجموعة جديدة عبر نسخة الويب من خلال الضغط على المفاتيح التالية: Ctrl + Alt + Shift + N. 7. الوصول للملف الشخصي: يمكنك التحقق من معلومات الملف الشخصي و"حول" للمستخدمين الآخرين، من خلال النقر على ازرار لوحة المفاتيح التالية معا: Ctrl + Alt + P. 8. إعدادات الوصول: يمكن للمستخدمين الوصول إلى قائمة إعدادات واتساب بسهولة عبر متصفح الويب بالضغط على: Ctrl + Alt + وعلامة الفاصلة. 9. وضع علامة كغير مقروءة: لتمييز محادثة ما كـ “غير مقروءة”، انقر على الازرار الاتية: Ctrl + Alt + Shift + U

تفضل بيان السولار اليومى لمزارع الامهات (1).xlsm

احببت ان افرد موضوعي هذا بعنوان مستقل 1-لان غالب او جميع الدروس هنا تتعامل مع واتساب ويندوز 2-وحتى يكون تطوير هذا العمل مستقلا ولا يحدث خلط بين الامثلة المثال المرفق تم تطبيقه على واتساب ويب واليكم بعض التوجيهات والملاحظات : كانت مشكلتي في محاولات سابقة انه في كل مرة يتم الارسال وفتح الواتساب ويب .. فانه يطلب ربطا جديدا بالجوال وبحمد الله توصلت الى حل هذه المشكلة التي كانت عائقا حقيقيا .. يكتفى بالارتباط مرة واحدة فقط الآن : عند كل ارسال يفتح الواتس ويب بشاشة جديدة .. فان كانت هناك نسخة مفتوحة من قبل فانه يتجاهلها وتصبح غير فعالة وهذه لا مشكلة فيها لأنه يفتح على الحساب نفسه . ارجوا من اخوتي واحبتي الذين يمرون من هنا تجربة المثال وافادتي بنتيجة التجربة ، من اجل الانتقال الى الخطوة التالية وهي ارسال المرفقات ملحوظة : المرفق sendwatsWebAll .. هو النسخة المحدثة والمطورة بعد أخذ آراء وتجارب الإخوة sendwatsWeb.mdb sendwatsWebAll.rar

غير خصائص العلاقة بين الجداول الثلاث داخل الاستعلام اكرر : التغيير في العلاقة يكون داخل الاستعلام

الطباعة يفضل فتح موضوع جديد تبعا لسياسة المنتدى 77.xlsm

دعوة صالحة... الماكرو يطلب منك أولا فتح ملف مشكول، ويفضل أن تكون المادة العلمية مشابهة للملف المراد تشكيله، بمعنى أنك إذا أردت أن تشكل ملفا في الحديث، فينبغي أن يكون الملف المشكول في الحديث، وإن كان في الفقه فكذلك. ويفضل أيضا أن تبدأ بعدد كلمات أكبر، فتبدأ بست كلمات، ثم خمسة، ثم أربعة،... وهكذا، ليكون التشكيل أدق. ويستحسن في البداية أن تكون المدة قليلة، يعني ابدأ بخمس دقائق، ثم عشرة، وهكذا، لأن برنامج الورد يستهلك قدرا كبيرا من الذاكرة، ويمكن أن يهنج الجهاز. وهذا الماكرو: ' 'تشكيل آلي لكلمة واحدة أو اثنتين حتى ست كلمات، بحيث يبحث الماكرو عن الكلمات غير المشكولة ويقوم بتشكيلها ' ' Dim objDoc As Document '''''' لإغلاق ملفات الورد عدا الذي فيه المؤشر Dim objDocumentsToBeClosed As New Collection Dim nCount As Integer nCount = Application.Documents.count For nIndex = 1 To nCount Set objDoc = Application.Documents.Item(nIndex) If objDoc.FullName <> ActiveDocument.FullName Then objDocumentsToBeClosed.Add objDoc Else Exit For End If Next nIndex For Each objDoc In objDocumentsToBeClosed objDoc.Close SaveChanges:=wdSaveChanges Next objDoc ''''''' Dim xFileDialog As FileDialog, GetStr(1 To 100) As String ' الحد الأقصى (100) ملف Dim xFindStr As String Dim xReplaceStr As String Dim xDoc As Document On Error Resume Next Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker) With xFileDialog .Filters.Clear .Filters.Add "All WORD File ", "*.docx", 1 .AllowMultiSelect = True i = 1 If .Show = -1 Then For Each stiSelectedItem In .SelectedItems GetStr(i) = stiSelectedItem i = i + 1 Next i = i - 1 End If Application.ScreenUpdating = False xFindStr = a xReplaceStr = b For j = 1 To i Step 1 Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=False) Windows(GetStr(j)).Activate Dim sPrompt As String Dim sUserResp As String Dim iUR As Integer Dim t As Date t = Now Dim StartTime As Date StartTime = Now Do sPrompt = "1. تشكيل كلمة واحدة" & vbCrLf sPrompt = sPrompt & "2. تشكيل كلمتين" & vbCrLf sPrompt = sPrompt & "3. تشكيل ثلاث كلمات" & vbCrLf sPrompt = sPrompt & "4. تشكيل أربع كلمات" & vbCrLf sPrompt = sPrompt & "5. تشكيل خمس كلمات" & vbCrLf sPrompt = sPrompt & "6. تشكيل ثلاث كلمات" & vbCrLf iUR = 0 ''''''''''''''''' While iUR < 1 Or iUR > 6 sUserResp = InputBox(sPrompt, "اختر واحدًا مما يلي") iUR = Val(sUserResp) ''''''''''''''''' لإمكانية إلغاء جميع الاختيارات وقفل الكود If iUR = False Then Exit Sub End If '''''''''''''''''''''' لعمل case لعدة خيارات في InputBox Wend Select Case iUR Case 1 aa = (" <[!ًٍَُِّْ ]@> ") x = (InputBox("اكتب عدد مرات التنفيذ")) y = (InputBox("حدد مدة تشغيل الماكرو بالدقائق")) Case 2 aa = ("<[!ًٍَُِّْ ]@> <[!ًٍَُِّْ ]@>") x = (InputBox("اكتب عدد مرات التنفيذ")) y = (InputBox("حدد مدة تشغيل الماكرو بالدقائق")) Case 3 aa = ("<[!ًٍَُِّْ ]@> <[!ًٍَُِّْ ]@> <[!ًٍَُِّْ ]@>") x = (InputBox("اكتب عدد مرات التنفيذ")) y = (InputBox("حدد مدة تشغيل الماكرو بالدقائق")) Case 4 aa = ("<[!ًٍَُِّْ ]@> <[!ًٍَُِّْ ]@> <[!ًٍَُِّْ ]@> <[!ًٍَُِّْ ]@>") x = (InputBox("اكتب عدد مرات التنفيذ")) y = (InputBox("حدد مدة تشغيل الماكرو بالدقائق")) Case 5 aa = ("<[!ًٍَُِّْ ]@> <[!ًٍَُِّْ ]@> <[!ًٍَُِّْ ]@> <[!ًٍَُِّْ ]@> <[!ًٍَُِّْ ]@>") x = (InputBox("اكتب عدد مرات التنفيذ")) y = (InputBox("حدد مدة تشغيل الماكرو بالدقائق")) Case 6 aa = ("<[!ًٍَُِّْ ]@> <[!ًٍَُِّْ ]@> <[!ًٍَُِّْ ]@> <[!ًٍَُِّْ ]@> <[!ًٍَُِّْ ]@> <[!ًٍَُِّْ ]@>") x = (InputBox("اكتب عدد مرات التنفيذ")) y = (InputBox("حدد مدة تشغيل الماكرو بالدقائق")) End Select For i = 1 To x If DateDiff("n", StartTime, Now, endTime) = y Then ' s =عدد الثواني ' n =الدقائق ' h =ساعة MsgBox "تم تشكيل الكلمات غير المشكولة وتلوينها باللون البرتقالي" & Format(Now - t, " والوقت المستغرق = h:n:s ") Exit Do Exit Sub ActiveDocument.Save End If Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = aa .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute If Selection.Find.Found = False Then Exit Sub Else End If a = Selection.Text Selection.MoveLeft Unit:=wdCharacter, count:=1 Selection.MoveRight Unit:=wdCharacter, count:=1 Selection.MoveLeft Unit:=wdCharacter, count:=1 Windows(1).Activate Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = a .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = True .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute If Selection.Find.Found = False Then Windows(2).Activate Selection.MoveRight Unit:=wdWord, count:=2 Else b = Selection.Text Selection.MoveRight Unit:=wdCharacter, count:=1 Windows(2).Activate Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.Color = 49407 ' اللون البرتقالي With Selection.Find .Text = a .Replacement.Text = b .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = True .MatchAlefHamza = True .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End If Selection.MoveRight Unit:=wdWord, count:=2 Next i Beep MsgBox "تم تشكيل الكلمات غير المشكولة وتلوينها باللون البرتقالي" & Format(Now - t, " والوقت المستغرق = h:n:s ") Exit Do Exit Sub Loop ActiveDocument.Save Next End With Beep Windows(1).Close (False) '''''' لإغلاق الملف الذي كان يعمل في الخلفية End Sub

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

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

في هذا البرنامج بالذات أتعبت الأكسل وأتعبني كان التحدي أن يتم العمل بدون أكواد فيجول فقط بالدوال والتنسيق الشرطي والارتباط التشعبي أدعو الله أن أكون فيه موفقا وأن يفيد ولو واحدا من إخواني المسلمين البرنامج فيه خبايا وأسرار خلف الستار للمهتمين بالأكسل . تأجير الشقق.xlsx

إذا كنت تريد عدم الطباعة يمكن كتابة احد الصيغ التالية وبجوار End sub نكتب 30 On Error Resume Next ActiveWindow.SelectedSheets.PrintOut Copies:=Range("a1"), Collate:=True, _ IgnorePrintAreas:=True أو If Range("a1") = 0 Then GoTo 30 ActiveWindow.SelectedSheets.PrintOut Copies:=Range("a1"), Collate:=True, _ IgnorePrintAreas:=True End If واذا كنت تريد طباعة نسخة على الاقل يمكنك كتابة التالي If Range("a1") = 0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=True Else ActiveWindow.SelectedSheets.PrintOut Copies:=Range("a1"), Collate:=True, _ IgnorePrintAreas:=True End If

تحية طيبة الملف المرفق للتجربة .. وفقكم الله طباعة الصفحات الولى من كل ورقة.xlsm

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

البرنامج يتكون من :- ١-شاشة إضافة مريض تحتوى على البيانات الأساسية للمريض ٢-شاشة إضافة زيارة تحتوى على بيانات الزيارة ٣-شاشة البحث تحتوى على شاشة للبحث من خلال الاسم وشاشة من خلال رقم الهاتف ٤-شاشة قائمة الانتظار تحتوى على بيانات المرضى المنتظرين فى العيادة ٥-شاشة ملف المريض تحتوى على عدد من الصفحات التى تساعد الطبيب المعالج فى تشخيص واعطاء علاج دقيق وغير متداخل مع أدوية أخرى صفحة للبيانات الأساسية لذلك المريض صفحة الزيارات السابقة لذلك المريض صفحة الأدوية السابقة لذلك المريض صفحة للتاريخ المرضى للأمراض المزمنة وعلاجها المستخدم ٦-شاشة تحرير الروشتة مما يتيح للطبيب طباعة الروشتة ٧-شاشة الاستعلامات تحتوى على تفاصيل المرضى من عدد المرضى الكشف وكذلك الاستشارة لليوم وكذلك لأى تاريخ مطلوب تحديدة ٨-شاشة الأدوية يتم من خلالها تكويد الأدوية التى يستخدمها الطبيب ويوجد لدينا إمكانية إضافة اى إضافة مطلوبة أخرى واتس 01121119958 hossamnosser1712@gmail.com