tirotiro
He pai te rarangi taka-iho matarohia i roto i te pepa Excel, engari ka taea e koe te kowhiri i tetahi waahanga mai i te huinga kua whakaatuhia. I etahi wa koinei te mea e hiahia ana koe, engari he waahi ka hiahia te kaiwhakamahi ki te whiriwhiri etahi huānga mai i te rārangi.
Kia titiro tatou ki te maha o nga whakatinanatanga o taua rarangi whiriwhiri-maha.
Kōwhiringa 1. Whakapae
Ka tīpakohia e te kaiwhakamahi ngā tūemi mai i te rārangi taka-iho takitahi, ka puta ki te taha matau o te pūtau e huri ana, ka whakarārangihia whakapae aunoa:
Ko nga rarangi taka-iho i roto i nga pūtau C2:C5 i tenei tauira ka hangaia i roto i te huarahi paerewa, a
- tīpakohia ngā pūtau C2:C5
- ripa, tahua ranei Raraunga whiriwhiria he kapa Whakamanatanga Raraunga
- i te matapihi e tuwhera ana, tohua he whiringa Rārangi ka whakapūtā hei awhe pūtake pūtau whai raraunga pūtake mō te rārangi A1:A8
Na ka hiahia koe ki te taapiri i tetahi tonotono ki te waahanga rau, ka mahia nga mahi matua katoa, ara, te taapiri i nga uara kua tohua ki te taha matau o nga pūtau matomato. Ki te mahi i tenei, pawhiri-matau ki te ripa rau me nga raarangi taka-iho ka kowhiri i te whakahau Ko te waehere puna. Whakapirihia te waehere e whai ake nei ki te matapihi whakatika Visual Basic ka tuwhera:
Te Huri Mahi Mahi_Tumataiti(MaaVal Target Hei Awhe) I te Hapa Whakahokia Panuku Ki te Kare e Mokowhiti(Target, Range("C2:C5")) Kore he mea me te Target.Cells.Count = 1 Na Application.EnableEvents = He teka Mena Len(Target.Offset (0, 1)) = 0 Na Target.Offset(0, 1) = Target Else Target.End(xlToRight).Offset(0, 1) = Target Mutunga Ki te Target.ClearContents Application.EnableEvents = True End If End Sub Mena e tika ana, whakakapihia te awhe tairongo o nga rarangi taka-iho C2:C5 i te rarangi tuarua o tenei waehere ki a koe ake.
Kōwhiringa 2. Poutū
He rite ano ki te putanga o mua, engari ko nga uara hou kua tohua kaore e taapirihia ki te taha matau, engari ki raro:
He rite tonu te mahi, engari he paku rereke te waehere tonotono kaihautu:
Te Huri Mahi Mahi_Tumataiti(AteWal Target Hei Awhe) I te Hapa Whakahokia Panuku Ki te Kare e Mokowhiti(Target, Awhe("C2:F2")) Kore he mea me te Target.Cells.Count = 1 Na Application.EnableEvents = He teka mena Len(Target.Offset (1, 0)) = 0 Na Target.Offset(1, 0) = Target Else Target.End(xlDown).Offset(1, 0) = Target End If Target.ClearContents Application.EnableEvents = True End If End Sub Ano, ki te tika, whakakapihia te awhe tairongo o te rarangi taka-iho C2:F2 ki a koe ake i te rarangi tuarua o tenei waehere.
Kōwhiringa 3. Me te whakaemi i roto i te pūtau kotahi
I tenei kōwhiringa, ka puta te whakaemi i roto i te pūtau kotahi kei reira te rarangi taka-iho. Ka wehea nga huānga kua tohua e tetahi ahua (hei tauira, he piko):
Ko nga rarangi taka-iho i roto i nga pūtau matomato ka hangaia i roto i te huarahi tino paerewa, pera i nga tikanga o mua. Kua oti nga mahi katoa, ano, na te tonotono i roto i te waahanga rau:
Te Huri Mahi_Tumataiti(Taupiri Ma te Awhe) I te Hapa Whakahouhia Panuku Ki te Karekau e Mokowhiti(Target, Awhe("C2:C5")) Kore he mea me Target.Cells.Count = 1 Na Application.EnableEvents = False newVal = Taupānga Target.Whakakore oldval = Target Mēnā Len(oldval) <> 0 Me oldval <> newVal Na Target = Target & "," & newVal Else Target = newVal Mutunga Ki te Len(newVal) = 0 Na Target.ClearContents Application.EnableEvents = True End If Whakamutunga Sub Ki te hiahia koe, ka taea e koe te whakakapi i te tohu whakawehe (piko) i te rarangi 9 o te waehere me o ake (hei tauira, he mokowā, he tohu tohu ranei).
- Me pehea te hanga i tetahi rarangi taka-iho ngawari ki roto i te pūtau rau Excel
- Rarangi takaiho me nga ihirangi
- Rarangi takaiho me nga whiringa ngaro kua taapirihia
- He aha nga tonotono, me pehea te whakamahi, kei hea te whakauru waehere tonotono ki Visual Basic