হ্যাঁ, একটি দ্রুত উপায় আছে। আপনি আপনার প্লট প্রোগ্রাম্যাটিক তৈরি করতে একটি ম্যাক্রো ব্যবহার করতে পারেন।
যদি আপনি VB জানেন, তবে ধাপ 3 এ যান।
- ভিজ্যুয়াল বেসিক উইন্ডো খুলুন - হয় বিকাশকারী ট্যাব বা Alt-F11 এর মাধ্যমে।
- উপরের বাম কোণে ওয়ার্কবুক শীট এবং মডিউলগুলির একটি তালিকা রয়েছে। আপনার ওয়ার্কবুকের নামটি খুঁজুন, তার নামের উপর ডান ক্লিক করুন এবং "সন্নিবেশ & gt; মডিউল" নির্বাচন করুন। ফাইলের ট্রিটিতে এখন "মডিউল 1" নামে একটি উপাদান সহ মডিউল নামে একটি ফোল্ডার থাকা উচিত। ডাবল ক্লিক করুন।
আপনি এখন একটি এক্সেল ভিবিএ মডিউল। নিম্নলিখিত কোড যোগ করুন:
Sub chart()
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.Legend.Delete
i = 1
numSeries = 1000
Do While i < numSeries + 1
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).XValues = "=Sheet1!$A$" & i & ":$CV$" & i
ActiveChart.SeriesCollection(i).Values = "=Sheet1!$A$" & numSeries + 1 & ":$CV$" & numSeries + 1
i = i + 1
Loop
End Sub
কোডটি চালান, ভিজ্যুয়াল বেসিক উইন্ডোতে রান বোতাম বা মেনু ব্যবহার করুন অথবা Excel এ বিকাশকারী ট্যাবের মাধ্যমে।
- আপনি কলাম কোডটি $ A এবং $ CV নামে দেখতে পারেন। ফলাফলটি যদি কিছু কারণে আপনার ডেটা মেলে না তবে এটি পরিবর্তন করুন। পরিবর্তনশীল numSeries পরিবর্তন করা যেতে পারে যদি আপনি পরে সারির একটি ভিন্ন সংখ্যা চান। এই কোডটিতে আপনার কোন শিরোনাম সারি নেই এবং X অক্ষের তথ্য চূড়ান্ত সারিতে রয়েছে যা চার্টের তথ্য সংরক্ষণ করার একটি অস্বাভাবিক উপায়, তবে আপনার উদাহরণের সাথে মেলে।
সম্পাদনা:
এক্স এবং Y সুইচ করা হয়েছে:
Sub chart()
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.Legend.Delete
i = 1
numSeries = 1000
Do While i < numSeries + 1
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).Values = "=Sheet1!$A$" & i & ":$CV$" & i
ActiveChart.SeriesCollection(i).XValues = "=Sheet1!$A$" & numSeries + 1 & ":$CV$" & numSeries + 1
i = i + 1
Loop
End Sub
এবং এখন প্রতিটি সিরিজ ডিসপ্লে 4 ডাটা সেট করে 255 সীমা অনুসারে 1000 টি আইটেম পেতে চেষ্টা করছে:
Sub chart()
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.Legend.Delete
i = 1
numSeries = 1000
s0 = "Sheet1!$A$" & numSeries + 1 & ":$CV$" & numSeries + 1
Do While i < (numSeries / 4 + 1)
s1 = "=Sheet1!$A$" & i & ":$CV$" & i
s2 = ", Sheet1!$A$" & i + numSeries / 4 & ":$CV$" & i + numSeries / 4
s3 = ", Sheet1!$A$" & i + 2 * numSeries / 4 & ":$CV$" & i + 2 * numSeries / 4
s4 = ", Sheet1!$A$" & i + 3 * numSeries / 4 & ":$CV$" & i + 3 * numSeries / 4
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).Values = s1 & s2 & s3 & s4
ActiveChart.SeriesCollection(i).XValues = "=" & s0 & ", " & s0 & ", " & s0 & ", " & s0
i = i + 1
Loop
End Sub