Ulwazi oluwusizo kubha yesimo

Umuntu othanda, kodwa mina ngokwami ​​ngidinga ibha yesimo kuphela ezimweni ezingu-2-3:

  • ngemva kokuhlunga, ibonisa inani lamanani asele ngemva kokukhetha
  • uma ububanzi bukhethiwe, bubonisa isamba, isilinganiso, kanye nenani lamaseli akhethiwe
  • esimweni samafayela asindayo, ungabona ukuqhubeka ekubaleni kabusha amafomula encwadini.

Hhayi kakhulu kumugqa othatha cishe bonke ububanzi besikrini futhi ulenga kuwo ngaso sonke isikhathi. Ake sizame ukwandisa lolu hlu olunesizotha futhi sengeze izici ezimbalwa eziwusizo kulo 🙂

Izimiso ezijwayelekile zokuphatha umudwa ochaza ngesimo

Ukuphatha ibha yesimo nge-Visual Basic kulula kakhulu. Ukuze ubonise umbhalo wakho kuyo, ungasebenzisa i-macro elula:

I-Sub MyStatus() Application.StatusBar = "Привет!" Qeda I-sub

Ngemuva kokuyiqhuba, sithola:

Ulwazi oluwusizo kubha yesimo

Ukuze ubuyisele isimo sangempela sebha yesimo, uzodinga "i-anti-macro" emfushane efanayo:

I-Sub MyStatus_Off() Isicelo.I-StatusBar = Isiphetho Samanga Esingaphansi

Enguqulweni eyisisekelo, njengoba ubona, yonke into ilula kakhulu. Manje ake sizame ukuthuthukisa umbono...

Ikheli lobubanzi obukhethiwe kubha yesimo

 Ekhoneni eliphezulu kwesokunxele lewindi le-Excel kubha yefomula, ungahlala ubona ikheli leseli yamanje. Kodwa uma lonke ububanzi bukhethiwe, khona-ke, ngeshwa, ngeke silibone ikheli lokukhetha lapho - iseli elilodwa elisebenzayo liyaboniswa:

Ulwazi oluwusizo kubha yesimo

Ukuxazulula le nkinga, ungasebenzisa i-macro elula ezobonisa ikheli lendawo ekhethiwe kubha yesimo. Ngaphezu kwalokho, le macro kufanele yethulwe ngokuzenzakalelayo, nanoma yiluphi ushintsho ekukhethweni kunoma yiliphi ishidi - kulokhu sizolibeka kusiphathi somcimbi. UkukhethwaChange incwadi yethu.

Vula i-Visual Basic Editor usebenzisa inkinobho yegama elifanayo kuthebhu Unjiniyela (Unjiniyela) noma izinqamuleli zekhibhodi U-Alt+F11 kwesokunxele. Thola ibhuku lakho ekhoneni eliphezulu kwesokunxele lephaneli yephrojekthi bese uvule imojuli kuyo ngokuchofoza kabili Le ncwadi (Lencwadi Yokusebenzela):

Ewindini elivulayo, kopisha bese unamathisela ikhodi ye-macro elandelayo:

I-Private Sub Workbook_SheetSelectionChange(ByVal Sh Njengento, I-ByVal Target Njengobubanzi) Application.StatusBar = "Выделено: " & Selection.Ikheli(0, 0) Qeda Isihloko

Manje, uma noma ibuphi ububanzi bukhethiwe (okuhlanganisa nangaphezu kokukodwa!), ikheli lakhona lizovezwa kubha yesimo:

Ulwazi oluwusizo kubha yesimo

Ukuze uvimbele amakheli obubanzi obuningana akhethwe nge-Ctrl ukuthi ahlanganiswe, ungangeza ukuthuthukiswa okuncane - sebenzisa umsebenzi we-Replace ukuze umiselele ukhefana ngesikhala:

I-Private Sub Workbook_SheetSelectionChange(ByVal Sh Njengento, I-ByVal Target Njengobubanzi) Application.StatusBar = "Выделено: " & Faka esikhundleni(Ukukhetha.Ikheli(0, 0), ",", ", ") Qeda Isihloko

Inombolo yamaseli akhethiwe kubha yesimo

Uma noma yibuphi ububanzi bukhethiwe, inombolo yamaseli akhethiwe angenalutho iboniswa ngakwesokudla kwebha yesimo ngokuzenzakalelayo. Kwesinye isikhathi udinga ukwazi inombolo enikeziwe. Lo msebenzi ungase futhi ufezwe nge-macro elula yokusingatha umcimbi wencwadi ye-SelectionChange, njengasesibonelo sangaphambilini. Uzodinga i-macro efana:

I-Private Sub Workbook_SheetSelectionChange(ByVal Sh Njengento, Ithagethi Ye-ByVal Njengobubanzi) Fiphaza I-CellCount Njengokuguquguqukayo, rng Njengobubanzi Be-rng ngayinye Ekukhetheni. . Bala 'inombolo yamakholomu CellCount = CellCount + RowsCount * ColumnsCount 'qongelela inani lamaseli Okulandelayo 'bonisa kubha yesimo Application.StatusBar = "Kukhethiwe: " & CellCount & " cell" End Sub

Le macro ingena kuzo zonke izindawo ezikhethiwe ngo-Ctrl (uma kunezingaphezu kweyodwa), igcina inani lemigqa namakholomu endaweni ngayinye kokuguquguqukayo kwe-RowsCount kanye ne-ColumnsCount, futhi iqongelela inani lamaseli kokuguquguquka kwe-CellCount, okube sekuvezwa. kubha yesimo. Emsebenzini izobukeka kanje:

Ulwazi oluwusizo kubha yesimo

Vele, ungahlanganisa lokhu kanye namamakhro adlule ukuze ubonise kokubili ikheli lebanga elikhethiwe kanye nenani lamaseli ngesikhathi esisodwa. Udinga kuphela ukushintsha umugqa owodwa owandulela owandulela owamanqamu ube:

Application.StatusBar = "Okukhethiwe: " & Faka esikhundleni(Ukukhetha.Ikheli(0, 0), ",", ", ") & " - inani " & CellCount & " namaseli"

Khona-ke isithombe sizoba sihle kakhulu:

Ulwazi oluwusizo kubha yesimo

Hhayi-ke, ngicabanga ukuthi uyawuthola umqondo. Phakamisa kumazwana - yini enye engaba usizo ukuyibonisa kubha yesimo?

  • Ayini ama-macros, asebenza kanjani, asetshenziswa kanjani futhi adalwe kanjani
  • Ukukhetha okulula kokudidiyela eshidini le-Excel
  • Indlela yokwenza amafomula ayinkimbinkimbi abonakale kakhudlwana

shiya impendulo