বাহ, আমি নিজেই এই প্রশ্নটি জিজ্ঞাসা করতে যাচ্ছিলাম তবে এটি ইতিমধ্যে জিজ্ঞাসা করা হয়েছিল। সমস্ত এক্সেল ক্লিপবোর্ড আউটপুট tabডিফল্ট অনুসারে সীমিত হয়। এটি যখন আপনার নির্দিষ্ট প্রস্থের ফন্ট থাকে তবে অগত্যা ট্যাব ডিলিমেটার সমর্থন না করে "প্রকৃত" প্লেইন পাঠ্য আউটপুটটির জন্য বিরক্তিকর।
যাইহোক, আমি একটি ছোট এক্সেল ম্যাক্রো পেয়েছি এবং সংশোধন করেছি যা বর্তমানে নির্বাচিত অঞ্চলটিকে একটি সাধারণ নির্দিষ্ট-প্রস্থের কলাম ASCII টেবিল হিসাবে অনুলিপি করবে - এরকম:
187712 201 37 0.18
2525 580 149 0.25
136829 137 43 0.31
ম্যাক্রো কোডটি এখানে। এটি ব্যবহার করতে, আপনি যদি এক্সেল 2007 বা তার পরে ব্যবহার করেন তবে আপনি এক্সেল বিকল্পগুলিতে বিকাশকারী ট্যাব সক্ষম করেছেন তা নিশ্চিত করুন ।
Sub CopySelectionToClipboardAsText()
' requires a reference to "Windows Forms 2.0 Object Library"
' add it via Tools / References; if it does not appear in the list
' manually add it as the path C:\Windows\System32\FM20.dll
Dim r As Long, c As Long
Dim selectedrows As Integer, selectedcols As Integer
Dim arr
arr = ActiveSheet.UsedRange
selectedrows = UBound(arr, 1)
selectedcols = UBound(arr, 2)
Dim temp As Integer
Dim cellsize As Integer
cellsize = 0
For c = 1 To selectedcols
temp = Len(CStr(Cells(1, c)))
If temp > cellsize Then
cellsize = temp
End If
Next c
cellsize = cellsize + 1
Dim line As String
Dim output As String
For r = 1 To selectedrows
line = Space(selectedcols * cellsize)
For c = 1 To selectedcols
Mid(line, c * cellsize - cellsize + 1, cellsize) = Cells(r, c)
Next c
output = output + line + Chr(13) + Chr(10)
Next r
Dim MyData As MSForms.DataObject
Set MyData = New DataObject
MyData.SetText output
MyData.PutInClipboard
MsgBox "The current selection was formatted and copied to the clipboard"
End Sub