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
DBA.Oracle قام بنشر أبريل 1, 2010 الكاتب قام بنشر أبريل 1, 2010 وجدت الطريقة الصحيحة لكتابة الامر هي Sheets("MyData").Cells(EndRow, 8).FormulaR1C1 = "=Sheet3!RC" لكن المشكلة الان انى اريد استبدال اسم الشيت بدل من Sheet3 يصبح باسم الصفحة الجديدة التي ستنشأ قبل الترحيل والمعرفة باسم D فما الحل ؟
احمدزمان قام بنشر أبريل 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]
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]" تقوم بوضع المعادلة فى الخانة ولكن بدون حرف = فلا تعمل المعادلة فأضطر انا لكتابة = قبل المعادلة ولكن هل من طريقة تجعل المعادلة تكتب بشكل مضبوط كلها ولا احتاج للتعديل فيها يدويا فى كل مرة
DBA.Oracle قام بنشر أبريل 6, 2010 الكاتب قام بنشر أبريل 6, 2010 اكتشفت الطريقة الحمد لله الطريقة هى Sheets("Mydata").Cells(EndRow, 10).Value = "=" & D & "!j7" شكرا للاستاذ / احمد زمان لمحاولة المساعدة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.