أبو عبد الملك السوفي قام بنشر نوفمبر 10, 2018 مشاركة قام بنشر نوفمبر 10, 2018 (معدل) السلام عليكم أساتذتنا الكرام كيف اجعل مؤشر الكتابة ثابت في 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, 2018 بواسطه أبو عبد الملك السوفي رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر نوفمبر 10, 2018 مشاركة قام بنشر نوفمبر 10, 2018 وعليكم السلام اخى الكريم عليك برفع الملف نفسه رابط هذا التعليق شارك More sharing options...
عبدالسلام ابوالعوافي قام بنشر نوفمبر 10, 2018 مشاركة قام بنشر نوفمبر 10, 2018 ضع في نهاية الاجراء Me.TextBox2.SetFocus رابط هذا التعليق شارك More sharing options...
أبو عبد الملك السوفي قام بنشر نوفمبر 10, 2018 الكاتب مشاركة قام بنشر نوفمبر 10, 2018 ماذا تقصد بنهاية الاجزاء ؟ رابط هذا التعليق شارك More sharing options...
أبو عبد الملك السوفي قام بنشر نوفمبر 10, 2018 الكاتب مشاركة قام بنشر نوفمبر 10, 2018 38 دقائق مضت, عبدالسلام ابوالعوافي said: ضع في نهاية الاجراء Me.TextBox2.SetFocus ما القصد بنهاية الاجزاء رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر نوفمبر 10, 2018 مشاركة قام بنشر نوفمبر 10, 2018 (معدل) بعد إذن أستاذنا / عبدالسلام أبو العوافي ما يقصده هو أن تضعه قبل End sub تم تعديل نوفمبر 10, 2018 بواسطه ahmedkamelelsayed0 رابط هذا التعليق شارك More sharing options...
أبو عبد الملك السوفي قام بنشر نوفمبر 10, 2018 الكاتب مشاركة قام بنشر نوفمبر 10, 2018 لم يعمل يبقى المشر ينتقل الى TEXTBOX3 الذي يقع بعده مباشرة رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر نوفمبر 10, 2018 مشاركة قام بنشر نوفمبر 10, 2018 (معدل) جرب وضع الكود بعد هذا السطر UserForm2.TextBox2.Value = "" تم تعديل نوفمبر 10, 2018 بواسطه ahmedkamelelsayed0 رابط هذا التعليق شارك More sharing options...
أبو عبد الملك السوفي قام بنشر نوفمبر 10, 2018 الكاتب مشاركة قام بنشر نوفمبر 10, 2018 جربته ولم يصلح رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر نوفمبر 10, 2018 مشاركة قام بنشر نوفمبر 10, 2018 ممكن رفع الملف رابط هذا التعليق شارك More sharing options...
عبدالسلام ابوالعوافي قام بنشر نوفمبر 10, 2018 مشاركة قام بنشر نوفمبر 10, 2018 جرب الكود بهذه الطريقة ولو حدث خطأ الرجاء تحميل الملف لكي يتم العمل عليه 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: GoTo l 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 l: UserForm2.TextBox2.SetFocus End Sub رابط هذا التعليق شارك More sharing options...
أبو عبد الملك السوفي قام بنشر نوفمبر 10, 2018 الكاتب مشاركة قام بنشر نوفمبر 10, 2018 5 دقائق مضت, عبدالسلام ابوالعوافي said: جرب الكود بهذه الطريقة ولو حدث خطأ الرجاء تحميل الملف لكي يتم العمل عليه 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: GoTo l 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 l: UserForm2.TextBox2.SetFocus End Sub للعلم استاذ يوجد هذا الكود في حدث التكس بوكس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 رابط هذا التعليق شارك More sharing options...
عبدالسلام ابوالعوافي قام بنشر نوفمبر 10, 2018 مشاركة قام بنشر نوفمبر 10, 2018 طريقة ارجاع المؤشر الى التكست بوكس هي setfocus ويجب ان تكون في اخر الاجراء .. يعني لو ان الاكواد متداخلة باكثر من اجراء يجب تتبع كل التفريعات للاجراءات وتكون نهايتها بالـ setfocus ممكن يكون صعب فهم كلامي بدون مثال كصعوبة فهم اكوادك بدون رفع الملف 1 رابط هذا التعليق شارك More sharing options...
أبو عبد الملك السوفي قام بنشر نوفمبر 10, 2018 الكاتب مشاركة قام بنشر نوفمبر 10, 2018 الحمد لله تم حل المشكل بتكوين كود لغلق الفوروم واعادة فتحه بعد تنفيذ عملية الترحيل ...شكرا لكم جميعا جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان