Te whakatakoto i te raruraru
Kei te pirangi au ki nga pou kei runga i te histogram (he poro ranei kei te tūtohi porowhita, me etahi atu) kia whiwhi aunoa i te tae i whakamahia hei whakaki i nga pūtau e rite ana ki te raraunga puna:
Ma te whakaaro ki nga tangi ohorere me te riri o nga hoa takitahi, me tohu, ko te tikanga, ka taea hoki te whakarereke i te tae o te whakakii i te hoahoa (paa-matau-matau ki te pou - Hōputu tohu/rangatū (Whakahōputu ira raraunga/raupapa) me etahi atu - kaore he tangata e tohe. Engari i roto i nga mahi, he maha nga ahuatanga ka ngawari ake, ka pai ake te mahi tika i roto i nga pūtau me nga raraunga, katahi ka peita aunoa te tūtohi. Whakamātauria, hei tauira, ki te tautuhi i te whakakī mā te rohe mō ngā tīwae o tēnei tūtohi:
Ki taku whakaaro ka whiwhi koe i te whakaaro, tika?
otinga
Kaore he mea engari he tonotono ka taea tenei. No reira, ka tuwhera matou Kaiwhakatika Visual Basic mai i te ripa kaiwhakawhanake (Kaiwhakawhanake — Kaiwhakatika Ataata Kaupapa) pehia ranei te pokatata papapātuhi Alt + F11, kōkuhu kōwae kau hou mā te tahua Kōkuhu – Kōwae ka kape i te tuhinga o taua tonotono ki reira, ka mahia nga mahi katoa:
Sub SetChartColorsFromDataCells() If TypeName(Selection) <> "ChartArea" Na ko MsgBox "Cначала выделите диаграмму!" Puta i te Whakamutunga Raro Ki te Tautuhi c = ActiveChart Mo te j = 1 Ki te c.SeriesCollection.Tatau f = c.SeriesCollection(j).Tatai m = Ritua(f, ","") Tautuhi r = Awhe(m(2)) Mo te i = 1 Ki r.Cells.Tatau c.RaarangiKohinga(j).Ira(i).Whakaahua.Whakakii.Taumua.RGB = _ r.Cells(i).roto.Tae Panuku i Panuku j Whakamutunga Sub
Ka taea e koe te kati Visual Basic ka hoki ki Excel. He tino ngawari te whakamahi i te tonotono hanga. Tīpakohia te tūtohi (rohe tūtohi, kaua ko te horahanga mahere, mātiti, tīwae rānei!):
ka whakahaere i to tatou tonotono me te paatene tonotono ripa kaiwhakawhanake (Kaiwhakawhanake — Tonotono) me te pokatata papapātuhi ranei Alt + F8. I te matapihi ano, mena he maha te whakamahi, ka taea e koe te tautapa he pokatata papapātuhi ki te tonotono ma te whakamahi i te paatene tawhā (Kōwhiringa).
PS
Ko te rere anake i roto i te hinu ko te kore e taea te whakamahi i tetahi mahi rite mo nga keehi ka tohua te tae ki nga ruma o nga raraunga puna ma te whakamahi i nga ture whakahōputu herenga. Kia aroha mai, karekau he taputapu whakauru a Visual Basic hei panui i enei tae. Ko te tikanga, etahi "tootoo", engari kaore e mahi mo nga keehi katoa kaore i nga waahanga katoa.
- He aha nga tonotono, me pehea te whakamahi, kei hea te whakauru waehere tonotono ki Visual Basic
- Whakahōputu Herenga ki Excel 2007-2013
- He aha nga mea hou i roto i nga Tutohi i Excel 2013