اذهب الي المحتوي
أوفيسنا

موقع VBA - Excel - Access - Word


الردود الموصى بها

الأستاذ الذي لايكل ولا يمل / حمادة عمر

مجهود منقطع النظير وعطاء دائم ومستمر لا ينتهي

وأخلاق عالية لا توصف وحب كبير للمنتدى وإعضائه لا يقدر 

بارك الله فيك أستاذنا ورفع الله قدرك وشأنك 

والشكر موصول للأخ العزيز / مصطفى كامل 

الذي دلنا على هذ الموقع الرائع 

تقبلوا تحياتي وتقديري

رابط هذا التعليق
شارك

السلام عليكم

الاخ الحبيب / الشهابي

بارك الله فيك

تطول غيبتك عنا كل مرة ... لكن طلتك تنسينا غيابك

جزيل شكري علي كلماتك الراائعة الرقيقة

تقبل خالص تحياتي

جزاك الله خيرا

رابط هذا التعليق
شارك

الاخ مصطفى

شكرا على الهدية

والاخ حمادة الخبير النشط

شكرا على المجهود الرائع

الاخ مصطفى

والاخ حماده عمر

بارك الله فيكما

وجعلكما نافعين بعلمكما

ونشكر الاخ مجدى

على المشاركه بهذه الكلمات

التى تعبر عن مدى صدق هذا المنتدى

فى اعطاء كل ذى حق حقه

رابط هذا التعليق
شارك

السلام عليكم

الاخ الكريم / نجم الدين ابراهيم

بارك الله فيك

قم اخي الكريم بتحميل الملفات المرفقة

ثم قم بفتحها ثم اضغط ALT+F11

وستري اين توضع الاكواد المذكورة

جزاك الله خيرا

رابط هذا التعليق
شارك

  • 1 month later...

أخي العزيز الأستاذ / مصطفى كامل 
بارك الله فيك و أثابك خيرا

 

الأخ الحبيب الأستاذ / حمادة عمر 
شكرا لك و نفعنا الله  بعلمك
جزاك الله خيرا

 

ولاثراء الموضوع اليكم هذه الموقع الرائعة ايضا

 

http://www.functionx.com/vbaexcel/

 

http://www.contextures.com/xlfaqMac.html#NoMacros

 

واليكم بعض الاكواد ومرفق ملفات للتطبيق عليها من الموقع الذى اتحفنا به اخينا وحبيبنا الاستاذ / مصطفى كامل وهى موجودة ايضا على رابط اكواد اعجبتنى بمنتدانا الجميل  http://www.officena.net/ib/index.php?showtopic=48249

Sub btnShowAllAutoShapes_Click()
  Dim i&
  On Error Resume Next
  For i = 0 To 136
    ActiveSheet.Shapes.AddShape i + 1, 40 + 50 * (i Mod 12), 50 + 50 * (i \ 12), 40, 40
    Next
End Sub
Sub AddRectangle()
 With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10, 200, 100).TextFrame
        .Characters.Text = "This is a rectangle"
        .HorizontalAlignment = xlHAlignCenter
        .VerticalAlignment = xlVAlignCenter
    End With
End Sub
Sub btnStar_Click()
  Dim degree#
  Dim s As Shape
  Const Pi = 3.1415927
  Randomize
  For degree = 0 To 2 * Pi Step Pi / 12
    Set s = ActiveSheet.Shapes.AddLine(200, 200, 200 + 100 * Sin(degree), 200 + 100 * Cos(degree))
    s.Line.EndArrowheadStyle = msoArrowheadTriangle
    s.Line.EndArrowheadLength = msoArrowheadLengthMedium
    s.Line.EndArrowheadWidth = msoArrowheadWidthMedium
    s.Line.ForeColor.RGB = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
  Next
End Sub
Sub btnDeleteShapes_Click()
  Dim s As Shape
  For Each s In ActiveSheet.Shapes
    If s.Type = msoAutoShape Or s.Type = msoLine Then s.Delete
  Next
End Sub
Sub LoadExcelFile()
  Dim result As Variant
  result = Application.GetOpenFilename("Excel files,*.xl?", 1)
  If result = False Then Exit Sub
  Workbooks.Open result
End Sub
Sub FormatCell()
'  Dim myVar As Range
    Set myVar = Selection
    With myVar
        .NumberFormat = "#,##0.00_);[Red](#,##0.00)"
        .Columns.AutoFit
    End With
End Sub

Sub LateBinding()

    'Declare a generic object variable
    Dim objExcel As Object

    'Point the object variable at an Excel application object
    Set objExcel = CreateObject("Excel.Application")

    'Set properties and execute methods of the object
    With objExcel
        .Visible = True
        .Workbooks.Add
        .Range("A1") = "مرحبا بكم فى منتديات اوفيسنا"
    End With

End Sub
Sub SelectEntireColumn()
     Selection.EntireColumn.Select
End Sub

Sub autofit()
     Range("A1:G1").Columns.autofit
End Sub
Sub CopyRange()
     Range("A1").Copy Range("B1")
     Range("A3").Copy Range("c1")
     Range("A5").Copy Range("d2")
End Sub
Sub CopyRange1()
     Range("A1:A65536").Copy Range("C1")
End Sub

Book1.rar

اكواد.rar

اكواد1.rar

عتت.rar

رابط هذا التعليق
شارك

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله 

 

حاول انك تجعل المتصفح لديك  

 

Google Chrome

 

وعند الفتح  قم  بالترجمة التقائيه  للموقع المطلوب سوف تجد الصفحة كامله مترجمة بالعربي 

 

وشوووووووووف شغلك  يا عسل 

تم تعديل بواسطه zmzm
رابط هذا التعليق
شارك

  • 3 months later...

السلام عليكم

الاخ الكريم / محمود عبدالعزيز

الاخ الكريم / souchel

الاخ الكريم / وليد فتحي

 

بارك الله فيكم

مرور طيب وكريم

تقبلوا خالص تحياتي

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information