Mataupu
O le lisi fa'alalo-lalo fa'apitoa i se pepa Excel e lelei tele, ae na'o le fa'atagaina oe e filifili se tasi filifiliga mai le seti tu'uina atu. O nisi taimi o le mea tonu lea e te manaʻo ai, ae o loʻo i ai tulaga e manaʻomia e le tagata faʻaoga ona mafai ona filifili se elemene mai le lisi.
Se'i o tatou va'ava'ai i le tele o fa'atinoga masani o sea lisi tele-filifiliga.
Filifiliga 1. Fa'asagaga
E filifilia e le tagata fa'aoga mea mai le lisi pa'u i lalo ta'itasi, ma fa'aali atu i le itu taumatau o le sela o lo'o suia, e otometi lava ona lisiina fa'alava:
Lisi pa'ū i lalo i sela C2:C5 i lenei faʻataʻitaʻiga ua faia i se auala masani, ie
- filifili sela C2:C5
- lisi po'o le lisi Faʻamatalaga filifili se au Faamaonia Faamaumauga
- i le faamalama e matala, filifili se filifiliga lisi ma fa'amaoti mai o se fa'asologa puna sela ma fa'amatalaga puna mo le lisi A1:A8
Ona e manaʻomia lea e faʻaopoopo se macro i le laupepa laupepa, lea o le a faia uma galuega autu, e pei o le faʻaopoopoina o tau filifilia i le itu taumatau o sela lanumeamata. Ina ia faia lenei mea, kiliki-i luga ole laupepa laupepa ma lisi pa'ū ma filifili le poloaiga Faʻamatalaga punaoa. Fa'apipi'i le fa'ailoga lea i totonu o le fa'amalama fa'atonu Visual Basic e matala:
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Pe afai e le Fesoʻotaʻi(Target, Range("C2:C5") E Leai se Mea Ma Target.Cells.Count = 1 Ona Application.EnableEvents = False Afai Len(Target.Offset (0, 1)) = 0 Ona Fa'ai'uga.Offset(0, 1) = Fa'ai'uga Seisi Target.Fa'ai'uga(xlToRight).Offset(0, 1) = Fa'ai'uga Fa'ai'uga pe a fai Target.ClearContents Application.EnableEvents = Fa'ai'uga Moni pe a Fa'ai'u Sub. Afai e mana'omia, sui le vaega ma'ale'ale o lisi pa'u-lalo C2:C5 i le laina lona lua o lenei code i lau oe.
Filifiliga 2. Tusa'o
E tutusa ma le lomiga muamua, ae o tau filifilia fou e le faʻaopoopoina i le taumatau, ae i lalo:
E faia i le auala lava e tasi, ae o le faʻasologa o le macro code e suia teisi:
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Pe afai e le Fesoʻotaʻi(Target, Range("C2:F2") E Leai se Mea Ma Target.Cells.Count = 1 Ona Application.EnableEvents = False Afai Len(Target.Offset (1, 0)) = 0 Ona Fa'asagaga.Offset(1, 0) = Fua'iga Seisi Target.Fa'ai'uga(xlDown).Offset(1, 0) = Fa'ai'uga Fa'ai'uga Afai Target.ClearContents Application.EnableEvents = Fa'ai'uga Moni pe a Fa'ai'u Sub. Toe fo'i, pe a mana'omia, sui le vaega ma'ale'ale o le C2:F2 lisi pa'u i lalo ma oe i le laina lona lua o lenei code.
Filifiliga 3. Faatasi ai ma le faaputuputu i totonu o le sela lava e tasi
I lenei filifiliga, o le faʻaputuga e tupu i totonu o le sela tutusa o loʻo i ai le lisi pa'ū. O elemene filifilia e tu'u'ese'ese i so'o se uiga (mo se fa'ata'ita'iga, koma):
Lisi pa'ū i lalo i sela lanu meamata ua faia i se tulaga atoatoa, e pei o auala muamua. O galuega uma e toe faia, toe, e se macro i le laupepa laupepa:
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Pe afai e le Fesoʻotaʻi(Target, Range("C2:C5") E Leai se Mea Ma Target.Cells.Count = 1 Ona Application.EnableEvents = False newVal = Target Application.Undo oldval = Target Afai Len(oldval) <> 0 Ma oldval <> newVal Ona Target = Target & "," & newVal Isi Target = newVal End Afai Afai Len(newVal) = 0 Ona Target.ClearContents Application.EnableEvents = True End Afai Fa'ai'u Sub Afai e manaʻo ai, e mafai ona e suitulaga i le uiga vavaeese (koma) i le laina lona 9 o le code ma oe lava (mo se faʻataʻitaʻiga, avanoa poʻo se semicolon).
- Fa'afefea ona fai se lisi pa'u i lalo faigofie i totonu o se laupepa Excel
- Lisi pa'u i lalo ma anotusi
- Lisi pa'u i lalo o lo'o misi avanoa fa'aopoopo
- O a macros, faʻafefea ona faʻaogaina, o fea e faʻapipiʻi ai le macro code i le Visual Basic