أبو عبد الملك السوفي قام بنشر نوفمبر 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 بواسطه أبو عبد الملك السوفي
أحمد يوسف قام بنشر نوفمبر 10, 2018 قام بنشر نوفمبر 10, 2018 وعليكم السلام اخى الكريم عليك برفع الملف نفسه
عبدالسلام ابوالعوافي قام بنشر نوفمبر 10, 2018 قام بنشر نوفمبر 10, 2018 ضع في نهاية الاجراء Me.TextBox2.SetFocus
أبو عبد الملك السوفي قام بنشر نوفمبر 10, 2018 الكاتب قام بنشر نوفمبر 10, 2018 ماذا تقصد بنهاية الاجزاء ؟
أبو عبد الملك السوفي قام بنشر نوفمبر 10, 2018 الكاتب قام بنشر نوفمبر 10, 2018 38 دقائق مضت, عبدالسلام ابوالعوافي said: ضع في نهاية الاجراء Me.TextBox2.SetFocus ما القصد بنهاية الاجزاء
احمد بدره قام بنشر نوفمبر 10, 2018 قام بنشر نوفمبر 10, 2018 (معدل) بعد إذن أستاذنا / عبدالسلام أبو العوافي ما يقصده هو أن تضعه قبل End sub تم تعديل نوفمبر 10, 2018 بواسطه ahmedkamelelsayed0
أبو عبد الملك السوفي قام بنشر نوفمبر 10, 2018 الكاتب قام بنشر نوفمبر 10, 2018 لم يعمل يبقى المشر ينتقل الى TEXTBOX3 الذي يقع بعده مباشرة
احمد بدره قام بنشر نوفمبر 10, 2018 قام بنشر نوفمبر 10, 2018 (معدل) جرب وضع الكود بعد هذا السطر UserForm2.TextBox2.Value = "" تم تعديل نوفمبر 10, 2018 بواسطه ahmedkamelelsayed0
عبدالسلام ابوالعوافي قام بنشر نوفمبر 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
أبو عبد الملك السوفي قام بنشر نوفمبر 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
عبدالسلام ابوالعوافي قام بنشر نوفمبر 10, 2018 قام بنشر نوفمبر 10, 2018 طريقة ارجاع المؤشر الى التكست بوكس هي setfocus ويجب ان تكون في اخر الاجراء .. يعني لو ان الاكواد متداخلة باكثر من اجراء يجب تتبع كل التفريعات للاجراءات وتكون نهايتها بالـ setfocus ممكن يكون صعب فهم كلامي بدون مثال كصعوبة فهم اكوادك بدون رفع الملف 1
أبو عبد الملك السوفي قام بنشر نوفمبر 10, 2018 الكاتب قام بنشر نوفمبر 10, 2018 الحمد لله تم حل المشكل بتكوين كود لغلق الفوروم واعادة فتحه بعد تنفيذ عملية الترحيل ...شكرا لكم جميعا جزاكم الله خيرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.