الـمـاتادور قام بنشر مارس 28, 2020 مشاركة قام بنشر مارس 28, 2020 السلام عليكم حدثت معي مشكلة حيث ان لدي كود يقوم بنسخ مجموعة من المعادلات للخلايا اللتي انتهيت من ضبط حسابات الزبائن فيها ولصقها كقيم ولكن بالخطأ امس كنت قد حددت عدة صفحات كمجموعة ولدى تطبيق الكود لم انتبه للتحديد فقام بالتطبيق على كل الصفحات المحددة هل يوجد اي فكرة لمنع الكود من العمل في حال تحديد اي صفحتين او اكثر مع بعض ؟؟؟؟؟؟؟؟ وشكرا رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مارس 28, 2020 مشاركة قام بنشر مارس 28, 2020 السبت، 04 شعبان، 1441 السلام عليكم و رحمة الله وبركاته بعد اذن اخي الكريم : احمد يوسف لا مانع من المحاولة اخي الماتادور جرب إضافة هذا السطر اول الكود الذي تعمل عليه مع وضع اسم الصفحة او الورقة بين علامات التنصيص "" If ActiveSheet.Name <> "" Then Exit Sub 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 28, 2020 مشاركة قام بنشر مارس 28, 2020 جرب هذا الكود Sub Print_First_Sheet_In_Selections() ''''''''''''''''Replace ".Select" By ".PrintOut" '''''''''' ActiveWindow.SelectedSheets(1).Select End Sub رابط هذا التعليق شارك More sharing options...
الـمـاتادور قام بنشر مارس 29, 2020 الكاتب مشاركة قام بنشر مارس 29, 2020 اعطاني الكود هذه الرسالة انا وضعت هذا السطر في بداية كودي ActiveWindow.SelectedSheets(1).PrintOut رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر مارس 29, 2020 مشاركة قام بنشر مارس 29, 2020 اخي الكريم بعد اذن الاساتذة واثراء للموضوع يمكنك اللجوء الى طرق اخرى لمنع الكود من التنفيذ مثلا اضافة شرط اخر من غير الذي اشرت اليه فمثلا يمكن التحكم في الكود من خلال محتوى خلية معينة جرب جميع الطرق المتاحة 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 29, 2020 مشاركة قام بنشر مارس 29, 2020 الاكسل لم يتمكن من الطباعة لان الطايعة غير مثبتة عندك قم اولاً يتعريف الطابعة ومن ثم تستطيع استعمالها 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر أبريل 6, 2020 أفضل إجابة مشاركة قام بنشر أبريل 6, 2020 جرب هذا الملف انه ينفذ الماكرو على الشيت التي تحتاره انت (في حال تحديد اكثر من شيت واحد) بواسطة رسالة تطلب منك رقم الشيت الذي تريده اما اذا كان شيت واحدة محددة فيقوم بتنفيذ الماكرو عليها Option Explicit Sub No_Error_In_Sheets() Dim ws As Worksheet, wb As Workbook Dim col As New Collection Dim i%, Inp_Box Set wb = ActiveWorkbook For Each ws In ActiveWindow.SelectedSheets i = i + 1 col.Add ws.Name, CStr(i) Next ws On Error Resume Next If i > 1 Then Inp_Box = InputBox("You Have More than One Selected Sheets" & Chr(10) & _ "Please Type The index Of the Sheet you need " & Chr(10) & _ "Example: " & "1,2,3,etc...", 1) Sheets(col(Inp_Box)).Select If Err.Number > 0 Then MsgBox "you select Wrong number: " & """" & Inp_Box & """" On Error GoTo 0 Exit Sub End If End If On Error GoTo 0 '++++++++++++++++++++++++++++++++ 'Type here your macro 'Example ActiveSheet.Range("a1:a10") = 100 '++++++++++++++++++++++++++++++ End Sub الملف للتجربة Run_macro.xlsm 1 1 رابط هذا التعليق شارك More sharing options...
الـمـاتادور قام بنشر أبريل 7, 2020 الكاتب مشاركة قام بنشر أبريل 7, 2020 عاجز تماما عن الوصف وعن الشكر ملك الكودات الاستاذ سليم 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان