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

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

04 عضو فضي
  • Content Count

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

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

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

26 Excellent

1 متابع

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

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

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

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

اخر الزوار

1,065 زياره للملف الشخصي
  1. السلام عليكم أود فكرة للتحكم في رقم الكموند بوتون مثلا Private Sub CommandButton5_Click() Me.CommandButton5.BackColor = &HFF& End Sub المطلوب عند نسخ سطر تغيير اللون ولصقه في كود كموند آخر أن يتعرف على رقمه وحده دون أن أكتبه وحدي هكذا Private Sub CommandButton6_Click() Me.CommandButton6.BackColor = &HFF& End Sub Private Sub CommandButton7_Click() Me.CommandButton7.BackColor = &HFF& End Sub
  2. السلام عليكم جزاكم الله خيرا كيف أربط بين الميزان الالكتروني والاكسل حيث عند وضع وزن على الميزان تظهر في الاسكل ...مثل البرامج التي يستخدمها اصحاب محلات الخضر والفواكه
  3. استاذ محمد هذا الكود لا يكفي بالغرض لدي فوروم به تكس بوكس والادخال في التكس بوكس يكون عن طريق قارئ الكود بار اي اضع المؤشر في التكس بوكس و امررالكود بار على القارئ فينقل الارقام للتكس بوكس المطلوب هل هناك طريقة او كود لربط القارئ بالتكس بوكس مباشرة حتى ولو كان المؤشر ليس في التكس بوكس فان القارئ ينقل الارقام للتكس بوكس مباشرة
  4. لما العجلة صديقي فالاساتذة الكرام لم يدلوا بدولهم رايت العجب في هذا المنتدى وتعلمت منه الكثير جدا حتى اني والحمد لله اصبحت ابرمج وحدي بفضل الله ثم بفضل هذا المنتدى و انا لا ايأس من شي حتى يقول خبراء المنتدى الامر مستحيل
  5. السلام عليكم أساتذتنا الكرام كيف الحال هل هناك كود يمكنه برط جهاز قاري الكود بار مباشرة بتاكس بوكس في الفوروم عندي فروروم به TEXTBOX2 ودائما يجب ان اضع المؤشر في التكس بوكس لكي يشتغل البرنامج اريد كود يربط القارئ مباشرة بالتكس بوكس بدون ان اتدخل اضن ان الامر ليس مستحيل
  6. الحمد لله تم حل المشكل بتكوين كود لغلق الفوروم واعادة فتحه بعد تنفيذ عملية الترحيل ...شكرا لكم جميعا جزاكم الله خيرا
  7. للعلم استاذ يوجد هذا الكود في حدث التكس بوكس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
  8. لم يعمل يبقى المشر ينتقل الى TEXTBOX3 الذي يقع بعده مباشرة
  9. السلام عليكم أساتذتنا الكرام كيف اجعل مؤشر الكتابة ثابت في 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
  10. السلام عليكم ماهو كود VBA أريد التعديل ليلائم ما أصبوا اليه
×
×
  • اضف...