فضل قام بنشر سبتمبر 21, 2011 مشاركة قام بنشر سبتمبر 21, 2011 السلام عليكم ورحمة الله وبركاته اعضاء منتداى العزيز ............ مرفق ملف موضح به المطلوب .......... وجزاكم الله كل خير والف شكر كود لجنة واحتياطى.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر سبتمبر 22, 2011 مشاركة قام بنشر سبتمبر 22, 2011 السلام عليكم اخي فضل تفضل المرفق بعد التعديل Sub OFFICNA() Set myrng = Range("rng") For Each cl In myrng If Mid(cl, 1, 1) = "ح" Then cl.Value = "إحتياطي" Else cl.Value = "لجنة" End If Next cl Set myrng = Nothing End Sub ابواحمد لجنة واحتياطى.rar رابط هذا التعليق شارك More sharing options...
فضل قام بنشر سبتمبر 22, 2011 الكاتب مشاركة قام بنشر سبتمبر 22, 2011 (معدل) اخى واستاذى الفاضل / ابو احمد بارك الله فيك وزادك الله علما كود جميل وهو بالفعل المطلوب جزاك الله كل خير . ولكن انا لى ملحوظة بسيطة بعد اذن سيادتك وهى ان الكود بالفعل يقوم بالمطلوب على اكمل وجه عندما يتم الضغط عليه فى المرة الاولى. ولكن عندما يتم الضغط على الكود ضغطة ثانية يقوم بتحويل كلمة (احتياطى) الى كلمة (لجنة) وتصبح كل البيانات كلمة (لجنة). وهذا لااريده . انا اريد بعد الضغطة الاولى وتحويل الارقام الى (لجنة) وتحويل (ح)بجميع ارقامها الى (احتياطى) يبق الوضع كما هو عليه الاحتياطى احتياطى واللجنة لجنة حتى ولو تم الضغط على الكود اكثر من مرة . والف الف شكر ياحبيبى وربنا يخليك لنا . تم تعديل سبتمبر 22, 2011 بواسطه فضل رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر سبتمبر 22, 2011 مشاركة قام بنشر سبتمبر 22, 2011 اخي فضل اسف جداً فانا لم اجرب الضغط مرتين على الزر تفضل المرفق بعد التعديل ابواحمد عبدالله المجرب.rar رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر سبتمبر 22, 2011 مشاركة قام بنشر سبتمبر 22, 2011 اخى الحبيب عبد الله بارك الله فيك رابط هذا التعليق شارك More sharing options...
فضل قام بنشر سبتمبر 22, 2011 الكاتب مشاركة قام بنشر سبتمبر 22, 2011 (معدل) تسلم الايادى ياباشا ربنا يخليك لنا ياابواحمد بالطبع هو ده المطلوب وجزاك الله كل خير انا عندى سؤال بس بالامانة محروج منك او خايف اكون بثقل عليك ياابو احمد . ولكن انا قررت اقول السؤال لعلمى بكرم اخلاقك وسعة صدرك ويارب الا اكون بثقل عليك . انا عايز المدى اللى سيادتك عمله فى الورقة باسم ( rng ) واستخدمته فى الكود . يكون مدى ديناميكى اى مدى يزيد وينقص حسب البيانات . بمعنى اخر لو انا عامل مادتين فقط يشتغل المدى على المادتين فقط ولو انا زود المادتين مثلا 10 مواد او اكثر او اقل يشتغل المدى اتوماتيكى على البيانات الموجودة فقط لاغير فى حالة الزيادة والنقصان . وانا اريد المدى الديناميكى لايزيد عن 17 مادة . والف شكر ياحبيبى تم تعديل سبتمبر 22, 2011 بواسطه فضل رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر سبتمبر 22, 2011 مشاركة قام بنشر سبتمبر 22, 2011 الاخ الاستاذ / ابو احمد " عبــــــــــد الله المجرب " جزاك الله كل الخير ......... وفقك الله ابو الحارث رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 22, 2011 مشاركة قام بنشر سبتمبر 22, 2011 السلام عليكم تفضل اخي مدى ديناميكي ولاكن لايزيد عن 17 مادة لاعلم لي به او ربما هكذا والله اعلم كود لجنة واحتياطى1.rar رابط هذا التعليق شارك More sharing options...
فضل قام بنشر سبتمبر 22, 2011 الكاتب مشاركة قام بنشر سبتمبر 22, 2011 الاستاذ الفاضل / alidroos الف شكر ياحبيبى هو ده كان المطلوب جزاك الله كل خير والف الف الف شكر ياحبيبى للمرة الثانية. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.