কীবোর্ড শর্টকাট Ctrl+ ক্লিক করে একাধিক এক্সেল সেল নির্বাচন করা যায় (হয় স্বচ্ছন্দে বা না) Click
আপনি কীভাবে পূর্বে নির্বাচিত এই কোষগুলির এক বা একাধিকটি অনির্বাচিত করবেন?
কীবোর্ড শর্টকাট Ctrl+ ক্লিক করে একাধিক এক্সেল সেল নির্বাচন করা যায় (হয় স্বচ্ছন্দে বা না) Click
আপনি কীভাবে পূর্বে নির্বাচিত এই কোষগুলির এক বা একাধিকটি অনির্বাচিত করবেন?
উত্তর:
শিফট এবং / অথবা সিটিআরএল কীগুলি ব্যবহার করে আপনি অ-স্বচ্ছল রেঞ্জ নির্বাচন করতে পারেন। তবে, আপনি যদি ভুল করে কোনও ঘর বা অঞ্চল নির্বাচন করেন তবে পুরো নির্বাচনটি না হারিয়ে এবং আবার শুরু না করেই নির্বাচন থেকে সেটি সরিয়ে নেওয়ার কোনও ভিত্তি নেই। এই পৃষ্ঠাটি ভিবিএ পদ্ধতিগুলি, আনসিলিটএ্যাকটিভসেল এবং আনসিলিটকন্ট্রেনিয়ারিয়া বর্ণনা করে যা বর্তমান নির্বাচন থেকে সক্রিয় সেল বা অ্যাক্টিভ সেল সম্বলিত অঞ্চলটি সরিয়ে দেবে। নির্বাচনের অন্যান্য সমস্ত কক্ষ নির্বাচিত থাকবে।
আপনার সেরা বাজি হ'ল এগুলি আপনার ব্যক্তিগত ম্যাক্রো ওয়ার্কবুকে যুক্ত করা যাতে তারা এক্সেলের সমস্ত ওপেন ওয়ার্কবুকগুলিতে উপলব্ধ।
এই পদ্ধতিটি নির্বাচন থেকে সক্রিয় সেলটি সরিয়ে ফেলবে ।
Sub UnSelectActiveCell()
Dim R As Range
Dim RR As Range
For Each R In Selection.Cells
If StrComp(R.Address, ActiveCell.Address, vbBinaryCompare) <> 0 Then
If RR Is Nothing Then
Set RR = R
Else
Set RR = Application.Union(RR, R)
End If
End If
Next R
If Not RR Is Nothing Then
RR.Select
End If
End Sub
এই পদ্ধতিটি নির্বাচন থেকে সক্রিয় সেলযুক্ত অঞ্চলটি সরিয়ে ফেলবে।
Sub UnSelectCurrentArea()
Dim Area As Range
Dim RR As Range
For Each Area In Selection.Areas
If Application.Intersect(Area, ActiveCell) Is Nothing Then
If RR Is Nothing Then
Set RR = Area
Else
Set RR = Application.Union(RR, Area)
End If
End If
Next Area
If Not RR Is Nothing Then
RR.Select
End If
End Sub
deselect
একটি ঘর কীভাবে তা জানতে পারি না । একেবারেই হাস্যকর! আমি প্রতি 2 র্থ কলামটি নির্বাচন করছি এবং যদি আমার কোনও ভুল হয় তবে আমার অবশ্যই শুরু করা উচিত? এটি% & * পাগল!
একাধিক কক্ষগুলি অনির্বাচিত করার আরও শক্তিশালী উপায়টি এই এক্সটেনডঅফিস নিবন্ধে বর্ণিত হয়েছে । এটিতে একটি অতিরিক্ত প্রম্পট অন্তর্ভুক্ত রয়েছে তবে আপনি একবারে একটি স্বেচ্ছাসেবী কোষ / নির্বাচনগুলি অনির্বাচিত করতে পারেন (কেবলমাত্র সক্রিয় ঘর বা অঞ্চলটি নির্বাচন না করে)
আমি এখানে স্ক্রিপ্টটি সামান্য ব্যবহারযোগ্যতার উন্নতি সহ পোস্ট করছি (শর্তাধীন মূল পোস্ট থেকে অপ্রয়োজনীয় প্রথম প্রম্পটটি সরিয়ে নিয়েছে):
Sub DeselectCells()
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim result As Range
xTitleId = "Deselect Cells"
Set InputRng = Application.Selection
If InputRng.Count <= 1 Then
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
End If
Set DeleteRng = Application.InputBox("Delete Range", xTitleId, Type:=8)
For Each rng In InputRng
If Application.Intersect(rng, DeleteRng) Is Nothing Then
If result Is Nothing Then
Set result = rng
Else
Set result = Application.Union(result, rng)
End If
End If
Next
result.Select
End Sub
এটি ব্যবহার করার জন্য, আপনাকে একটি নির্বাচন করুন, ডাকা DeselectCells
হতে পারে ম্যাক্রো (যা আপনার ব্যক্তিগত ম্যাক্রো বইয়ে সংরক্ষিত এবং একটি শর্টকাট নির্ধারিত করা হয়) এবং কক্ষ নির্বাচন করতে ডি পপআপ নির্বাচিত প্রদর্শিত:
UnSelectActiveCell
যদি রেঞ্জের সাথে মিল রেখে এবং কেবলমাত্র কোষগুলির মধ্য দিয়ে লুপ করেন তবে দ্রুত তৈরি করতে পারেনNot Intersect(Area,ActiveCell) Is Nothing
। যদিIntersect
ফাংশনটি ফাংশনের চেয়ে এত ধীরStrComp
হয় যে এটি কলগুলিতে হ্রাসকে অফসেট করতে পারে না তবে এটি ক্ষেত্রে হতে পারে নাUnion
।