موقع VBA - Excel - Access - Word

[سما محمد]

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

استاذ الكبير جدا / حمادة عمر

[حمادة عمر]

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

الاخت الفاضلة / سما محمد

[حمادة عمر]

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

الاخت الفاضلة / سما محمد

[الشهابي]

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

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

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

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

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

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

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

[حمادة عمر]

السلام عليكم

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

بارك الله فيك

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

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

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

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

[إبراهيم ابوليله]

الاخ مصطفى

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

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

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

الاخ مصطفى

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

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

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

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

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

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

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

[نجم الدين ابراهيم]

سؤال : اين تكتب هذه الاكواد

[حمادة عمر]

السلام عليكم

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

بارك الله فيك

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

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

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

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

[وليد فتحي]

جزاك الله كل خير استاذ حماده وجعله في ميزان حسناتك

والشكر موصول للاخ مصطفى

[ا بو سليمان]

رااااااااااااااااااااااااااااااااااائع 

 

لا زلنا ننتظر المزززززززززززيد من الابداع

[عادل ابوزيد]

الاستاذ المعلم الكبير حماده عمر

زادك الله من علمه والهمك الصبر والحب لسقاية العلم

[قنديل الصياد]

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

 

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

 

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

 

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

[قنديل الصياد]

مواقع اخرى لاكواد الاكسل

 

http://www.ozgrid.com/VBA/MiscVBA.htm

 

 

http://www.cpearson.com/excel/excelm.htm

 

 

http://www.anthony-vba.kefra.com/

 

http://www.excel-vba-easy.com

[ا بو سليمان]

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

 

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

 

Google Chrome

 

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

 

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

تم تعديل أغسطس 12, 2013 بواسطه zmzm

[جلال محمد]

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

[محمود عبدالعزيز]

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

[souchel]

هذا ماكنت ابحث عنه بارك الله فيك

مجهود رائع أخي مصطفى

[وليد فتحي]

جزاك الله كل خير استاذ حمادة عمر

وجعله في ميزان حسناتك أنت وصاحب الموضوع

[حمادة عمر]

السلام عليكم

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

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

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

 

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

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

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

[aspiran]

جزاكم الله حيرا شكر خاص للأخ

مصطفى كامل