Formulation ntawm qhov teeb meem
Kuv xav kom cov kab ntawm cov histogram (los yog cov hlais ntawm daim ntawv ncuav qab zib, thiab lwm yam) kom tau txais cov xim uas tau siv los sau cov hlwb sib txuas nrog cov ntaub ntawv hauv qab no:
Cia siab tias yuav xav tsis thoob thiab npau taws ntawm ib tus neeg sib tw, nws yuav tsum tau muab sau tseg tias, ntawm chav kawm, xim ntawm cov ntawv sau hauv daim duab kuj tseem tuaj yeem hloov pauv manually (txoj cai-nias ntawm kab ntawv - Point/series format (Format data point/series) etc. - tsis muaj leej twg cam. Tab sis hauv kev xyaum, muaj ntau qhov xwm txheej thaum nws yooj yim dua thiab yooj yim dua los ua qhov no ncaj qha rau hauv cov hlwb nrog cov ntaub ntawv, thiab tom qab ntawd daim ntawv yuav tsum tau rov ua dua tshiab. Sim, piv txwv li, los teeb tsa qhov sau los ntawm cheeb tsam rau cov kab hauv kab ntawv no:
Kuv xav tias koj tau lub tswv yim, txoj cai?
tshuaj
Tsis muaj dab tsi tab sis macro tuaj yeem ua qhov no. Yog li ntawd, peb qhib Visual Basic editor los ntawm tab tsim tawm (Tus tsim tawm - Visual Basic Editor) los yog nias lub keyboard shortcut Alt + F11, ntxig ib qho tshiab khoob module los ntawm cov ntawv qhia zaub mov Ntxig - Module thiab luam cov ntawv ntawm xws li macro muaj, uas yuav ua txhua yam haujlwm:
Sub SetChartColorsFromDataCells() Yog TypeName(Selection) <> "ChartArea" Ces MsgBox "Сначала выделите диаграмму!" Exit Sub End Yog Set c = ActiveChart For j = 1 To c.SeriesCollection.Count f = c.SeriesCollection(j).Formula m = Split(f, ",") Set r = Range(m(2)) Rau i = 1 To r.Cells.Count c.SeriesCollection(j).Points(i).Format.Fill.ForeColor.RGB = _ r.Cells(i).Interior.Color Next i Next j End Sub
Tam sim no koj tuaj yeem kaw Visual Basic thiab rov qab mus rau Excel. Siv cov tsim macro yog yooj yim heev. Xaiv daim ntawv qhia (thaj chaw, tsis yog thaj chaw, kab sib chaws lossis kab!):
thiab khiav peb macro nrog lub pob Ntsig tab tsim tawm (Tus tsim tawm - Macros) los yog nrog lub keyboard shortcut Alt + F8. Hauv tib lub qhov rais, nyob rau hauv cov ntaub ntawv ntawm kev siv nquag, koj tuaj yeem muab cov keyboard shortcut rau macro siv lub pob tsis (Kev xaiv).
PS
Qhov tsuas yog ya nyob rau hauv cov tshuaj pleev ib ce yog qhov ua tsis tau zoo ntawm kev siv cov kev ua haujlwm zoo sib xws rau cov xwm txheej uas cov xim raug xa mus rau cov hlwb ntawm cov ntaub ntawv siv cov kev cai formatting. Hmoov tsis zoo, Visual Basic tsis muaj lub cuab yeej tsim los nyeem cov xim no. Muaj, tau kawg, qee qhov "crutches", tab sis lawv tsis ua haujlwm rau txhua kis thiab tsis nyob hauv txhua qhov version.
- Dab tsi yog macro, siv lawv li cas, qhov twg los ntxig macro code hauv Visual Basic
- Conditional Formatting hauv Excel 2007-2013
- Dab tsi tshiab hauv kab kos hauv Excel 2013