تحويل Interior.Color في VBA إلى VB.NET

المقدمة

في VBA، تُستخدم Interior.Color لتغيير لون خلفية الخلية في Excel. لكن في VB.NET، تختلف الطريقة بسبب استخدام مكتبات مختلفة. في هذه المقالة من راديب، سنشرح كيفية تحقيق نفس الوظيفة في VB.NET.

اشتري سيرفر افتراضي بسعر اقتصادي من راديب اضغط هنا

1. الكود في VBA باستخدام Interior.Color

Sub ChangeColorVBA()
    Range("A1").Interior.Color = RGB(255, 0, 0) ' تغيير لون الخلفية إلى الأحمر
End Sub
Vba
Copy

2. الكود المكافئ في VB.NET

Imports Microsoft.Office.Interop.Excel

Module Module1
    Sub Main()
        Dim xlApp As New Application()
        Dim xlWorkbook As Workbook = xlApp.Workbooks.Open("C:\example.xlsx")
        Dim xlWorksheet As Worksheet = xlWorkbook.Sheets(1)

        xlWorksheet.Range("A1").Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red)

        xlWorkbook.Save()
        xlWorkbook.Close()
        xlApp.Quit()
    End Sub
End Module
VB.Net
Copy

3. شرح الكود في VB.NET

• إنشاء كائن تطبيق Excel:

  Dim xlApp As New Application()
  VB.Net
  Copy

• فتح ملف Excel:

  Dim xlWorkbook As Workbook = xlApp.Workbooks.Open("C:\example.xlsx")
  VB.Net
  Copy

• تحديد ورقة العمل:

  Dim xlWorksheet As Worksheet = xlWorkbook.Sheets(1)
  VB.Net
  Copy

• تغيير لون الخلفية للخلية:

  xlWorksheet.Range("A1").Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red)
  VB.Net
  Copy

• حفظ وإغلاق الملف.

4. الاستنتاج

بينما يستخدم VBA Interior.Color = RGB(255, 0, 0)، يتطلب VB.NET استخدام System.Drawing.ColorTranslator.ToOle(). أيضًا، في VB.NET، يجب إدارة كائنات Excel يدويًا.