أبو أنس حاجب قام بنشر ديسمبر 21, 2007 مشاركة قام بنشر ديسمبر 21, 2007 السلام عليكم ورحمة الله وبركاتة. عيد مبارك وكل عام وأنتم في خير وصحة وعافية. أرجو المساعدة في فورم إدخال بيانات بإضافة أزرار داخل الفورم للبحث والتعديل حسب عمود وليكن عمود D. أبوأنس Copy__2__of_Orders.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر ديسمبر 27, 2007 مشاركة قام بنشر ديسمبر 27, 2007 السلام عليكم انظر الى المرفق ان شاء الله يكون المراد اخوكم خبور خير Copy__2__of_Orders.rar رابط هذا التعليق شارك More sharing options...
أبو أنس حاجب قام بنشر ديسمبر 28, 2007 الكاتب مشاركة قام بنشر ديسمبر 28, 2007 السلام عليكم ورحمة الله وبركاتة. أستاذي وسيدى الفاضل/ خبور حفظك الله من كل الشرور. اعلم مدى الجهد المبذول في هذا الملف جزاك الله خير الجزاء. هناك مشكلة حيوية في الملف أحب أن تحل من ثم نضيف اللمسات الاخرى حسب ماتسمح به الظروف وهي: عند إضافة بيان جديد وليس مكتملاً لكل الخلايا تتأثر خلايا المعادلات بالسلب لهذه الأضافة وإن كانت الخلايا فارغة. أرجو التجربة باضافة بيان جزئي ثم مراقبة ما يحدث لأعمدة الدوال S و Z لنفس السطر المضاف. أبوأنس رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر ديسمبر 29, 2007 مشاركة قام بنشر ديسمبر 29, 2007 السلام عليكم اخي ضيف في الكود بجنب التيكس بوكس كلمة قيمة هكذا TextBox1.Value Private Sub CommandButton4_Click() Dim Response Response = MsgBox(":لقد قمت بالتعديل " & "فهل تود الإستمرار؟", vbYesNo + vbQuestion, "تأكيد التعديل") If Response = vbYes Then For T = 2 To Columns(1).Rows(65536).End(xlUp).Row If Cells(T, 4) = ComboBox1.Text Then With Cells(T - 1, 1) .Offset(1, 0) = TextBox1.Value .Offset(1, 1) = TextBox2.Value .Offset(1, 2) = TextBox3.Value .Offset(1, 3) = TextBox4.Value .Offset(1, 4) = TextBox5.Value .Offset(1, 5) = TextBox6.Value .Offset(1, 6) = TextBox7.Value .Offset(1, 7) = TextBox8.Value .Offset(1, 8) = TextBox9.Value .Offset(1, 9) = TextBox10.Value .Offset(1, 10) = TextBox11.Value .Offset(1, 11) = TextBox12.Value .Offset(1, 12) = TextBox13.Value .Offset(1, 13) = TextBox14.Value .Offset(1, 14) = TextBox15.Value .Offset(1, 15) = TextBox16.Value .Offset(1, 16) = TextBox17.Value .Offset(1, 17) = TextBox18.Value .Offset(1, 19) = TextBox19.Value .Offset(1, 20) = TextBox20.Value .Offset(1, 21) = TextBox21.Value .Offset(1, 22) = TextBox22.Value .Offset(1, 23) = TextBox23.Value .Offset(1, 24) = TextBox24.Value .Offset(1, 26) = TextBox25.Value .Offset(1, 28) = TextBox26.Value .Offset(1, 29) = TextBox27.Value .Offset(1, 30) = TextBox28.Value End With End If Next End MsgBox "تمت إضافة جميع البيانات بنجاح", vbInformation, "تمت الإضافة" End If End Sub الجميع حق الااضافة والتعديل وستنتهي المشكلة رابط هذا التعليق شارك More sharing options...
أبو أنس حاجب قام بنشر ديسمبر 29, 2007 الكاتب مشاركة قام بنشر ديسمبر 29, 2007 السلام عليكم ورحمة الله وبركاتة أستاذي الفاضل اشكرك وجزيت خيراً. هل من سبيل الي اختصار هذه الاكواد حيث عندما نقلت الفورم الى ملفي الاصلي الذي هو اكبر بكثير من الملف في المشاركة. اصبح التنفيذ يحتاج فترة طويلة للغاية تزيد عن الخمس دقائق للعملية الواحدة هل هناك حل. أبوأنس رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.