أعزائي اسعدتم صباحاً .
هذه فاتوره تصلح للشركات والمؤسسات أو المحلات أرجو أن تقبلوها كهديه متواضعه ومستعد لتطويرها حسب أفكاركم وطلباتكم .
أخوكم حسام
أقبلوا الهديه المتواضعه ( فاتوره ) .
مغلق
مشكور كتير
اقتراحان
الاول سهل تنسيق أرقام التليفون و الفاكس
الثاني : أن لا يسمح باختيار أكثر من خيار من نقدا و آجلة و بشيك
العفو مشرفنا الفاضل .
بالنسبه للأقتراح الأول فهو سهل .
اما الأقتراح الثاني فكيف نجعل أختيار واحد فقط متاح ؟
وشكراً
مثال عليه
و لكن الطريقة المطبقة فيه لم تعجبني برمجيا
بالتأكيد هناك حل أقصر و سأحاول الوصول اليه باذن الله
و لكن هذه الطريقة تؤدي الغرض ، و تعتمد علي عمل 3 ماكرو بحيث يتم الغاء اختيار الاثنان الآخران عند اختيار الاول ، و لذلك هم 3 ماكرو
و ما اطمح اليه هو ماكرو واحد يقوم بالعملية كليها
و المشكلة أنه لم أتمكن من تغيير القيمة الا بعد عمل select
و هذا ليس مثاليا و سأحاول في حل آخر بعد عدة أيام باذن الله
و لكن هذا يفي بالغرض
Sub chooseone()
ActiveSheet.Shapes("Check Box 2").Select
If Selection.Value = xlOn Then
ActiveSheet.Shapes("Check Box 3").Select
Selection.Value = xlOff
ActiveSheet.Shapes("Check Box 4").Select
Selection.Value = xlOff
End If
ActiveSheet.Shapes("Check Box 2").Select
End Sub
Sub choose2()
ActiveSheet.Shapes("Check Box 3").Select
If Selection.Value = xlOn Then
ActiveSheet.Shapes("Check Box 4").Select
Selection.Value = xlOff
ActiveSheet.Shapes("Check Box 2").Select
Selection.Value = xlOff
End If
ActiveSheet.Shapes("Check Box 3").Select
End Sub
Sub choose3()
ActiveSheet.Shapes("Check Box 4").Select
If Selection.Value = xlOn Then
ActiveSheet.Shapes("Check Box 3").Select
Selection.Value = xlOff
ActiveSheet.Shapes("Check Box 2").Select
Selection.Value = xlOff
End If
ActiveSheet.Shapes("Check Box 4").Select
End Subجزاكما الله كل خير
مجهود طيب مشرفنا القدير .. وفي أنتظار الوصول لحل أبسط
برجاء اعادة المرفقات حتي يتسني للأعضاء الجدد الاستفادة من غبرات الاعضاء القدامي
شكرا لادارة المنتدي
اخواتى فى الله كنت سعيدا جدا لوجود هذه الهديه و هى تصميم لفاتوره و لكن حزنت جدا عندما وجدتها انها قد تم حذفها ارجو رجوعها نظرا لاحتياجى لها الشديد و لكم جزيل الشكر
اخى الغالى لم يتم التحميل بوسطه المنتدى المنتدى فتح اندكس خطا الله اعلم
هذا الموضوع مغلق.