Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.04.2018, 07:12   #1
MadHead54
Новичок
Джуниор
 
Регистрация: 17.04.2018
Сообщений: 2
По умолчанию Зависимость размера шрифта от переменной

Здравствуйте!
Помогите пожалуйста, а то никак не могу написать правильно

Есть два столбца, в первом надо менять размер шрифта в зависимости от значений во втором и переходить на строчку ниже, но вот все мои попытки подстановки в поле адреса переменных не увенчались успехом ((

i - строка

Код:
Sub Marcos()

i = 2
Do
i = i + 1
[R2C4].Font.Size = IIf([R2C6].Value = 3, 12, 20)
Loop Until i = 6

End Sub
MadHead54 вне форума Ответить с цитированием
Старый 17.04.2018, 07:35   #2
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

возможно так
Код:
Sub Marcos()
Dim i As Long
  For i = 3 To 6
    Cells(i, 4).Font.Size = IIf(Cells(i, 6).Value = 3, 12, 20)
  Next
End Sub
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 17.04.2018, 07:42   #3
MadHead54
Новичок
Джуниор
 
Регистрация: 17.04.2018
Сообщений: 2
По умолчанию

Работает, большое спасибо!)
так и думал что через Cells, но только утром начал изучать VBA, не мог додумать как его применить правильно)
MadHead54 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[RichEdit] изменение размера шрифта unbanned Общие вопросы Delphi 11 04.07.2013 02:59
TWebbrowser изменение размера шрифта teandr Общие вопросы Delphi 2 08.06.2010 08:57
Зависимость размера рисунка от размера формы Hippie Мультимедиа в Delphi 3 18.05.2010 10:46
Изменение размера шрифта на шаг Diego__ Microsoft Office Word 8 16.12.2009 18:02
Изменение размера шрифта Nando Microsoft Office Excel 4 07.03.2009 16:45