Мазмұны
Бірнеше бағандары бар шағын деректер кестесі болса, олардың барлығын оңай санауға болады. Бірақ үлкен деректер кестесі үшін барлық бағандарды қатесіз санау өте қиын. Бұдан басқа, кейбір бағандарда деректер болуы мүмкін, ал кейбір бағандар толығымен бос болуы мүмкін. Осылайша, үлкен деректер кестесі жағдайында барлық бағандарды деректермен санау өте қиын. Бұл мақалада сіз Excel бағдарламасында VBA көмегімен деректермен бағандарды оңай санаудың 2 әдісін үйренесіз.
Тәжірибелік жұмыс кітабын жүктеп алу
Excel файлын келесі сілтемеден жүктеп алуға және келесі сілтемеден жаттығуға болады. ол.
Data.xlsm көмегімен бағандарды санау
2 Excel бағдарламасында VBA көмегімен деректермен бағандарды санау жолдары
1 Қарапайым VBA кодын пайдаланып деректері бар жұмыс парағындағы барлық бағандарды санау
Біз келесі деректер кестесінде 3 бағанды көре аламыз. Енді бір Excel жұмыс парағында пайдаланылған бағандардың санын анықтау үшін VBA кодын қолданамыз.
❶ Ең алдымен ALT + F11 пернелерін басыңыз. VBA редакторын ашу үшін.
❷ Одан кейін Insert > ішінен жаңа модуль жасаңыз; Модуль.
❸ Содан кейін келесі VBA сценарийін көшіріңіз.
4690
❹ Содан кейін VBA редакторына оралып, CTRL пернесін басыңыз. Оны қою үшін + V .
❺ Енді CTRL + S түймесін басу арқылы VBA кодын сақтаңыз.
❻ VBA кодын іске қосу үшін Әзірлеуші қойындысына өтіп, Макростар түймесін басыңыз. Немесе жай ғана F5 пернесін басыңыз перне.
Макрос диалогтық терезесі пайда болады.
❼ Сізге тек Орындау түймесін басыңыз.
Енді сіз диалогтық терезенің пайда болғанын көресіз. Бұл деректері бар бағандар саны 3 екенін айтады.
Толығырақ: Excel бағдарламасындағы бағандар санын қалай санауға болады (3 оңай) Әдістер)
2. Excel VBA кодын пайдалану арқылы берілген диапазондағы барлық бағандарды санау
Келесі VBA коды файлдағы деректері бар барлық бағандарды санауға мүмкіндік береді. берілген ауқым.
Кодты пайдалану үшін
❶ Ең алдымен ALT + F11 пернелерін басу арқылы VBA өңдегішін ашыңыз.
❷ Содан кейін өтіңіз. Кірістіру > Жаңа модуль жасау үшін модуль .
❸ Одан кейін келесі VBA сценарийін көшіріңіз.
3173
❹ VBA өңдегішіне оралып, түймесін басыңыз. CTRL + V қою үшін.
❺ Енді CTRL + S пернелерін басу арқылы кодты сақтаңыз.
❻ Әзірлеуші қойындысына өтіп, Макрос терезесін ашу үшін Макростар түймесін басыңыз.
Немесе жай ғана түймесін басыңыз. Макрос диалогтық терезесін пайдалану үшін F5 пернесін басыңыз.
❼ Диалогтық терезеден CountColumnsInARange функция атауын таңдап, Орындау түймесін басыңыз>батырмасы.
Соңында бағандардың жалпы саны 3 болатын шағын диалогтық терезе пайда болады.
Толығырақ: Excel бағдарламасында VLOOKUP үшін бағандарды санау жолы (2 әдіс)
Excel бағдарламасындағы бағандарды санау үшін қосымша VBA кодтары
1. ҚолдануСоңғы пайдаланылған баған нөмірін қайтарудың VBA Range.End әдісі
Excel электрондық кестесіндегі соңғы пайдаланылған баған нөмірін алу үшін
❶ Ең алдымен, пернесін басу арқылы VBA өңдегішін ашыңыз. ALT + F11.
❷ Содан кейін Insert > Жаңа модуль жасау үшін модулі.
❸ Келесі VBA кодын көшіріңіз:
1426
❹ Қою және сақтау VBA редакторындағы код.
❺ Жоғарыдағы кодты іске қосу үшін F5 пернесін басыңыз.
Соңғы бағанды аласыз. төмендегі суреттегідей қалқымалы диалогтық терезеде нөмірді көрсетіңіз:
Толығырақ: Excel бағдарламасында мәнге жеткенше бағандарды қалай санау керек
2. Excel бағдарламасында соңғы пайдаланылған баған нөмірін қайтару үшін Range.Find әдісін пайдаланыңыз
Егер соңғы пайдаланылған баған нөмірін қайтару үшін VBA кодтарын іздесеңіз, төмендегі қадамдарды орындаңыз. :
❶ Ең алдымен VBA редакторын ашу үшін ALT + F11 пернелерін басыңыз.
❷ Содан кейін Insert > Модуль.
❸ Келесі VBA кодын көшіріңіз:
4363
❹ Содан кейін VBA редакторына оралып, CTRL + V пернелерін басыңыз. қою үшін.
❺ Енді CTRL + S түймесін басу арқылы VBA кодын сақтаңыз.
Енді басыңыз. Жоғарыдағы кодты іске қосу үшін F5 пернесін басыңыз.
Сіз соңғы пайдаланылған баған нөмірін төмендегі суреттегідей қалқымалы диалогтық терезеде аласыз:
Есте сақтау керек нәрселер
- VBA өңдегішін ашу үшін ALT + F11 пернелерін басыңыз.
- ALT + пернелерін басуға болады. Макростар диалогтық терезесін пайдалану үшін F8 пернесін басыңыз.
- VBA кодын іске қосу үшін F5 пернесін басыңыз.
Қорытынды
Қорытындылау үшін біз Excel бағдарламасында VBA көмегімен деректермен бағандарды санаудың 2 әдісін талқыладық. Сізге осы мақалаға қоса берілген тәжірибелік жұмыс кітабын жүктеп алып, онымен барлық әдістерді қолдану ұсынылады. Төмендегі түсініктеме бөлімінде кез келген сұрақ қоюдан тартынбаңыз. Біз барлық тиісті сұрақтарға тез арада жауап беруге тырысамыз. Толығырақ білу үшін ExcelWIKI веб-сайтымызға кіріңіз.
