اضافات الي الاكسيل ( Add Ins )

[Ahmed Saad 2017]

الاخوة الافاضل 

برجاء كل من لديه اضافات الي الاكسيل ( Add Ins )  يرفقها بالموضوع للاستفادة من هذه الاضافات التي تسهل كثيرا في العمل علي الاكسيل 

مرسل لكم اضافة لدي و هي الماجيك فورم

 

MasNoPass.rar

[فوزى فوزى]

ممكن تشرح كيفية الاستفاده من الاداه وكيفية الاضافة الى شيت الاكسيل

 

[محمد حسن المحمد]

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

إخوتي الأكارم :

تبين لي بعد تنزيل الملف وإضافته للإكسيل أنه فورم يختص بفك حماية ملفات إكسل للأستاذ المحترم @أ / محمد صالح

لكنني لم أجربه بعد...تقبلوا تحياتي

[Ahmed Saad 2017]

يتم الاضافة عن طريق الاكسيل من خلال الطريقة الاتية

1.  نفتح شيت الاكسيل
2. file 
3. options
4. Add-Ins
5.  في الاسفل يوجد خانة GO
6. Browser
7. ثم نختار المسار الذي به الاضافة و نضغط OK

انما بخصوص الاستفادة فلكل اداة فائدة مختلفة و لكن المعظم يتم من خلالها المساعدة في تسهيل الاوامر بدل عمل الاكواد ولابد من تجربتها لكي تعرف كل اداة وفائدتها

تـــــم تعديل الملف

The-Magic-Form.rar

[فوزى فوزى]

بجد شغل محترفين الله  ينور عليك ننتظر منكم المزيد

[a.kawkab]

الملف المعدل لا يعمل على نظام 64بت

[Ahmed Saad 2017]

برجاء الافادة في وجود خطأ في كود تعديل بيانات حيث انه عند التعديل يظهر هذا الخطا الذي باللون الاحمر 

حضرتك الكود ده في اضافات Add-ins في الماج يك فورم  بطبق التعديل طلعلي الخطأ ده ممكن تضيف الاضافة عندك في الاكسيل و تجرب التعديل

الكود

Private Sub cmd_Update_Click()
    If Tbl Is Nothing Then Exit Sub
'التعديل على بيانات
    Dim rng As Range
    Dim Rw As Long, Clm As Long
    Dim i As Byte
    
        With Ws.Range("" & Tbl.Name & "[[" & Tbl.Range.Cells(1, 1).Text & "]]")
'البحث عن الصف المراد تحديثه
            Set rng = .Find(What:=Me.Controls("Text1").Value, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
'عملية التحديث
            If Not rng Is Nothing Then
                Rw = rng.Row
                Clm = rng.Column
                For i = 2 To Tbl.Range.Columns.Count
                    If Me.Controls("Text" & i).Locked = False Then
                         If IsDate(Tbl.Range.Cells(2, i).Value) Then
                            Ws.Cells(Rw, Clm + i - 1) = Format(Me.Controls("Text" & i).Value, "yyyy/mm/dd")
                         Else
                            Ws.Cells(Rw, Clm + i - 1) = Me.Controls("Text" & i).Value
                         End If
                    End If
                Next i
                
                VarTab = Ws.Range(Tbl).Value
                
    
                If Img Then
                    If Not Me.img_Photo.Picture Is Nothing Then SavePicture Me.img_Photo.Picture, ImgPath & Me.Controls("Text1").Value & ".bmp"
                End If
                               With Me.lst_Data
                     .Clear
                     .List = VarTab
                End With
                MsgBox "تم تعديل البيانات بنجاح"
            Else
                MsgBox "لا توجد بيانات "
            End If
        End With
End Sub

The-Magic-Form.rar

[مهند محسن]

بسيطة جداً a.kawkab .. كل ما عليك تغيير Private Declare  Function بهذا الموديول ModuleRibbon الى Private Declare PtrSafe Function

Ahmed Saad 2017 .. المشكلة من عندك انت فالكود يعمل تمام وليس به أى مشكلة

The-Magic-Form.rar

[Ahmed Saad 2017]

الخطا بيحصل لما بحتاج اعمل تعديل