Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » alexman86
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Помогите проверить точно ли я сделал табулирование функции., Выполнить табулирование функции Y(x) с использованием стандартной функции ЕСЛИ() в Excel
 
#
08.12.2013 20:25:23
Табулирование заданной функции.
  1. Выполнить табулирование функции Y(x) с использованием стандартной функции ЕСЛИ() в Excel
  2. Построить график функции Y(x) в заданном диапазоне изменения аргумента с заданным шагом изменения.
прикреплена картинка того что нужно сделать(23й) это задание.

В екселевском файле я создал табулированную функцию но мне кажется я не верно задал формулу и соответственно построенный график так же не верен

Кому не трудно проверьте пожалуйста!
 
Перейти    
ошибка при загрузке TXT файла с названием из кирилицы
 
#
03.09.2013 17:11:52
помогите пожалуйста!
при запуске макроса выбираю текстовый документ(название из кирилицы _t_металл_03_09_2013_) и тут же вылетает ошибка которая указывает на строку выделенной красным цветом.
Получается то что не может работать с текстовым документом в названии которого присутсвует кирилица. Помогите что бы не было ошибки при содержании кирилицы.
этот файл был создан спомощью макроса и тут есть лишние строки но мне сейчас выжно разобраться с названием файла.
Код
Sub График()
Application.DisplayAlerts = False
fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt"  ;)  
If fileToOpen <> False Then Workbooks.Open fileToOpen

OldName = Split(ActiveWorkbook.Name, "."  ;)  (0)

 Columns("A:B"  ;)  .Select
 Columns("A:B"  ;)  .EntireColumn.AutoFit
 ActiveSheet.Shapes.AddChart.Select
 ActiveChart.ChartType = xlLine
 [COLOR=#FF0000]ActiveChart.SetSourceData Source:=Range(OldName & "!$A:$B"  ;)  [/COLOR]
 ActiveChart.Legend.Select
 Selection.Position = xlTop
 ActiveChart.Axes(xlValue).Select
 ActiveChart.Axes(xlValue).MinimumScale = 400
 ActiveChart.Axes(xlValue).MaximumScale = 1000
 ActiveChart.Axes(xlValue).MajorUnit = 50
 Sheets.Add After:=Sheets(Sheets.Count)
 Sheets("Лист1"  ;)  .Name = "График"
 Sheets(OldName).Select
 ActiveChart.ChartArea.Select
 ActiveChart.Location Where:=xlLocationAsObject, Name:="График"
 ActiveSheet.ChartObjects("Диаграмма 1"  ;)  .Activate
 ActiveSheet.Shapes("Диаграмма 1"  ;)  .ScaleWidth 1.9458333333, msoFalse, _
 msoScaleFromBottomRight
 ActiveSheet.Shapes("Диаграмма 1"  ;)  .ScaleHeight 1.9913192622, msoFalse, _
 msoScaleFromBottomRight
 ActiveSheet.ChartObjects("Диаграмма 1"  ;)  .Activate
 ActiveSheet.ChartObjects("Диаграмма 1"  ;)  .Activate
 ActiveSheet.Shapes("Диаграмма 1"  ;)  .IncrementLeft -66.75
 ActiveSheet.Shapes("Диаграмма 1"  ;)  .IncrementTop -36
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & OldName & ".xlsx", FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
End Sub


Используйте форматирование сообщений с помощью кнопочек сверху (оформление тэгами)[МОДЕРАТОР]
Изменено: alexman86 - 03.09.2013 21:10:37
 
Перейти    
при записи макроса график не редактирует
 
#
19.08.2013 18:37:31
когда записываю макрос для формирования графика из данных то все отображается как положено но когда макрос пытаюсь выполнить то график не строит по времени
выкладываю видео. помогите пожалуйста добрые люди.
http://www.youtube.com/watch?v=_nA_FC5kPEo&feature=youtu.be
 
Перейти    
Страницы: 1
Наверх