اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أبو عبد الملك السوفي

04 عضو فضي
  • Content Count

    569
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

26 Excellent

1 متابع

عن العضو أبو عبد الملك السوفي

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    طالب جامعي
  • الإهتمامات
    التعليم القرآني

اخر الزوار

993 زياره للملف الشخصي
  1. استاذ محمد هذا الكود لا يكفي بالغرض لدي فوروم به تكس بوكس والادخال في التكس بوكس يكون عن طريق قارئ الكود بار اي اضع المؤشر في التكس بوكس و امررالكود بار على القارئ فينقل الارقام للتكس بوكس المطلوب هل هناك طريقة او كود لربط القارئ بالتكس بوكس مباشرة حتى ولو كان المؤشر ليس في التكس بوكس فان القارئ ينقل الارقام للتكس بوكس مباشرة
  2. لما العجلة صديقي فالاساتذة الكرام لم يدلوا بدولهم رايت العجب في هذا المنتدى وتعلمت منه الكثير جدا حتى اني والحمد لله اصبحت ابرمج وحدي بفضل الله ثم بفضل هذا المنتدى و انا لا ايأس من شي حتى يقول خبراء المنتدى الامر مستحيل
  3. السلام عليكم أساتذتنا الكرام كيف الحال هل هناك كود يمكنه برط جهاز قاري الكود بار مباشرة بتاكس بوكس في الفوروم عندي فروروم به TEXTBOX2 ودائما يجب ان اضع المؤشر في التكس بوكس لكي يشتغل البرنامج اريد كود يربط القارئ مباشرة بالتكس بوكس بدون ان اتدخل اضن ان الامر ليس مستحيل
  4. الحمد لله تم حل المشكل بتكوين كود لغلق الفوروم واعادة فتحه بعد تنفيذ عملية الترحيل ...شكرا لكم جميعا جزاكم الله خيرا
  5. للعلم استاذ يوجد هذا الكود في حدث التكس بوكس2 Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox2 = "" Then Exit Sub r = Application.WorksheetFunction.CountIf(Sheet1.range("a:a"), TextBox2) If r = 0 Then: TextBox2 = "": Exit Sub ComboBox1.Value = Sheet1.Cells(Application.WorksheetFunction.Match(TextBox2.Value + 0, Sheet1.range("a:a"), 0), 2) TextBox3.Value = Sheet1.Cells(Application.WorksheetFunction.Match(TextBox2.Value + 0, Sheet1.range("a:a"), 0), 5) Call TextBox2_Change End Sub اي ان الكود يتم تنقيذه عند الخروج من التكس بوكس2
  6. لم يعمل يبقى المشر ينتقل الى TEXTBOX3 الذي يقع بعده مباشرة
  7. السلام عليكم أساتذتنا الكرام كيف اجعل مؤشر الكتابة ثابت في TEXTBOX2 بعد عملية الترحيل اي بعد عملية الترحيل يرجع المؤشر ل TEXTBOX2 Sub DOKOL1() Dim lr As Long Dim dat As Date dat = UserForm2.TextBox1 cou = Application.WorksheetFunction.CountIfs(range("A2:A100000"), UserForm2.TextBox1, range("b2:b100000"), UserForm2.TextBox2) If cou = 1 Then lr = MATCHAlsqr(Sheet2.range("A2:b10000"), dat, 1, UserForm2.TextBox2, 2, 1) + 1 Else lr = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1 End If If Sheet2.Cells(lr, 5) <> "" Then Call KOROG11: Exit Sub Sheet2.Cells(lr, 1) = Format(UserForm2.TextBox1.Value, "yyyy/mm/dd") Sheet2.Cells(lr, 2) = UserForm2.TextBox2.Value Sheet2.Cells(lr, 3) = Sheet1.Cells(Application.WorksheetFunction.Match(UserForm2.TextBox2.Value + 0, Sheet1.range("a:a"), 0), 2) Sheet2.Cells(lr, 4) = UserForm2.TextBox3.Value Sheet2.Cells(lr, 5) = Format(Now, "hh:mm") Sheet2.Cells(lr, 9).FormulaR1C1 = "=IF(NOT(OR(COUNTA(RC[-4]:RC[-3])=1,COUNTA(RC[-2]:RC[-1])=1)),IF(RC[-3]<RC[-4],RC[-3]+1-RC[-4],RC[-3]-RC[-4])+IF(RC[-1]<RC[-2],RC[-1]+1-RC[-2],RC[-1]-RC[-2]),"""")" Sheet2.Cells(lr, 10).FormulaR1C1 = "=VLOOKUP(RC[-8],Sheet1!R2C1:R10000C4,4,0)" Sheet2.Cells(lr, 11).FormulaR1C1 = "=IF(RC[-2]="""","""",IF((RC[-1]/24)<RC[-2],ABS(RC[-2]-(RC[-1]/24)),ABS(RC[-2]-(RC[-1]/24))))" Sheet2.Cells(lr, 12).FormulaR1C1 = "=IF(RC[-3]="""","""",IF((RC[-2]/24)<RC[-3],RC[-3]-(RC[-2]/24),(RC[-2]/24)-RC[-3]))" Sheet2.range(Cells(lr, 9), Cells(lr, 12)).Value = Sheet2.range(Cells(lr, 9), Cells(lr, 12)).Value UserForm2.TextBox2.Value = "" Call WindowsMediaPlayer1_OpenStateChange End Sub
  8. السلام عليكم ماهو كود VBA أريد التعديل ليلائم ما أصبوا اليه
  9. السلام عليكم اساتذتنا الكرام في موضوع سايق طرحت طلب المساعدة في برنامج البصمة لكن يبدوا ان المطلوب لم يكن واضح رغم لا يعتمد الا على دالة if متعددة الشروط وساوضح المطلوب من جديد لدينا لدينا ملف به صفحاتان الاولى دخول العمال لادخل رقم البطاقة في الخلية a3 فيقوم الكود بالترحيل المجال من a3 الى d3 الى صفحة دخول 1 اذا كان رقم البطاقة غير مكرر يرحل المجال من a3 الى d3 في صفحة دخول العمال الى صفحة دخول 1 الى اخر سطر فارغ . اذا وجد الرقم مكرر يرحل فقط الخلية d3 من صفحة دخول العمال الى العمود f في صفحة دخول 1 هذا الجزء الاول من المطلوب هل اجد مساعده من فضلكم برنامج البصمة2.rar
×
×
  • اضف...