مثال علي تنفيذ نقل قيمة عند فتح الملف

[محمد طاهر عرفه]

هذا المثال يقوم بنقل القيمة فى a1 الي b1 عند الفتح

و مع تشغيل الماكرو المسمي ihaveseenit يتم تنفيذ

نفس العملية

و هو مثال علي تنفيذ عملية عند كل فتح للملف

Private Sub Workbook_Open()

 x = ActiveWorkbook.Worksheets(1).Range("a1").Value

 'MsgBox x

 ActiveWorkbook.Worksheets(1).Range("b1").Value = x

End Sub



Sub ihaveseenit()

  x = ActiveWorkbook.Worksheets(1).Range("a1").Value

  ActiveWorkbook.Worksheets(1).Range("b1").Value = x


End Sub

Autoupdatechange.zip