كود لتحديث بيانات اليوزرفورم كود مثلا اضغط عليه يعمل تحديث لبياناته بدلا من اغلاق الفورم

[Saadrafic]

هل في طريقه لتحديث بيانات اليوزرفورم كود مثلا اضغط

[Ali Mohamed Ali]

على الرغم انه لا يمكن العمل على التخمين وتجنبا لعدم اهدار وقت الأساتذة ..كان عليك رفع ملف موضح عليه المطلوب بكل دقة , ولكن يمكنك استخدام هذا الكود

Private Sub UserForm_Activate()
ChartNum = 1
UpdateChart_OverallOEE
UpdateChart_OverallUnits
UpdateChart_OverallWeights
 End Sub
Private Sub UpdateChart_OverallOEE()
    Set CurrentChart = Sheets("Sheet1").ChartObjects(ChartNum).Chart
    CurrentChart.Parent.Width = 710
    CurrentChart.Parent.Height = 150
'   Save chart as GIF
    Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallOEE.gif"
    CurrentChart.Export Filename:=Fname, FilterName:="GIF"
'   Show the chart
    img_Chart_OverallOEE.Picture = LoadPicture(Fname)
End Sub
Private Sub UpdateChart_OverallUnits()
    Set CurrentChart = Sheets("Sheet1").ChartObjects(ChartNum).Chart
    CurrentChart.Parent.Width = 700
    CurrentChart.Parent.Height = 150
'   Save chart as GIF
    Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallUnits.gif"
    CurrentChart.Export Filename:=Fname, FilterName:="GIF"
'   Show the chart
    img_Chart_OverallUnits.Picture = LoadPicture(Fname)
End Sub
Private Sub UpdateChart_OverallWeights()
    Set CurrentChart = Sheets("Sheet1").ChartObjects(ChartNum).Chart
    CurrentChart.Parent.Width = 700
    CurrentChart.Parent.Height = 175
'   Save chart as GIF
    Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallWeights.gif"
    CurrentChart.Export Filename:=Fname, FilterName:="GIF"
'   Show the chart
    img_Chart_OverallWeights.Picture = LoadPicture(Fname)
End Sub

 

[Saadrafic]

وربنا يا استاذ علي انت برنس وعلطول انت بارد عليا وبتفدني وعلي مليووون شكرا علي الكود ولسعه صدرك وكل عام وانت بخير ورمضان كريم واحلي لايك

انا جربت الكود بس مش شغال انا عايز كود يعمل تحديث لبيانات اليوزرفورم اول باول 

[amine14]

Private Sub CommandButton1_Click()
Unload Me
UserForm1.show
End Sub