DBA.Oracle

بصراحة لا اعلم المشكلة من اين لكن هذه صورة للملف من جهازي يعمل والماكرو يخبرنا بالوقت كما هو مطلوب

تم اضافة ساعة الفتح والاغلاق اتمني ان تكون الطريقة صحيحة برجاء تجربة المرفق والرد بالنتيجة Book5.rar

المرفق به المطلوب الطلب الاول تم الحمد لله والطلب الثالث تم الحمد لله اما الطلب الثاني فلا اعلم ان كنت قد فهمته بطريقة صحيحة ام لا برجاء الاطلاع علي المرفق واتمني ان اكون قدمت المساعدة الكافية إخفاء الصفوف.rar

الملف المرفق يحتفظ بآخر تاريخ تم فتح الملف فيه ويظهره فى رسالة عند فتح الملف المرة الثانية اتمني ان يكون هذا هو المطلوب اما بالنسبة لمدة الفتح فى انتظار احد الاخوة فى اكمال المطلوب للافادة العامة Book5.rar

تسلم مفيش ازعاج ولا حاجة دى ابسط حاجة لو فى اى طلب تانى اتفضل (F)

تفضل المرفق به المطلوب كشف الاجمالي.rar

الفكرة انه فى صفحة مخزن مقسمة بالعرض لعدة اصناف وكل صنف له 4 اسطر عند الترحيل يقوم بالبحث عن الصنف المختار بين الصفوف ويقوم بالادخال فيه ولكن ان وجد انه لا يوجد به مكان فارغ يطلب ادراج صف فارغ فهل ممكن ان نجعله يدخل صف من تلقاء نفسه الكود من اخي الفاضل / خبور خير جزاه الله كل خير فبرجاء المساعدة فى التعديل علي الكود وجزاكم الله خيرا مرفق ملف به المثال والشرح Book1.rar

علي ما اعتقد اوفيس 2010 فيه الخاصية دى والله اعلم فى انتظار الرد من احد الاخوة الافاضل

اللهم اشفه شفاء ليس بعده سقما ابدا اللهم خذ بيده و احرسه بعينيك التى لا تنام و اكفه بركنك الذى لا يرام و احفظه بعزك الذى لا يُضام و ارحمه بقدرتك أنت ثقته و رجائه يا كاشف الهم . يا مُفرج الكرب يا مُجيب الدعوات اللهم البسه ثوب الصحة والعافية عاجلا غير اجلا ياأرحم الراحمين. اللهم اشفه اللهم اشفه اللهم اشفه..اللهم امين

TextBox1.Value = Format(TextBox1.Value, "hh:mm") TextBox2.Value = Format(TextBox2.Value, "hh:mm") تمت بحمد الله اخذت الكود المرفق وعدلت عليه بما يناسب ما احتاجه و يعمل الان بفضل الله ومساعدتك جزاك الله كل خير وجعله فى ميزان حسناتك

up

تفضل اخي عبد الله مرفق مثال بالكود المعدل وهذا هو ما كنت اقصده فى طلبي ولك فائق الاحترام وكل الشكر علي معاونتك ليlast.rar

استخدم هذا البرنامج http://files.jrsoftware.org/is/5/isetup-5.3.9.exe

جزاك الله كل خير الان يكتب اليوزر وقت فقط اما بالنسبة للطلب الثاني ما قصدته هو انك تكتب البيانات فى تاكست بوكس للترحيل لصفحة حضور وانصراف مثلا وكتبت بصيغة الوقت وقمت بترحيل البيانات لو قمت باستدعاء البيانات مرة اخري فلم تكن تظهر بصيغة الوقت كما تم ادخالها تظهر فى التاكست بوكس علي هيئة رقم 0.45465 مثلا فهل من طريقة تجعلنا مثلا نحدد ان فورمات التاكست بوكس هذا هي صيغة الوقت مثلما نقوم بعمل ذلك فى الخلايا العادية فى الاكسل نحدد ان كانت رقم ام وقت ام تليفون .. الخ وشكرا لك

اخي عبد الله الكود موجود فى هذا الملف فى يوزر فورم 28 بس بدون التعديل اللى انا ضيفته ليجعله لا يضيف الخلايا الفارغة الملف دا جميل جدا هو من موقع اجنبي ولكن احد الاخوة الافاضل فى المنتدي فك الحماية عنه ولك جزيل الشكر Macro_Excel_Stocks_warehouses_unlocked.rar

اخى عبد الله وجدت الحل والحمد لله من مثال سابق من موقع اجنبي استبدلت استخدام الرو سورس بهذا ونفعت الحمد لله ولك جزيل الشكر علي مجهودك معي Private Sub ComboBox1_Enter() Dim i As Integer Dim final As Integer Dim tareas As String ComboBox1.BackColor = &H80000005 For i = 3 To ComboBox1.ListCount ComboBox1.RemoveItem 0 Next i For i = 4 To 1000 If Sheet1.Cells(i, 3) = "" Then final = i - 3 Exit For End If Next For i = 4 To 1000 tareas = Sheet1.Cells(i, 3) If tareas <> "" Then ComboBox1.AddItem (tareas) Else End If Next End Sub

بالنسبة للتاكست بوكس هل يمكن ان اجبر المستخدم فقط علي ادخال الوقت فيه بمعني 11:30 مثلا ولا ينفع انه يدخل ارقام تانية لازم يكون فيه اشارة الوقت اللى هي النقطتين فوق بعض : دى اول حاجة طب ولو امكن واجبرنا المستخدم انه يدخل فى تاكست بوكس معين وقت وقام بادخاله فعلا عندما نقوم باستيراد البيانات المدخلة مسبقا علي هيئة وقت فى التاكست بوكس يتم استيرادها داخل التاكست بوكس ولكن ليس علي هيئة وقت تكون ارقام 0.7775464 تقريبا هكذا فهل من طريقة ايضا تجعل فورمات هذا التاكست بوكس سواء فى حالة الكتابة او استيراد البيانات بداخله يكون بصيغة الوقت وجزاكم الله كل خير

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

فى الحقيقة انا عاجز عن الشكر تسلم علي مجهودك وتعبك معايا وجزاك الله كل خير لكن مازالت هناك مشكلة حاول اضافة اى كلمة فى الخانات السفلي ولن تظهر فى القائمة للاسف وان ظهرت تظهر فى الوسط الخلايا الفارغة Get_Mod-1.rar

اعذرنى لكن هل تقصد ؟ Private Sub UserForm_Initialize() ComboBox1.RowSource = OFFSET(Sheet1!$B$2;0;0;COUNTA(Sheet1!$B:$B);1) End Sub

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

الله ينور عليك والله هو دا المطلوب بالضبط لكن فى مشكلة لو جربت التعديل علي خليه بيسأل للتأكيد وبضغط اوك فبيعدل عليها ولكن بعد التعديل بيعطي ايرور ويعلم علي الامر دا Me.TextBox1.Text = fAddr.Offset(0, -1).Value

للرفع

برجاء المساعدة فى استيراد بيانات من جدول الي فورم معين وبعد التعديل عليها من داخل الفورم نقوم بتصديرها مرة اخري مرفق ملف به مثال جدول + فورم + تفاصيل الشرح ولكم فائق الشكر والاحترام Get_Mod.rar

اكتشفت الطريقة الحمد لله الطريقة هى Sheets("Mydata").Cells(EndRow, 10).Value = "=" & D & "!j7" شكرا للاستاذ / احمد زمان لمحاولة المساعدة