الاستاذ مجدى
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا
ادارة المنتدي







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


شاطر | 
 

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

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



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

مُساهمةموضوع: اظهار نطاق معين من الاكسيل في الفورم (ِA1:D29)   الأحد أكتوبر 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
avatar

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

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

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

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

_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

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

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