contents
Yon moun tankou, men mwen pèsonèlman bezwen yon ba estati sèlman nan 2-3 ka:
- apre filtraj, li montre kantite valè ki rete apre seleksyon an
- lè yo chwazi yon seri, li montre sòm, mwayèn, ak kantite selil yo chwazi yo
- nan ka dosye lou, ou ka wè pwogrè nan rekalkile fòmil nan liv la.
Pa tèlman pou yon liy ki pran prèske tout lajè ekran an epi ki pandye sou li tout tan. Ann eseye elaji lis modès sa a epi ajoute kèk karakteristik plis itil nan li 🙂
Prensip jeneral pou jere ba estati a
Jere ba estati a ak Visual Basic trè fasil. Pou montre tèks ou a nan li, ou ka itilize yon makro senp:
Sub MyStatus() Application.StatusBar = "Byen!" Fen Sub
Apre kouri li, nou jwenn:
Pou retabli eta orijinal ba estati a, w ap bezwen menm kout "anti-makro":
Sub MyStatus_Off () Application.StatusBar = Fo Fen Sub
Nan vèsyon debaz la, jan ou ka wè, tout bagay se trè senp. Koulye a, ann eseye devlope lide a...
Adrès seri a chwazi nan ba estati a
Nan kwen siperyè agòch fenèt Excel nan ba fòmil la, ou ka toujou wè adrès selil aktyèl la. Men, si yo chwazi yon seri antye, lè sa a, malerezman, nou pa pral wè adrès seleksyon an la - se menm sèl selil aktif la parèt:
Pou rezoud pwoblèm sa a, ou ka sèvi ak yon makro senp ki pral montre adrès la nan zòn nan chwazi nan ba estati a. Anplis, makro sa a ta dwe lanse otomatikman, ak nenpòt chanjman nan seleksyon an sou nenpòt fèy - pou sa nou pral mete l nan moun kap okipe evènman an. SelectionChange liv nou an.
Louvri Editè Visual Basic lè l sèvi avèk bouton ki gen menm non an sou tab la pwomotè (Devlopè) oswa rakoursi klavye Gòch Alt+F11. Jwenn liv ou a nan kwen anwo gòch nan panèl Pwojè a epi ouvri modil la nan li pa double-klike sou Liv sa a (Liv sa a):
Nan fenèt ki ouvri, kopye epi kole kòd makro sa a:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Selection.Address(0, 0) End Sub
Koulye a, lè yo chwazi nenpòt seri (ki gen ladan plis pase youn!), adrès li yo pral parèt nan ba estati a:
Pou anpeche adrès plizyè seri chwazi ak Ctrl rantre, ou ka ajoute yon ti amelyorasyon - sèvi ak fonksyon Ranplase pou ranplase yon vigil ak yon vigil ak yon espas:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Ranplase(Selection.Address(0, 0), ",", ", ") End Sub
Kantite selil chwazi nan ba estati a
Lè yo chwazi nenpòt seri, kantite selil ki pa vid yo parèt sou bò dwat ba estati a pa default. Pafwa ou bezwen konnen ki kantite allocation. Travay sa a ka akonpli tou ak yon makro senp pou okipe evènman liv SelectionChange, tankou nan egzanp anvan an. Ou pral bezwen yon makro tankou:
Private Sub Workbook_SheetSelectionChange(ByVal Sh kòm objè, ByVal sib kòm seri) Dim CellCount kòm varyant, rng kòm Range Pou chak rng nan Selection.Areas 'Iterasyon nan tout seleksyon RowsCount = rng.Rows.Count 'kantite ranje ColumnsCount = rng.Columns . Konte 'kantite kolòn CellCount = CellCount + RowsCount * ColumnsCount 'akimile kantite total selil Next 'montre nan ba estati Application.StatusBar = "Seleksyone: " & CellCount & " selil" End Sub
Makro sa a boukle nan tout zòn Ctrl-seleksyone yo (si gen plis pase youn), estoke kantite ranje ak kolòn nan chak zòn nan varyab RowsCount ak ColumnsCount, epi akimile kantite selil ki nan varyab CellCount la, ki apre sa parèt. nan ba estati a. Nan travay li pral sanble sa a:
Natirèlman, ou ka konbine sa a ak macros anvan yo montre tou de adrès la nan seri a chwazi ak kantite selil yo an menm tan an. Ou bezwen sèlman chanje yon penultyèm liy nan:
Application.StatusBar = "Chwazi: " & Ranplase (Selection.Address(0, 0), ",", ", ") & " - total " & CellCount & " selil"
Lè sa a, foto a pral byen bèl:
Oke, mwen panse ke ou jwenn lide a. Sijere nan kòmantè yo - ki lòt bagay ki ta itil yo montre nan ba estati a?
- Ki sa ki makro, ki jan yo travay, ki jan yo itilize ak kreye yo
- Seleksyon kowòdone pratik sou yon fèy Excel
- Ki jan yo fè fòmil konplèks plis vizyèl