අන්තර්ගතය
කැමති කෙනෙක්, නමුත් මට පුද්ගලිකව තත්ව තීරුවක් අවශ්ය වන්නේ අවස්ථා 2-3කදී පමණි:
- පෙරීමෙන් පසු, එය තේරීමෙන් පසු ඉතිරිව ඇති අගයන් ගණන පෙන්වයි
- පරාසයක් තෝරාගත් විට, එය තෝරාගත් සෛල එකතුව, සාමාන්යය සහ සංඛ්යාව පෙන්වයි
- බර ලිපිගොනු සම්බන්ධයෙන්, ඔබට පොතේ සූත්‍ර නැවත ගණනය කිරීමේ ප්‍රගතිය දැකිය හැකිය.
තිරයේ මුළු පළලම පාහේ ගෙන එය මත නිතරම එල්ලෙන රේඛාවක් සඳහා එතරම් නොවේ. අපි මෙම නිහතමානී ලැයිස්තුව පුළුල් කර එයට තවත් ප්‍රයෝජනවත් විශේෂාංග කිහිපයක් එක් කිරීමට උත්සාහ කරමු 🙂
තත්ව තීරුව කළමනාකරණය කිරීම සඳහා පොදු මූලධර්ම
Visual Basic සමඟ තත්ව තීරුව කළමනාකරණය කිරීම ඉතා පහසුයි. ඔබේ පෙළ එහි ප්රදර්ශනය කිරීමට, ඔබට සරල මැක්රෝ එකක් භාවිතා කළ හැක:
උප MyStatus() Application.StatusBar = "ප්‍රයිවෙට්!" අවසානය උප
එය ක්රියාත්මක කිරීමෙන් පසු, අපට ලැබෙන්නේ:
තත්ව තීරුවේ මුල් තත්වය ප්‍රතිස්ථාපනය කිරීම සඳහා, ඔබට එකම කෙටි “මැක්රෝ විරෝධී” අවශ්ය වනු ඇත:
උප MyStatus_Off() Application.StatusBar = False End Sub
මූලික අනුවාදයේ, ඔබට පෙනෙන පරිදි, සියල්ල ඉතා සරල ය. දැන් අපි අදහස වර්ධනය කිරීමට උත්සාහ කරමු ...
තත්ව තීරුවේ තෝරාගත් පරාසයේ ලිපිනය
සූත්‍ර තීරුවේ එක්සෙල් කවුළුවේ ඉහළ වම් කෙළවරේ, ඔබට සැමවිටම වත්මන් කොටුවේ ලිපිනය දැකිය හැකිය. නමුත් සම්පූර්ණ පරාසයක් තෝරාගෙන තිබේ නම්, අවාසනාවකට මෙන්, එහි තේරීම් ලිපිනය අපට නොපෙනේ - එකම තනි සක්‍රිය කොටුවක් දර්ශනය වේ:
මෙම ගැටළුව විසඳීම සඳහා, ඔබට තත්ව තීරුවේ තෝරාගත් ප්රදේශයේ ලිපිනය පෙන්වන සරල මැක්රෝ එකක් භාවිතා කළ හැකිය. එපමනක් නොව, මෙම මැක්‍රෝව ඕනෑම පත්‍රිකාවක තේරීමේ කිසියම් වෙනසක් සහිතව ස්වයංක්‍රීයව දියත් කළ යුතුය - මේ සඳහා අපි එය සිදුවීම් හසුරුවෙහි තබමු තේරීම වෙනස් කිරීම අපේ පොත.
ටැබ් එකේ ඇති එකම නමේ බොත්තම භාවිතයෙන් දෘශ්‍ය මූලික සංස්කාරකය විවෘත කරන්න සංවර්ධක (සංවර්ධක) හෝ යතුරුපුවරු කෙටිමං වම් Alt+F11. ව්‍යාපෘති පුවරුවේ ඉහළ වම් කෙළවරේ ඔබේ පොත සොයාගෙන එහි ඇති මොඩියුලය දෙවරක් ක්ලික් කිරීමෙන් විවෘත කරන්න මෙම පොත (මෙම වැඩපොත):
විවෘත වන කවුළුව තුළ, පහත සාර්ව කේතය පිටපත් කර අලවන්න:
පුද්ගලික උප වැඩපොත_SheetSelectionChange(ByVal Sh වස්තුව ලෙස, ByVal ඉලක්කය පරාසය ලෙස) Application.StatusBar = "Выделено: " & Selection.Address.Address(0, 0) End Sub
දැන්, ඕනෑම පරාසයක් තෝරා ගත් විට (එකකට වඩා ඇතුළුව!), එහි ලිපිනය තත්ව තීරුවේ පෙන්වනු ඇත:
Ctrl සමඟ තෝරාගත් පරාස කිහිපයක ලිපින ඒකාබද්ධ වීම වැළැක්වීමට, ඔබට කුඩා වැඩිදියුණු කිරීමක් එක් කළ හැකිය - කොමාවක් කොමාවක් ඉඩක් සමඟ ප්‍රතිස්ථාපනය කිරීමට ප්‍රතිස්ථාපන ශ්‍රිතය භාවිතා කරන්න:
පුද්ගලික උප වැඩපොත_SheetSelectionChange(ByVal Sh වස්තුව ලෙස, ByVal ඉලක්කය පරාසය ලෙස) Application.StatusBar = "Выделено: " & Replace(Selection.Address(0, 0), ",", ", ") End Sub
තත්ව තීරුවේ තෝරාගත් කොටු ගණන
ඕනෑම පරාසයක් තේරූ විට, පෙරනිමියෙන් තත්ව තීරුවේ දකුණු පැත්තේ හිස් නොවන තෝරාගත් කොටු ගණන පෙන්වයි. සමහර විට ඔබ වෙන් කර ඇති සංඛ්යාව දැන ගැනීමට අවශ්ය වේ. පෙර උදාහරණයේ දී මෙන්, SelectionChange පොත් ඉසව්ව හැසිරවීමට මෙම කාර්යය සරල මැක්‍රෝවකින් ද ඉටු කළ හැක. ඔබට මෙවැනි මැක්රෝ එකක් අවශ්ය වනු ඇත:
Private Sub Workbook_SheetSelectionChange(ByVal Sh Object ලෙස, ByVal Target As Range) CellCount Dim CellCount, rng තෝරාගැනීමේ දී එක් එක් rng සඳහා පරාසයක් ලෙස. ප්‍රදේශ 'සියලු තේරීම් හරහා පුනරුච්චාරණය කරන්න පේළි ගණන = rng.Rows.Count 'පේළි ගණන. . Count 'තීරු ගණන CellCount = CellCount + RowsCount * ColumnsCount 'මුළු සෛල ගණන රැස් කරන්න ඊළඟට 'තත්ත්ව තීරුවේ ප්රදර්ශනය කරන්න Application.StatusBar = "තෝරාගත්: " & CellCount සහ " සෛල" අවසන් උප
මෙම මැක්‍රෝව Ctrl-තෝරාගත් ප්‍රදේශ (එකකට වඩා තිබේ නම්) හරහා ලූප කරයි, RowsCount සහ ColumnsCount විචල්‍යවල එක් එක් ප්රදේශයේ පේළි සහ තීරු ගණන ගබඩා කරයි, සහ CellCount විචල්‍යයේ ඇති සෛල ගණන රැස් කරයි, එය පසුව දර්ශනය වේ. තත්ව තීරුවේ. රැකියාවේදී එය මේ ආකාරයෙන් පෙනෙනු ඇත:
ඇත්ත වශයෙන්ම, තෝරාගත් පරාසයේ ලිපිනය සහ සෛල ගණන යන දෙකම එකවර ප්රදර්ශනය කිරීමට ඔබට මෙය සහ පෙර මැක්රෝස් ඒකාබද්ධ කළ හැකිය. ඔබට එක් අවසාන රේඛාවක් පමණක් වෙනස් කිරීමට අවශ්ය වේ:
Application.StatusBar = "තෝරාගත්: " & ප්‍රතිස්ථාපනය (Selection.Address(0, 0), ",", ", ") & " - මුළු " & CellCount & " cell"
එවිට පින්තූරය ඉතා අපූරු වනු ඇත:
හොඳයි, මම හිතන්නේ ඔබට අදහසක් ඇති. අදහස් දැක්වීමේදී යෝජනා කරන්න - තත්ව තීරුවේ පෙන්වීමට තවත් ප්‍රයෝජනවත් වන්නේ කුමක්ද?
- මැක්රෝස් යනු කුමක්ද, ඒවා ක්‍රියා කරන ආකාරය, ඒවා භාවිතා කරන්නේ කෙසේද සහ නිර්මාණය කරන්නේ කෙසේද
- Excel පත්රය මත පහසු ඛණ්ඩාංක තේරීම
- සංකීර්ණ සූත්‍ර වඩාත් දෘශ්‍යමාන කරන්නේ කෙසේද?