වගුවේ ඇති දත්ත සමඟ පෝරම පිරවීම

ගැටලුව සකස් කිරීම

පත්රයක ගෙවීම් පිළිබඳ තොරතුරු සහිත දත්ත සමුදායක් (ලැයිස්තුව, වගුව - ඔබට අවශ්ය දේ අමතන්න) ඇත දත්ත:

කාර්ය: මෙම ලැයිස්තුවෙන් තෝරාගත් ඕනෑම අපේක්ෂිත ප්‍රවේශයක් සඳහා මුදල් කුවිතාන්සියක් (ගෙවීම්, ඉන්වොයිසිය ...) ඉක්මනින් මුද්‍රණය කරන්න. යන්න!

පියවර 1. පෝරමයක් සාදන්න

පොතේ වෙනත් පත්‍රයක (අපි මේ පත්‍රය කියමු ආකෘති පත්ර) හිස් පෝරමයක් සාදන්න. ඔබට එය තනිවම කළ හැකිය, ඔබට සූදානම් කළ ආකෘති භාවිතා කළ හැකිය, උදාහරණයක් ලෙස, ප්‍රධාන ගණකාධිකාරී සඟරාවේ වෙබ් අඩවි වලින් හෝ මයික්‍රොසොෆ්ට් වෙබ් අඩවියෙන්. මට මේ වගේ දෙයක් ලැබුණා:

හිස් සෛල තුළ (ගිණුම, මුදල, ලැබුණු ආදිය) වෙනත් පත්රයකින් ගෙවීම් වගුවෙන් දත්ත ලැබෙනු ඇත - ටිකක් පසුව අපි මේ සමඟ කටයුතු කරන්නෙමු.

පියවර 2: ගෙවීම් වගුව සකස් කිරීම

අපගේ පෝරමය සඳහා වගුවෙන් දත්ත ලබා ගැනීමට පෙර, වගුව තරමක් නවීකරණය කළ යුතුය. එනම්, වගුවේ වම් පසින් හිස් තීරුවක් ඇතුල් කරන්න. අපි පෝරමයට දත්ත එක් කිරීමට අවශ්‍ය රේඛාවට විරුද්ධ ලේබලයක් (එය ඉංග්‍රීසි අකුර “x” වේවා) ඇතුළත් කිරීමට භාවිතා කරන්නෙමු:

පියවර 3. වගුව සහ පෝරමය සම්බන්ධ කිරීම

සන්නිවේදනය සඳහා, අපි කාර්යය භාවිතා කරමු VPR(VLOOKUP) - ඔබට ඒ ගැන වැඩි විස්තර මෙතැනින් කියවිය හැකිය. අපගේ නඩුවේදී, දත්ත පත්‍රිකාවේ "x" ලෙස සලකුණු කර ඇති ගෙවීම් අංකය පෝරමයේ F9 කොටුවට ඇතුළු කිරීම සඳහා, ඔබ F9 කොටුවේ පහත සූත්‍රය ඇතුළත් කළ යුතුය:

=VLOOKUP("x",දත්ත!A2:G16)

=VLOOKUP("x";දත්ත!B2:G16;2;0)

එම. "තේරුම්ගත හැකි" ලෙස පරිවර්තනය කර ඇති අතර, ශ්‍රිතය A2: G16 පරාසයේ දත්ත පත්‍රයේ "x" අක්ෂරයෙන් ආරම්භ වන රේඛාවක් සොයා ගත යුතු අතර මෙම පේළියේ දෙවන තීරුවේ අන්තර්ගතය, එනම් ගෙවීම් අංකය අපට ලබා දිය යුතුය.

පෝරමයේ අනෙකුත් සියලුම සෛල එකම ආකාරයකින් පුරවා ඇත - සූත්‍රයේ තීරු අංකය පමණක් වෙනස් වේ.

ප්‍රමාණය වචන වලින් පෙන්වීමට, මම ශ්‍රිතය භාවිතා කළෙමි හිමිකම PLEX ඇඩෝනයෙන්.

ප්රතිඵලය පහත පරිදි විය යුතුය:

පියවර 4. එවිට "x" දෙකක් නොමැත ...

පරිශීලකයා බහු පේළිවලට එරෙහිව “x” ඇතුළු කරන්නේ නම්, VLOOKUP ශ්‍රිතය එය සොයා ගන්නා පළමු අගය පමණක් ගනී. එවැනි අපැහැදිලි භාවය වළක්වා ගැනීම සඳහා, පත්ර පටිත්ත මත දකුණු-ක්ලික් කරන්න දත්ත ඊළගට මූලාශ්ර පාඨය (ප්රභව කේතය). දිස්වන දෘශ්‍ය මූලික සංස්කාරක කවුළුව තුළ, පහත කේතය පිටපත් කරන්න:

Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Long Dim str Target නම් string ලෙස. ගණන් කරන්න > 1 ඉන්පසු උපයෙන් පිටවන්න Target.Column = 1 එවිට str = ඉලක්කය.Value Application.EnableEvents = False r = Cells(පේළි. , 2).End(xlUp).පේළි පරාසය("A2:A" & r).ClearContents Target.Value = str End if Application.EnableEvents = True End Sub  

මෙම මැක්‍රෝව පරිශීලකයා පළමු තීරුවේ “x” එකකට වඩා ඇතුළු කිරීමෙන් වළක්වයි.

හොඳයි, එපමණයි! භුක්ති විඳින්න!

• අගයන් ආදේශ කිරීම සඳහා VLOOKUP ශ්‍රිතය භාවිතා කිරීම
• VLOOKUP ශ්‍රිතයේ වැඩි දියුණු කළ අනුවාදයක්
• PLEX ඇඩෝනයෙන් වචනවල ප්‍රමාණය (ප්‍රොපිස් ශ්‍රිතය).