Өгөгдөл бүхий нүднүүдийн диаграмын өнгө

Асуудлын томъёолол

Би гистограм дээрх багана (эсвэл дугуй диаграм дээрх зүсмэлүүд гэх мэт) автоматаар харгалзах нүднүүдийг эх өгөгдлөөр дүүргэхэд ашигласан өнгөтэй байхыг хүсч байна:

Хувь нөхдүүдийн гайхширсан, ууртай хашгирахыг урьдчилан таамаглахдаа мэдээжийн хэрэг диаграмм дахь бөглөх өнгийг гараар өөрчлөх боломжтой гэдгийг тэмдэглэх нь зүйтэй (баган дээр хулганы баруун товчийг дарна уу -). Цэг/цуврал формат (Өгөгдлийн цэг/цуврал формат) гэх мэт – хэн ч маргахгүй. Гэхдээ практик дээр үүнийг өгөгдөл бүхий нүднүүдэд шууд хийх нь илүү хялбар бөгөөд илүү тохиромжтой нөхцөл байдал олон байдаг бөгөөд дараа нь диаграммыг автоматаар дахин будах шаардлагатай байдаг. Жишээлбэл, энэ диаграмын багануудыг бүсээр дүүргэхийг тохируулахыг оролдоно уу:

Та санаагаа авсан гэж бодож байна, тийм үү?

шийдэл

Үүнийг макроноос өөр юу ч хийж чадахгүй. Тиймээс бид нээж байна Visual Basic редактор табаас Developer (Хөгжүүлэгч — Visual Basic редактор) эсвэл гарын товчлолыг дарна уу Alt + F11, цэсээр дамжуулан шинэ хоосон модулийг оруулна уу Оруулах - Модуль бүх ажлыг хийх ийм макро текстийг тэнд хуулж аваарай.

Sub SetChartColorsFromDataCells() Хэрэв TypeName(Selection) <> "ChartArea" Дараа нь MsgBox "Сначала выделит диаграмму!" Гарах дэд төгсгөл Хэрэв Set c = ActiveChart For j = 1 to c.SeriesCollection.Count f = c.SeriesCollection(j).Formula m = Split(f, ",") Set r = Range(m(2)) For 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

Та одоо Visual Basic програмыг хааж Excel рүү буцах боломжтой. Үүсгэсэн макро ашиглах нь маш энгийн. Диаграмыг сонгоно уу (диаграмын хэсэг, график талбай, сүлжээ эсвэл багана биш!):

гэсэн товчоор манай макро ажиллуулна Макроны таб Developer (Хөгжүүлэгч — Макро) эсвэл гарын товчлолоор Alt + F8. Үүнтэй ижил цонхонд, байнга ашиглах тохиолдолд та товчлуурыг ашиглан макро руу гарын товчлолыг зааж өгч болно. Үзүүлэлтүүд (Сонголтууд).

PS

Тослог дахь цорын ганц ялаа бол нөхцөлт форматлах дүрмийг ашиглан эх өгөгдлийн нүднүүдэд өнгийг хуваарилсан тохиолдолд ижил төстэй функцийг ашиглах боломжгүй юм. Харамсалтай нь Visual Basic-д эдгээр өнгийг унших хэрэгсэл байхгүй. Мэдээжийн хэрэг, тодорхой "таяг" байдаг, гэхдээ тэдгээр нь бүх тохиолдолд ажиллахгүй бөгөөд бүх хувилбарт тохирохгүй.

  • Макро гэж юу вэ, тэдгээрийг хэрхэн ашиглах, Visual Basic програмын макро кодыг хаана оруулах вэ
  • Excel 2007-2013 хувилбарт нөхцөлт форматлах
  • Excel 2013 дээрх Диаграммд шинэ зүйл юу байна

хариу үлдээх