نايف - م

سلام عليكم: أخوتي من يمكن أن يشرح لي هذه الكلمات في الكود (الشرط و جواب الشرط ) لكي أتمكن من التعديل فيه طبعا الكود مأخوذ من المنتدى Sub open_folder() Dim FolderName As String FolderName = InputBox("", "", "E:\Documents and Settings\VIP\My Documents") If Dir(FolderName, vbDirectory) = vbNullString Then MsgBox " " & FolderName & " : " Else Shell "explorer.exe " & FolderName, vbNormalFocus End If End Sub الكلمات هي vbdirectory- vbnullstring- vbnormalfocus لكم الشكر

يارب : أدم وجود أخي خبور بيننا فرج كربه و أقضي حاجته كما كان معنا دوما في حاجاتنا أشمله برحمتك كما كان دائما ينظر لحاجاتنا من خلال رحمتك اللهم آمين

أخي الكريم : للحق أن مرورك قد نفعني حيث شاهدت الرابط الموضوع أسفله و اتبعته و وجدت موقع ظريف به من يسال عن تسمية ورقة حسب اسم موجود بها ووجدت الكود ضالتي بهذا الطلب وهو: If activesheet.name=("') then باركك الله و لك الشكر

السلام عليكم أقصد إذا كانت الورقة (1) تكست بوكس1= كذا إذا كانت الورقة (2) تكست بوكس1= كذا Private Sub UserForm_Activate() With Sheets("BUY") LL = ActiveCell.Rows.Row TextBox1.Value = Sheets("BUY").Cells(LL, "L") TextBox2.Value = Sheets("BUY").Cells(LL, "T") TextBox3.Value = Sheets("BUY").Cells(LL, "U") TextBox4 = "" TextBox5.Value = Sheets("BUY").Cells(LL, "S") TextBox6 = "" ComboBox1.Value = Sheets("BUY").Cells(LL, "F").Address End With With Sheets("MAIN") NN = ActiveCell.Row TextBox1.Value = Sheets("MAIN").Cells(NN, "P") TextBox2.Value = Sheets("MAIN").Cells(NN, "S") TextBox3.Value = Sheets("MAIN").Cells(NN, "T") TextBox4 = "" TextBox5.Value = Sheets("MAIN").Cells(NN, "V") TextBox6 = "" ComboBox1.Value = Sheets("MAIN").Cells(NN, "B").Address End With End Sub

مشكور أخي أبو عبدالله ,والله كفيت ووفيت بارك الله بك,لقد وصلت لما أريد من خلال ردك

السلام عليكم: عندي يوسفورم مع كومبوبوكس و ليست بوكس عند وضع كود الدواء في الكومبوبوكس يضاف لليست بوكس كل المرات التي تم فيها شراء هذا الصنف و هو بسعر متغير طبعا , أريد أن اضيف من الليست بوكس (بخمسة أعمدة ) القيمة(السعر) التي أرغب بها للخلية التي أشتري بها الأن last2.rar

السلام عليكم أخي الكريم (أبو عبدالله ) بارك الله بك و بعملك وبكل من تحب و جعلها في ميزان حسناتك لقد حصلت على المطلوب و زيادة !! أخي الكريم (DBA.ORACLE) أشكر لك مرورك و أضافتك

السلام عليكم: كيف أستطيع الأنتقال من ليست بوكس إلى صف الخلية في الورقة التي تحوي القيمة الموجودة في الليست بوكس combobox.rar

السلام عليكم شكرا للرد وو لسرعة الرد بارك الله بك و بعلمك

أعتمد على اليوسرفورم كثيرا و لا أستطيع الكتابة على الورقة في وقت يكون اليوسرفورم مفتوح,هل توجد طريقة للكتابة على الأثنين معا(بالتناوب) باستخدام لوحة المفاتيح أو زر أمر

السلام عليكم أشعر بالحزن لأنني اشعر بفتور مرعب بهذا المنتدى الغالي غلى قلبي إن شاء الله تتحسن الأمور عما قريب وجدت حل مشكلتي في أحد المواقع الأوروبية و لمن يريد أن يستفيد: = Format(.Cells(R, 33).Value, "dd/mm/yyyy") شكرا

السلام عليكم لا جواب ؟؟؟لماذا

السلام عليكم : كيف أستطيع تنسيق عمود في ليست بوكس(LISTBOX) بحيث تكون بالتنسيق DATE ,DD/MM/YYYY السطر الذي أرغب في أضافة الفورمات له هو: ListBox1.List(t, 3) = .Cells(R, 33)

السلام عليكم نرجوك أن تستمر حتى نتعلم كيف نطبخ بدلا من أن نتعلم تناول الطعام فقط

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

السلام عليكم هل هذا يعني أن الجرد يتم في الورقة فقط و ريمكن عرض النتائج في فورم

السلام عليكم هل من الممكن وضع نتائج الجرد في فورم ,النتائج وفق أربعة أعمدة شرط الجرد:أنتهاء التاريخ قبل 90 يوم جرد الأدوية حسب تاريخ أنتهائها.rar

السلام عليكم أشعر يا أخي أنني أثقلت عليك, لكن و الله العظيم الملف لم يعمل و عمل نفس النتيجة, هل 2007 هو السبب , أرجوك إن كنت قد أخذت من وقتك كثيرا فلا تفعل شيئا بالموضوع شكرا

السلام عليكم لا يا أخي فملف الفلاش بقي في مكانه و لم أحذفه شكرا

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

السلام عليكم أخي الكريم hanacock هل الأكسيل اللي عندك 2003 أما بالنسبة للأسم فأعتقد أن الأخ ابو البراء يقصدالأسم بعد حذف حرفي ha من أسمك و تقرأه فيبقى اسم يدل على فعل فاحش و العياذ بالله,

السلام عليكم أخي الكريم الحق أنني أعمل على أوفيس2007,وقد جربت طريقتك كثيرا,عندما ألصق الساعة ينجح الأمر لكن عند أعادة فتح الملف لا تعود تظهر الساعة بل يظهر مكانها مربع فارغ فيه اشارة ضرب كبيرة على قد الصورة يعني طبقت كلامك حرفيا و بالتمام و أنا أحب أدراج ساعة ...شو العمل لم تنجح معي أدراج الصورة ,آسف

السلام عليكم بارك الله بك و جعلها في ميزان حسناتك ..سنجرب و إن أحتجنا معلومة أضافية أكيد لن تضن بها علينا شكرا أخي

السلام عليكم الرابط http://www.officena.net/ib/index.php?showtopic=27879&st=0&p=133788&hl =فلاشات%20ساعات&fromsearch=1&#entry133788

السلام عليكم كيف يمكن ان ادرج فلاشة ساعة بملف أكسيل عندي ملف قديم به فلاشات ساعات (أخذته من المنتدى) وهو أكسيل 2003 ,عندما جربت ان أدرج فلاشة في ملفي و هو أكسيل 2007, كانت الساعة تختفي عند أعادة تشغيل الملف ربما أنا أدرجها بطريقة خاطئة