আমার একটি ঘরে একটি স্ট্রিং রয়েছে যা 8 টি অক্ষর। যেমন এবিসিডিএফজিএইচ, আমি কী ঘরের জন্য এটি কাস্টম নম্বর ফর্ম্যাটটি AB-CD-EF-GH হিসাবে প্রদর্শিত করতে পারি?
বর্তমানে আমার পদ্ধতিতে এটিতে অন্য একটি সেল রেফারেন্স পাওয়া উচিত এবং এর মতো সূত্র ব্যবহার করা
=LEFT(A1,2)&"-"&MID(A1,3,2)&"-"&MID(A1,5,2)&"-"&RIGHT(A1,2)।
উত্তর:
মন্তব্যগুলিতে ইঙ্গিত হিসাবে, আপনি যা চান তা করতে কোনও কাস্টম নম্বর ফর্ম্যাট কোড নেই। আপনি যা করছেন তার একমাত্র বিকল্প।
কাস্টম নম্বর ফর্ম্যাট কোডগুলি এবং সেগুলি কীভাবে কাজ করে সে সম্পর্কে বিশদের জন্য আপনি এই মাইক্রোসফ্ট ওয়েবপেজে যেতে পারেন ।
অফিস 365 এক্সেলের সাহায্যে অ্যারে সূত্র হিসাবে টেক্সটজোন ফাংশনটি ব্যবহার করতে পারেন:
=TEXTJOIN("-",TRUE,MID(A1,(ROW($AAB$1:$AAB$4)-1)*2+1,2))
অ্যারে সূত্র হওয়ার কারণে এটি সম্পাদনা মোড থেকে প্রস্থান করার সময় এন্টার পরিবর্তে সিটিআরএল-শিফট-এন্টার দিয়ে নিশ্চিত হওয়া দরকার।
মিড দুটি অক্ষরগুলিতে অক্ষরের একটি অ্যারে তৈরি করে এবং টেক্সটজোন তাদের মধ্যে একটির সাথে আবার যোগদান -করে।
যেহেতু এক্সেল কোনও কাস্টম বিন্যাস সরবরাহ করে না, তাই আমি আপনাকে ভিবিএ (ম্যাক্রো) কোডটি সুপারিশ করতে চাই, নিয়মিত বিরতিতে সেল মানগুলির মধ্যে প্রয়োজনীয় চরিত্রটি রাখার দ্রুততম পদ্ধতি।
Sub InsertCharacter()
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "Put Dashes"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
xValue = Rng.Value
outValue = ""
For index = 1 To VBA.Len(xValue)
If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
Else
outValue = outValue + VBA.Mid(xValue, index, 1)
End If
Next
OutRng.Cells(xNum, 1).Value = outValue
xNum = xNum + 1
Next
End Sub
কিভাবে এটা কাজ করে:
যত তাড়াতাড়ি আপনি ম্যাক্রো চালাবেন, এটি একের পর এক 4 ইনপুট বাক্স পপ আপ করবে ।
প্রথম ইনপুট বাক্স উত্স ডেটা রেঞ্জের জন্য জিজ্ঞাসা করবে।
দ্বিতীয়টি অক্ষরের সংখ্যা অনুসন্ধান করবে (আপনার কয়টি অক্ষরের প্রয়োজন পরে - সাইন ইন করুন, আপনার ক্ষেত্রে 2)।
তৃতীয়টি চরিত্রটি toোকানোর জন্য জিজ্ঞাসা করবে (আপনার ক্ষেত্রে - সাইন ইন)।
চূড়ান্ত এক আউটপুট সেল অবস্থানের জন্য জিজ্ঞাসা করবে (অবশ্যই একটি একক ঘর হতে হবে)।
ঠিক আছে দিয়ে শেষ।
বিশেষ দ্রষ্টব্য
এই ম্যাক্রো বহুমুখী যা আপনি কোনও চরিত্রের মধ্যে রাখার জন্য ব্যবহার করতে পারেন, অক্ষরের মধ্যে অন্তরকে আবারও নকশা করা যায়, পাশাপাশি এটি কোনও ধরণের ডেটা আলফানিউমিক, সংখ্যা বা বর্ণমালা নিয়ে কাজ করে। এবং সর্বোত্তম অংশটি হ'ল এটি এক্সেলের প্রায় সব সংস্করণ (2007, 2010, 2013 এবং 2016) এর সাথে কাজ করে
Replace, বা ব্যবহার করতে হবেPower Query।