Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/VBA Авт. отрисовка карты полей изм. цвета полилинии. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA Авт. отрисовка карты полей изм. цвета полилинии. (Макросы/Sub)
VBA Авт. отрисовка карты полей изм. цвета полилинии.
BGO31rus Дата: Понедельник, 04.06.2018, 19:53 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день, просьба помочь что не так? выбивает ошибку в

[vba]
Код
Sub color()
For i = 2 To 436
m = Sheets("Ротация").Cells(i, 1).Value
col = 1
y = Sheets("Карта").Cells(3, 23).Value
  For c = 3 To 15
  If Sheets("Карта").Cells(c, 25).Value = Sheets("Ротация").Cells(i, y).Value Then
  col = c
  Else
  End If
  Next c
ActiveSheet.Shapes.Range(Array(m)).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = ActiveSheet.Cells(col, 24).Interior.color
        .Transparency = 0
        .Solid
    End With

Next i
End Sub
[/vba]

ссылка удалена ссылка на файл


Сообщение отредактировал Pelena - Понедельник, 04.06.2018, 20:38
 
Ответить
СообщениеДобрый день, просьба помочь что не так? выбивает ошибку в

[vba]
Код
Sub color()
For i = 2 To 436
m = Sheets("Ротация").Cells(i, 1).Value
col = 1
y = Sheets("Карта").Cells(3, 23).Value
  For c = 3 To 15
  If Sheets("Карта").Cells(c, 25).Value = Sheets("Ротация").Cells(i, y).Value Then
  col = c
  Else
  End If
  Next c
ActiveSheet.Shapes.Range(Array(m)).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = ActiveSheet.Cells(col, 24).Interior.color
        .Transparency = 0
        .Solid
    End With

Next i
End Sub
[/vba]

ссылка удалена ссылка на файл

Автор - BGO31rus
Дата добавления - 04.06.2018 в 19:53
Pelena Дата: Понедельник, 04.06.2018, 20:41 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12756
Репутация: 2809 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
BGO31rus, внешние ссылки на файлы на форуме запрещены
Удалите скрытые листы, обрежьте карту и приложите файл сюда.

Чтобы не выбивало ошибку можно добавить ON ERROR RESUME NEXT в начале макроса


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеBGO31rus, внешние ссылки на файлы на форуме запрещены
Удалите скрытые листы, обрежьте карту и приложите файл сюда.

Чтобы не выбивало ошибку можно добавить ON ERROR RESUME NEXT в начале макроса

Автор - Pelena
Дата добавления - 04.06.2018 в 20:41
InExSu Дата: Вторник, 05.06.2018, 08:05 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 372
Репутация: 47 ±
Замечаний: 60% ±

Excel 2010
Привет!
помочь

Код рабочий ждёт Вас. Видео.


На сохранение второго закона термодинамики: яндекс.кошелёк 410012113235839
 
Ответить
СообщениеПривет!
помочь

Код рабочий ждёт Вас. Видео.

Автор - InExSu
Дата добавления - 05.06.2018 в 08:05
Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA Авт. отрисовка карты полей изм. цвета полилинии. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!