শুধুমাত্র শেষ মান ডেটা লেবেল যোগ করা হচ্ছে


1

তাই আমার একাধিক লাইন সহ একটি লাইন চার্ট আছে। সে রকমই. enter image description here

আমি প্রতিটি লাইনের ডাটা লেবেল যোগ করতে চাই, কিন্তু ডানদিকে শুধুমাত্র শেষ মানতে।

আমি পৃথক লেবেল মুছে ফেলতে পারেন জানি। কিন্তু যখন আমি আমার টেবিলের নতুন মান যোগ করি, তখন নতুন মান নতুন লেবেলের সাথে উপস্থিত হবে, যা ভাল, কিন্তু আগেরটি আমাকে ম্যানুয়ালি মুছে ফেলতে হবে। লেবেলটিকে স্বয়ংক্রিয়ভাবে সরানোর জন্য কোন উপায় আছে কি?

enter image description here

উত্তর:


1

আমার অন্য উত্তরে আমি কোনও চলমান শেষ বিন্দু (অর্থাত্, অতিরিক্ত ডেটা পয়েন্ট) জন্য কোনও ভাতা প্রদান করিনি। একক মুভিং লেবেলকে অনুমতি দেওয়ার জন্য আপনার ডেটা সামঞ্জস্য করার জন্য এটি একটি বড় চুক্তি নয়।

আমি কেবলমাত্র একটি ডাটা সিরিজ দেখছি, তবে যত তাড়াতাড়ি প্রয়োজন হয় তা করতে যথেষ্ট সহজ, একবার আপনি কৌশলটি জানেন। নিচের ডেটাতে, আমার একটি তারিখ কলাম, এবং একই শিরোনাম, মূল্য সহ দুটি কলাম রয়েছে। প্রথম মানের কলামটি তারিখ পরিসরের মধ্যম পর্যন্ত মানগুলি থাকে। দ্বিতীয় কলামটিতে একটি সূত্র রয়েছে যা শুধুমাত্র শেষ মান প্রদর্শন করে। এই সেল C2 মধ্যে সূত্র:

=IF(AND(ISNUMBER(B2),LEN(B3)=0),B2,NA())

এই সূত্র কলাম নিচে কপি করা হয়।

এখন সব তথ্য একটি চার্ট তৈরি করুন। প্রথম মান সিরিজ হল নীল চেনাশোনা এবং লাইন, দ্বিতীয়টি হল নীল বিন্দুতে কেবল কমলা বৃত্ত। আমি কমলা সিরিজ একটি লেবেল যোগ করেনি, নীল এক।

দ্বিতীয় চার্টটি কেবল এটি পরিষ্কার করে দেখায়: আমি দ্বিতীয় মান সিরিজটি ফরম্যাট করেছি যাতে এটি কোন মার্কার এবং কোন লাইন ব্যবহার করে না এবং আমি কিংবদন্তীটি মুছে ফেলেছি।

enter image description here

পরবর্তী চার্টে, আমি সম্পন্ন করেছি একটি দম্পতি তথ্য পয়েন্ট যোগ করা। আমার অংশে কোনও প্রচেষ্টা ছাড়াই, লেবেল নতুন শেষ বিন্দুতে স্থানান্তরিত হয়েছে।

enter image description here


আহ মজার সমাধান ... আমি আশ্চর্য হল যে আমি দুটি কলাম একত্রিত করতে পারি, উদাহরণস্বরূপ স্ট্রিংগুলিতে সমস্ত মান রূপান্তরিত করা এবং শুধুমাত্র শেষ সংখ্যাটি সংখ্যাটি রূপান্তর করুন? টেবিলে একইভাবে তাদের ফরম্যাট করার পদ্ধতি সম্পর্কেও আমি চিন্তা করতে হবে এবং এটি আমাকে টেবিলের কিছু সূত্রগুলিতে সীমাবদ্ধ করবে।
Alexey Adamsky

কোন দুটি কলাম? এবং কেন স্ট্রিং রূপান্তর? স্ট্রিংগুলি শূন্য হিসাবে চক্রান্ত করবে (এমনকি "" স্ট্রিংগুলি, যা ফাঁকা মনে হবে তবে নয়)। আমি # এন / এ ব্যবহার করি কারণ এগুলির সবগুলোই প্লট করা হয় না।
Jon Peltier

0

আমি আপনাকে উভয় বিকল্প সুপারিশ করতে চাই। প্রথমটি অ-ভিবিএ এবং অন্যটি ভিবিএ কোড।

অ-ভিবিএ সমাধান:

যেহেতু এক্সেলের কেবল একটি ডেটা লেবেল বরাদ্দ করার কোনও ব্যবস্থা নেই, যদি তালিকা তৈরির জন্য সেল সিরিজ জড়িত থাকে।

কিন্তু চার্ট তৈরি হওয়ার পরে আপনি লেবেল রিসেট করতে পারেন।

আপনার ক্ষেত্রে, লেবেল প্রয়োগ করার পরে, রাইট ক্লিক করুন লাইন, আপনি সন্ধান করতে লেবেলগুলি প্রস্তুত। একের পর এক লেবেল নির্বাচন করুন, তারপরে রাইট ক্লিক করুন & amp; চার্ট এলাকার পাশে মান চেকবক্স মুছুন বা অ-চেক করুন।

ভিবিএ সমাধান:

একটি কমান্ড বাটন তৈরি করুন এবং এই কোডটি লিখুন।

মনে রাখবেন, আপনি কেবল চার্টটি তৈরি করেন তবে ডেটা লেবেল প্রয়োগ করবেন না। প্রতিটি জিনিস প্রস্তুত হওয়ার পরে কমান্ড বাটনে ক্লিক করুন। কোডটি প্রথমে সমস্ত ডেটা লেবেল তৈরি করবে অবশেষে সর্বশেষটি রাখবে।

মনে রাখবেন আপনি কমান্ড বোতাম ছাড়াই রান ম্যাক্রো হিসাবে এই কোডটি র্যাম করতে পারেন।

Sub LastDataLabel()

Dim ws As Worksheet
Dim chrt as Chart
Dim srs as Series
Dim pnt as Point
Dim p as Integer

Set ws = ActiveSheet
Set chrt = ws.ChartObjects("Line Chart")
Set srs = chrt.SeriesCollection(1)

    srs.ApplyDataLabels

    For p = 1 to srs.Points.Count - 1 
        Set pnt = srs.Points(p)

        p.Datalabel.Text = ""
    Next

    srs.Points(srs.Points.Count).DataLabel.Format.TextFrame2.TextRange.Font.Size = 10


End Sub

এই আপনি সাহায্য আশা করি


শুধু শেষ বিন্দু লেবেল করুন: srs.Points(srs.Points.Count).ApplyDataLabels। তারপরে আপনার চার্ট সব খালি লেবেলের সাথে আবদ্ধ হয় না।
Jon Peltier

0

যদি আপনি পুরো সিরিজটি নির্বাচন করেন তবে এক্সেল সিরিজের প্রতিটি বিন্দুতে একটি লেবেল রাখবে।

আপনি যে লেবেলটি চান তা কেবলমাত্র একক বিন্দুটি নির্বাচন করুন: সিরিজটি নির্বাচন করতে একবার ক্লিক করুন, তারপরে একটি বিন্দু নির্বাচন করতে আবার ক্লিক করুন। এখন যখন আপনি ডান-ক্লিক মেনু বা প্লাস সাইন আইকনটি ডেটা লেবেল যোগ করার জন্য ব্যবহার করেন, তখন এটি আপনার নির্বাচিত এক বিন্দুতে একটি লেবেল যুক্ত করবে।

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

Sub LastPointLabel()
  Dim mySrs As Series
  Dim iPts As Long
  Dim vYVals As Variant
  Dim vXVals As Variant

  If ActiveChart Is Nothing Then
    MsgBox "Select a chart and try again.", vbExclamation
  Else
    Application.ScreenUpdating = False
    For Each mySrs In ActiveChart.SeriesCollection
      With mySrs
        vYVals = .Values
        vXVals = .XValues
        ' clear existing labels
        .HasDataLabels = False
        For iPts = .Points.Count To 1 Step -1
          If Not IsEmpty(vYVals(iPts)) And Not IsError(vYVals(iPts)) _
              And Not IsEmpty(vXVals(iPts)) And Not IsError(vXVals(iPts)) Then
            ' add label
            mySrs.Points(iPts).ApplyDataLabels _
                ShowSeriesName:=True, _
                ShowCategoryName:=False, ShowValue:=False, _
                AutoText:=True, LegendKey:=False
            Exit For
          End If
        Next
      End With
    Next
    ' legend is now unnecessary
    ActiveChart.HasLegend = False
    Application.ScreenUpdating = True
  End If
End Sub

আমি এই বিষয়ে নিবন্ধ একটি গুচ্ছ লিখেছেন:

উপরন্তু, আমার বাণিজ্যিক এক্সেল চার্টিং সফ্টওয়্যার এই বৈশিষ্ট্য একটি আপডেট সংস্করণ অন্তর্ভুক্ত।

আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.