|
|
| Правила Форума редакция от 22.06.2020 |
|
|||||||
|
|
Окажите посильную поддержку, мы очень надеемся на вас. Реквизиты для переводов ниже.   WMZ: Z021474945171 WME: E159284508897 WMUSDT: T206853643180 4100117770549562 Спасибо за поддержку!
|
|
 |
|
|
Опции темы | Опции просмотра |
Language
|
17.01.2007, 09:21
|
#1
|
|
Неактивный пользователь
Пол: 
Регистрация: 02.01.2007
Сообщений: 1
Репутация: 0
|
Помогите написать макрос в Excele
Кто нибудь помогите написать макрос. Пример задания и выпонения на картинке.
|
|
|
|
|
| Реклама: | DS-2DE2A404IW-DE3-C0-S6-C | honor magicbook art 14 mooreb-5611t | апи Tilda | fau-ahu.pro.t220.w.3772101 | Магазин бытовой техники: ключ разводной stanley 0-70-453 - переходи на сайт ТАЙМТВ! |
|
21.01.2007, 09:34
|
#2
|
|
Новичок
Пол:
Регистрация: 08.06.2006
Сообщений: 11
Репутация: 82
|
Re: Помогите написать макрос в Excele
Sub Макрос1()
'Начальные дааные Range("A2").Select q1 = 23 ActiveCell.FormulaR1C1 = q1 Range("A3").Select q2 = -7 ActiveCell.FormulaR1C1 = q2 Range("D2").Select q3 = 5 ActiveCell.FormulaR1C1 = q3 'Собственно макрос 'Получили округлённое в низ до 10 значение 'q4 = RoundDown(q0, -1) Range("B2").Select ActiveCell.FormulaR1C1 = "=ROUNDDOWN(RC[-1],-1)" q4 = ActiveCell.Text i = 1 ' Переменная по которой будем определять сколько шагов сделали While q2 < (q4 - i * q3) Range("B" + CStr(i + 2)).Select ActiveCell.FormulaR1C1 = (q4 - i * q3) i = i + 1 Wend 'Подставим в конец последнее значение Range("B" + CStr(i + 2)).Select ActiveCell.FormulaR1C1 = q2 End Sub |
|
|
|
| Эти 2 пользователя(ей) сказали cпасибо за это полезное сообщение: |
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Помогите написать bat-ник-пинговщик | Coldblooded | Моделирование программ | 4 | 15.07.2011 20:50 |
| помогите написать программу | Verysilent | Visual C++ / С/C++ | 3 | 24.11.2009 16:47 |
| Помогите программку написать... | farcry | Программирование | 3 | 03.01.2008 18:21 |
|
|
Линейный вид
