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

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





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


شاطر
 

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

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



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

اظهار نطاق معين من الاكسيل في الفورم (ِ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
مجدى يونس

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

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

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

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

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

اظهار نطاق معين من الاكسيل في الفورم (ِA1:D29) Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
 
اظهار نطاق معين من الاكسيل في الفورم (ِA1:D29)
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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