عبدالفتاح في بي اكسيل

لا اعلم  ما  الذي  تحاول  القيام  به . ربما  شخص  اخر  يفهم  طلبك .

تحياتي

مجرد  محاولة  مع  مراعاة  تم  تنظيم  الخلايا بشكل افضل 

الطباعه.xlsm

اختي الكريمة  قد  تكون  المشكلة من  المتصفح  الذي تستخدمينه  يجب  تعيينه  كافتراضي

هذه  محاولة  من قائمة ابدا  < تشغيل   < Set program access and computer defaults

وقومي  بتعيين   المتصفح   الذي  تعملين عليه كافتراصي 

تحياتي 

مجرد  محاولة 

غير  هذه 

    For Each xFile In xFolder.Files

الى 

  For Each xFile In xFolder.subfolders

طرح  اكثر  من سؤال  في  موضوع  واحد  يجعل  الاعضاء  لا ينظرون  الى  هكذا  مواضيع !!!!

نظرة  سريعة 

من شريط  الادوات  ادخل  على  الصيغ  ثم  ادارة  الاسماء  عندها  ستظهر  لك  قائمة  بمصادر  بيانات  الورقة  ابحث  عن هذا _snitems 

انقر  نقرتين  عليه  ستجد  معادلة  سوف  تلاحظ  اخر  مدى  هو  الصف  102    يمكنك  زيادة  المدى .

اقتباس

ايضا عند البحث داخل ال ComboBox يقوم بالبحث بالحرف ولا يقوم بالبحث بالكلمه 

غير  مفهوم  . لقد  جربت  وضع  كلمة  في  العمود  الاول  وظهرت  بالكومبوبكس  وبحث  بدون مشاكل .

_snitems  هذه  تعني  مصدر  البيانات  في  العمود  الاول  ؟ يمكنك   تحديد  مدى  معين  وتسميته وربطها  بالكومبوبوكس   بشرط  الا  يتعارض  مع  الاسماء  الخاصة  ببيانات  الاكسيل  نفسها   والا  سيرفضها 

تحياتي 

اقتباس

لا هو انا معرفش ازاي تتعمل انا طالبه المساعده من المحاسبين يساعدوني ف ملف اكسيل لتحديد فروق العملات 

شكل  تركيبة  البيانات  وطريقة  الحساب  موجودة  في  تصورك  وليس  ف  تصور  الاعضاء  اذا  قمنا  عمل  بالتخمين  عندها  ستقولي  ليس  هذا  ما  اريده  ,  حينها   سيكون  اهدار  للوقت . لذلك  نطلب  دائما  ارفاق  ملف  وتصور  النتائج  المتوقعة  و لااعتقد انها  صعبة .

اقتباس

ممكن يكون الموضوع مش بمكانه ..لكن انا لم انتهك حرمات المنتدى

بل  انه  مكانه  وانك  لم تنتهكي  قوانين  المنتدى  بشكل  صارخ   ولكن  ساعدي  نفسك  بعمل  ملف  بسيط   ليس  بالضرورة  بياناتك  الحقيقة اذا  كان  هنا  خصوصية لعدم  عرضها  على  الاخرين 

حتى  يساعدك  الاخرين   والا  لن  تجدي  من  يدخل  في   مواضيع  تعتبر  عشوائية  بدون  اي  ملف  وتفاصيل  دقيقة .

تحياتي.

مجرد  ملاحظة  لن  ينجح  معك  الامر  وستطلبين  المساعدة مرة اخرى لو حدث  اختلاف  في  تركيب  البيانات اعتقد  هذه  الموضوع  الثاني الذي  اراه  منك   غير  واضح ومشوش  

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

واعتقد  ان  الاستاد @نزار سليمان عيد لديه  الاستعداد  لمساعدتك  لذلك  لا  تبخلي  عليه  على  الاقل  بتصميم  ملف  بسيط  حتى  يتمكن  من تنفيد  افكاره.

تحياتي 

ليس من  المعقول  15 مشاركة   لا زلت  تجهلين  قوانين  المنتدى  اين  الملف 😱 

ضعي  بياناتك  الرئيسية  قبل  وكيف  تكون  بعد  حتى  يساعدك  باقي  الاعضاء  .

تحياتي.

انسخ  هذا  في  موديول  اليوزرفورم ( اكتب   الرقم في  التيكست بوكس فعل  التشيك بوكس)

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
 TextBox1.Value = Val(TextBox1.Value) * -1
 ElseIf CheckBox1.Value = False Then
 TextBox1.Value = Val(TextBox1.Value) * -1
 
End If
End Sub

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

اعتقد  من  الافضل  ان  تقوم  بشرح  تفصيلي  ما  تريده.  عذرا  انتظر  شخصا  اخر  يقوم  بالمساعدة .

تحياتي .

اخي  الكريم 

هل  يتعبك  ان  تصف  لنا  ما  هو  الخطا  الذي  يظهر  لك .   كيف  نعرف  ؟🤔

,,Application.ScreenUpdating = False

احدف  الفاصلتين قبل السطر

بعد 5  ايام  يتم  الرد  

كلمة السر  myPass

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Sheet1.Unprotect Password:="myPass"
With Target
    .Cells.Locked = True
    On Error Resume Next
    .Cells.SpecialCells(xlCellTypeBlanks).Locked = False
    On Error GoTo 0
End With
Sheet1.Protect Password:="myPass"
End Sub

1مثال.xlsm

قم  بفك  هذه  الاداة  الى  

C:\Windows\System32

ثم  شغلها   من قائمة ابدا > نظام الويندوز > تشغيل  Regsvr32.exe fm20.dll
حتى  يتم  التسجيل  وان  لم  ينجح  عليك  اظهار  لنا  قائمة  العناصر  المختارة من  reference

اغلب ظني ان  هناك  عنصر  مختار  يجب  ازالته 

fm20.zip

@Elsayeh  هل  لديك  اصدارين  اكسيل  على  نفس  الجهاز ؟ قد  يكون  السبب  منهم او من  قائمة  reference    ابحث  عن  هذا  الخيار  كما  في  الصور  اذا  كان  مختار  ازل  الخيار

مجرد تخمين 

  موضوعك  لا  يوجد  به  اي  تفاصيل دقيقة  على  الاطلاق. 

منذ  متى  يتم  الفرز  بخلايا  مدمجة  كما  انك  لم  توضح  هل  في  كل  مرة  يتم  الفرز   يتم  النسخ  الى  الاسفل  ام  استبدال  البيانات  الجديدة بالقديمة .

لماذا  لا تبحث  في  المنتدى  عن  مواضيع  الفرز  وقم  بتعديلها  بناء  على متطلباتك؟

  واذا  واجهت  مشكلة  سيتم  مساعدتك .

ابحث  عنها  في  المنتدى  هذا  الموضوع  متوفر  بكثرة .

تابع  هذا  الموضوع  مع  الاخ  ابوعيد  ما  ادام  تريد  ايضا  ارساله  بالواتساب 

https://www.officena.net/ib/topic/113251-ارسال-كشف-حساب-عبر-الواتس-اب-مساعدة/

هل  يظهر  لك  اي  خطأ 

جرب  تشغيل  F8  من داخل محرر الاكواد   سطر  بسطر  قد  يخرج  لك  خطا  

على حسب  ما  فهمت   هذا  ما  تحتاجه 

Sub PRINT_OUT()
Range("a1:i29").PrintOut Copies:=2
End Sub

@mra63 لا ادري  لماذا  اصرارك  على  عدم  ادراج  ملف  وانشاء  يوزرفورم   حتى  يستطيع  الاخرين  مساعدتك . 

عالعموم  انشأ يوزفورم  به  اثنان  تيكست  بوكس   وقم  بالنقر  مرتين  على  اليوزفورم والصق  هذه  الاكواد كاملة .

عند  تشغيل  اليوزرفورم  سيتم  تلوين  textbox1,2  باللون  الاصفر  و اذا  كتبت  في  احدهم  سيتلون بالابيض .

Private Sub TextBox1_Change()
    If TextBox1.Text <> "" Then
       TextBox1.BackColor = RGB(255, 255, 255)
       Else
       TextBox1.BackColor = RGB(255, 255, 0)
       End If      
End Sub
Private Sub TextBox2_Change()
If TextBox2.Text <> "" Then
       TextBox2.BackColor = RGB(255, 255, 255)
       Else
       TextBox2.BackColor = RGB(255, 255, 0)
       End If
End Sub

Private Sub UserForm_Initialize()
TextBox1.BackColor = RGB(255, 255, 0)
TextBox2.BackColor = RGB(255, 255, 0)

End Sub

@صاصا فتحي لماذا انت فض هكذا 

انا ما قصدته حدف السطر كاملا  لنرى ما ذا كان البرنامج يعمل  لاني لا اجد اي تقويم في الفورم الخاص  بك عند تشغيله فقط فورم فارغ  لذلك قلت لك ما الذي تسعى وراءه  . اذا اردت المساعدة يجب  ان تتقبل اراء الاخرين  حتى لو كان فيه انتقاد لك. الانتقاد ليس لمجرد الانتقاد  وانما لطريقة طرح السؤال تصعب الامور على نفسك ومن يريد مساعدتك .بناء على ما تقدم لا داعي لتقول اخر مرة اطرح سؤال   ولكن وضح اكثر ما تريده .

@صاصا فتحي من  قام  بكتابة  هذا  الشيء  . 

هذا  مخالف  صارخ لخصائص  اليوزرفورم  

احدفه  ولكن  لا  اعلم ما  الذي  تسعى  وراءه 

لست جيدا بالمعادلات مجرد تخمين  اعتقد يتم تخطي الصف 16 ويبدا من الصف 17 

@lionheart after you 

نظرة  سريعة  على  الكود  جرب  تغيير هذا  السطر من 

                For ii = 2 To UBound(a, 2)

الى

                For ii = 2 To UBound(a, 2)-2

اذا  لم  ينجح   اصدر  موضوع  جديد

ملاحظة :  كما  قال  لك @lionheart  قم  بتعديل  المسافات  للاسماء  المتكررة  حتى  يعمل  الكود   حتى  لا تاتي  بعد  فترة   وتقول  الكود  لم  يعد  يعمل 

تحياتي

ما دمت  تريدين  جمع  القيمتين  لا  تحتاجي  الضغط  على زر  اي  منهم  مجرد  تشغيل  اليوزرفورم  تظهر  اجمالي  القيمتين  في  الخلية  المذكورة 😎