أب مارية قام بنشر مارس 21, 2014 قام بنشر مارس 21, 2014 السلام عليكم لدي فورم ترحيل إلى ورقتين مع تلوين سطر بشرط أرجو المساعدة الملف والشرح المطلوب في المرفقات تقبلو مني فائق التقدير والاحترام ترحيل إلى ورقتين مع تلوين سطر.rar
أب مارية قام بنشر مارس 21, 2014 الكاتب قام بنشر مارس 21, 2014 للرفع انا متاكد من وجود أحد الأساتذة لديه حل لهذا الاشكال وانا في انتظار رده على أحر من الجمر والله وحده يعلم كم أكن له كل التقدير والاحترام وأهدي له هذه الأبيات للشاعر حسان بن ثابت التي يقول فيها: أَخِـلاَّءُ الـرِّجَـالِ هُـمْ كَثِيـرٌ وَلَكِـنْ فِـي البَـلاَءِ هُـمْ قَلِيـلُ فَـلاَ تَغْـرُرْكَ خُلَّـةُ مَنْ تُؤَاخِـي فَمَـا لَكَ عِنْـدَ نَـائِبَـةٍ خَلِيـلُ وَكُـلُّ أَخٍ يَقُــولُ أَنَـا وَفِـيٌّ وَلَكِـنْ لَيْـسَ يَفْعَـلُ مَا يَقُـولُ سِـوَى خِلٍّ لَهُ حَسَـبٌ وَدِيـنٌ فَذَاكَ لِمَـا يَقُـولُ هُوَ الفَعُـولُ 1
أبو حنــــين قام بنشر مارس 21, 2014 قام بنشر مارس 21, 2014 السلام عليكم اخي هناك أمور غير واضحة ـ 1 هل الترحيل يكون الى ورقة Stocks و هل يكون في صف جديد اي آخر خلية يرحل لها ـ 2 المبلغ الموجود في الخانة باللون البنفسجي قلت يرحل الى ورقة Fournisseurs هذه الورقة لا تحتوي على عمود باسم Fournisseurs
أب مارية قام بنشر مارس 21, 2014 الكاتب قام بنشر مارس 21, 2014 السلام عليكم أخي أبو حنين بارك الله فيك على الاهتمام وكنت أنتظر ردك فقد كنت أقصدك أنت في الرسالة وإنني أحبك في الله أما فيما يخص المطلوب فالترحيل يكون في صفحة Stocks ويعتمد على اسم الصنف (Désignation) بالترتيب الأبجدي (Alphabet) 2 - بالنسبة للعمود البنفسجي يرحل إلى ورقة Fournisseurs في العمود H استنادا لاسم العميل الموجود في العمود B وهذا في حالة توفر شرط وهو إذا تم كتابة عبارة "على الحساب" باللغة الفرنسية "A terme" في TextBoxA17 M.Payment كما يتم تلوين لون الخط أو لون السطر عند ترحيله إلى صفحة Stocks إذا تم الشراء على الحساب "A Terme" ملاحظة: في TextBoxA17 يمكن كتابة أربع عبارات وهي كما يلي: - A terme - Cheque CCP - Cheque Bancaire - Espece لأي استفسار أنا حاضر
شوقي ربيع قام بنشر مارس 21, 2014 قام بنشر مارس 21, 2014 السلام عليكم تم تنفيذ المطلوب على حسب فهي لطلبك مع بعض الاضافات تحياتي ترحيل إلى ورقتين مع تلوين سطر.rar
أب مارية قام بنشر مارس 22, 2014 الكاتب قام بنشر مارس 22, 2014 السلام عليكم أخي شوقي بارك الله فيك على الاهتمام هناك مشكل وهو عند الكتابة في التكست بوكس تظهر قائمة منسدلة لاختيار عنصر وهذا خطأ فالفورم لإدخال سلعة جديدة وليس تعديل. وبالنسبة للورقة الثانية(Fournisseurs) فيتم وضع المبلغ الاجمالي وليس عدد الوحدات. باختصار عند شراء سلعة جديدة ولم يتم تسديد ثمنها "A Terme" فيتم تلوين السطر باللون الأحمر وفي ورقة Fournisseurs يتم وضع مبلغ السلعة في حساب المورد أي استفسار أنا حاضر
أبو حنــــين قام بنشر مارس 22, 2014 قام بنشر مارس 22, 2014 السلام عليكم اخي جرب المرفق ترحيل إلى ورقتين مع تلوين سطر222.rar
أب مارية قام بنشر مارس 22, 2014 الكاتب قام بنشر مارس 22, 2014 (معدل) السلام عليكم استاذي أبو حنين بارك الله فيك على العمل لكن لماذا يتم تلوين السطر دائما حيث نريده ان يظهر اللون الأحمر إلا في حالة ما إذا تم اختيار عبارة "A Terme" كما أنه لم يتم ترحيل المبلغ في التكست بوكس باللون الأزرق إلى صفحة Fournisseurs في حساب المورد المعني مشكور مرة ثانية تم تعديل مارس 22, 2014 بواسطه foular
أبو حنــــين قام بنشر مارس 22, 2014 قام بنشر مارس 22, 2014 السلام عليكم تم استدراك الخطأ ترحيل إلى ورقتين مع تلوين سطر 333.rar
أبو حنــــين قام بنشر مارس 22, 2014 قام بنشر مارس 22, 2014 و تم استدراك الخطأ الثاني ترحيل إلى ورقتين مع تلوين سطر 4444.rar
أب مارية قام بنشر مارس 22, 2014 الكاتب قام بنشر مارس 22, 2014 السلام عليكم ابداع ولا اروع اخي ابو حنين بارك الله فيك وجعل عملك هذا في ميزان حسناتك وما عساي أن أقول سوى هذا البيت الشعري: ٍالرأي كالليل مسودّ جانبه * والليل لا ينجلي إلا بإصباحِ فاضمم مصابيح آراء الرجال إلى * مصباح رأيك تزدد ضوء مصباحِ شاور سواك إذا نلبتك نائبة * يوماً وان كنت من أهل المشوراتِ فالعين تنظر منها ما دنا ونأى * ولا ترى نفسها إلى بمرآةِ
أب مارية قام بنشر مارس 22, 2014 الكاتب قام بنشر مارس 22, 2014 أخي أبو حنين استفسار عند ترحيل من الفورم كيف يمكن الحفاظ على نفس النسق في الجدول أي حجم ولون واسم الخط
أبو حنــــين قام بنشر مارس 22, 2014 قام بنشر مارس 22, 2014 (معدل) السلام عليكم يصبح كود الحفظ كالتالي Private Sub EnregistrerA_Click() With Sheet2 Application.ScreenUpdating = False If TextBox5 = "" Then MsgBox "Vous devez écrire la date", vbExclamation, "" Exit Sub End If LR = .Cells(Rows.Count, "A").End(xlUp).Row + 1 For i = 1 To 9 .Cells(LR, i + 1).Value = Me.Controls("TextBox" & i).Value .Range(.Cells(LR - 1, 1), .Cells(LR - 1, 10)).Copy .Range(.Cells(LR, 1), .Cells(LR, 10)).PasteSpecial (xlPasteFormats) .Cells(LR, 6).Value = CDate(TextBox5): .Cells(LR, 1).Value = LR - 11 .Range(.Cells(LR, 1), .Cells(LR, 10)).Borders.Value = 1 If CStr(TextBox9) = "A terme" Then .Range(.Cells(LR, 1), .Cells(LR, 10)).Interior.ColorIndex = 3 Next End With LR1 = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row With Sheet2.Range("A12:J" & LR1) .Sort .Columns(2), xlAscending End With j = LR1 - 11 With Sheet2.Range("A12") .Value = 1 .Resize(j, 1).DataSeries End With A_terme Application.ScreenUpdating = True Application.CutCopyMode = False End Sub تم تعديل مارس 22, 2014 بواسطه أبو حنين
أب مارية قام بنشر مارس 22, 2014 الكاتب قام بنشر مارس 22, 2014 السلام عليكم ماذا عساي أن أقول أسألك اللهم أن تجمعنا في الفردوس الأعلى مع النبيئين والصديقين لقد قمت بتطبيق الكود على الملف الأصلي لي ولم ينجح الأمر لذا قمت برفع الملف الأصلي ولو تكرمت بنقل محتويات العمل إلى الملف الأصلي وآسف على الازعاج 2n2014_60.rar
أبو حنــــين قام بنشر مارس 23, 2014 قام بنشر مارس 23, 2014 السلام عليكم ارجو ان تجرب المرفق و تتأكد من الكود هل يعمل بطريقة سليمة او لا 2n2014_62.rar
أب مارية قام بنشر مارس 23, 2014 الكاتب قام بنشر مارس 23, 2014 السلام عليكم أخي أبو حنين بارك الله فيك على العمل الرائع كيف يمكن الغاء اهتزاز الشاشة كما أنه في بعض الأحيان عند القيام بالترحيل يتغير لون العمود الأول إلى اللون الأحمر
أب مارية قام بنشر مارس 24, 2014 الكاتب قام بنشر مارس 24, 2014 السلام عليكم في الفورم التالي أريد ادراج كود لالغاء اللون الأحمر في السطر إذا توفرت بعض الشروط أرجو المساعدة ومشكورين مقدما versement.rar
أب مارية قام بنشر مارس 29, 2014 الكاتب قام بنشر مارس 29, 2014 للرفع السلام عليكم في الفورم التالي أريد ادراج كود لالغاء اللون الأحمر في السطر إذا توفرت بعض الشروط أرجو المساعدة ومشكورين مقدما السلام عليكم في الفورم التالي أريد ادراج كود لالغاء اللون الأحمر في السطر إذا توفرت بعض الشروط أرجو المساعدة ومشكورين مقدما للرفع
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.