omar elhosseini

الاخ bachiri401 شاهد المرفق Test_1.xlsm

تم التعديل عند فتح الملف خاصية ( الأزار المتحركة تكون فعله وخاصية ( طباعه الخلايا المحددة بالماوس فقط ) تكون معطله عندما تريد استخدام خاصية ( طباعه الخلايا المحددة بالماوس فقط ) قم بتفعيل ( تشك بوكس ) بنفس الشت شاهد المرفقات Test_3.rar بإذن الله سأحاول عمل ذلك لكن ما هي الورقة المعنية بتلك المهمة ( الرورقة التي تعطينا منها الرقم )

تحت امرك اخي ولكني بعد ان رفعت الملف لك وجدت ان كود ( الازرار المتحركة ) يوقف عمل كود ( طباعه الخلايا المحددة بالماوس فقط ) سوف اضببط الكوديين معا اولا ثم اجهز الشرح المطلوب لك

الاخ ميلاد طارق شاهد الموضوع التالي عمل ازار عائمة لكل الشتات Floating Button for all sheets

طلب الاخ ميلاد طارق في موضوع عمل زر متحرك طلب تطبيق الكود للتثبيت في حال وجود اكثر من شكل في نفس الصفحه كما في المرفق حتى اقوم بتثبيت الاشكال في باقي الشيتات وقد تم عمل اللازم المرفق Test_2.xls

اخ ابو العلاء لك مني ملف تشك بوكس هدية ضع به كود اخونا سليم حاصبيا هدية.rar

لا تحفظ الملف بصيغة ( xlsx ) بل احفظ الملف بأحد هذين الصيغ xlsm or xlsb

اخي الماكرو يعمل بسلاسه ولا توجد به مشاكل لجميع نسخ الاكسيل ونسخ الويندوز هل قمت بتمكين الماكر ...؟ ارجو من بعض الاخوة تجربة الملف شاهد فيديو للملف الملف مره اخري بصيغة xlsm Test_1.rar Video_1.rar

بعد أذن اخونا سليم حاصبيا اخ ابو العلاء ما هو الحد الأقصي لعدد الأكواد

شاهد المرفق Test_1.xls

الاخ khairi ali علي الله توكلت سأبدأ العمل ولكني لا احيذ المفاجأت في الطلبات بعد بدء العمل علي الموضوع فهل هناك اي طلبات او تعليمات اخري الله المستعان لقد تم عمل اللازم بنجاح ولكنك دخلت المنتدي ولم تكلف نفسك بالرد شكرا لك تفضل اخي شاهد المرفق Test_1.xls

لابد ان انوه عن روح المصابره لديك وصبرك وبحثك الدؤوب عن ايجاد حل لهذا الموضوع لفت انتباهي اليوم انك تجاهد للأيجاد حل للموضوع منذ منتصف اكتوبر 2019 طباعه الجزء المحدد في الورقة في نفس موقعه المحدد في الملف وليس في بداية الورقة من الافضل الأ نفقد الأمل دائما فغدا افضل دائما بإذن الله

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

اذا تكرمت طريقة عمل مصغرات لفلدر بأستخدام ( FastStone Photo Resizer ) هل يقوم بعمل المصغرات اتوماتيكيا ام الفكرة تتمحور حول تصغير حجم الصور فقط بعمل ( Resizer ) لها وما هو الحجم الافضل ولك الشكر

تحت امرك اخي حتي لو جد جديد بخصوص هذا الموضوع فهو شيق وفريد

اي برنامج تستخدمه لصنع المصغرات

شاهد المرفق !_Omar_6.rar

ما هي ارقام الصفوف واي شيت لا اري صفوف مخفية ام تقصد في حالة اخفاء بعض الصفوف

لا تعليق علي مدي مجهود اسبوع ب 6 مداخلات اذا اردت عدم ظهور اللوجو For Each Shp In ActiveSheet.Shapes If Shp.Type <> msoPicture Then Shp.Delete End If Next Shp اخذف السطر الثاني والسطر الرابع من هذا الجزء من الكود شاهد المرفق !_Omar_5.rar

اعد التحميل Test_1.xlsm Test_2.xlsm

اعد التحميل الملف الاول تم استخدام عناصر تحكم النموذج بدلا من استخدام عناصر تحكم ActiveX الملف الثاني لم ينم الانشاء من عناصر تحكم النموذج او عناصر تحكم ActiveX بل تم انشاء الفرام والزر بأستخدام Crate Object.Controls عن طريق انشائهم بواسطة Module وبمساعدة Class كود Module1 Dim objButtons(1 To 1) As New Class1 Sub Add_Frame() With ActiveSheet.OLEObjects .Delete With .Add(ClassType:="Forms.Frame.1", Link:=False, DisplayAsIcon:=False) .Name = "Frame1" .Left = 400 .Top = 75 .Width = 200 .Height = 75 With .Object.Controls.Add("Forms.CommandButton.1", "cmdButton1", True) .Caption = "OK" .Left = 5 .Top = 5 .Width = 75 .Height = 30 End With End With End With Application.OnTime Now, "SetOnAction" ' End Sub Private Sub SetOnAction() ' Dim x As Control For Each x In ActiveSheet.OLEObjects(1).Object.Controls If TypeOf x Is MSForms.CommandButton Then i = i + 1 Set objButtons(i).CmdBtn = x End If Next On Error Resume Next If ActiveWorkbook.Sheets.Count = 1 Then Application.DisplayAlerts = False ActiveWorkbook.Sheets.Add.Delete Application.DisplayAlerts = True Else With ActiveSheet .Next.Activate .Activate End With End If ' End Sub كود Class1 Public WithEvents CmdBtn As MSForms.CommandButton Private Sub CmdBtn_Click() ' Select Case Me.CmdBtn.Caption Case "Ok" Case Else MsgBox "Hello" End Select ' End Sub مع استخدام حدث Workbook_Open لعمل اضافة الفرام والزر عند فتح الملف ولا توجد طريقة لأستخدام Frame سوي هاتين الططريقتين Private Sub Workbook_Open() ' Add_Frame ' End Sub ومن الاسهل لك لتطويع الكود الطريقة الاولي بملف Test_1 Test_1.xlsb Test_2.xlsb

الاخ smfsho2009 شاهد المرفق Test_1.xls

شاهد المرفق !_Omar_4.rar

استبدل هذا السطر image_path = Application.GetOpenFilename(FileFilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select A File", MultiSelect:=False)

تم علاج المشكلة كنت بدأت العمل علي ذلك لأني توقعت سؤالك عن ذلك في المساء ان شاء الله شاهد المرفق !_example_32.rar