عالم الاوفيس | الإشارة إلى المراجع 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`.

تأكد من تعديل اسم المصنف واسم الورقة ونطاق الخلية وفقًا لمتطلباتك الخاصة. يمكنك استخدام هذا النمط للوصول إلى أي مراجع في مصنفات مختلفة وتنفيذ العمليات المطلوبة عليها.