DBA.Oracle قام بنشر أبريل 1, 2010 مشاركة قام بنشر أبريل 1, 2010 (معدل) d = معرفة باسم صفحة سوف تنشأ .Name = D المهم اثناء الترحيل Sheets("Mydata").Cells(EndRow, 7).Value = TextBox12.Value Sheets("Mydata").Cells(EndRow, 12).Value = TextBox15.Value Sheets("Mydata").Cells(EndRow, 13).Value = TextBox16.Value Sheets("Mydata").Cells(EndRow, 8).FormulaR1C1 = D & " !R[17]C[13]" اريد ان يضع فى الخانة معادلة تربط الخلية مع خلية معينة فى الصفحة المنشأة فما الطريقة الصحيحة لكتابة الامر انا جربت استخدام الطريقة دى واعطت خطأ Sheets("Mydata").Cells(EndRow, 8).FormulaR1C1 = D & " !R[17]C[13]" برجاء المساعدة فى هذا الكود تم تعديل أبريل 1, 2010 بواسطه DBA.Oracle رابط هذا التعليق شارك More sharing options...
DBA.Oracle قام بنشر أبريل 1, 2010 الكاتب مشاركة قام بنشر أبريل 1, 2010 وجدت الطريقة الصحيحة لكتابة الامر هي Sheets("MyData").Cells(EndRow, 8).FormulaR1C1 = "=Sheet3!RC" لكن المشكلة الان انى اريد استبدال اسم الشيت بدل من Sheet3 يصبح باسم الصفحة الجديدة التي ستنشأ قبل الترحيل والمعرفة باسم D فما الحل ؟ رابط هذا التعليق شارك More sharing options...
DBA.Oracle قام بنشر أبريل 2, 2010 الكاتب مشاركة قام بنشر أبريل 2, 2010 للرفع رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 2, 2010 مشاركة قام بنشر أبريل 2, 2010 السلام عليكم اخي الكريم اتمنى ان يكون هذا المطلوب [color="#660066"]Sheets[/color][color="#666600"]([/color][color="#008800"]"MyData"[/color][color="#666600"]).[/color][color="#660066"]Cells[/color][color="#666600"]([/color][color="#660066"]EndRow[/color][color="#666600"],[/color] [color="#006666"]8[/color][color="#666600"]).[/color][color="#660066"]FormulaR1C1[/color] [color="#666600"]=[/color] [color="#008800"]"=Sheet3!RC"[/color] رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 2, 2010 مشاركة قام بنشر أبريل 2, 2010 استبدل sheets("MyData") ب sheets(D) رابط هذا التعليق شارك More sharing options...
DBA.Oracle قام بنشر أبريل 2, 2010 الكاتب مشاركة قام بنشر أبريل 2, 2010 Sheets("Mydata").Cells(EndRow, 8).FormulaR1C1 = "=Sheets(D)!R[17]C[13]" Sheets("Mydata").Cells(EndRow, 8).FormulaR1C1 = "=Sheets(D).range("j8")" الطريقتين لا يفعلو شيء الطريقة الوحيدة اللى قربت منها Sheets("Mydata").Cells(EndRow, 8).FormulaR1C1 = d & "!R[17]C[13]" تقوم بوضع المعادلة فى الخانة ولكن بدون حرف = فلا تعمل المعادلة فأضطر انا لكتابة = قبل المعادلة ولكن هل من طريقة تجعل المعادلة تكتب بشكل مضبوط كلها ولا احتاج للتعديل فيها يدويا فى كل مرة رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 2, 2010 مشاركة قام بنشر أبريل 2, 2010 استبدل sheets("MyData") ب sheets(D) رابط هذا التعليق شارك More sharing options...
DBA.Oracle قام بنشر أبريل 6, 2010 الكاتب مشاركة قام بنشر أبريل 6, 2010 اكتشفت الطريقة الحمد لله الطريقة هى Sheets("Mydata").Cells(EndRow, 10).Value = "=" & D & "!j7" شكرا للاستاذ / احمد زمان لمحاولة المساعدة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان