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


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .


الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :Yasser Elaraby
عدد النتائج (385) نتيجة
15-07-2018 09:37 مساء
icon برنامج المخازن Ystore - ياسر العربي | الكاتب :Yasser Elaraby |المنتدى: تطبيقات محاسبيه بالاكسيل
 
لا دا فيه خطأ برمجي لم اتوقع حدوثه كلمنى ع الفيس اراجع معاك الخطأ الاول
 
15-07-2018 09:10 مساء
icon برنامج المخازن Ystore - ياسر العربي | الكاتب :Yasser Elaraby |المنتدى: تطبيقات محاسبيه بالاكسيل
 
وبارك الله فيك حبيبي الغالي ابو البراء 142

15-07-2018 09:00 مساء
icon برنامج المخازن Ystore - ياسر العربي | الكاتب :Yasser Elaraby |المنتدى: تطبيقات محاسبيه بالاكسيل
 
جزاكم الله خير حبيبي محمود ابو الدهب
انت بتقول فيها انا لحد اخر المونديال مفيش فريق اشجعه الا ويخسر مش عارف العيب مننا ولا من مين
وبعدين ابطل ايه ما المونديال خلاص بح sad
142
15-07-2018 07:17 مساء
icon برنامج المخازن Ystore - ياسر العربي | الكاتب :Yasser Elaraby |المنتدى: تطبيقات محاسبيه بالاكسيل
 
جزاكم الله خيرا اخواني الكرام 81

05-07-2018 12:59 مساء
icon كيفية حساب قيم الانترنت | الكاتب :Yasser Elaraby |المنتدى: اكسيل اسئله واجابات
 
تفضل اخي الكريم
 
Byte = 8 bits
kiloByte ( kb ) = 1 024 Bytes
megaByte (Mb) = 1 024 kb = 1 048 576 Bytes
gigaByte (Gb) = 1 024 Mb = 1 073 741 824 Bytes
teraByte (Tb) = 1 024 Gb = 1 099 511 627 776 Bytes
petaByte (Pb) = 1 024 Tb = 1 125 899 906 842 624 Bytes

ومثلها مع السعات الاكبر مثل اكسابايت وزيتابايت ويوتابايت
Exabyte (EB)
Zettabyte (ZB)
YottaByte (YB)

يتم الضرب في 1024 للتحويل الى السعات الاصغر والقسمة للتحويل للسعات الاكبر
ما عدا التحويل من البايت الى البت الواحد بايت يساوي 8 بت

تحياتي
 
04-07-2018 09:43 صباحا
icon برنامج مجانى للجمعيات الخيرية | الكاتب :Yasser Elaraby |المنتدى: اكسيل مشاريع جاهزه
 
جزاكم الله خيرا اخي الكريم علي
خلي بالك 30 ميجا مش جيجا yes
142
04-07-2018 09:39 صباحا
icon لعبة من سيربح المليون الأصلية | الكاتب :Yasser Elaraby |المنتدى: منتدى برامج الكمبيوتر
 
احب انا اللعب بس الاستراتيجية wink_3

وليه نجيب لعبة من سيربح المليون الاصلية ونلعبها ما نعمل واحدة احنا بطريقتنا
نعملها ع الاكسيل مثلا او الدوت نت او اي لغة برمجة حسب خبرتنا
وبكدا يبقي برمجة ولعب واستفادة وافادة وليلة كبيرة اوي سعتك
142
04-07-2018 09:35 صباحا
icon كتابة الكسر الاعتيادى | الكاتب :Yasser Elaraby |المنتدى: اكسيل شروحات ودروس
 
موفق ان شاء الله حبيبي وفي تقدم دائم
3
03-07-2018 01:55 مساء
icon تصميم لعبه علي الاكسي بأكواد vba | الكاتب :Yasser Elaraby |المنتدى: اكسيل مشاريع جاهزه
 
جميل جزاكم الله خيرا وفي تقدم دائم
تحياتي
142
30-06-2018 02:08 مساء
icon محتاج ملف بحث للااكسيل | الكاتب :Yasser Elaraby |المنتدى: اكسيل اسئله واجابات
30-06-2018 08:38 صباحا
icon ياكرام اريد تعديل كود الترحيل لكي يرحل الى ملف خارجي واحد ياخذ الاسم من خلية | الكاتب :Yasser Elaraby |المنتدى: اكسيل اسئله واجابات
 
والكود دا تم اضافة التحقق من وجود الملف من عدمه
Sub export_data()
    Dim index As Workbook
    Dim output As Workbook
    Dim sh As Worksheet, flg As Boolean
    Dim str As String
    Application.ScreenUpdating = False
    Set index = ActiveWorkbook
    str = Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) - 5)
    If FileExists("C:\Users\pc-2017\Desktop\data.xlsm") = False Then MsgBox "File doesn't exist": Exit Sub
    Set output = Workbooks.Open("C:\Users\pc-2017\Desktop\data.xlsm", Password:="123")
    index.Sheets(1).Range("A1:H32").Copy
    For Each sh In output.Sheets
        If sh.Name Like str Then flg = True: Exit For
    Next
    If flg = True Then
        MsgBox "Found!"
    Else
        MsgBox "Not Found!"
        Sheets.Add.Name = str
    End If
    With output.Sheets(str).Range("A1")
        .PasteSpecial xlValues
        .PasteSpecial xlFormats
        output.Save
        output.Close
    End With
End Sub
Function FileExists(fullFileName As String) As Boolean
    FileExists = VBA.Len(VBA.Dir(fullFileName)) > 0
End Function
30-06-2018 08:10 صباحا
icon ياكرام اريد تعديل كود الترحيل لكي يرحل الى ملف خارجي واحد ياخذ الاسم من خلية | الكاتب :Yasser Elaraby |المنتدى: اكسيل اسئله واجابات
 
تفضل جرب الكود دا

Sub export_data()
    Dim index As Workbook
    Dim output As Workbook
    Dim sh As Worksheet, flg As Boolean
    Dim str As String
    Application.ScreenUpdating = False
    Set index = ActiveWorkbook
    str = Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) - 5)
    Set output = Workbooks.Open("C:\Users\pc-2017\Desktop\data.xlsm", Password:="123")
    index.Sheets(1).Range("A1:H32").Copy
    For Each sh In output.Sheets
        If sh.Name Like str Then flg = True: Exit For
    Next
    If flg = True Then
        MsgBox "Found!"
    Else
        MsgBox "Not Found!"
        Sheets.Add.Name = str
    End If
    With output.Sheets(str).Range("A1")
        .PasteSpecial xlValues
        .PasteSpecial xlFormats
        output.Save
        output.Close
    End With
End Sub


 

الصفحة 1 من 33 < 1 2 3 4 33 > الأخيرة »





الساعة الآن 11:08 مساء

أعلن هنا
أعلن هنا
أعلن هنا