ডেটা লেবেলে একটি এক্সেল সূত্রে নির্মিত স্ট্রিংয়ে একটি লাইন ফিড লাগানো

Question

তাদের মধ্যে একটি লাইন বিরতি দিয়ে দুটি ঘর থেকে স্ট্রিং তৈরি করার সূত্রটি ব্যবহার করে আমার একটি এক্সেল চার্টে ডেটা লেবেল তৈরি করতে হবে।

এটি একটি ঘর সূত্রে কাজ করবে:

=A1 & CHAR(10) & B1

এবং এটি ভিবিএতে কাজ করবে

=A1 & Chr(10) & B1

এই পোস্টে যেমন: http://www.ozgrid.com/forum/showthread.php?t=40644 তবে এই পদ্ধতির কোনওটিই ডেটা লেবেলের অভ্যন্তরে কাজ করে না। কোন ধারনা?

Comments

এটি সেলগুলিতে কাজ করার জন্য শব্দ মোড়ানো সক্ষম করা প্রয়োজন। এটি কি ডেটা লেবেলে একটি বিকল্প?

— ব্র্যাড

না, তবে আমি যদি একটি লাইন ব্রেক সহ কোনও ঘর উল্লেখ করি তবে মনে হয় এটি কার্যকর হয়

— ড্যান

Answer 1

ভিবিএতে আপনি এটি ব্যবহার করতে পারেন:

Dim str as String

str = Range("A").Value & vbCrlf & Range("B").Value

vbCrlf আপনাকে লাইন ব্রেক দেবে ...

Comments

=A1 & CHAR(10) & B1ব্র্যাড যেমনটি করেন তেমন করেন এবং শব্দ মোড়ক ব্যবহারের জন্য ঘরটি সেট করে রাখলে আপনিও কাজ করে। আপনি এটি ডেটাসারি সংজ্ঞাটির অভ্যন্তরে সেট আপ করতে পারবেন না। এটি কোনও সেল বা ভিবিএর সাথে সেটআপের জন্য উল্লেখ করতে হবে।

— জুক

= এ 1 এবং সিআর (10) এবং বি 1 ভিবিএতে পুরোপুরি কাজ করে পাশাপাশি আমি আমার প্রশ্নে উল্লেখ করেছি। ভিবিএতে এটি সমাধান করা সমস্যা নয় তবে যাইহোক ধন্যবাদ। এছাড়াও ভিবিউনলাইন কাজ করে যা আপনি ভিবিএ ব্যবহার করলে সম্ভবত সবচেয়ে পঠনযোগ্য পছন্দ।

— ড্যান

Answer 2

এটি ভিবিএতে আমার পক্ষে কাজ করেছে:

Sheet1.ChartObjects(1).Chart.SeriesCollection(1).Name = "a" & vbCr & "b"

এবং যেমনটি বলা হয়েছে, এটি একটি সূত্র নিয়ে কাজ করে:

=DATASERIES(Sheet1!$E$1,Sheet1!$A$2:$A$4,Sheet1!$B$2:$B$4,1)

E1 = "a" & CHAR(10) & "b"

E1 এর শব্দের মোড়ানো সেট থাকতে হবে।

সূত্র সম্পাদনা বিভাগে যখন আপনি নিজের সিরিজটি নির্বাচন করেছেন তখন ডেটাশিরিজ হ'ল।

Comments

DATASERIES অংশটি অপ্রয়োজনীয়, আমার যা যা প্রয়োজন তা হ'ল লাইন ব্রেকটি একটি ঘরে স্থাপন করা এবং তারপরে সেই ঘরের ডেটা লেবেলের রেফারেন্স তৈরি করা। সুতরাং = A1 এবং CHAR (10) এবং বি 1 একটি শব্দ আবৃত ঘরে (C1 বলুন) এবং তারপরে ডেটা লেবেলে just = C1 কাজ করে। আপনি নিজের উত্তরে যা বলছিলেন তা আমি নিশ্চিত না তবে আমি এটিকে সঠিক হিসাবে চিহ্নিত করব, সম্ভবত আপনি এই মন্তব্যটি প্রতিফলিত করতে এটি সম্পাদনা করতে পারেন।

— ড্যান

ঠিক আছে আমি D DATASERIES সূত্রে এটি সেট করার সুবিধা দেখছি তবে এটি আমাকে একটি ত্রুটি দেয়। আমি এক্সেল 2012 ব্যবহার করছি I আমি যদি একটি সিরিজটিতে ক্লিক করি তবে আমার পাওয়া সূত্রটি হ'ল: = সিরিজগুলি ("ভাসমান হার নোটগুলি", এনএসএস! $ আমি $ 35: $ আমি $ 85, এনএসএস! $ এল $ 35: $ এল $ 85,5) ) আমি কয়েকটি স্থানে পরামিতি হিসাবে ডেটা লেবেল পরিসর যুক্ত করার চেষ্টা করেছি তবে কিছুই কার্যকর হয় না, এবং আমি সিরিয়াসগুলি ডেটাসিরিয়সে পরিবর্তন করার চেষ্টা করেছি তবে কোনও ভালও হয়নি। কোন ধারনা?

— ড্যান

আমার উদাহরণটি Excel2007 এ ছিল এবং হ্যাঁ, এটি আপনার মন্তব্যে আপনি কী বর্ণনা করেছেন ment আমি কেবলমাত্র সম্পর্কিত ডায়ালগের পরিবর্তে DATASERIES সূত্রটি ব্যবহার করেছি। আপনি যা লিখেছেন তার উপর ভিত্তি করে, আমি এটিকে উদাহরণ হিসাবে পরিবর্তন =SERIES(NSS!$I$34,NSS!$I$35:$I$85,NSS!$L$35:$L$85,5)করতে পারতাম তবে আমি এটি পরীক্ষা করতে পারি না।

— জুক

অপেক্ষা করুন তবে তারপরে আপনি সিরিজটির নামটি কোথায় রাখবেন যা আমার সিরিজ () ফাংশনে প্রথম পরামিতি? এবং যদি আপনি কেবল একটি একক ঘর উল্লেখ করছেন, তবে আপনি কেবল একটি ডাতালবেল পাবেন? বিভিন্ন কক্ষগুলি উল্লেখ করে আমার লেবেলগুলির জন্য সমস্ত পয়েন্ট দরকার, সুতরাং এনএসএস প্রতিস্থাপন করুন! তবে আপনার সূত্রটি দেখে মনে হচ্ছে আপনি কোনও ডেটেবল নয়, এই সিরিজের নামে লাইন ব্রেক করার চেষ্টা করছেন get আমি ভিবিএর মাধ্যমে এটি সমাধান করেছি, তবে যদি না করার উপায় থাকে তবে আমি এটি শুনতে আগ্রহী।

— ড্যান

আহ, ঠিক আছে, হ্যাঁ, তবে এখানে একটি ভুল বোঝাবুঝি হয়েছিল - আমি ভিবিএ ছাড়াই ডেটা-লেবেলে পৃথকভাবে মান নির্ধারণের কোনও উপায় সম্পর্কে জানতাম না। একরকম আমি তীব্র ছাপের মধ্যে ছিলাম আপনি সিরিজ-লেবেল।

— 13

Answer 3

সুতরাং এটি এইভাবে কাজ করলাম।

পদক্ষেপ 1: =A1 & CHAR(10) & B1ঘরে সূত্রের সাহায্যে ওয়ার্ডরেপ সক্ষম করে একটি নতুন কলাম তৈরি করুন এবং যথাযথভাবে C1টেনে আনুন

পদক্ষেপ 2: প্রতিটি ঘরে লেবেলটিকে সঠিক ঘরে চিহ্নিত করতে নিম্নলিখিত ভিবিএ কোডটি চালান

Sub SetDataLabels()

    Dim ChartName As String
    ChartName = "My Chart's Name"

    With ActiveSheet.ChartObjects(ChartName).Chart

        Dim Series As Integer
        Series = 4

        With .SeriesCollection(Series)

            Dim currentPoint As Integer

            For currentPoint = 1 To .Points.Count

                .Points(currentPoint).DataLabel.Text = Range("C" & currentPoint).Text

            Next currentPoint
        End With

    End With

End Sub