◕ دورة احترافية لربط الإكسل Excel لتحليل البيانات اللحظية والتاريخية ◕ ← إصنع برنامجك

sub main()
    'تحديد اتجاه الصفحة من اليمين إلى اليسار (اللهم اجعلنا من أهل اليمين)
    activesheet.displayrighttoleft = true
    cells.font.name = "arial unicode ms"
    cells.font.size = 10

    'عامود كود السهم
    columns(1).columnwidth = 8                  'سمكه صغير نسبيًا
    columns(1).horizontalalignment = xlcenter   'محاذاة للمنتصف
    columns(1).font.color = vbred               'اللون الأحمر
    columns(1).font.bold = true                 'الخط الثقيل
    
    'عامود إسم السهم
    columns(2).columnwidth = 25                 'سمكه كبير
    columns(2).horizontalalignment = xlright    'محاذاة لليمين
    columns(2).font.color = vbblue              'اللون الأزرق
    columns(2).font.bold = true                 'الخط الثقيل
    
    'عامود مسار ملف الميتاستوك الخاص بالسهم
    columns(3).columnwidth = 80                'سمكه كبير جدًا
    columns(3).horizontalalignment = xlleft     'محاذاة لليسار
    
    'تلوين صف عناوين الأعمدة
    rows(1).interior.color = rgb(220, 220, 255)
    rows(1).font.bold = true                 'الخط الثقيل
    
    'تحديد أسماء الأعمدة ومحاذتها
    cells(1, 1) = "الكود"
    cells(1, 2) = "إسم السهم"
    cells(1, 2).horizontalalignment = xlcenter   'محاذاة للمنتصف
    cells(1, 3) = "مسار ملف الميتاستوك"
    cells(1, 3).horizontalalignment = xlcenter   'محاذاة للمنتصف
end sub

Sub Main()
    'تحديد اتجاه الصفحة من اليمين إلى اليسار (اللهم اجعلنا من أهل اليمين)
    ActiveSheet.DisplayRightToLeft = True
    Cells.Font.Name = "Arial Unicode MS"
    Cells.Font.Size = 10

    'عامود كود السهم
    Columns(1).ColumnWidth = 8                  'سمكه صغير نسبيًا
    Columns(1).HorizontalAlignment = xlCenter   'محاذاة للمنتصف
    Columns(1).Font.Color = vbRed               'اللون الأحمر
    Columns(1).Font.Bold = True                 'الخط الثقيل
    
    'عامود إسم السهم
    Columns(2).ColumnWidth = 25                 'سمكه كبير
    Columns(2).HorizontalAlignment = xlRight    'محاذاة لليمين
    Columns(2).Font.Color = vbBlue              'اللون الأزرق
    Columns(2).Font.Bold = True                 'الخط الثقيل
    
    'عامود مسار ملف الميتاستوك الخاص بالسهم
    Columns(3).ColumnWidth = 80                'سمكه كبير جدًا
    Columns(3).HorizontalAlignment = xlLeft     'محاذاة لليسار
    
    'تلوين صف عناوين الأعمدة
    Rows(1).Interior.Color = RGB(220, 220, 255)
    Rows(1).Font.Bold = True                 'الخط الثقيل
    
    'تحديد أسماء الأعمدة ومحاذتها
    Cells(1, 1) = "الكود"
    Cells(1, 2) = "إسم السهم"
    Cells(1, 2).HorizontalAlignment = xlCenter   'محاذاة للمنتصف
    Cells(1, 3) = "مسار ملف الميتاستوك"
    Cells(1, 3).HorizontalAlignment = xlCenter   'محاذاة للمنتصف
End Sub

'دالة قراءة أي ملف وتحويله إلى مصفوفة من البايت حيث يتم إدخال بها مسار الملف
Public Function GetFileBytes(ByVal path As String) As Byte()

    'فرض الملف
    Dim file As Long
    file = FreeFile()
    
    'فرض مصفوفة البايتس التي سيتم قراءة الملف فيها
    Dim bytes() As Byte
    
    If LenB((path)) Then     'التحقق من وجود الملف لتجنب حدوث أخطاء
    
        'فتح الملف لقراءته
        Open path For Binary Access Read As file
        
        'تحديد طول مصفوفة البايتس وهو طول الملف سالب واحد
        'وذلك لأن الترقيم بأي مصفوفة يبدأ من صفر وليس واحد
        ReDim bytes(LOF(file) - 1) As Byte
        
        'قراءة الملف داخل المصفوفة
        Get file, , bytes
        
        'إغلاق الملف بعد الانتهاء من قراءته
        Close lngFileNum
    End If
    
    'إرجاع القيمة المطلوبة كناتج للدالة، وهي مصفوفة البايتس
    GetFileBytes = bytes
End Function