حسين العصلوجى
-
Posts
331 -
تاريخ الانضمام
-
تاريخ اخر زياره
Community Answers
-
حسين العصلوجى's post in مساعدة في انشاء برنامج ترقية الموظفين was marked as the answer
عدلت لك الملف ليتناسب مع طلبك
لعله يكون المطلوب - وتم تطبيق التغيير علي الملف بالكامل
نموذج_h.xls
-
حسين العصلوجى's post in help قرعة عشوائية was marked as the answer
جرب المرفق لعله يكون المطلوب
H_قرعه عشوائية.rar
-
حسين العصلوجى's post in المساعد فى كود ترحيل was marked as the answer
تم تعديل المرفق كما طلبت
كشف باسماء العاملينH.rar
-
حسين العصلوجى's post in المساعدة فى دالة if was marked as the answer
تم تعديل المرفق كما طلبت
h-الاضافى.rar
-
حسين العصلوجى's post in مساعدة في حفظ نمودج اجازة was marked as the answer
جرب المرفق لعلي اكون وفقت للمطلوب
الاجازة.rar
-
حسين العصلوجى's post in قرعة عشوائية was marked as the answer
تم تعديل المرفق لتلافي وقع طالبان من نفس الفصل في مجموعة واحدة
قرعه عشوائية.rar
-
حسين العصلوجى's post in خطأ يحدث عن غلق الرساله was marked as the answer
Me.TextBox1 = "" المشكلة في هذا السطر لانك كاتب الكود في حدث تغير التكست بوكس فبعد ظهور الرسالة اول مره يقوم هذا السطر بمسح محتوي التكست بوكس فيعمل الكود مره اخري وتظهر الرسالة مره ثانيه
جرب المرفق لعله يكون حلا لمشكلتك
h-MSGBOX.rar
-
حسين العصلوجى's post in مساعدة:: شيت كشف مبلغ والتفاصيل حسب الاسم was marked as the answer
اثراءا للموضوع بعد حل الاخت / ام عبدالله
ده حل لطلبك عن طريق اكواد vba
جرب المرفق لعله يفي بالغرض
H-ll.rar
-
حسين العصلوجى's post in ترحيل الى دفتر الاستاذ was marked as the answer
اخي الفاضل تم تعديل المرفق ليتم مسح البيانات من شيت الاستعاضة بعد الترحيل
اما بالنسبة للتنسيق الشرطي في اي رصيد تريد ان يطبق عليه طبق مثال علي المرفق لتوضيح طلبك
اما عن شرح الكود :-
فهو كود ترحيل عادي يعتد علي نوع الحركة فقط لتحديد مكان وضع المبلغ راجع الكود مره اخري وحدد الاجزاء التي لم تتمكن من فهمها ونتناولها بالشرح ان شاء الله .
H-استعاضة كلابشة.rar
-
حسين العصلوجى's post in طلب نسخ من خلية متغيرة was marked as the answer
تصحيح الكود كالتالى
Private Sub Worksheet_Change(ByVal Target As Range) If Not IsEmpty(Target) Then For x = 13 To 290 If Cells(x, 41) > Cells(x, 40) And Cells(x, 44) = "" Then Cells(x, 44) = Cells(x, 41) Cells(x, 45) = Format(Now, ("HH:MM:SS")) End If If Cells(x, 41) > Cells(x, 44) And Not Cells(x, 44) = "" And Cells(x, 46) = "" Then Cells(x, 46) = Cells(x, 41) Cells(x, 47) = Format(Now, ("HH:MM:SS")) End If Next End If End Sub
الملف المرفق عملت لك فيه ان الكود لايعمل مادام السوق مغلق حتي لايخرج نتائج علي بيانات اليوم السابق فتكون خاطئة
وكذلك عند فتح الملف يحذف الارتفاعات القديمة
H-activecell (3).rar
-
حسين العصلوجى's post in نسخ عمود من صفحة إلى صفحة أخرى بشرطين was marked as the answer
اتمني ان اكون وفقت في عمل المطلوب وان يفى بالغرض
Officena.rar
-
حسين العصلوجى's post in تكفون وضع اسم معين في خلية بناء على رقم خاص به was marked as the answer
الملف بعد التعديل
hh.rar
-
حسين العصلوجى's post in سؤال : أريد إستخراج ايام العمل بين تاريخين بشروط ؟ was marked as the answer
تفضل المرفق
عسى ان يصلح لك
dates.rar
-
حسين العصلوجى's post in حساب سن المعاش لعدد 250 اسم was marked as the answer
بنفس كود الاخ / احمد عبدالناصر عدلت لك الملف
كل ما عليك هو ادخال الاسماء وتاريخ الميلاد وتاريخ التعيين ثم الضغط علي زر احسب سن المعاش
age1.rar
-
حسين العصلوجى's post in برجاء المساعدة فى مشكلة في تحديد قيمة الكومبو بوكس was marked as the answer
جزاك الله خيرا استاذنا وعالمنا الجليل / عبدالله باقشير
في حالة تغير الخاصية style سيمنع الكتابة في الكومبوبوكس نهائيا ويقتصر علي الاختيار من القائمة مما سيتطلب مجهود كبير للعثور على القيمة اذا كانت محتويات الكومبوبوكس كثيرة
انا اريد ان يسمح بالادخال اليدوي ولكن اذا كانت القيمة المدخلة ليست موجوده داخل الكومبوبوكس يرفضها ويظهر تنبيه خطأ
ووجدتها في الخاصية match require
واشكر لك اهتمامك وردك وجزاك الله كل خيرا دوما ماتقصر ما في مساعدة الكل عالمنا الجليل
-
حسين العصلوجى's post in برجاء المساعدة في تحديد سبب الخطأ Value# في هذا الملف was marked as the answer
هل المشكلة كانت فقط في ضغط CTRL+SHHFT+Enter ام عدلت شي في كود الدالة الموجود فالفيجوال بيسك