NAWAS قام بنشر أغسطس 12, 2003 مشاركة قام بنشر أغسطس 12, 2003 السلام عليكم أريد معرفة كيف أعمل زر أمر بحيث كلما ضغطت عليه يضيف قيمة معينة إلى الخلية مثلاً سيكون لدي الخلية A1 في البداية ستكون فارغة فكيف سيكون الكود المطلوب لزر الأمر بحيث عند كل ضغطة يضيف واحد للقيمة الموجودة للخلية أو حسب القيمة التي أريد وشكراً رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أغسطس 12, 2003 مشاركة قام بنشر أغسطس 12, 2003 و عليكم السلام و رحمة الله و بركاته Sub addone() Range("a1").Value = Range("a1").Value + 1 End Sub رابط هذا التعليق شارك More sharing options...
NAWAS قام بنشر أغسطس 15, 2003 الكاتب مشاركة قام بنشر أغسطس 15, 2003 جزاك الله خيراً أستاذ محمد رابط هذا التعليق شارك More sharing options...
mohammed55 قام بنشر مارس 15, 2004 مشاركة قام بنشر مارس 15, 2004 السلام عليكم ورحمة الله وبركاته إذا كان القيمة اللتي إريد أن إدخلها في شيت ثانية كيف راح يكون الكود؟؟ شكرآ رابط هذا التعليق شارك More sharing options...
ابومؤنس قام بنشر مارس 15, 2004 مشاركة قام بنشر مارس 15, 2004 السلام عليكم ورحمة اللة , الكود لدخول الصفحة الثانية مثلا Sheets("ورقة2 ").Select بعد ذلك ادخل الامر المطلوب , واذا كان هو الكود السابق فانة يدرج بعد السطر الاول مباشرة وبالله التوفيق . رابط هذا التعليق شارك More sharing options...
mohammed55 قام بنشر مارس 16, 2004 مشاركة قام بنشر مارس 16, 2004 جزاك الله كل خير على الرد يا أبو مؤنس جربت وضع الكود في السطر الأول ولكن لم تعمل معي, وظهر لي رسائل بوجود خطأ في الكود. ممكن تكتبلي الكود؟؟ شكرآ رابط هذا التعليق شارك More sharing options...
ابومؤنس قام بنشر مارس 16, 2004 مشاركة قام بنشر مارس 16, 2004 السلام عليكم ورحمة الله , كان من المفترض ان يكتب الكود التي اعطيتك بعد السطر الاول ولكن اليك الكود كامل بعد تجربتة . Sub addone() Sheets("ورقة2").Select Range("a1").Value = Range("a1").Value + 1 End Sub هذا الكود يقوم بنقل من اي صفحة الي الصفحة الثانية ومن ثما الخلية a1 ويزيد علي القيمة التي فيها 1 وبالله التوفيق . رابط هذا التعليق شارك More sharing options...
mohammed55 قام بنشر مارس 16, 2004 مشاركة قام بنشر مارس 16, 2004 معليش تعبتك معاي ياأبو مؤنس, وضعت الكود بس مانفع راح أعيد سؤالي مرة ثانية ,لأني يمكن ماوضحته في البداية -أحتاج أضع زر في الشيت الثاني بحيث لما أضغط عليه يظهر لي قيمة A1 من الشيت الأول في A2 في الشيت الثاني شكرآ رابط هذا التعليق شارك More sharing options...
ابومؤنس قام بنشر مارس 16, 2004 مشاركة قام بنشر مارس 16, 2004 السلام عليكم ورحمة الله وبركاتة اليك الكود جرب وانا في انتظار الجواب Range("A2").Select ActiveCell.FormulaR1C1 = "=ورقة1!R[-1]C" Range("A2").Select End Sub وبالله التوفيق , رابط هذا التعليق شارك More sharing options...
mohammed55 قام بنشر مارس 17, 2004 مشاركة قام بنشر مارس 17, 2004 معليش أتعبتك معاي أبو مؤنس الكود لم يعمل,( نسخة الإكسل عندي بالإنجليزي) رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر مارس 17, 2004 مشاركة قام بنشر مارس 17, 2004 أخي mohammed55 بعد إذن الأخ الغالي أبومؤنس فقد قمت بعمل ملف به الكود الذي ذكره لك أبومؤنس لكي يسهل عليك الأمر * تفضل بتحميله من هنا* وشكراً رابط هذا التعليق شارك More sharing options...
mohammed55 قام بنشر مارس 18, 2004 مشاركة قام بنشر مارس 18, 2004 عفوا حسام الرابط لايعمل رابط هذا التعليق شارك More sharing options...
الفدعاني قام بنشر مارس 18, 2004 مشاركة قام بنشر مارس 18, 2004 انسخ هذا الرابط ثم ضعه في المتصفح http://www.geocities.com/hosamnoor/SHOW.zip رابط هذا التعليق شارك More sharing options...
mohammed55 قام بنشر مارس 18, 2004 مشاركة قام بنشر مارس 18, 2004 جزاكم الله خير, شكرآ على تعاونكم أخوكم محمد رابط هذا التعليق شارك 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.