عالم الاوفيس | الإشارة إلى المراجع References في ورقة العمل في VBA Excel
الإشارة إلى المراجع (References) في ورقة العمل باستخدام VBA
في VBA، يمكنك الإشارة إلى المراجع (References) في ورقة العمل باستخدام
الكائن `Worksheet` والكائن `Range`. يتيح لك ذلك الوصول إلى
الخلايا المشتركة بين ورقتين أو أكثر في ملف Excel.
للإشارة إلى المراجع في ورقة العمل، يمكنك استخدام الكود التالي
كنموذج:
()Sub SplitEachWorksheet
Dim worksheet1 As Worksheet
Dim worksheet2 As Worksheet
Dim range1 As Range
Dim range2 As Range
'Set references to worksheets
Set worksheet1 = ThisWorkbook.Worksheets("Sheet1")
'اسم
الورقة 1
Set worksheet2 = ThisWorkbook.Worksheets("Sheet2")
'اسم الورقة 2
'Set references to ranges
Set range1 = worksheet1.Range("A1:C3")
'نطاق الخلايا في
الورقة 1
Set range2 = worksheet2.Range("D1:F3")
'نطاق الخلايا في الورقة 2
'Perform desired operations with the ranges
'For example, you can copy values from range1
to range2
range2.Value = range1.Value
End sub
في هذا المثال، تم تعيين المراجع "worksheet1" و "worksheet2" إلى ورقتين محددتين
في الملف (يمكن تغيير اسم الورقة وفقًا لاحتياجاتك). ثم تم تعيين المراجع "range1" و "range2" إلى نطاقات محددة
في الورقتين.
بعد ذلك، يمكنك تنفيذ العمليات المطلوبة باستخدام هذه المراجع. في
المثال، تم نسخ قيم الخلايا في "range1" إلى "range2" باستخدام الخاصية `Value` من الكائن `Range`.
تأكد من تغيير اسم الورقة ونطاق الخلية وفقًا لمتطلباتك الخاصة. يمكنك
استخدام هذا النمط للوصول إلى أي مراجع في ورقة العمل وتنفيذ العمليات المطلوبة
عليها.
الوصول إلى المراجع بين مصنفات مختلفة في Excel باستخدام VBA.
بالإضافة إلى الوصول إلى المراجع بين ورقتين، يمكنك أيضًا الوصول إلى
المراجع بين مصنفات مختلفة في Excel باستخدام VBA. يُعرف كل مصنف بواسطة
كائن `Workbook`، ويمكنك الوصول إلى المراجع في المصنفات
المختلفة باستخدام الكود التالي:
()Sub Refrance_Worksheet
Dim workbook1 As Workbook
Dim workbook2 As Workbook
Dim range1 As Range
Dim range2 As Range
' Set references to workbooks
Set workbook1 = Workbooks("Workbook1.xlsx")
' اسم المصنف 1
Set workbook2 = Workbooks("Workbook2.xlsx")
' اسم المصنف 2
' Set references to ranges in different workbooks
Set range1 = workbook1.Worksheets("Sheet1").Range("A1:C3")
' نطاق الخلايا في المصنف 1
Set range2 = workbook2.Worksheets("Sheet1").Range("D1:F3")
' نطاق الخلايا في المصنف 2
' Perform desired operations with the ranges
' For example, you can copy values from range1
to range2
range2.Value = range1.Value
End sub
في هذا المثال، تم تعيين المراجع "workbook1" و "workbook2" إلى مصنفين مختلفين
في Excel (يمكن تغيير اسم المصنف وفقًا لاحتياجاتك).
ثم تم تعيين المراجع "range1" و "range2" إلى نطاقات محددة
في ورقة العمل الأولى بكل مصنف.
بعد ذلك، يمكنك استخدام هذه المراجع لتنفيذ العمليات المطلوبة. في
المثال، تم نسخ قيم الخلايا في "range1" إلى "range2" باستخدام الخاصية `Value` من الكائن `Range`.
تأكد من تعديل اسم المصنف واسم الورقة ونطاق الخلية وفقًا لمتطلباتك
الخاصة. يمكنك استخدام هذا النمط للوصول إلى أي مراجع في مصنفات مختلفة وتنفيذ
العمليات المطلوبة عليها.