අන්තර්ගතය
ගැටලුව සකස් කිරීම
මූලාශ්‍ර දත්ත සමඟ අනුරූප සෛල පිරවීමට භාවිතා කරන ලද වර්ණය ස්වයංක්‍රීයව තිබීමට හිස්ටෝග්‍රෑම් (හෝ පයි ප්‍රස්ථාරයේ පෙති ආදිය) තීරුවලට මම කැමතියි:
එක් එක් සහෝදරවරුන්ගේ විස්මිත හා කෝපයට පත් කෑගැසීම් අපේක්ෂා කරමින්, ඇත්ත වශයෙන්ම, රූප සටහනේ පිරවුමේ වර්ණය අතින් වෙනස් කළ හැකි බව සටහන් කළ යුතුය (තීරුව මත දකුණු-ක්ලික් කරන්න - ලක්ෂ්‍ය/ශ්‍රේණි ආකෘතිය (ආකෘතිය දත්ත ලක්ෂ්‍යය/ශ්‍රේණි) ආදිය - කිසිවෙකු තර්ක නොකරයි. නමුත් ප්‍රායෝගිකව, දත්ත සමඟ සෛල තුළ සෘජුවම මෙය කිරීමට පහසු සහ පහසු වන අවස්ථා රාශියක් ඇත, පසුව ප්‍රස්ථාරය ස්වයංක්‍රීයව නැවත පින්තාරු කළ යුතුය. උදාහරණයක් ලෙස, මෙම ප්‍රස්ථාරයේ තීරු සඳහා කලාපය අනුව පිරවීම සැකසීමට උත්සාහ කරන්න:
මම හිතන්නේ ඔබට අදහසක් ඇති නේද?
විසඳුමක්
මැක්රෝ එකකට හැර අන් කිසිවකට මෙය කළ නොහැක. ඒ නිසා අපි විවෘත කරනවා දෘශ්‍ය මූලික සංස්කාරකය ටැබ් එකෙන් සංවර්ධක (සංවර්ධක - දෘශ්‍ය මූලික සංස්කාරක) හෝ යතුරුපුවරු කෙටිමඟ ඔබන්න Alt + F11, මෙනුව හරහා නව හිස් මොඩියුලයක් ඇතුල් කරන්න ඇතුල් කරන්න - මොඩියුලය සහ එවැනි මැක්රෝ එකක පෙළ එහි පිටපත් කරන්න, එය සියලු කාර්යයන් ඉටු කරයි:
Sub SetChartColorsFromDataCells() නම් TypeName(Selection) <> "ChartArea" ඉන්පසු MsgBox "Сначала выделите диаграмму!" උප අන්තයෙන් පිටවන්න c = ActiveChart for j = 1 සිට c.SeriesCollection.Count f = c.SeriesCollection(j).Formula m = Split(f, ",") Set r = Range(m(2)) for i = 1 r.Cells වෙත.C.SeriesCollection(j).Points(i).Format.Fill.ForeColor.RGB = _ r.Cells(i).Interior.Color Next i Next j End Sub
ඔබට දැන් Visual Basic වසා දමා Excel වෙත ආපසු යා හැක. සාදන ලද මැක්රෝ භාවිතා කිරීම ඉතා සරල ය. ප්‍රස්ථාරය තෝරන්න (ප්‍රස්ථාර ප්‍රදේශය, බිම් ප්‍රදේශය, ජාලකය හෝ තීරු නොවේ!):
සහ බොත්තම සමඟ අපගේ මැක්රෝ ධාවනය කරන්න මැක්රෝස් ටැබ් සංවර්ධක (සංවර්ධක - මැක්රෝස්) හෝ යතුරුපුවරු කෙටිමං සමඟ Alt + F8. එකම කවුළුව තුළ, නිතර භාවිතා කරන අවස්ථාවක, බොත්තම භාවිතයෙන් මැක්රෝ වෙත යතුරුපුවරු කෙටිමඟක් පැවරිය හැකිය පරාමිතීන් (විකල්ප).
PS
ආලේපනයේ ඇති එකම මැස්ස වන්නේ කොන්දේසි සහිත හැඩතල ගැන්වීමේ නීති භාවිතා කරමින් මූලාශ්‍ර දත්තවල සෛල වෙත වර්ණය පවරා ඇති අවස්ථා සඳහා සමාන ශ්‍රිතයක් භාවිතා කිරීමේ නොහැකියාවයි. අවාසනාවකට, විෂුවල් බේසික් සතුව මෙම වර්ණ කියවීම සඳහා සවි කළ මෙවලමක් නොමැත. ඇත්ත වශයෙන්ම, ඇතැම් "කිහිලිකරු" ඇත, නමුත් ඒවා සියලු අවස්ථා සඳහා ක්‍රියා නොකරන අතර සියලුම අනුවාද වල නොවේ.
- මැක්රෝස් යනු මොනවාද, ඒවා භාවිතා කරන්නේ කෙසේද, විෂුවල් බේසික් තුළ මැක්රෝ කේතය ඇතුළත් කළ යුතු ස්ථානය
- Excel 2007-2013 හි කොන්දේසිගත හැඩතල ගැන්වීම
- Excel 2013 හි ප්‍රස්ථාරවල අලුත් දේ