এক্সেলে নির্দিষ্ট শিটের নাম কীভাবে পাওয়া যায়

4

আমার এটির 55 টি শীট সহ একটি এক্সেল ফাইল রয়েছে

এক্সেল ফাইলে একটি নির্দিষ্ট শীটের নাম খুঁজে পাওয়া অত্যন্ত ক্লান্তিকর কারণ এটিতে 55 টি শীট রয়েছে

আমি সুনির্দিষ্ট শীটের নাম সন্ধান করতে অনুসন্ধান ফাংশনটি ব্যবহার করেছি তবে এটি শীটের নামটি সন্ধান করছে না

এক্সেলে কোনও শিটের নাম সন্ধানের উপায় আছে কি?

microsoft-excel

7

২০১৩ সালে ... পরিস্থিতি বারে নেভিগেশন অঞ্চলে ডান ক্লিক করুন (বোতামগুলির সাথে বাম দিকের অঞ্চল) এবং শীটের নামগুলি উপস্থিত হবে এবং আপনি যেটি সক্রিয় করতে চান তা চয়ন করতে পারেন। জোয়ান বি

— জোয়ান বি
সূত্র

3

এক্সেলের বিল্ড ইন সার্চ ফাংশন আপনাকে শীটগুলির নাম অনুসন্ধান করার অনুমতি দেয় না। পরিবর্তে আপনি কোডটি বেলুকে ম্যাক্রো হিসাবে প্রকৃত ওয়ার্কবুক বা আপনার এক্সেল ইনস্টলেশনটিতে একটি অ্যাড-ইন হিসাবে অন্তর্ভুক্ত করতে পারেন।

যখন এই কোডটি বলা হয় তখন এটি আপনাকে অনুসন্ধানের নামের জন্য অনুরোধ করবে এবং সেই নামটি সহ শীটটি সন্ধান এবং নির্বাচন করার চেষ্টা করবে।

Sub SearchSheetName()
    Dim sName As String
    Dim sFound As Boolean

    sName = InputBox(prompt:="Enter sheet name to find in workbook:", Title:="Sheet search")

    If sName = "" Then Exit Sub
    sFound = False

    On Error Resume Next
        ActiveWorkbook.Sheets(sName).Select
        If Err = 0 Then sFound = True
    On Error GoTo 0

    If sFound = False Then
        MsgBox prompt:="The sheet '" & sName & "' could not be found in this workbook!", Buttons:=vbExclamation, Title:="Search result"
    End If
End Sub

— Netloh
সূত্র

একটি লুপ এবং নির্বাচন অকারণে ব্যবহার।

— brettdj

পছন্দ করুন কেন এমন করলাম সে সম্পর্কে আমার কোনও ব্যাখ্যা নেই! আমি কোড আপডেট করেছি। ধন্যবাদ :)

— নেটলোহ

0

আপনি নিজের ওয়ার্কবুকের সমস্ত ওয়ার্কশিটের একটি তালিকা স্বয়ংক্রিয়ভাবে তৈরি করতে আপনি ভিবিএ ব্যবহার করতে পারেন।

আপনি যদি এই ওয়ার্কবুকের জন্য ভিবি প্যানেলে এই কোডটি সন্নিবেশ করান, তবে আপনার ওয়ার্কবুকটিতে ফিরে যান এবং খালি শিট করুন এবং এটিকে ম্যাক্রো হিসাবে চালান:

Sub SheetNames()
    Columns(1).Insert
    For i = 1 To Sheets.Count
        Cells(i, 1) = Sheets(i).Name
    Next i
End Sub

এটির পরে আপনার সমস্ত কার্যপত্রকের একটি সম্পূর্ণ তালিকা তৈরি করা উচিত। আপনি চাইলে সহজেই সেই শীটে লাফিয়ে তোলার জন্য প্রত্যেককে হাইপারলিংক সরবরাহ করতে পারেন।

— Matt_Roberts
সূত্র

0

নীচে হিসাবে একটি সহজ পরীক্ষা চালানোর জন্য দ্রুত

Sub Tested()
Dim strTest As String
strTest = "Your Sheet Name"
MsgBox strTest & "exists:= " & SheetExists(strTest)
End Sub

Function SheetExists(ByVal strTest As String) As Boolean
Dim ws As Worksheet
On Error Resume Next
Set ws = ActiveWorkbook.Sheets(strTest)
SheetExists = (Not ws Is Nothing)
End Function

— brettdj
সূত্র