අන්තර්ගත වගුව
Excel VBA යනු තොග වශයෙන් ඉතා ඉක්මනින් කාර්යයන් ඉටු කිරීමට බලවත් සහ පහසු මෙවලමකි. VBA හරහා ඔබට කොන්දේසි කිහිපයක් යෙදිය හැකි අතර තනි කොන්දේසි මත විවිධ ප්‍රතිඵල ලබා ගත හැක. දැන්, සමහර විට, ඔබේ වැඩපොතෙහි විශේෂිත පත්‍රයක් තිබේදැයි පරීක්ෂා කිරීමට ඔබට අවශ්‍ය විය හැක. සහ, එසේ නොවේ නම්, ඔබට එම පත්‍රය නිර්මාණය කිරීමට අවශ්‍ය විය හැක. මෙම ලිපියෙන්, Excel VBA භාවිතයෙන්, පත්‍රයක් එක් කිරීමට සියලුම පියවර මම ඔබට පෙන්වන්නම්, එය නොපවතියි. (ඉක්මන් දසුනක්)
9371
ඉහත කේතය යෙදීමට නව මොඩියුලයකට ඇතුළු කරන්න.
පුහුණු වැඩපොත බාගන්න
ඔබට අපගේ පුහුණු වැඩපොත මෙතැනින් නොමිලේ බාගත හැක!
එය නොමැති නම් පත්‍රය එක් කරන්න.xlsm
පත්‍රය ඇතුළත් කිරීමට VBA කේතය යෙදීමට පියවර Excel එය නොපවතියි නම්
කියන්න, ඔබ සතුව ජනවාරි, පෙබරවාරි, මාර්තු සහ අප්‍රේල් නම් වැඩ පත්‍රිකා 4ක් අඩංගු වැඩපොතක් තිබේ. සෑම පත්‍රිකාවකම ඊළඟ මාසයේ විකුණුම් වාර්තාව අඩංගු වේ. දැන්, ඔබට වැඩපොතෙහි පත්‍ර කිහිපයක් සොයා ගත යුතු අතර එය නොමැති නම් පත්‍රය එක් කරන්න. මෙය සිදු කිරීම සඳහා ඔබට පහත පියවරෙන් පියවර මාර්ගෝපදේශ අනුගමනය කළ හැක.
📌 පියවර 1: නව මොඩියුලයක් ඇතුළු කරන්න
පළමුව, ඔබ ඇතුල් කළ යුතුය VBA කේතය ලිවීමට මොඩියුලයක්.
- මෙය කිරීමට, ආරම්භයේදීම, Developer tab >> Visual Basic මෙවලම වෙත යන්න.
- ප්‍රතිඵලයක් ලෙස, Microsoft Visualයෙදුම් සඳහා මූලික කවුළුව දිස්වනු ඇත.
- පසුව, ඇතුළු කරන්න ටැබ් >> මොඩියුලය මෙවලම වෙත යන්න.
එමගින්, Module1 නමින් නව මොඩියුලයක් නිර්මාණය කර ඇත.
වැඩිදුර කියවන්න: Sheet Add කරන්නේ කෙසේද? Excel VBA හි නම (පහසු ක්‍රම 6)
සමාන කියවීම්
- නව වැඩපොත සාදා Excel හි VBA භාවිතා කර සුරකින්න
- Excel VBA: නව වැඩපොතක් සාදා එය නම් කරන්න (උදාහරණ 6)
- Excel හි මැක්‍රෝ භාවිතයෙන් අච්චුවෙන් නව පත්‍රයක් සාදා ගන්නේ කෙසේද 14>
📌 පියවර 2: අවශ්‍ය VBA කේතය ලියා සුරකින්න
දැන්, ඔබ මොඩියුලය තුළ කේතය ලියා එය සුරැකිය යුතුය.
- තුළ මෙය සිදු කිරීම සඳහා, Module1 විකල්පය මත ක්ලික් කර කේත කවුළුව තුළ පහත කේතය ලියන්න.
69291380
- ලෙස ප්‍රතිඵලය, කේත කවුළුව පහත ආකාරයට පෙනෙනු ඇත.
🔎 කේත පැහැදිලි කිරීම:
♣ Segment 1:
4127
මෙම කොටසෙහි, අපි macro name සහ nam යන විචල්‍යය ප්‍රකාශ කර ඇත. es.
♣ කොටස 2:
4801
මෙම කොටසෙහි, අපි ආදාන පෙට්ටියක් සාදා ඇත. මෙම ආදාන කොටුව හරහා, අපට සොයා ගැනීමට අවශ්‍ය ගොනුවේ නමේ ආදානය ලබා ගත හැක.
♣ කොටස 3:
2001
මෙම කොටසේදී, අවශ්‍ය පත්‍රය වැඩපොතෙහි තිබේදැයි අපි පරීක්ෂා කරමු. එසේ නොවේ නම්, එය අවශ්‍ය පත්‍රය සාදා අපට මෙම වෙනස පිළිබඳ පණිවිඩයක් පෙන්වයි.
♣ 4 කොටස:
1561
මෙම කොටසෙහි, අවශ්‍ය පත්‍රය දැනටමත් වැඩපොතෙහි තිබේ නම් අපි ප්‍රතිඵලය සමඟ වැඩ කර ඇත. මෙම අවස්ථාවෙහිදී, මෙම පත්‍රය පවතින බව ඔබට දන්වන තවත් පණිවිඩ පෙට්ටියක් දිස්වනු ඇත. තවද, මෙම කොටසේදී, අපි කේතය නිසි ලෙස අවසන් කරමු.
- ඉන්පසු, Ctrl + S.
- ඉන්පසු, Microsoft Excel කවුළුවක් දිස්වනු ඇත. No බොත්තම මත ක්ලික් කරන්න.
- ප්‍රතිඵලයක් ලෙස Save As කවුළුව දිස්වේ.
- පහත, සුරකින්න වර්ගය: විකල්පය .xlsm ආකෘතිය ලෙස තෝරන්න. පසුව, සුරකින්න බොත්තම මත ක්ලික් කරන්න.
මේ අනුව, ඔබ ඔබට අවශ්‍ය කේතය ලියා සුරකින ලදි.
8>සටහන:
ඔබ Excel වැඩපොත .xlsm ආකෘතියෙන් සුරැකිය යුතුය. එසේ නොමැති නම්, මැක්‍රෝව සක්‍රිය නොවන අතර කේතය ක්‍රියා නොකරනු ඇත.
වැඩිදුර කියවන්න: විචල්‍ය නාමය සහිත පත්‍රය එක් කිරීමට Excel VBA (5 කදිම උදාහරණ)
📌 පියවර 3: කේතය ක්‍රියාත්මක කරන්න
දැන්, ඔබ කේතය ක්‍රියාත්මක කර ප්‍රතිඵල පරීක්ෂා කළ යුතුය.
- මෙය කිරීමට, පළමුව සහ ප්‍රධාන වශයෙන්, ක්ලික් කරන්න යෙදුම් සඳහා මයික්‍රොසොෆ්ට් විෂුවල් බේසික් කවුළුවේ ධාවනය අයිකනය මත Macros කවුළුව දිස්වනු ඇත.
- පසුව, AddSheetIfNotExist macro තෝරා Run බොත්තම ක්ලික් කරන්න.
- මේ අවස්ථාවේදී, අප විසින් සාදන ලද පණිවිඩ පෙට්ටියනමින් ඇඩ් ෂීට් නොඑසේ නම් දිස් වනු ඇත. මෙන්න, ස්වයංක්‍රීය විකල්පය වනුයේ Sheet5 වේ.
- දැන්, පරීක්ෂා කිරීම සඳහා, “අප්‍රේල්”<2 ලියන්න> පෙළ කොටුවේ ඇති Ok බොත්තම ක්ලික් කරන්න.
- ඉන්පසු, ඔබට තවත් පණිවිඩයක් පෙනෙනු ඇත පත්‍රය දැනටමත් පවතින බව පවසන කොටුව දිස්වනු ඇත.
- Ok බොත්තම මත ක්ලික් කරන්න.
- පසුව, කේතය නැවත ධාවනය කර සාදන ලද පණිවිඩ පෙට්ටියේ පෙළ කොටුවේ "මැයි" ලියන්න. පසුව, OK බොත්තම ක්ලික් කරන්න.
- ප්‍රතිඵලයක් ලෙස, ඔබට වෙනත් පණිවිඩ පෙට්ටියක් පෙනෙනු ඇත. “මැයි” පත්‍රය නොපවතින බවත්, ඒ අනුව එය මෙම පත්‍රය නිර්මාණය කළ බවත් ඔබට දන්වමින් පෙනී සිටින්න.
- ඉන්පසු, OK බොත්තම ක්ලික් කරන්න. 15>
අවසාන වශයෙන්, ඔබ කලින් නොතිබූ පත්‍රයක් එකතු කර ඇති බව ඔබට පෙනෙනු ඇත. තවද, වැඩපොත දැන් මේ ආකාරයෙන් පෙනෙනු ඇත.
වැඩිදුර කියවන්න: Excel VBA: අන්තිමට පසු පත්‍රය එක් කරන්න (පරමාදර්ශී උදාහරණ 3)
නිගමනය
ඉතින්, මෙම ලිපියෙන්, Excel VBA සමඟ නොමැති නම් පත්‍රයක් එක් කිරීමට අවශ්‍ය සියලුම පියවර මම ඔබට පෙන්වා දී ඇත. එය වඩාත් හොඳින් අවබෝධ කර ගැනීමට සහ ඔබ අපේක්ෂිත ප්‍රතිඵලය සාක්ෂාත් කර ගැනීමට සම්පූර්ණ ලිපිය ප්‍රවේශමෙන් කියවන්න. මෙම ලිපිය ඔබට ප්‍රයෝජනවත් සහ තොරතුරු සපයනු ඇතැයි මම බලාපොරොත්තු වෙමි. ඔබට තවත් විමසීම් හෝ නිර්දේශ තිබේ නම්, කරුණාකර මාව සම්බන්ධ කර ගැනීමට නිදහස් වන්න.
සහ, තවත් බොහෝ දේ සඳහා ExcelWIKI වෙත පිවිසෙන්න.මේ වගේ ලිපි. ස්තුතියි!
