زياد عبد الجليل

استاذ ياسر شكرا على مرورك الطيب ...انا اود عند ترحيل البيانات الى الجدول حسب الملف المرفق يقوم يترقيم المرحلين تسلسليا من 1 الى غاية اخر مرحل وليكن 5 كاخر مرحل ولكن عند حذف سطر مثلا و ليكن السطر الذي يحمل رقم 3 اود ان يعاد الترتيب تسلسليا من 1الى 4 وليس 1.2.4.5. الكود الموضوع في حدث الورقة يعمل بشكل جيد ولكن عند الترحيل الى الجدول الثاني يجب عدم كتابة اي شئ في الخانات من b34:b40 واذا رحلنا الى هذه الخلايا هنا الترقيم سيتسلسل ابتداء من الخلية a21الى غاية اخر خلية بها قيمة في العمود b . المطلوب ان امكن تعديل هذا الكود و حصره في التعامل مع النطاق من a21:a30 و النطاق a34:a40 او تقديم كود جديد يغنينا عن هذا الكود . Private Sub Worksheet_Change(ByVal Target As Range) Dim Lr As Long: Lr = Cells(Rows.Count, "B").End(xlUp).Row Dim myRange As Range Dim cell As Range Set myRange = Range("b21:b" & Lr) If Not Intersect(myRange, Target) Is Nothing Then For Each cell In myRange Range("a" & cell.Row) = cell.Row - 20 Next cell End If Set myRange = Range("B34:B" & Lr) If Not Intersect(myRange, Target) Is Nothing Then For Each cell In myRange Range("a" & cell.Row) = cell.Row - 33 Next cell End If End Sub وعند وضع الكود بهذا الشكل عن مسح خلايا بها قيم يرقم من الخلية a1 بهذا الشكل -1.-2.-3.-4.....ارجو وضع هذا الكود في الملف المرفق للاطلاع على المشكلة بدقة ولكم مني جزيل الشكر ...وانا على علم بان هناك من الاخوة الافاضل من لديه الحل سواء لهذا الكود او لكودجديد ان شاء الله...استودعكم الله الذي لا تضيع ودائعه ولكم مني جزيل الشكر و العرفان

Private Sub Worksheet_Change(ByVal Target As Range) Dim Lr As Long: Lr = Cells(Rows.Count, "B").End(xlUp).Row Dim myRange As Range Dim cell As Range Set myRange = Range("B21:B" & Lr) If Not Intersect(myRange, Target) Is Nothing Then For Each cell In myRange Range("a" & cell.Row) = cell.Row - 20 Next cell End If End Sub لقد وضعت هذا الكود في حدث الورقة و يعمل بشكل جيد و لكن الاشكال هو ضرورة عدم كتابة اي شئ في العمود b من b33:b34 ارجو التعديل في هذا الكود و جعله يرقم من a21:a30 ونفس الشء بالنسبة للجدول ادناه من a34:a40

للرفع

السلام على جميع الاساتذة الافاضل ...عندي طلب يتمثل في الاتي 1- عندي ملف به فورم يتم من خلالها ترحيل بيانات من صفحة الى صفحة محددة اود عند الترحيل ان يقوم بعمل ترقيم تسلسلي في الخانة a اي كلما رحلت سطر ياخذ رقما تسلسليا و في حالة حذف سطر كذلك يعاد الترقيم تسلسليا و اليا لمعرفة المطلوب بدقة ارجو الاطلاع على الملف المرفق و لكم مني جزيل الشكر و التقدير ترقيم تسلسلي عن طريق الفورم.rar

شكرا استاذ ياسر على مرورك العطر و جمعة مباركة

السلام على حميع الاساتذة الافاضل اما بعد كيف يمكن وضع كود لهامش الصفحة في حدث الورقة ....لقد وجدت هذا الكود للاستاذ القدير ياسر خليل و لكن لم اعلم كيفية كتابته في حدث الورقة .LeftMargin = Application.CentimetersToPoints(1) .RightMargin = Application.CentimetersToPoints(1) .TopMargin = Application.CentimetersToPoints(1) .BottomMargin = Application.CentimetersToPoints(2) .HeaderMargin = Application.CentimetersToPoints(1) .FooterMargin = Application.CentimetersToPoints(1) وان امكن اريد تحديد الهامش من فوق و اسفل و على اليمين و اليسار فقط ولكم مني فائق عبارات الشكر و التقدير

بارك الله فيك استاذ خالد الكود يعمل بشكل جيد و رائع...شكرا جزيلا

للرفع

السلام على جميع الاساتذة الافاضل اما بعد : لقد حملت مؤخرا ملف للاستاذ القدير ابو حنين به كود رائع حيث بمجرد عمل كليك على الليست بوكس يرحل الصف الى ورقة من الملف ولكن الاشكال هو رغبتي في الترحيل الى خلايا معينة في الكود بالرغم من كتابة اي شئ ادنى الخلية e ....لمعرفة المطلوب بدقة ارجو الاطلاع على الملف المرفق ارجو مساعدتي ولكم مني فائق عبارات الشكر و التقدير كليك في ليست بوكس و ترحيل.rar

السلام على جميع الاخوة الافاضل اما بعد: عندي استفسار حول كود يقوم بنقل محتويات فورم1 الى فورم 2 بدون استعمال هذا الكود Private Sub UserForm_Activate() UserForm2.Label1 = UserForm1.TextBox1 end sub ولكن باستخدام الكود التالي مع تعديله و تنسيقه Private Sub CommandButton1_Click() For i = 1 To 10 Me.userform2("TextBox" & i) = userform1.......... userform2.show Next End Sub لا اعلم ان كان هذا ممكن ام لا ...تقبلو شكري الخالص

شكرا استاذ طلعت على تجاوبك مع الموضوع هنا قمنا بوضع HEIGHT=800 قبل كود الطباعة واذا نفذنا هذا الامر لاحظ السطر الاخير لا يطبع في اخر الورقة و انما في وسطها وكذلك اشكال اخر اذا زدنا في قيمة طول الفورم هنا الفورم عند طباعتها لا تكون متناسقة مع الورقة بالشكل الاصلي لها وهنا نكون مجبرين باضافة كود لتنزيل بعض محتويات الفورم الى الاسفل اذا طبقنا كود HEIGHT=800 و بتوضيح اكثر اريد عند الطباعة مهما كان حجم الفورم ان يعمل نسخة طبق الاصل لها بعد الطباعة سواء من حيث الهامش او مكان تمركز النص ...اعتقد ان عمل كود الزووم للفورم ربما يفي بالغرض و الله اعلم ... ارجو ان تكون قد وصلت الفكرة و اجدد لك شكري و مساعدتك لي وبارك الله فيك استاذي الفاضل. Private Sub CommandButton1_Click() With UserForm1 .Zoom = 400 End With UserForm1.PrintForm With UserForm1 .Zoom = 100 End With End Sub

اخي طلعت انا اود طباعة كل بيانات الفورم على ورقة من نوع A4 بحيث يتم طباعة كل محتويات الفورم على الورقة دون تغيير حدود الفورم ...فمثلا عندما طبعت الفورم باستعمال كود UserForm1.PrintForm هناك بيانات كثيرة لا يتم طباعتها الا بتغيير WIDTHالى 800 كما ان تغيير العرض يستوجب معه تنزيل بعض المحتويات الى اسفل الفورم وانا اود طباعة كل المحتويات على الطابعة بدون تغيير في حدود الفورم وبنفس التنسيق الموجود في الفورم اي البيانات الموجودة في اسفل الفورم تطبع في اسفل الورقة لا في المنتصف ...المرفق التالي يبين المطلوب طباعة فورم.rar

بارك الله فيك اخي طلعت لقد حملت الملف علئ الموبايل ساجربه وان شاءالله يفي بالغرض اجدد لك شكري علئ المساعدة وعلى مرورك الطيب

السلام على جميع الاخوة الافاضل بعد بحث طويل و جهد جهيد لم اتمكن من ايجاد حل لمشكلتي و امل ان اجدها لدى اساتذتنا الافاضل: 1-اريد كود طباعة فورم على ورقة نوعية A4 بدون تغيير حدود الفورم بشرط ضهور كل محتويات الفورم على الورقة خاصة من اعلى الورقة ومن اسفل . ولكم مني فائق عبارات الشكر و الامتنان

عذرا استاذ ابو حنين نعم الكود يعمل بشكل جيد ...لمن يهمه لامر يجب وضع الكود في زر وليس حدث الورقة Private Sub CommandButton10_Click() For i = 1 To 20 Me.Controls("TextBox" & i) = Format(Me.Controls("TextBox" & i), "00.00") Next End Sub عندي طلب في نفس الموضوع و المضمون حو الامر exit من التاكس بوكس (Private Sub TextBox20_Exit(ByVal Cancel As MSForms.ReturnBoolean اعندي 20 تاكس بوكس اريد ان اضع امر خروج منهم كلهم وتوجيههم الى الكود ziyad هل يمكن تحقيق هذا و لكم مني جزيل الشكر و العرفان Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) ziyad End Sub

اشكر كل من حاول مساعدتي ... بتوفيق من الله وجدت الحل لهذه المشكلة اليكم الكود Private Sub TextBox35_Change() TextBox35 = Application.RoundDown(TextBox35, 2) TextBox35 = Format(TextBox35, "00.00") End Sub هكذا يتم التخلص نهائيا من تقريب القيم

للرفع

لقد صادفتني مشكلة اثناء اعداد احد البرامج وهي مشكلة تقريب القيمة مثلا :2.027777 عوضا ان يضع القيمة 2.02 يقربها الى 2.03 ولكن باستعمال المعادلة (ARRONDI.INF(2.02777;2= تعمل جيدا بدون تقريب و لكن المشكلة هي انه عندي فورم يقوم بالحساب في تاكس بوكس 35 TextBox34.Value = Val(TextBox20) + Val(TextBox21) + Val(TextBox22) MM = Val(Me.TextBox34) Me.TextBox35 = MM / Val(T1) ولكن القيمة بعد وضع فورمة في تاكس بوكس 35 "00.00"...تقربها 2.03 و ترخلها الى الخانة بهذا الشكل اي مع التقريب بالرغم من تنسيق الخالايا باستعمال الدالة ARRONDI.INF وعند استعمال برنامج محول المعادلات اعطاني المعادلة RoundDown وقمت بتحويلها الى الاتي TextBox35 = Format(TextBox35, "00.00") TextBox35 = RoundDown(TextBox35, 2) ولكن للاسف لم تعمل اصلا و بقي المشكل ...الان كيف يمكن و ضع هذا الكود بطريقة صحيحة:(TextBox35 = RoundDown(TextBox35, 2 ولكم مني فائق عبارات الشكر و التقدير

السلام على جميع الاساتذة الافاضل اما بعد: لقد بحثت في المنتدى ووجدت موضوع يشبه تقريبا ما اطلب تنفيذه للاستاذ عبد الله باقشير و لكن لم استطع تعديل الكود لذا، رجاء رجاء اريد مساعدة في وضع كود في يوزر فورم يقوم بترحيل البيانات من الملف copier a الى الملف fiche بشرط ان يتم اختيار الورقة المراد ترحيلها بالكومبو بوكس ويتم ترحيل المحتوى الذي يضهر في الليست بوكس فقط ...و عند ترحيل صفحة ثانية تاتي البيانات الجديدة تالية للبيانات المرحلة سابقا و هكذا ... وحبذا ان يكون الملف المرحل اليه fiche مغلق وان كان مستحيل فلا بأس . لمعرفة المطلوب بدقة ارجو الاطلاع على الملف المرفق ...(البرنامج من انجاز الاستاذ القدير ابو حنين) ولكم مني فائق عبارات الشكر و التقدير ترحيل الى مستند اخر.rar

السلام عليكم استاذ ابو حنين و اشكرك على مرورك العطر اما بعد لقد وضعت الكود بالطريقة التالية : Private Sub UserForm_Activate() ziyad end sub ------------ sub ziyad() For i = 1 To 20 Me.Controls("TextBox" & i) = Format(Me.Controls("TextBox" & i), "#,##0") Next End Sub ولكن للاسف لم يعمل ...انا اود مثلا عندي قيمة 10.00 بمجرد كتابة 10 تصبح اليا 10.00 وعند وجود قيمة 10.25 هنا اكون مجبر على كتابة العدد كاملا و لكن في حالة كتابة مثلا 102.5 او 1.025او 1025 هنا تظهر رسالة تنبيه بالخطأ... االتمس منك المساعدة في تنفيذ المطلوب ولك مني فائق عبارات الشكر و الامتنان

السلام على جميع الاخوة الافاضل اما بعد : عندي طلب بسيط لا يحتاج الى ارفاق ملف الطلب يتمثل في : 1- عندي فورم بها حوالي 20 تاكس بوكس حيث تكون القيم المدخلة في كل تاكس بوكس بفورمة "00.00 " واذا قمت بالذهاب الى كل تاكس بوكس ووضع كود الفورمة التالي فهذا عمل مجهد بالاضافة الى الاكثار من الاكواد في الملف TextBox1 = Format(TextBox1, "00,00") لكن انا اريد ان اضع كود واحد يقوم بالعمل مرة واحدة بدلا من الذهاب الى كل تاكس بوكس ووضع الكود وقد جربت الكود التالي ولكن للاسف لم يعمل For ii = 1 To 20 Me.Controls("TextBox" & ii) = Format(TextBox, "00,00") next رجاء المساعدة في وضع المطلوب وان امكن وضع رسالة تنص على خطأ في حالة ادراج قيمة مثلا بفورمة تخالف فورمة 00.00 ولكم مني كل الشكر و التقدير و العرفان و بارك الله في الجميع...تقبلو تحياتي الخالصة

شكرا استاذ طلعت الضاهر ان المشكل عندي وقد علمت السبب وهي ضهور النتيجة 36.5 بدلا من النقطة الفاصلة تضهر 36,5 اي "," هي سبب تغير النتيجة وقد جربت كتابة 36.5 بالنقطة الفاصلة مباشرة في التاكس بوكس 8 و قسمتها على 18 وكانت النتيجة صحيحة 100/100 (2.0277)...الان أدركت ان المشكلة تكمن في اعدادات النظام و ذهبت الى اعدادات اللغة ومن paramétres supplémentaires استبدلت الفاصلة بالنقطة شكرا لك استاذ طلعت و بارك الله فيك وجعله في ميزان حسناتك

مثلا انا جربت في تاكس1 =10.50--تاكس بوكس2 =13.50تاكس بوكس3= 12.50 يكون الناتج 36.50 اقسمها على تاكس بوكس 7 وتكون قيمته 18 يكون الناتج بالفورم 2 بالضبط و بالالة الحاسبة 2.02 وانا اريد ان تكون القيمتين متطابقتين ...شكرا استاذ طلعت مرة اخرى على ردك السريع و مروك الطيب .

استاذ طلعت لو تكرمت هناك مشكلة صغيرة ارجو ان تجد لها الحل لاني حاولت و لم انجح 1- المشكلة هي في عملية القسمة : عند وضع علامات بالفاصلة مثلا 10.50 و 12.50 و 13.50 ....الخ نجد ان هناك فرق في ما بعد الفاصلة بين الحساب بالالة الحاسبة و الحساب باليوزرفورم هل يمكن جعل الكود متطابق في النتيجة بين الحساب بالالة الحاسبة و الفورم...و لك مني جزيل الشكر و العرفان.