Наскоро бях на мисия от тестове, в които съм била длъжна да: "автоматизирано изчисляване Excel, изграждане на маса от стойности на функции и графики. Строителство започва с натискането на един бутон. " Беше даден функция у = 4 * (I + 2) ^ (2/3), началните и крайните координати, и стъпка на изчисление. Как би трябвало да изглежда, аз въведох доста бързо.
Също така, аз са узрели бърз алгоритъм за изпълнение на задачата.
Но как да използвате VBA да се инициализира и добавяне на диаграма, аз съм в момента не е известна.
Следователно, за да се разбере как да вмъкнете диаграма в работен лист с макро, взех и записани макрос. Това означава, че в "View" в раздела, намерете "Macro" и изберете "Запис Макро". След това се прибавя на диаграмата на лист също подбрани данни варират за графиката, като цяло, се получава следния код:
Тук виждаме, че линията «ActiveSheet.Shapes.AddChart.Select» пряко добавя графика, на следващия ред «ActiveChart.ChartType = xlXYScatterSmoothNoMarkers» определя неговия тип. «ActiveChart.SeriesCollection.NewSeries» - добавя нова гама на данни ( "Серия").
String «ActiveChart.SeriesCollection (1) .name =" = "" ш "" "» посочва името на графиката в схемата, и линията «ActiveChart.SeriesCollection (1) .XValues =" = Sheet1! $ A $ 1 :! $ A $ 8 " , ActiveChart.SeriesCollection (1) .Values = "= Sheet1 $ B $ 1 :! $ B $ 8 '' - тя варира« х-стойности "и" у ".
На листа, имаме нищо незабележими диаграма.
Сега знае какво линия на това, което е лесно да редактирате и да ги персонализирате, за да отговаря на нуждите ви.
Но първо трябва да създадете шаблон за нашата макро, а именно върху бутона за добавяне (на "Developer") и пишат първоначалните данни за изчисления.
Добре. На следващо място, наемат макро код.
Х1 = Клетките (1, 2) .Value
Х2 = Клетките (2, 2) .Value
Shag = Клетките (3, 2) .Value
За I = x1 да х2 Етап рошава коса
у = 4 * (I + 2) ^ (2/3)
Клетките (J, 3) .Value = I
Клетките (й, 4) .Value = Y
ActiveChart.SeriesCollection (1) .name = "=" "Графиката на" ""
ActiveChart.SeriesCollection (1) .XValues = обхват ( "С" 1, "С" й)
ActiveChart.SeriesCollection (1) .Values = обхват ( "D" 1, "D" й)
Нека обясним някои код.
«Колони. (" C: D ") ClearContents» - прочистват кръг, преди да има нещо да пише.
«Клетки (1, 10) .Изберете» - пластир, без да може да неправилно показват графика.
Цикъл «За» извършва до «аз», няма да бъде равна на крайната стойност «x2».
След като запазите макроса, ние се връщаме към нашия предварително добавите бутон и присвояване на макро към нея (щракнете с десния бутон върху бутона, и след това зададете макро).
Остава само да натиснете един бутон и да видите резултатите.
Ние всички сме на работа, така че ние направихме всичко правилно. По този начин, ние изучава техниката на писане успешен макро си спомни как да добавите графика, да разбера как да зададете макро бутон.