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

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

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

Кому не трудно проверьте пожалуйста!
 
Перейти    
ошибка при загрузке TXT файла с названием из кирилицы
 
#
11.09.2013 01:31:14
Артур Вильданов Вы гений спасибо вам большое!!!
Выручили меня спасибо еще раз огромное.
Изменено: alexman86 - 11.09.2013 01:31:35
 
Перейти    
ошибка при загрузке TXT файла с названием из кирилицы
 
#
06.09.2013 14:38:58
вот что должно в конце концов получиться
исходник тоже бросаю
 
Перейти    
ошибка при загрузке TXT файла с названием из кирилицы
 
#
06.09.2013 13:37:21
здорово а как это интегрировать в мою систему?
 
Перейти    
ошибка при загрузке TXT файла с названием из кирилицы
 
#
05.09.2013 12:48:09
если я меняю название файла _t_металла_8_участок__01_08_2013_0000.txt  на _t_мет_8_уч__01_08_2013_0000.txt то строится график.

Цитата

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
ActiveChart.SetSourceData Source:=Range(OldName & "!$A:$B"  ;)  
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
 
Перейти    
ошибка при загрузке TXT файла с названием из кирилицы
 
#
04.09.2013 11:29:00
Господа!
Я в VBA не понимаю, так как этот язык я не учил.
Я просто прошу помощи.
Вся программа написана с использованием макроса в Excel поэтому может показаться не грамотно написан код.
Кто подскажет, какую функцию использовать или сможет вставить ее в текст программы?
прикрепляю текстовый файл, из которого будет сделана выборка и построен график, а текст макроса в самом вверху.
 
Перейти    
ошибка при загрузке TXT файла с названием из кирилицы
 
#
04.09.2013 07:58:23
я понял в чем дело оказывается слишком длинный путь и имя файла но все равно даже если я его положил в С директорию то один фиг длина больше чем положено. а имя файла _t_металла_8_участок__01_08_2013_0000.txt кто подскажет что можно сделать с этим
 
Перейти    
ошибка при загрузке 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
 
Перейти    
при записи макроса график не редактирует
 
#
22.08.2013 07:53:04
макрос не записывает действия настройки графика
 
Перейти    
при записи макроса график не редактирует
 
#
20.08.2013 16:30:29
очень нужен совет профессионала
 
Перейти    
при записи макроса график не редактирует
 
#
19.08.2013 18:37:31
когда записываю макрос для формирования графика из данных то все отображается как положено но когда макрос пытаюсь выполнить то график не строит по времени
выкладываю видео. помогите пожалуйста добрые люди.
http://www.youtube.com/watch?v=_nA_FC5kPEo&feature=youtu.be
 
Перейти    
Страницы: 1
Наверх