අන්තර්ගතය
සමහර විට සමහර දේවල් ඉදිරිපත් කිරීමට ඉතා දිගු කාලයක් ගත වේ. නමුත් ඒවා දැනටමත් සොයාගෙන ඇති විට, ඇත්ත වශයෙන්ම ඒවා පැහැදිලිව පෙනෙන අතර පවා අශෝභන ලෙස පෙනේ. "කුමක්ද, එය කළ හැකිද?" මාලාවෙන්.
පළමු අනුවාද වලින්, Microsoft Excel කවුළුවේ පතුලේ ඇති තත්ව තීරුව සම්ප්‍රදායිකව තෝරාගත් සෛල සඳහා එකතුව පෙන්වයි:
අවශ්‍ය නම්, මෙම ප්‍රතිඵල මත දකුණු-ක්ලික් කර සන්දර්භය මෙනුවෙන් අපට දැකීමට අවශ්‍ය කාර්යයන් හරියටම තෝරා ගැනීමට පවා හැකි විය:
මෑතදී, නවතම Excel යාවත්කාලීන කිරීම්වලදී, Microsoft සංවර්ධකයින් සරල නමුත් විචක්ෂණශීලී විශේෂාංගයක් එක් කර ඇත - දැන් ඔබ මෙම ප්‍රතිඵල මත ක්ලික් කළ විට, ඒවා පසුරු පුවරුවට පිටපත් කරනු ලැබේ!
අලංකාරය.
නමුත් තවමත් (හෝ දැනටමත්?) එවැනි එක්සෙල් අනුවාදයක් නොමැති අය ගැන කුමක් කිව හැකිද? සරල මැක්රෝස් උදව් කළ හැකි ස්ථානය මෙයයි.
මැක්‍රෝ එකක් භාවිතයෙන් තෝරාගත් සෛල එකතුව පසුරු පුවරුවට පිටපත් කිරීම
ටැබය තුළ විවෘත කරන්න සංවර්ධක (සංවර්ධක) සංස්කරණය හෝ දෘශ්ය මූලික හෝ මෙම යතුරුපුවරු කෙටිමඟ භාවිතා කරන්න alt+F11. මෙනුව හරහා නව හිස් මොඩියුලය ඇතුල් කරන්න ඇතුල් කරන්න - මොඩියුලය සහ පහත කේතය එහි පිටපත් කරන්න:
Sub SumSelected() TypeName(තේරීම) <> "පරාසය" නම් GetObject සමඟ Sub පිටවන්න("නව:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.SumdClipboard.SetText WorksheetFunction EndClipboard එහි තර්කය සරල ය:
- මුලින්ම පැමිණෙන්නේ "මෝඩයාගෙන් ආරක්ෂාව" - අපි හරියටම උද්දීපනය කර ඇති දේ පරීක්ෂා කරමු. සෛල තෝරාගෙන නොමැති නම් (නමුත්, උදාහරණයක් ලෙස, ප්‍රස්ථාරයක්), පසුව මැක්‍රෝවෙන් පිටවන්න.
- ඉන්පසු විධානය භාවිතා කරන්න Getobject අපි නව දත්ත වස්තුවක් සාදන්නෙමු එහිදී අපගේ තෝරාගත් සෛල එකතුව පසුව ගබඩා කෙරේ. දිගු හා තේරුම්ගත නොහැකි අක්ෂරාංක කේතය, ඇත්ත වශයෙන්ම, පුස්තකාලය පිහිටා ඇති වින්ඩෝස් රෙජිස්ට්රි ශාඛාව වෙත සබැඳියකි. Microsoft Forms 2.0 Object Library, එවැනි වස්තූන් නිර්මාණය කළ හැකිය. සමහර විට මෙම උපක්රමය ද හැඳින්වේ ව්‍යංග ප්‍රමාද බැඳීම. ඔබ එය භාවිතා නොකරන්නේ නම්, ඔබට මෙනුව හරහා ගොනුවේ මෙම පුස්තකාලයට සබැඳියක් සෑදිය යුතුය මෙවලම් - යොමු.
- තෝරාගත් සෛල එකතුව විධානයක් ලෙස සැලකේ වැඩ පත්‍රිකාව ක්‍රියාකාරීත්වය. එකතුව(තේරීම), ඉන්පසු ලැබෙන මුදල විධානය සමඟ ක්ලිප්බෝඩ් මත තබා ඇත PutInClipboard
භාවිතයේ පහසුව සඳහා, ඔබට මෙම මැක්‍රෝව බොත්තම භාවිතයෙන් යතුරුපුවරු කෙටිමඟකට පැවරිය හැක මැක්රෝස් ටැබ් සංවර්ධක (සංවර්ධක - මැක්රෝස්).
මැක්‍රෝ ධාවනය කිරීමෙන් පසු හරියටම පිටපත් කළේ කුමක්දැයි බැලීමට ඔබට අවශ්‍ය නම්, ඔබට අදාළ කණ්ඩායමේ පහළ දකුණු කෙළවරේ ඇති කුඩා ඊතලය භාවිතයෙන් ක්ලිප්බෝඩ් පැනලය සක්‍රිය කළ හැකිය. ප්රධාන (නිවස) පටිත්ත:
මුදල පමණක් නොවේ
සාමාන්ය මුදලට අමතරව, ඔබට වෙනත් දෙයක් අවශ්‍ය නම්, ඔබට වස්තුව අපට සපයන ඕනෑම කාර්යයක් භාවිතා කළ හැකිය. වැඩ පත්රිකා කාර්යය:
උදාහරණයක් ලෙස, ඇත:
- එකතුව - එකතුව
- සාමාන්ය - අංක ගණිත මධ්යන්ය
- ගණන් කිරීම - අංක සහිත සෛල ගණන
- CountA - පිරවූ සෛල ගණන
- CountBlank - හිස් සෛල ගණන
- අවම - අවම අගය
- උපරිම - උපරිම අගය
- මධ්‍ය - මධ්‍ය (මධ්‍යම අගය)
- ….
තෝරාගත් පරාසය තුළ පේළි හෝ තීරු (අතින් හෝ පෙරහනකින්) සඟවා ඇත්නම් කුමක් කළ යුතුද? එකතුවෙහි ඒවා සැලකිල්ලට නොගැනීම සඳහා, වස්තුවට එකතු කිරීමෙන් අපගේ කේතය තරමක් වෙනස් කිරීමට අපට අවශ්‍ය වනු ඇත. තේරීම් දේපල විශේෂ සෛල (xlCellTypeVisible):
Sub SumVisible() TypeName(තේරීම) <> "පරාසය" නම් GetObject සමඟ උප පිටවන්න("නව:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Special(Selection.Special) PutInClipboard End With End Sub මෙම අවස්ථාවෙහිදී, ඕනෑම සම්පූර්ණ කාර්යයක් ගණනය කිරීම දෘශ්ය සෛල සඳහා පමණක් යෙදේ.
ඔබට ජීවමාන සූත්‍රයක් අවශ්‍ය නම්
ඔබ සිහින දකිනවා නම්, තෝරාගත් සෛල සඳහා අපට අවශ්‍ය එකතුව ගණනය කරන සංඛ්‍යාවක් (ස්ථාවර) නොව ජීව සූත්‍රයක් බෆරයට පිටපත් කිරීම වඩා හොඳ වන අවස්ථා ඔබට ඉදිරිපත් කළ හැකිය. මෙම අවස්ථාවෙහිදී, ඔබට කොටස් වලින් සූත්‍රය ඇලවීමට සිදුවනු ඇත, එයට ඩොලර් සලකුණු ඉවත් කිරීම සහ කොමාව (VBA හි තෝරාගත් පරාස කිහිපයක ලිපින අතර බෙදුම්කරුවෙකු ලෙස භාවිතා කරයි) අර්ධ කොමාවක් සමඟ ප්‍රතිස්ථාපනය කරන්න:
උප සූත්‍රය() TypeName(තේරීම) <> "පරාසය" නම් GetObject සමඟ උප පිටවන්න("නව:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText "=СУМ &Replace. ලිපිනය, ",", ";"), "$", "") & ")" .PutInClipboard End With End Sub අතිරේක කොන්දේසි සහිත සාරාංශය
අවසාන වශයෙන්, සම්පූර්ණයෙන්ම උමතුවෙන් පෙළෙන්නන් සඳහා, ඔබට තෝරාගත් සියලුම සෛල සාරාංශ කරන මැක්‍රෝ එකක් ලිවිය හැකිය, නමුත් ලබා දී ඇති කොන්දේසි සපුරාලන ඒවා පමණි. උදාහරණයක් ලෙස, මැක්‍රෝ එකක් පෙනෙන්නේ තෝරාගත් සෛල එකතුව බෆරයට දමන ආකාරයටයි, ඒවායේ අගයන් 5 ට වඩා වැඩි නම් සහ ඒ සමඟම ඒවා ඕනෑම වර්ණයකින් පුරවා තිබේ නම්:
Sub CustomCalc() MyRange Dim myRange as TypeName(Selection) <> "Range" ඉන්පසුව Select නම් cell.Value > 5 සහ cell.Interior.ColorIndex <> xlNone එවිට myRange කිසිවක් නැතිනම් myRange = සකසන්න. කොටුව වෙනත් සකසන්න myRange = Union(myRange, cell) End if End නම් ඊලඟ කොටුව GetObject ("නව:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(myRange EndClipboard සමඟින්. ඔබට පහසුවෙන් සිතාගත හැකි පරිදි, කොන්දේසි ඕනෑම - සෛල ආකෘති දක්වා - සහ ඕනෑම ප්‍රමාණයකින් (ඒවා තාර්කික ක්‍රියාකරුවන් සමඟ සම්බන්ධ කිරීම හෝ හෝ සහ ඇතුළුව) සැකසිය හැක. පරිකල්පනය සඳහා විශාල ඉඩක් ඇත.
- සූත්‍ර අගයන් බවට පරිවර්තනය කරන්න (මාර්ග 6)
- මැක්රෝස් යනු මොනවාද, ඒවා භාවිතා කරන්නේ කෙසේද, දෘශ්ය මූලික කේතය ඇතුළත් කළ යුතු ස්ථානය
- Microsoft Excel හි තත්ව තීරුවේ ප්‍රයෝජනවත් තොරතුරු