نايف - م
-
Posts
343 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو نايف - م
-
طيب هي المشكلة حليتها : ActiveCell.Value = ActiveCell.Value & Chr(10) & ListBox1.List(ListBox1.ListIndex, (1)) لكن عندما طبقتها على كوماند بوتون و ليس ليستبوكس كليك لم يعمل ممكن مساعدة
-
شكرا لك لكن القائمة بها أكثر من عمود وأنا أريد تحديد القيمة من عمود (t,2)
-
لأ أخي أفصد من الليست بوكس للخلية متعددة الأسطر
-
رائع أخي أبو حنين -بارك الله فيك وزادك علما فوق علم سؤال أخي فإن كان المطلوب ليست بوكس كيف يكون الكود
-
كأنو السؤال صعب طيب ممكن كود نستعمله بعد كتابة بضع كلمات بحيث ننتقل لسطر جديد بالخلية و بشكل مستمر -طبعا دون استخدام ألتر + أنتر
-
السلام عليكم عندي قائمة فيها أكثر من 6000 اسم - أرغب في تحميلها على كومبوبوكس - ثم استخدامه في وضع الأسماء التي أرغب بنفس الخلية بسطر مستقل لكل اسم - وأن تظهر كل الأسماء عند تفعيل اليوسرفورم في ليست بوكس شكرا ملف مرفق المصنف1.rar
-
شكرا يا شباب لقيت الحل نستخدم مع اليوسرفورم كشرط كلمة visibleو ليس show
-
Private Sub UserForm_Activate() If fast_sale.Show Then TextBox1 = fast_sale.TextBox5 TextBox2 = "" TextBox3 = "" End If
-
أخوتي مساء الخير IF userform1.show then textbox1="موجود" حاولت استخدام هذا الأمر فلم ينجح - لماذا ماالكود البديل المطلوب : إذا كان اليوسرفورم1 ظاهرا على الشاشة عندها - يطلب تنفيذ أمر أعتذر إذ لا يمكن أرفاق ملف
-
أخي الكريم شكرا للرد لكن لم ينجح الأمر أيضا
-
طيب أخي عندك حل
-
شكرا للأهتمام أخي الكريم : لكن بقي الأمر على ماهو عليه ينفذ بالورقة "sale" ولاينفذ بالورقة "main"
-
Private Sub UserForm_Activate() r = ActiveCell.Row With ActiveSheet S = .Name If S = "sale" Then TextBox7 = Sheets("sale").Cells(r, 2) End If If S = "main" Then TextBox7 = Sheets("main").Cells(r, 1) End If End With End Sub لا ينفذ الأمر إلا في الورقة sale ممكن المساعدة
-
بالرجاء مع تكرار الطلب
-
السلام عليكم عندي فورم فيه ليست بوكس أرغب عند الضغط على الليست بوكس أن توضع القيمة الموجودة في في خلية بشروط أضعها لقد كتبت التالي و لم ينجح أريد المساعدة و معرفة السبب: Private Sub ListBox1_Click() ss = Sheets("sale").ActiveCell.Column With ListBox1 If ss = 26 Or ss = 32 Then ActiveCell.Value = .List(.ListIndex, 0) Else MsgBox """ End If End With end sub
-
أخي الكريم شكرا لفتت أنتباهي عالحل و هو السطر الأول UserForm1.Hide و قد كتبته ونجح الأمر ممكن تجاوبني عالسؤال الثاني كودك يعمل مع الكومبوبكس مثل التكست بوكس
-
شكرا أخي على الأستجابة: 1- هل يمكن استخدام كودك البرمجي مع combobox بدلا من textbox 2- يمكن تفعيل البحث find الذي يأتي مع البرنامج بكود برمجي يرفق ب CommandButton من خلال الصفحة وهو Application.SendKeys "^f" لكن لا يمكن ذلك من خلال اليوسرفورم - سؤالي كيف أفعل ذلك شكرا
-
السلام عليكم كنت من داخل الورقة أحدد زر أمر وأضيف له : برمجيا تحديد نطاق من الخلايا و بواسطة الأمر التالي : sendkyes ("^F") أشغل البحث الآن أرغب بتشغيل البحث من UserForm لكن هذا لا ينفع هل يوجد أمر خاص UserForm لتشغيل البحث
-
حذفت الأكواد لتصغير حجم الملف ورقة أندكس وورقة البيع عندما أبيع قطعة في ورقة البيع من المفترض أن يتم أنقاصها من ورقة أندكس من خلال جمعها مع المبيعات و من ثم يتم تغيير الموجود لكن ذلك لايتم إنما ينبغي العودة لورقة أندكس بعد كل عملية بيع و الضغط على السطر من أجل أحداث الفعل change ليتم التغيير السؤال : كيق يمكن أن يتم الجمع تلقائيا في ورقة أندكس nnnnnn.rar
-
جربوا الشرح الموجود عالرابط http://forum.arabsbook.net/threads/%D8%A7%D9%88%D9%81%D9%8A%D8%B3-2013-%D8%AA%D8%AD%D9%85%D9%8A%D9%84-%D9%85%D8%A7%D9%8A%D9%83%D8%B1%D9%88%D8%B3%D9%88%D9%81%D8%AA-%D8%A7%D9%88%D9%81%D9%8A%D8%B3-2013-microsoft-office-2013.156830/
-
شو يعني تسميع ما فهمت
-
كود ترحيل بيانات بشرط .. ولا أسهل
نايف - م replied to محمدي عبد السميع's topic in منتدى الاكسيل Excel
شكرا- شرح جميل و مفصل -
شكرا , شكرا , برنامج جميل و هام حقا
-
يا جماعة الكود شغل المنتدى يرجى منكم التكرم بشرحه
-
مجموعة من المكرو اعجبتني خاصة بتنظيم الوقت
نايف - م replied to BuFaisal's topic in منتدى الاكسيل Excel
سلام عليكم الحق أن هذه هي الطريقة الأفضل و الأروع ليتعلم أحدنا التعامل مع الأكسيل شكرا أخي
