-
Posts
22 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه ابوذوابة
-
-
شكرا لك مديري الفاضل على الرد السريع بارك الله فيك
اريد عمل زر ادخال بيانات ( زر امر ) عند الضغط علية يقوم البرنامج بادخال البيانات في الاعمدة الثلاث بشكل تلقائي
اي بمعنا اني عندما اضغط على زر الامر يدخل في عمود والصف الاول رقم الحرارة عشوائي بين 21 الى 24.5 وايضا درجة الرطوبة 28-35 رقم عشوائي وايضا التاريخ بالنسبة للساعة فهو ثابت كل ساعتين اما الدقائق والثواني بشكل عشوائي على ان يكون زائد دقائق وثواني معدودة
يعني الان انا ضغط على زر الامر يعطيني التالي مثلا
Humidity temp date&time
22\03\2013 12:03:11 22.01 34.09
وهكذا كل ساعتين على ان يكون الحرارة والرطوبة برقم عشوائي وايضا الثواني والدقائق
بارك الله فيك يا الغالي ننتظركم
-
بسم الله
الرحمن الرحيم
اخواني
في الله ، الاساتذة الكرام اسال الله تعالى ان يفرج همكم وارجوكم مساعدتي بارك
الله فيكم
في الجدول بالمرفق هو عبارة عن 3\3 اعمدة العمود الاول
هو أخذ قراءة الحرارة temp والعمود الثاني اخذ قراءة الرطوبة humidity العمود الثالث هو عبارة عن تاريخ ووقت معا .
ويتم أخذ قراءة الحرارة temp و الرطوبة humidity ::: كل ساعتين 2
ساعة حيث يسجل في خانة التاريخ والوقت يعني في اليوم يجب ان يكون في
صفوف الجدول 12 مرة في اليوم قراءة حرارة
ورطوبة .-
وطبعا الحرارة يجب ان تكون بين 21 الى 24.5 درجة مئوية اما الرطوبة تكون من 28 الى 36 درجة.
اولا : اريد ان يسجل البرنامج درجة الحرارة في عمود temp رقم
بشكل (عشوائي ) ولكن بشرط لايقل عن 21 او يكثر عن 24.5 << مثلا
22.05 \ او 23.11 وهكذا برقم عشوائي كل ساعتين
ايضا نفس الشيء في عمود الرطوبة humidity رقم عشوائي كل ساعتين لايقل عن 28 او يكثر عن 36 ولكن بارقام عشوائية كل ساعتيين
ثانيا : التاريخ والوقت ( وقت الساعات معروف كل ساعتين ) ولكن الدقائق
والثواني اريد ان تتم بشكل عشوائي يعني
مثلا
اول قراءة حرارة ورطوبة مثلا في تاريخ21\03\2013 والساعة 12:10:03 ثواني ثم بعد
ساعتين اخذ قراءة الحرارة والرطوبة برقم عشوائي في الشروط السابقةبتاريخ 21\03\2013 الساعة 02:14:22 ثانية
لونظرنا الى الدقائق والثواني لوجدناها عشوائية يعني(( زائدة دقيقة او عشر ...الخوكذالك الثوانيزائدة عشرثواني او اكثر بقليل )) هذا هو
المطلوب
يارب اكون وصلت الفكرةوفهمتوني
ننتظركم بارك الله فيكمشكرا لكم الله يوفقكم
-
-
منورين يا طيبين بارك الله فيكم
ساقوم بتغيير الاسم ان شاء الله
-
بسم الله نبدأ
أخي الحبيب أعتقد بالنسبة لأمر الطباعة فهذا غير ممكن كيف تكون الطباعة
من a3 : k10000 ولا يطبع الا البيانات الموجودة اتوقع غير ممكن لكن توفير كود الطباعة سهل انتظر ردك بشأن هذا الامر
استاذي الغالي ابومحمد المحترم
شكرا لك دعني اوضح لك ان شاء الله تصلك الفكرة التي تجول في بالي
عندي شيت وبها بيانات وهذة البيانات هي الاسم name- رقم التشغيلة batch- الكمية balance-المكان location -النوع status-برميل drum-تاريخ الصنع m.date-تاريخ الانتهاء e.date - ملاحظات remarks
وطبعا الشيت مكون من هذة العناوين عبارة عن اعمدة بيانات . كل مافي الامر اريد " زر امر يطبع البيانات المدخلة في الخلية فقط مثال
اذا هذ الامر مثلا صعب شوي .. وانا اعلم انة باذن الله ليس صعب عليكم
اريد زر امر طباعة يخرجة منة فورم يعطيني احدد كم صفحة اطبع مثال
ياريت اكون وضحت وبارك الله فيكم
استاذي الغالي ابو حنين يسعدك ربي ويخليك قسم بالله انك عبقري يا الله مااروعك
زبط ولكن به علة ما لانة لاينقل الامرة واحدة فقط يعني لوعدت الكره فانه لايجاوب ...؟ ما الحل ارجوك ؟؟
واتمنى ان يقبل الارقام ايضا يعني بدل BATCH2 مثلا رقم 777 وهكذا
الله يحفظك
بارك الله فيك
-
مساعدة شكرالكم
-
بسم الله الرحمن الرحيم
استاذي الغالي ابوحنين المحترم
بارك الله فيك وجزاك الله مليووووون خيرا على العمل الرااائع والجهد الكبير
حفظك الله يا الغالي الصراحة غاية في الروعة .. ولكن حبذا لو تكرمت بنقطتين في العمل
الاولى : هو انة لايتم النقل الا البيانات الى (تكون موجودة في الفورم نفسة ) والى اريدة هنا هو لو ما في مانع يكون هناك زر بحث عن عمود Batch وعندما يجد البيانات يقوم بنقل ( الصف كامل ) مع (حذف الصف الفارغ ) بعد النقل
||| لاني عندما ادخل على البرنامج لااستطيع نقل صف موجود مسبقا من شيت1 الى شيت 2 ( يارب تكون فاهمني كل ذوووق ) فياريت يكون هناك زر بحث ثم امر نقل صف مع حذف الصف الفارغ بعد النقل .
- سؤال اخر فهل يكمن التعديل على الكود بحيث يكون النقل في بداية a3 للضف في للشيت بدل النقل في a2 .
بالنسبة للطباعة اريد ان يكون المدى بين a3 الى k10000 ولكن بشرط يطبع البيانات الموجودة في الجدول فقط .
||| وفي شغلة بسيطة هو اني عند التحميل اصبح البرنامج بطيء عند عمل حفظ ... لااعرف ما السبب ولكن عندي برنامج اكبر منه حجم بكثير وبة اكواد ومعادلات كثيرة ولكنة سريع فما السبب برايك يا اخي الغالي ؟
وفقك الله يا الغالي وشكرا لك على الجهود الجبارة الله يحفظك ويخليليك عيالك مشكووووووووووووووور
وشكرا لاستاذي الفاضل ابومحمد اشرف الله يوفقك يا الغالي .
-
-
تكتب في في الزر امر insert الكود التالي
Dim Lr As Long, i As Integer
With Sheet3
Lr = .Cells(Rows.Count, "A").End(xlUp).Row + 1
For i = 1 To 10
.Cells(Lr, i) = Me.Controls("TextBox" & i)
.Cells(Lr, 1) = Lr - 2
Next
End With
End Sub
استاذي ودكتوري ابوحنين الرائع
جربت الكود ولك مع الاسف لم يزبط معي فشكرا لك على المحاولة .بارك الله فيك
استاذي ابومحمد اشرف
رعاك الله يا طيب وبارك الله فيك وفي اهلك ومالك وولدك
صراحة اولا اسف على الخطاء الي حصل بالكود فاعذرني لاتني تلميذك المبتديء
ثانيا اشكرك من كل قلبي عاى عمل الكود الاخر شكرالك
وعندي استفسار هل من الممكن او سؤالي كيف اقوم بتعديل الرقم التسلسلي التلقائي في الكود بحيث يكون في الصف الذي اريد ان امكن
وان لم يكن ...فكيف اقوم بحذفة
شكرا لكم
ننتظركم
-
||| دكتور ابو حنين |||
الله يخليلك ولادك الكوود رائع جدااا ماشاء الله عليك ...ولكن اخوي الكود لاينقل من الشيت 1 الى شيت 2
ياريت ياخي تساعدنا بارك الله فيك
وطلب اخر الله يوفقك كيف زر امر طباعة بالفورم يطبع البيانات الموجودة في الجدول فقط .
يحفظك ربي يا الغالي ننتظرك
الله يفرج همك
-
السلام عليكم
برجاء الى عندة معلومات لايبخل علينا
بارك الله فيكم
-
بسم الله الرحمن الرحيمالسلام عليكم ورحمة الله وبركاتةعندي هذا الكود ووضعتة في زر امر insert لادخال البيانات من الفورم 2 الى الشيت 1 (((( كود ترحيل بيانات )))))))المطلوبعندي فورم3 اريد التعديل على هذا الكود -ليصبح عند فتح الفورم رقم3 يدخل البيانات في الشيت 3 (ايضا) مثل ماهو الحال في الفورم2 والشيت1الكود هوPrivate Sub CommandButton1_Click()Cells(10000, "a").End(xlUp).Offset(1, 0).Value = Cells(10000, "a").End(xlUp).Offset(0, 0).Value + 1Cells(10000, "b").End(xlUp).Offset(1, 0).Value = TextBox1.ValueCells(10000, "c").End(xlUp).Offset(1, 0).Value = TextBox2.ValueCells(10000, "d").End(xlUp).Offset(1, 0).Value = TextBox3.ValueCells(10000, "e").End(xlUp).Offset(1, 0).Value = TextBox4.ValueCells(10000, "f").End(xlUp).Offset(1, 0).Value = TextBox5.ValueCells(10000, "g").End(xlUp).Offset(1, 0).Value = TextBox6.ValueCells(10000, "h").End(xlUp).Offset(1, 0).Value = TextBox7.ValueCells(10000, "i").End(xlUp).Offset(1, 0).Value = TextBox8.ValueCells(10000, "j").End(xlUp).Offset(1, 0).Value = TextBox9.ValueCells(10000, "k").End(xlUp).Offset(1, 0).Value = TextBox10.ValueEnd Sub
شكرا لكم ننتظركم بفارغ الصبر
- 1
-
-
بسم الله المعطي والنافع والحكيم
السلام عليكم ورحمة الله وبركاتة
والله الدكتور عبداللة المجرب ماقصر معي استاذي الفاضل الكبير وكل من يعطينا علم نافع جزاكم الله جنات الفردوس الاعلى
ولي طلب " معليش ثقلت حالي عليكم " ولكن ضعف الحال للعلم ومااوتينا من العلم الاقليل
عند بالملف المرفق 4 شيتات الشيت1 فية بيانات (اريد زر امر(MOVE) في الفورم يقوم بحذف الصف الى بة البيانات ونقلة الى الشيت رقم 2 بالتسلسل (في الشيت2)
وكذالك الحال بالفورم رقم 3 زر امر(MOVE) يحذف الصف المراد في الشيت 3حذفة ونقلة الى شيت4 بالتسلسل (( طبعا بعد عمل زر بحث عن الصف)
ياريت والله تعملووو معروف لوجهه الله تعالى الكريم .
ننتظركم
شكرا لكم
-
-
دكتور عبد الله انت روووعة ياامير شكرا لك ممتاز جداااااااااااا
ممكن طلب اخر
اريد كود يفتح SHEET في زر امر بالفورمفي زر OPENLIST
الله يوفقك
ننتظرك
-
-
بسم الله الرحمن الرحيم
السلام عليكم
ارجوكم اريد كود في زر امر بالفورم يفتح شيت معين .
- وعندي 4 فورم عملت لكل منها زر تنقل بكود في زر امر بالفورم USERFORM.SHOW ولكن عند التنقل بينها يعطيني خطاء
هل هو احتمال تكرار SHOW في كل زر مثلا؟ ارجوا الرد
شكرا لكم
-
السلام عليكم اين الاساتذة الافاضل ؟ ننتظركم شكرا لكم
-
-
استاذ يحيى بارك الله فيك جزاكم الله خيرا
ممكن اعرف اين اجد هذة العبارة
Macro Enabled workbook
اريد توضيح شيء عادة اقوم بوضع اي كود عن طريق الضغط على alt+f11واعمل من قائمة ادارج module جديد واضع الكود فية هل هذة الطريقة صحيحة ؟شكرا لكماما السؤال الثاني الذي طرحتة ممكن اي رابط لكي اتعلم شكرا لكم -
بسم الله الرحمن الرحيم
الاساتذة الافاضل شكرا لكم جميعا ، منكم دائما نستفيد " هذة اول مشاركة لي في موقعكم المميز والاعضاء الرائعين بارك الله فيكم
عندي كم استفسار وارجوا الرد عليها جزاكم الله الف خيرا
سؤالي الاول:
عند وضع كود في الاكسل تظهر لي هذة الرسالة لااعلم ما الحل مرفق صورة
سؤالي الثاني
كيف اقوم بعمل فورم بالاكسل 2007 مرتبط بالخلايا
مثلا
عندي اعمدة
اريد ان اعمل فورم بة البيانات السابقة فعند ادخال مثلا الاسم في الفورم يظهر تلقائي في الجدول الي بالصورة السابقة وهكذا بشكل تسلسلي بازرار ادخال ومسح واخراج جدول ايضا
الفورم مكون من عدة ازرارات وهي - ادخال - تعديل - طباعة جدول "الشيت1" - حذف - معينة-حفظ-
وطبعا يكون كانة برنامج اي بمعنا مخفي شريط العنوان وشريط الادوات وشريط المهام - واقوم باظهارها بازرار فية رقم سري اي فقط للادمن يمكنة التعديل
جزاكم الله خيرا
ننتظركم شكرا لكم
- 1
طلب : التعديل على جدول بارقام عشوائية لقياس الحرارة والرطوبة بوقت معين
في منتدى الاكسيل Excel
قام بنشر
نعم استاذي الغالي
ولكن كل ساعتين يعطيني رقم حرارة عشوائي بس بين 21-24.5 وايضا رقم رطوبة عشوائي بين 28-36
شكرا لكم