الاستاذ مجدى
اظهار نطاق معين من الاكسيل في الفورم (ِA1:D29) 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا اظهار نطاق معين من الاكسيل في الفورم (ِA1:D29) 829894
ادارة المنتدي اظهار نطاق معين من الاكسيل في الفورم (ِA1:D29) 103798

اظهار نطاق معين من الاكسيل في الفورم (ِA1:D29) Uoou_u10


الاستاذ مجدى
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.



 
الرئيسيةالأستاذ التعليمأحدث الصورضع التسجيلدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل Heliany فمرحبا به


 

 اظهار نطاق معين من الاكسيل في الفورم (ِA1:D29)

اذهب الى الأسفل 
2 مشترك
كاتب الموضوعرسالة
hshawki




عدد المساهمات : 10
تاريخ التسجيل : 26/09/2017
العمر : 42

اظهار نطاق معين من الاكسيل في الفورم (ِA1:D29) Empty
مُساهمةموضوع: اظهار نطاق معين من الاكسيل في الفورم (ِA1:D29)   اظهار نطاق معين من الاكسيل في الفورم (ِA1:D29) Avatarالأحد أكتوبر 15, 2017 8:16 pm

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

ويا ريت اشوف لحضرتك حاجة عن الدوال الحسابية
في برمجة ال VBA
زي الجمع والقسمة بين اكثر من تكست بوكس
وتحويل البيانات من فورم الى اخر
من شيت الى اخر

تحياتي
تلميذك
حسن شوقي
00971507472037



Dim fname As String
Dim ChartNum As Integer

Private Sub UserForm_Initialize()
   ChartNum = 1
   UpdateChart
End Sub

Private Sub PreviousButton_Click()
   If ChartNum = 1 Then ChartNum = 5 Else: ChartNum = ChartNum - 1
   UpdateChart
 
End Sub

Private Sub NextButton_Click()
   If ChartNum = 5 Then ChartNum = 1 Else: ChartNum = ChartNum + 1
   UpdateChart
 
End Sub

Private Sub CloseButton_Click()
   Unload frmChartC1
   
End Sub

Private Sub UpdateChart()
   Set currentchart = Sheets("Print2").ChartObjects(ChartNum).Chart
   currentchart.Parent.Width = 676
   currentchart.Parent.Height = 259

'   Save chart as GIF
   fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
   currentchart.Export FileName:=fname, FilterName:="GIF"

'   Show the chart
   Image1.Picture = LoadPicture(fname)
End Sub
Private Sub UserForm_QueryClose( _
   Cancel As Integer, CloseMode As Integer)
 
   If CloseMode = vbFormControlMenu Then
       Cancel = True
       MsgBox "The ‘x’ does not work……………..Use Close button "
   End If
End Sub


بس المشكله ان كل مرة تطلع رسالة
runtime error 481
invalid picture

ارجو المساعدة


عدل سابقا من قبل hsawki في الإثنين أكتوبر 16, 2017 7:13 am عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس


عدد المساهمات : 3773
تاريخ التسجيل : 22/02/2013
العمر : 69

اظهار نطاق معين من الاكسيل في الفورم (ِA1:D29) Empty
مُساهمةموضوع: رد: اظهار نطاق معين من الاكسيل في الفورم (ِA1:D29)   اظهار نطاق معين من الاكسيل في الفورم (ِA1:D29) Avatarالإثنين أكتوبر 16, 2017 6:29 am

الاخ العزيز
انظر الرابط التالى
https://magdi54.forumegypt.net/t320-topic#1190

ارسل ملف اكسل لموضوعك ارفعة على اى موقع للرفع

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

اظهار نطاق معين من الاكسيل في الفورم (ِA1:D29) Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
 
اظهار نطاق معين من الاكسيل في الفورم (ِA1:D29)
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» اظهار الفورم مباشر والاغلاق لفتح الشيت من الصورةوتعديل اسم الشيت والدخول لحدث الصفحة
» فتح الفورم مع اخفاء الشيت والدخول للشيت بزر من الفورم الدرس ال 35
» فورم يتعامل مع نطاق محدد فقط من الشيت
» تعليقات على فورم بحث وتعديل واضافة بيانات
» مساعدة فى كود فتح ملف فى مكان معين

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: