જ્યારે અમારી પાસે અમારી એક્સેલ વર્કબુકમાં મોટો ડેટાસેટ હોય છે, ત્યારે કેટલીકવાર તે અનુકૂળ હોય છે જો આપણે ચોક્કસ પરિણામો મેળવવા માટે પંક્તિઓમાંથી લૂપ કરી શકીએ જે આપણે મેળવવા માંગીએ છીએ. એક્સેલમાં કોઈપણ ઑપરેશન ચલાવવા માટે VBA નો અમલ કરવો એ સૌથી અસરકારક, ઝડપી અને સલામત પદ્ધતિ છે. આ લેખમાં, અમે તમને એક્સેલમાં VBA મેક્રો વડે કોષ્ટકની પંક્તિઓમાંથી કેવી રીતે લૂપ કરવું તેની 11 વિવિધ પદ્ધતિઓ બતાવીશું.

વર્કબુક ડાઉનલોડ કરો

તમે અહીંથી મફત પ્રેક્ટિસ એક્સેલ વર્કબુક ડાઉનલોડ કરી શકો છો.

Excel માં કોષ્ટકની પંક્તિઓમાંથી લૂપ કરવા માટે VBA સાથેની 11 પદ્ધતિઓ

આ વિભાગને અનુસરીને, તમે શીખી શકશો કે કેવી રીતે કોષ્ટકની પંક્તિઓમાંથી લૂપ કરવી 11 વિવિધ પદ્ધતિઓ સાથે, જેમ કે ખાલી કોષ સુધી પંક્તિઓમાંથી લૂપ કરો, ચોક્કસ મૂલ્ય ન મળે ત્યાં સુધી પંક્તિઓમાંથી લૂપ કરો, પંક્તિઓમાંથી લૂપ કરો અને એક્સેલમાં VBA મેક્રો વડે ચોક્કસ સેલને રંગ આપો.

<8

ઉપરનું ઉદાહરણ ડેટાસેટ છે જેને આ લેખ પદ્ધતિઓનું વર્ણન કરવા માટે અનુસરશે.

1. કોષ સંદર્ભ નંબર

જો તમે તમારી એક્સેલ વર્કશીટમાં કોષ્ટકની દરેક હરોળમાં દરેક કોષમાંથી લૂપ કરવા માંગો છો તો VBA એમ્બેડ કરો અને વળતર મૂલ્ય તરીકે સેલ સંદર્ભ નંબર મેળવો , પછી નીચે ચર્ચા કરેલ પગલાં અનુસરો.

પગલાઓ:

• શરૂઆતમાં , તમારા કીબોર્ડ પર Alt + F11 દબાવો અથવા જાઓચલ.

8022

કોડનો આ ભાગ અહીં 1 થી 15 સુધીની પંક્તિઓ દ્વારા લૂપ કરવા માટે છે. જો તે ચોક્કસ શબ્દ “ Edge ” શોધે છે, તો તે કોષને રંગ આપે છે જે શબ્દ ધરાવે છે. જ્યાં સુધી તે શબ્દની શોધમાં પંક્તિઓ 1 થી 15 સુધીના તમામ ડેટાને સ્કેન કરવાનું સમાપ્ત ન કરે ત્યાં સુધી તે આ કરવાનું ચાલુ રાખે છે.

વધુ વાંચો: આના આધારે VLOOKUP ટેબલ એરેનો ઉપયોગ કેવી રીતે કરવો Excel માં સેલ વેલ્યુ

સમાન રીડિંગ્સ

• શું TABLE ફંક્શન Excel માં અસ્તિત્વમાં છે?
• એક્સેલમાં કોષ્ટકને સૂચિમાં કેવી રીતે રૂપાંતરિત કરવું (3 ઝડપી રીતો)
• એક્સેલમાં શ્રેણીને કોષ્ટકમાં રૂપાંતરિત કરો (5 સરળ પદ્ધતિઓ)
• એક્સેલ કોષ્ટકમાં અસરકારક રીતે ફોર્મ્યુલાનો ઉપયોગ કરો (4 ઉદાહરણો સાથે)
• Excel કોષ્ટકનું નામ: તમારે જાણવાની જરૂર છે

7. દરેક પંક્તિ દ્વારા લૂપ કરવા માટે VBA ને અમલમાં મુકો અને એક્સેલમાં દરેક વિચિત્ર પંક્તિને રંગ કરો

અગાઉના વિભાગમાંથી, આપણે શીખ્યા છીએ કે ચોક્કસ મૂલ્ય ધરાવતા સેલને કેવી રીતે રંગ કરવો. આ વિભાગમાં, આપણે શીખીશું કે એક્સેલમાં VBA મેક્રો વડે કોષ્ટકની દરેક પંક્તિને કેવી રીતે લૂપ કરવી અને દરેક વિચિત્ર પંક્તિને કલર કરવી .

પ્રક્રિયાને એક્ઝિક્યુટ કરવાના પગલાં નીચે વર્ણવેલ છે.

પગલાઓ:

• પહેલાં બતાવ્યા પ્રમાણે, વિકાસકર્તા માંથી વિઝ્યુઅલ બેઝિક એડિટર ખોલો કોડ વિંડોમાં ટેબ અને શામેલ કરો a મોડ્યુલ કોડ વિન્ડો.

1675

તમારો કોડ હવે ચલાવવા માટે તૈયાર છે.

• હવે,મેક્રોને ચલાવો અને આઉટપુટ જોવા માટે નીચેની ઈમેજ જુઓ.

બધી વિષમ-નંબરવાળી પંક્તિઓ રંગીન છે વર્કશીટના કોષ્ટકમાં રહેલ તમામ પંક્તિઓમાંથી લૂપ કર્યા પછી.

VBA કોડ સમજૂતી

1684

ચલ વ્યાખ્યાયિત કરો.

3924

અમે જેની સાથે કામ કરીશું તે શ્રેણીને વ્યાખ્યાયિત કરો.

9335

કોડનો આ ભાગ વર્તમાન પંક્તિની આગલી પંક્તિથી શરૂ કરીને, તમામ પંક્તિઓ દ્વારા પુનરાવર્તનનો સંદર્ભ આપે છે, B4 . જો પંક્તિ સંખ્યાઓને 2 વડે વિભાજિત કરવાનો મોડ પૂર્ણાંક પ્રકારમાં સંગ્રહિત પાછી આપેલ પંક્તિ નંબરની બરાબર હોય, તો આ કોડ કોડમાં આપેલા રંગ અનુક્રમણિકા સાથેની ગણતરી દ્વારા કાઢવામાં આવેલી તમામ પંક્તિઓને રંગ આપે છે. જ્યાં સુધી તે શ્રેણીના અંત સુધી ન પહોંચે ત્યાં સુધી તે બધી પંક્તિઓમાંથી આગળ વધતું રહે છે.

8. પંક્તિઓ દ્વારા લૂપ કરવા માટે VBA ને અમલમાં મૂકો અને એક્સેલમાં દરેક સમ પંક્તિઓને રંગ કરો

અગાઉના વિભાગમાં, આપણે શીખ્યા કે કોષ્ટકની દરેક વિચિત્ર હરોળને કેવી રીતે રંગિત કરવી. આ વિભાગમાં, આપણે એક્સેલમાં VBA મેક્રો વડે કોષ્ટકની દરેક પંક્તિને કેવી રીતે લૂપ કરવી અને દરેક સમ પંક્તિને કલર કેવી રીતે કરવી તે શીખીશું.

પ્રક્રિયાને એક્ઝિક્યુટ કરવાના સ્ટેપની નીચે ચર્ચા કરવામાં આવી છે.

પગલાઓ:

• સૌપ્રથમ, વિકાસકર્તા ટેબમાંથી વિઝ્યુઅલ બેઝિક એડિટર ખોલો અને ઇનસર્ટ કરો કોડ વિન્ડોમાં મોડ્યુલ .
• પછી, નીચેના કોડને કોપી કરો અને તેને કોડ વિન્ડોમાં પેસ્ટ કરો .

8813

તમારો કોડ હવે તૈયાર છેચલાવો.

• આગળ, મેક્રોને ચલાવો અને પરિણામ જોવા માટે નીચેની છબી જુઓ.

વર્કશીટના કોષ્ટકમાં રહેલ તમામ પંક્તિઓમાંથી લૂપ કર્યા પછી તમામ સમ-નંબરવાળી પંક્તિઓ રંગીન છે .

VBA કોડ સમજૂતી

9904

ચલ વ્યાખ્યાયિત કરો.

9549

જે શ્રેણી સાથે આપણે કામ કરીશું તે વ્યાખ્યાયિત કરો.

2734

કોડનો આ ભાગ પછી પુનરાવર્તિત થવાનું શરૂ કરે છે વર્તમાન પંક્તિમાંથી ત્રણ પંક્તિઓ, B4 . તે પહેલા તેને રંગ આપે છે પછી પંક્તિની ગણતરીમાં 2 થી વધારો કરે છે અને જ્યાં સુધી તે ડેટાસેટની છેલ્લી પંક્તિ સુધી ન પહોંચે ત્યાં સુધી તેને રંગવાનું ચાલુ રાખે છે.

9. એક્સેલમાં ખાલી કોષ સુધી પંક્તિઓ દ્વારા પુનરાવર્તિત કરવા માટે મેક્રો લાગુ કરો

જો તમે તમારો કોડ કાર્ય કરવા માંગતા હોવ તો તે કોષ્ટકની બધી પંક્તિઓમાંથી લૂપ કરશે અને જ્યારે તે ખાલી કોષ સુધી પહોંચે ત્યારે બંધ થઈ જશે , તો આ વિભાગ તમારા માટે છે. તમે તે કાર્યને એક્સેલ VBA માં ફોર લૂપ અને ડૂ-એન્ટિલ લૂપ બંને સાથે ચલાવી શકો છો.

9.1. ફોર લૂપ સાથે

VBA એક્સેલમાં ફોર લૂપ સાથેનો ખાલી કોષ ન આવે ત્યાં સુધી કોષ્ટકમાં પંક્તિઓમાંથી લૂપ કરવાનાં પગલાં નીચે આપેલ છે.

પગલાઓ:

• પ્રથમ, વિકાસકર્તા ટેબમાંથી વિઝ્યુઅલ બેઝિક એડિટર ખોલો અને ઇનસર્ટ કરો કોડ વિન્ડોમાં મોડ્યુલ .
• તે પછી, નીચેના કોડને કોપી કરો અને તેને કોડ વિન્ડોમાં પેસ્ટ કરો .

2735

તમારો કોડ હવે ચાલવા માટે તૈયાર છે.

• પછી, ચલાવો મેક્રો અને પરિણામ નીચેની gif માં દર્શાવેલ છે.

મેક્રો ચલાવ્યા પછી, તે કોષ્ટકમાં તમામ પંક્તિઓમાં લૂપ કરવાનું શરૂ કર્યું અને એકવાર તે ખાલી કોષ, સેલ B8 પર પહોંચ્યું, તેણે પુનરાવૃત્તિ બંધ કરી દીધી .

VBA કોડ સમજૂતી

6263

ચલ વ્યાખ્યાયિત કરો.

4186

સ્ક્રીન અપડેટ કરતી ઇવેન્ટને બંધ કરો.

9490

સેલ B4 થી શરૂ થતી તમામ પંક્તિઓ છેલ્લી એક સુધી સંગ્રહિત કરો.

3995

સેલ B4 પસંદ કરો.

4773

કોડનો આ ભાગ બધી પંક્તિઓમાંથી લૂપ થવાનું શરૂ કરે છે. જ્યારે તે એક પંક્તિમાં ખાલી કોષ શોધે છે ત્યારે તેને પસંદ કરે છે અને જ્યાં સુધી તે અંત સુધી ન પહોંચે ત્યાં સુધી પંક્તિઓને સ્કેન કરવાનું ચાલુ રાખે છે.

6557

સ્ક્રીન અપડેટ કરતી ઇવેન્ટ ચાલુ કરો.

9.2. ડુ-એન્ટિલ લૂપ સાથે

VBA માં Do-Until લૂપ સાથે ખાલી કોષ સુધી પંક્તિઓમાંથી લૂપ કરવાનાં પગલાં નીચે આપેલ છે.

પગલાઓ:

• સૌપ્રથમ, વિકાસકર્તા ટેબમાંથી વિઝ્યુઅલ બેઝિક એડિટર ખોલો અને ઇનસર્ટ a કોડ વિન્ડોમાં મોડ્યુલ .
• પછી, નીચેના કોડને કોપી કરો અને તેને કોડ વિન્ડોમાં પેસ્ટ કરો .

6121

તમારો કોડ હવે ચાલવા માટે તૈયાર છે.

• બાદમાં, મેક્રો ચલાવો. પરિણામ નીચેની gif માં બતાવવામાં આવ્યું છે.

મેક્રો ચલાવ્યા પછી, તે કોષ્ટકમાં તમામ પંક્તિઓ માં લૂપ કરવાનું શરૂ કરે છે અને એકવાર તે ખાલી કોષ, સેલ B8 પર પહોંચ્યું, તેણે પુનરાવૃત્તિ બંધ કરી .

VBA કોડસમજૂતી

6409

અમે જેમાંથી કામ કરીશું તે કોષ પસંદ કરો.

2883

શરૂ થાય છે અને ખાલી કોષ ન મળે ત્યાં સુધી લૂપ કરવાનું ચાલુ રાખે છે.

2106

જ્યારે ખાલી કોષ એક પંક્તિમાં જોવા મળે છે પછી તેને પસંદ કરો અને પુનરાવર્તન બંધ કરો.

10. એક્સેલમાં બહુવિધ ખાલી કોષો સુધી પંક્તિઓ દ્વારા પુનરાવર્તિત કરવા માટે VBA મેક્રો

અગાઉના વિભાગમાં, તમે જ્યારે ખાલી કોષ મળે ત્યારે લૂપને કેવી રીતે રોકવું તે શીખ્યા છો. પરંતુ જો તમે માત્ર એકને બદલે બહુવિધ ખાલી કોષો ન મળે ત્યાં સુધી પુનરાવૃત્તિ રોકવા ન માંગતા હોવ તો શું.

કોષ્ટકમાં એકથી વધુ ખાલી કોષો ન મળે ત્યાં સુધી પંક્તિઓમાંથી લૂપ કરવાનાં પગલાં સાથે VBA Excel નીચે દર્શાવેલ છે.

પગલાઓ:

• સૌપ્રથમ, આમાંથી વિઝ્યુઅલ બેઝિક એડિટર ખોલો. કોડ વિન્ડોમાં વિકાસકર્તા ટેબ અને શામેલ કરો એક મોડ્યુલ .
• પછી, નીચેના કોડની કૉપિ કરો અને <1 તેને કોડ વિન્ડોમાં પેસ્ટ કરો.

6773

તમારો કોડ હવે ચાલવા માટે તૈયાર છે.

• હવે, મેક્રો ચલાવો અને આઉટપુટ માટે નીચેનું gif જુઓ.

મેક્રો ચલાવ્યા પછી, તે પર બંધ ન થયું પ્રથમ ખાલી કોષ, સેલ B8 . જ્યારે તેને સેલ B16 પર સતત બે ખાલી કોષો મળ્યા ત્યારે તે બંધ થઈ ગયું.

VBA કોડ સમજૂતી

9348

સેલ પસંદ કરો જેનાથી આપણે કામ કરીશું.

3777

સળંગ બે ખાલી કોષો મળે ત્યાં સુધી લૂપ કરવાનું શરૂ કરે છે અને ચાલુ રાખે છે.

6952

જ્યારે સતત બે ખાલી કોષો મળે, તો પછીતેને પસંદ કરો અને પુનરાવર્તન બંધ કરો.

11. એક્સેલમાં ખાલી હોય ત્યાં સુધી તમામ સ્તંભોને જોડીને પંક્તિઓમાંથી લૂપ કરવા માટે VBA એમ્બેડ કરો

આ વિભાગ તમને બતાવશે કે કેવી રીતે કોષ્ટકની બધી પંક્તિઓમાંથી લૂપ કરવી અને ખાલી કોષ સુધી તમામ કૉલમને જોડવું VBA Excel સાથે જોવા મળે છે.

ચાલો શીખીએ કે તે Excel માં VBA મેક્રો સાથે કેવી રીતે કરવું.

પગલાઓ:

• પ્રથમ, વિકાસકર્તા ટેબમાંથી વિઝ્યુઅલ બેઝિક એડિટર ખોલો અને મોડ્યુલ દાખલ કરો > કોડ વિન્ડોમાં.
• પછી, નીચેના કોડની કોપી કરો અને તેને કોડ વિન્ડોમાં પેસ્ટ કરો .

2237

તમારો કોડ હવે ચલાવવા માટે તૈયાર છે.

• બાદમાં, ચલાવો મેક્રો અને પરિણામ માટે નીચેનું gif જુઓ.

જેમ તમે ઉપરોક્ત gif માંથી જોઈ શકો છો કે ત્યાં એક પોપ-અપ MsgBox છે જે તમને દરેકમાં રહેલ તમામ કૉલમનું સંકલિત મૂલ્ય દર્શાવે છે. તમારી એક્સેલ વર્કશીટના ટેબલમાંથી પંક્તિ. પરંતુ તે એકવાર ખાલી કોષ પર પહોંચ્યા પછી બંધ થઈ ગયું .

VBA કોડ સમજૂતી

9016

ચલોને વ્યાખ્યાયિત કરો.

1930

શીટનું નામ સેટ કરો કે જેની સાથે આપણે કામ કરીશું (“ ConcatenatingAllColUntilBlank ” એ વર્કબુકમાં શીટનું નામ છે).

1734

અમે જેની સાથે કામ કરીશું તે શ્રેણીને વ્યાખ્યાયિત કરો.

8798

કોડનો આ ભાગ એરે સાથે લૂપ શરૂ કરે છે. જ્યાં સુધી તે એરેની સૌથી મોટી સબસ્ક્રિપ્ટ અને ની નીચેની સીમા પરત ન કરે ત્યાં સુધી તે લૂપ કરવાનું ચાલુ રાખે છેપ્રથમ પરિમાણ. પછી તે બીજા પરિમાણની નીચલી સીમા કાઢવાના પુનરાવર્તનમાં પ્રવેશ કરે છે. તે પછી, તે iResult વેરીએબલમાં તમામ એક્સટ્રેક્ટેડ વેલ્યુઓને જોડીને અને પરિણામને MsgBoxમાં ફેંકીને પસાર કરે છે. જ્યાં સુધી તેને ખાલી કોષ ન મળે ત્યાં સુધી તે આમ કરવાનું ચાલુ રાખે છે.

નિષ્કર્ષ

સમાપ્ત કરવા માટે, આ લેખ તમને પંક્તિઓમાંથી કેવી રીતે લૂપ કરવું તેની 11 અસરકારક પદ્ધતિઓ બતાવી છે. એક્સેલમાં VBA મેક્રો સાથે કોષ્ટકનું . હું આશા રાખું છું કે આ લેખ તમારા માટે ખૂબ જ ફાયદાકારક રહ્યો છે. વિષય સંબંધિત કોઈપણ પ્રશ્નો પૂછવા માટે નિઃસંકોચ.

• આગળ, પોપ-અપ કોડ વિન્ડોમાં, મેનુ બાર, શામેલ કરો -> મોડ્યુલ .

• પછી, નીચેના કોડની કોપી કરો અને તેને કોડમાં પેસ્ટ કરો વિન્ડો.

1388

તમારો કોડ હવે ચલાવવા માટે તૈયાર છે.

• હવે, તમારા પર F5 દબાવો કીબોર્ડ અથવા મેનુ બારમાંથી ચલાવો -> સબ/યુઝરફોર્મ ચલાવો. મેક્રો ચલાવવા માટે તમે સબ-મેનૂ બારમાં નાના પ્લે આઇકન પર ક્લિક પણ કરી શકો છો.

• અથવા ડેટાસેટ અને પરિણામને દૃષ્ટિની રીતે જુઓ અને તેની તુલના કરો, તમે કોડ સેવ કરી શકો છો અને વર્કશીટ પર પાછા જઈ શકો છો રુચિની.
• ત્યાંથી, તમે <1 પર ક્લિક કરી શકો છો. વિકાસકર્તા ટેબમાંથી>મેક્રો , મેક્રો નામ પસંદ કરો, અને પછી ચલાવો પર ક્લિક કરો.

સફળ કોડ એક્ઝેક્યુશન પછી, પરિણામ જોવા માટે ઉપરોક્ત gif જુઓ. તમારી એક્સેલ શીટમાંના કોષ્ટકમાંથી MsgBox તમને દરેક પંક્તિમાંથી દરેક કોષનો કોષનો સંદર્ભ નંબર બતાવતું એક પોપ-અપ હશે.

VBA કોડ સમજૂતી

5356

કૉલમ B શોધીને કોષ્ટકમાં છેલ્લી પંક્તિ નંબર મેળવવા માટે.

5508

પંક્તિ નંબર 4 સેટ કરો, જ્યાંથી આપણો ડેટા શરૂ થાય છે.

5038

પ્રથમ પંક્તિમાંથી લૂપ કરવા માટે.

1215

કૉલમ નંબર 2 સેટ કરો, જ્યાંથી આપણો ડેટા શરૂ થાય છે.

9004

છેલ્લી મેળવવા માટે પંક્તિઓમાંથી લૂપ કરવાનું શરૂ કરોછેલ્લી પંક્તિ સુધી વર્તમાન પંક્તિનું મૂલ્યાંકન કરીને કૉલમ નંબર.

5011

પ્રથમ પંક્તિથી છેલ્લી પંક્તિ સુધી કૉલમને લૂપમાં વધારો.

2885

કોડનો આ ભાગ પ્રક્રિયા કરવા માટે કામ કરે છે, દરેક પછી વધારો પુનરાવર્તન કરો અને કોડનું પરિણામ પ્રદર્શિત કરો.

વધુ વાંચો: એક્સેલ કોષ્ટકમાં આપમેળે નવી પંક્તિ કેવી રીતે ઉમેરવી

2 . મૂલ્ય દ્વારા દરેક પંક્તિમાં દરેક સેલ દ્વારા લૂપ કરવા માટે VBA ને અમલમાં મુકો

જો તમે કોષ્ટકની દરેક હરોળમાં દરેક કોષમાંથી લૂપ કરવા માંગતા હો અને કોષોમાં રહેલ મૂલ્યને વળતર મૂલ્ય તરીકે ફેંકી દો , તો પછી આ વિભાગ તમને VBA Excel સાથે કેવી રીતે કરવું તે સમજવામાં મદદ કરશે.

તમે તે ListObject અને <1 સાથે કરી શકો છો>DataBodyRange મિલકત VBA . અમે તમને ઑબ્જેક્ટ અને પ્રોપર્ટી બંને સાથે મેક્રો કોડ બતાવીશું.

2.1. ListObject સાથે

VBA Excel માં ListObject સાથે કોષ મૂલ્ય દ્વારા કોષ્ટકની દરેક હરોળમાં દરેક કોષમાં લૂપ કરવાનાં પગલાં નીચે આપેલ છે.

પગલાઓ:

• પહેલાની જેમ જ, વિકાસકર્તા ટેબમાંથી વિઝ્યુઅલ બેઝિક એડિટર ખોલો અને કોડ વિન્ડોમાં મોડ્યુલ દાખલ કરો.
• પછી, કોડ વિન્ડોમાં, નીચેના કોડને કોપી કરો અને પેસ્ટ કરો તે.

2446

તમારો કોડ હવે ચલાવવા માટે તૈયાર છે.

• તે પછી, મેક્રો ચલાવો જેમ કે અમે તમને ઉપરના વિભાગમાં બતાવ્યું છે. પરિણામ gif માં બતાવવામાં આવ્યું છેનીચે.

એક પૉપ-અપ MsgBox તમને દરેક પંક્તિ <2 માંથી દરેક કોષ દ્વારા વહન કરવામાં આવેલ મૂલ્ય દર્શાવશે. તમારી એક્સેલ શીટમાંના કોષ્ટકમાંથી.

VBA કોડ સમજૂતી

3519

ચલોને વ્યાખ્યાયિત કરો.

5926

આ ભાગ કોડનો પ્રથમ ટેબલની પંક્તિઓમાંથી લૂપ કરવાનું શરૂ કરે છે (“ TblStudents ” અમારા ટેબલનું નામ છે). પછી દરેક પંક્તિ માટે કૉલમ દાખલ કરે છે. તે પછી, MsgBox માં સેલની કિંમત પાસ કરો. પછી આગલી કૉલમ પર જાઓ. એક પંક્તિના તમામ કૉલમ દ્વારા પુનરાવર્તન સમાપ્ત કર્યા પછી, તે પછીની પંક્તિ પર જાય છે અને છેલ્લી પંક્તિ સુધી પુનરાવર્તન પ્રક્રિયા ચાલુ રાખે છે.

2.2. DataBodyRange પ્રોપર્ટી

કોષ્ટકમાંથી કાઢવામાં આવેલ ડેટા સાથે વધુ ચોક્કસ બનવા માટે, તમે ListObject ની DataBodyRange પ્રોપર્ટીનો ઉપયોગ કરી શકો છો. DataBodyRange પ્રોપર્ટી તમને હેડર પંક્તિ અને ઇન્સર્ટ પંક્તિ વચ્ચેની સૂચિમાંથી શ્રેણી ધરાવતું પરિણામ ફેંકી દેશે.

તમે કેવી રીતે દરેક પંક્તિમાં દરેક સેલમાંથી લૂપ કરી શકો છો તેના પગલાં VBA Excel માં DataBodyRange સાથે સેલ મૂલ્ય દ્વારા કોષ્ટક નીચે આપેલ છે.

પગલાઓ:

• બતાવ્યા પ્રમાણે પહેલાં, વિકાસકર્તા ટેબમાંથી વિઝ્યુઅલ બેઝિક એડિટર ખોલો અને કોડ વિન્ડોમાં શામેલ કરો એક મોડ્યુલ .
• પછી , નીચેના કોડને કોપી કરો અને તેને કોડ વિન્ડોમાં પેસ્ટ કરો .

8244

તમારો કોડ હવે ચલાવવા માટે તૈયાર છે.

• પછીથી,મેક્રોને ચલાવો અને આઉટપુટ જોવા માટે નીચેની gif જુઓ.

એક પોપ-અપ MsgBox<હશે 2> તમને તમારી એક્સેલ શીટમાં કોષ્ટકમાંથી દરેક પંક્તિમાંથી દરેક સેલ દ્વારા વહન કરવામાં આવેલ મૂલ્ય દર્શાવે છે.

VBA કોડ સમજૂતી

5015

ચલને વ્યાખ્યાયિત કરો.

4274

કોડનો આ ભાગ સૌપ્રથમ કોષ્ટકની પંક્તિઓમાંથી લૂપ કરવાનું શરૂ કરે છે (“ TblStdnt ” આપણું ટેબલ નામ છે) અને તે સિવાયના મૂલ્યોની શ્રેણી પરત કરે છે. કોષ્ટકની હેડર પંક્તિ. પછી MsgBox માં શ્રેણીની કિંમત પાસ કરો. પછી તે શ્રેણી કાઢવા માટે આગલી પંક્તિ પર જાય છે અને છેલ્લી પંક્તિ સુધી પુનરાવર્તન પ્રક્રિયા ચાલુ રાખે છે.

3. એક્સેલમાં કૉલમને જોડીને પંક્તિઓ દ્વારા પુનરાવર્તિત કરવા માટે VBA મેક્રો લાગુ કરો

આ વિભાગ બતાવશે કે કેવી રીતે તમારા ડેટાસેટમાંથી પ્રથમ કૉલમ સાથે કૉલમને જોડીને કોષ્ટકમાં પંક્તિઓમાંથી કેવી રીતે લૂપ કરવું એક્સેલમાં.

ઉદાહરણ તરીકે, અમારા ડેટાસેટ માટે, પ્રથમ, અમે સેલ B5 માં જ્હોન અને 101 સેલ C5 માં દ્વારા તેમને જોડીને પુનરાવર્તિત કરીશું અને પછી પુનરાવર્તિત કરીશું. સેલ B5 માં જ્હોન અને 89 સેલ D5 માં તેમને પંક્તિ 5 થી જોડીને.

ચાલો તમને બતાવીએ કે તમે તે કેવી રીતે કરી શકો છો. એક્સેલમાં VBA મેક્રો.

પગલાઓ:

• પ્રથમ, વિઝ્યુઅલ બેઝિક એડિટર <માંથી ખોલો. 1>ડેવલપર ટેબ અને કોડ વિન્ડોમાં શામેલ કરો એક મોડ્યુલ .
• બીજું, કોડ વિન્ડોમાં, નીચેની કૉપિ કરો કોડઅને પેસ્ટ કરો તે.

4986

તમારો કોડ હવે ચાલવા માટે તૈયાર છે.

• ત્રીજે, <1 મેક્રો ચલાવો. પરિણામ જોવા માટે નીચેની gif જુઓ.

એક પૉપ-અપ MsgBox તમને સંકલિત મૂલ્ય બતાવશે. પ્રથમ અને બીજા સ્તંભના કોષોમાંથી ( કોલમ B5 માંથી જ્હોન કોલમ B અને 101 માંથી સેલ C5 માં કૉલમ C ) અને પછી સંકલિત મૂલ્ય પંક્તિ નંબર 5<ની પ્રથમ અને ત્રીજી કૉલમ ( કોલમ B માંથી સેલ B5 માં જ્હોન અને કૉલમ D માંથી સેલ D5 માં 89) 2> તમારા ડેટાસેટમાંથી. અને જ્યાં સુધી તે કોષ્ટકની છેલ્લી પંક્તિ સુધી ન પહોંચે ત્યાં સુધી આ જોડાણની ક્રિયા ચાલુ રહેશે.

VBA કોડ સમજૂતી

7913

ચલ વ્યાખ્યાયિત કરો.

3382

પછી કોડ સક્રિય શીટમાંથી કોષ્ટક પસંદ કરે છે (“ TblConcatenate ” અમારા ટેબલના નામમાં).

4064

તે પછી, હેડરને બાદ કરતા દરેક પંક્તિને પુનરાવર્તિત કરવાનું શરૂ કરે છે. કૉલમ જો પુનરાવૃત્તિ કૉલમ હેડર અને પંક્તિઓ વચ્ચેની શ્રેણીમાં મેળ શોધે છે, તો તે iValue ચલમાં મૂલ્ય સંગ્રહિત કરે છે.

1664

જો ઉપરની શરત પૂરી ન થાય, તો પછી કોડ MsgBox માં મૂલ્ય ફેંકે છે અને શરત પૂરી કરે છે. તે પછી, તે બીજી શ્રેણીમાં લૂપિંગ તરફ આગળ વધે છે અને અંતિમ પંક્તિ સુધી પુનરાવર્તન ચાલુ રાખે છે. એકવાર તે અંતિમ પંક્તિ પર પહોંચી જાય, મેક્રો કોડ અમલીકરણને સમાપ્ત કરે છે.

4. પુનરાવર્તિત કરવા માટે મેક્રોને એમ્બેડ કરોએક્સેલમાં કોષ્ટકમાં તમામ કૉલમને જોડીને પંક્તિઓ દ્વારા

આ વિભાગમાં, અમે સાથે ડેટાસેટમાં દરેક પંક્તિ ધરાવે છે તે તમામ કૉલમ ને કેવી રીતે જોડી શકાય તે શીખીશું. એક્સેલમાં VBA મેક્રો.

એક્ઝીક્યુટ કરવાના સ્ટેપ્સ જે નીચે દર્શાવેલ છે.

સ્ટેપ્સ:

• સૌપ્રથમ, ઓપન < વિકાસકર્તા ટેબમાંથી 1>વિઝ્યુઅલ બેઝિક એડિટર અને કોડ વિન્ડોમાં મોડ્યુલ દાખલ કરો.
• પછી, નીચેના કોડની કોપી કરો અને તેને કોડ વિંડોમાં પેસ્ટ કરો .

7705

તમારો કોડ હવે ચલાવવા માટે તૈયાર છે.

<3

• આગળ, મેક્રો કોડ ચલાવો એક પૉપ-અપ MsgBox તમને તમારી એક્સેલ વર્કશીટના કોષ્ટકમાંથી દરેક પંક્તિમાં રહેતા તમામ કૉલમનું સંકલિત મૂલ્ય દર્શાવે છે.

1 વર્કબુકમાં).

3408

દ ટેબલના નામને ફાઇન કરો કે જેની સાથે આપણે કામ કરીશું (“ TblConcatenateAll ” એ આપણા ડેટાસેટમાં કોષ્ટકનું નામ છે).

3269

કોષ્ટકની દરેક પંક્તિ દ્વારા પુનરાવર્તન શરૂ કરે છે.

9031

કોષ્ટકની દરેક પંક્તિના દરેક કૉલમ દ્વારા પુનરાવૃત્તિ શરૂ કરે છે.

5746

દરેક હરોળની દરેક કૉલમ વહન કરે છે તે મૂલ્યોને છેદન કરીને પરિણામને સંગ્રહિત કરો. દરેક પંક્તિમાં રહેતા તમામ કૉલમને સ્કેન કર્યા પછી, તે પસાર થયુંMsgBox માં પરિણામ. પછી ફરીથી આગલી પંક્તિમાં લૂપ કરવાનું શરૂ કરે છે અને જ્યાં સુધી તે કોષ્ટકની છેલ્લી પંક્તિ સુધી ન પહોંચે ત્યાં સુધી લૂપ કરવાનું ચાલુ રાખે છે.

વધુ વાંચો: એક્સેલ VBA વડે કોષ્ટકની બહુવિધ કૉલમ કેવી રીતે સૉર્ટ કરવી (2 પદ્ધતિઓ)

5. VBA મેક્રો

ધારો કે તમે તમારા કોષ્ટકની પંક્તિઓમાંથી લૂપ કરવા માંગો છો અને જ્યારે તેને કોઈ ચોક્કસ મૂલ્ય મળે ત્યારે લૂપિંગ બંધ કરો . તમે તે માત્ર એક સરળ મેક્રો કોડ વડે કરી શકો છો.

ચાલો તે કેવી રીતે કરવું તે શીખીએ VBA Excel માં.

પગલાઓ:

• પ્રથમ, વિકાસકર્તા ટેબમાંથી વિઝ્યુઅલ બેઝિક એડિટર ખોલો અને કોડ વિન્ડોમાં શામેલ કરો એક મોડ્યુલ .
• પછી, કોડ વિન્ડોમાં, નીચેનો કોડ કોપી કરો અને પેસ્ટ કરો તે.

9255

તમારો કોડ હવે ચલાવવા માટે તૈયાર છે .

• બાદમાં, મેક્રો ચલાવો .
• તે લૂપ શરૂ કરશે અને જ્યારે તે બંધ કરશે શ્રેણીમાં ચોક્કસ મૂલ્ય (“ એજ ”) શોધે છે અને પરિણામને MsgBox માં ફેંકે છે.

જેમ તમે ઉપરની છબી પરથી જોઈ શકો છો, ત્યાં એક પોપ-અપ MsgBox તમને સેલ સરનામું, $B$10 દર્શાવે છે, જ્યાં અમને મળ્યું ઉલ્લેખિત મૂલ્ય, “ એજ ” .

VBA કોડ સમજૂતી

7088

ને વ્યાખ્યાયિત કરો ચલ.

9575

કોડનો આ ભાગ અહીં 1 થી 15 સુધીની પંક્તિઓમાંથી લૂપ કરવા માટે છે. જો તે ચોક્કસ શબ્દ શોધે છે“ Edge ” પછી તે શબ્દ ધરાવે છે તેવા સેલ એડ્રેસ સાથે પરિણામ પસાર કરે છે. જ્યાં સુધી તે શબ્દની શોધમાં પંક્તિઓ 1 થી 15 સુધીના તમામ ડેટાને સ્કેન કરવાનું સમાપ્ત ન કરે ત્યાં સુધી તે આ કરવાનું ચાલુ રાખે છે.

વધુ વાંચો: Excel કોષ્ટકમાંથી પંક્તિઓ અને કૉલમ્સ કેવી રીતે દાખલ કરવી અથવા કાઢી નાખવા

6. VBA દરેક પંક્તિમાંથી લૂપ કરો અને એક્સેલમાં ચોક્કસ મૂલ્યને રંગ કરો

જો તમે MsgBoxમાં ઉલ્લેખિત મૂલ્યનું સેલ સરનામું ફેંકવા માંગતા ન હોવ તો શું? તમે શોધી રહ્યાં છો તે સેલને તમે મૂલ્ય ધરાવતું હોય તે ને રંગ આપવાનું ઇચ્છી શકો છો.

ચાલો તે VBA મેક્રો સાથે કેવી રીતે કરવું તે શીખીએ.

પગલાઓ:

• પહેલાની જેમ જ, વિકાસકર્તા ટેબમાંથી વિઝ્યુઅલ બેઝિક એડિટર ખોલો અને ઇનસર્ટ કરો કોડ વિન્ડોમાં મોડ્યુલ .
• પછી, નીચેના કોડની કોપી કરો અને તેને કોડ વિન્ડોમાં પેસ્ટ કરો .

4608

તમારો કોડ હવે ચાલવા માટે તૈયાર છે.

• તે પછી, મેક્રોને ચલાવો .
• તે લૂપ શરૂ કરશે અને જ્યારે તેને ચોક્કસ મૂલ્ય (“ એજ ”) રેન્જમાં મળશે અને કલરઇન્ડેક્સ સાથે કોષને રંગીન મળશે ત્યારે તેને બંધ કરશે. જે તમે કોડમાં આપેલ છે.

જેમ તમે ઉપરની છબી પરથી જોઈ શકો છો, C ell B10 , જ્યાં અમને ઉલ્લેખિત મૂલ્ય મળ્યું, “ Edge ” રંગીન છે કોડ એક્ઝેક્યુશન પછી.

VBA કોડ સમજૂતી

4904

વ્યાખ્યાયિત કરો