চার্ট সিরিজের নাম রেফারেন্সিং সেল ঠিকানা এক্সেল 2010 ভিবিএ

Question

আমি এক্সেল 2010 ব্যবহার করছি।

আমার কাছে XY স্ক্যাটার চার্টটি আমার পছন্দ মতো তৈরি এবং ফর্ম্যাট করা আছে। আমি এই চার্টটিকে অনেকবার পুনঃব্যবহার করেছি, তাই আমি কেবল চার্টটি অনুলিপি করে নতুন কার্যপত্রকটিতে নতুন ডেটা যা প্লট করতে চাই তাতে আটকান। নতুন কার্যপত্রকটিতে চার্টটি আটকানোর পরে, আমি নতুন ডেটা দিয়ে চার্টটি আপডেট করতে নিম্নলিখিত ম্যাক্রো ব্যবহার করি:

Sub DasyLabOilFDa()

Dim SeriesName As Range
Dim FirstSeriesValues As Range
Dim ElapsedTime As Range

'find cell addresses of elapsed time column
Range("C1").Select 'pick cell above the elapsed time column
Selection.End(xlDown).Select 'pick the elapsed time column header
ActiveCell.Offset(1, 0).Select 'selects first data value in Elapsed Time column
Set ElapsedTime = Range(Selection, Selection.End(xlDown)) 'set ElapsedTime variable to the range of data

'find cell addresses for FirstSeries in the top chart
Range("D1").Select 'pick cell above the first series column
Selection.End(xlDown).Select 'pick the first series column header
Set SeriesName = ActiveCell 'set SeriesName variable to the name of the data column's header
ActiveCell.Offset(1, 0).Select 'selects first data value in data column
Set FirstSeriesValues = Range(Selection, Selection.End(xlDown)) 'set FirstSeriesValues variable to the range of data

ActiveSheet.ChartObjects("TopFDa").Select
ActiveChart.SeriesCollection(1).Name = SeriesName
ActiveChart.SeriesCollection(1).Values = FirstSeriesValues
ActiveChart.SeriesCollection(1).XValues = ElapsedTime

End Sub

আমি প্লট করছি এমন একাধিক ডেটা সিরিজ রয়েছে তবে উপরেরগুলিতে আমি কার্যপত্রকের ডেটা সহ নতুন ওয়ার্কশিটে আটকানো চার্টটি কীভাবে তৈরি করতে ম্যাক্রো পাচ্ছি তা দেখানোর জন্য যথেষ্ট কোড রয়েছে।

ম্যাক্রো চলার পরে চার্টটি সঠিকভাবে সিরিজটির নামকরণ করবে 'কিংবদন্তি হিসাবে দেখা হয়েছে (সিরিজটি' নামটি ডেটা কলামের শিরোনাম দ্বারা নির্ধারিত হয়েছিল)

বিষয়টি হ'ল সিরিজের নামটি সেল ঠিকানাটি উল্লেখ করছে না। আমি যখন সিরিজটি সম্পাদনা করতে দেখছি তখন সিরিজের নাম ইনপুট বাক্সটি ফাঁকা।

আমি কীভাবে আমার কোডটি পরিবর্তন করতে পারি যাতে ফলস্বরূপ চার্টটি কলামের শিরোনামের সেল ঠিকানাটিকে সিরিজের নাম হিসাবে উল্লেখ করে?

Answer 1

আমি আমার এক্সেল 2007 এর অনুলিপিতে এবং সিরিজের জন্য নথিতে অ্যাক্সেল বিকাশকারী রেফারেন্সটি পরীক্ষা করেছিলাম ame নাম সম্পত্তি এটি এটি বলে:

মন্তব্য

আপনি আর 1 সি 1 স্বরলিপি ব্যবহার করে উল্লেখ করতে পারেন, উদাহরণস্বরূপ, "= পত্রক 1! আর 1 সি 1"।

আমি এটি পরীক্ষা করেছি এবং এটি আমার জন্য কাজ করে: আমি এটিকে একটি নির্দিষ্ট কক্ষে সেট করেছি এবং যখন আমি সেই ঘরের পাঠ্য পরিবর্তন করি, তখন সিরিজের শিরোনাম স্বয়ংক্রিয়ভাবে আপডেট হয়।

আপনার ক্ষেত্রে আপনার ব্যবহার করা উচিত

ActiveChart.SeriesCollection(1).Name = "='" & ActiveSheet.Name & "'!" & SeriesName.Address(,,xlR1C1)

Comments

এক্সেল 2007 সাল থেকে আপনি xlA1 বা xlR1C1 স্বরলিপি ব্যবহার করতে পারেন। আমি সাধারণত ব্যবহার করি: Series.Name = TheRange.Address(, , , True)যেখানে চতুর্থ আর্গুমেন্টে যথাযথ বিরামচিহ্নযুক্ত কার্যপত্রকের নাম সহ উপসর্গ সরবরাহ করে।

— জন পেলটিয়ার

Answer 2

@ জাকেমসিগ্রিগোর আপনার সিরিজের নামটি খালি কারণ আপনি শিরোনামটি নির্বাচন করেন নি, তাই, ডিফল্টরূপে Excelতার সিরিজের নামটি খালি দেয়।

আপনি আপনার রেঞ্জটি কেন এমন পান? আপনি ঠিক করতে পারেন:

Dim rETime as Range
' Set your default Range
rETime = Range("C1").End(xlDown).Offset(1,0)
'' with this you don't need to do every time
Set ElapsedTime = Range(rETime, rETime.End(xlDown))
Set FirstSeriesValues = Range(rETime.Offset(0,1), _  
                                rETime.Offset(0,1).End(xlDown))

Comments

সিরিজের নামটি খালি ছিল না, কিংবদন্তিতে এটি সঠিক ছিল। এটি কোডে রেফারেন্স হওয়া কক্ষের সাথে লিঙ্কযুক্ত ছিল না।

— জন পেল্টিয়র