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

Вход

Регистрация

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

 

= Мир MS Excel/объясните макрос - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » объясните макрос (Макросы Sub)
объясните макрос
Настя Дата: Вторник, 08.10.2013, 23:22 | Сообщение № 1
Группа: Гости
[vba]
Код
Sub Макрос10()
'
' Макрос10 Макрос
'
' Сочетание клавиш: Ctrl+d
'
ActiveCell.FormulaR1C1 = "=RC[-3]+RC[-1]-RC[-2]"
Selection.AutoFill Destination:=Range("I3:I30"), Type:=xlFillDefault
Range("I3:I30").Select
ActiveWindow.SmallScroll Down:=-30
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub Макрос10()
'
' Макрос10 Макрос
'
' Сочетание клавиш: Ctrl+d
'
ActiveCell.FormulaR1C1 = "=RC[-3]+RC[-1]-RC[-2]"
Selection.AutoFill Destination:=Range("I3:I30"), Type:=xlFillDefault
Range("I3:I30").Select
ActiveWindow.SmallScroll Down:=-30
End Sub
[/vba]
Автор - Настя
Дата добавления - 08.10.2013 в 23:22
SkyPro Дата: Вторник, 08.10.2013, 23:26 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Нажмите контрл + D и проанализируйте результат.
Если хотите нормальный ответ, то задайте нормально вопрос.
Макрос элементарный, но расписывать что он делает не хочется ровно настолько, насколько вам не хочется читать правила.

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Вторник, 08.10.2013, 23:27
 
Ответить
СообщениеНажмите контрл + D и проанализируйте результат.
Если хотите нормальный ответ, то задайте нормально вопрос.
Макрос элементарный, но расписывать что он делает не хочется ровно настолько, насколько вам не хочется читать правила.
Автор - SkyPro
Дата добавления - 08.10.2013 в 23:26
turistka Дата: Вторник, 08.10.2013, 23:45 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
SkyPro, извините, что не соблюдала правила. Я сделала макрос,привязала его к объекту. Объясните, пожалуйста, что значат эти записи [vba]
Код
ActiveCell.FormulaR1C1 = "=RC[-3]+RC[-1]-RC[-2]"
Selection.AutoFill Destination:=Range("I3:I30"), Type:=xlFillDefault
Range("I3:I30").Select
ActiveWindow.SmallScroll Down:=-30
[/vba]

Nastya
 
Ответить
СообщениеSkyPro, извините, что не соблюдала правила. Я сделала макрос,привязала его к объекту. Объясните, пожалуйста, что значат эти записи [vba]
Код
ActiveCell.FormulaR1C1 = "=RC[-3]+RC[-1]-RC[-2]"
Selection.AutoFill Destination:=Range("I3:I30"), Type:=xlFillDefault
Range("I3:I30").Select
ActiveWindow.SmallScroll Down:=-30
[/vba]
Автор - turistka
Дата добавления - 08.10.2013 в 23:45
RAN Дата: Вторник, 08.10.2013, 23:50 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Макрос записан макрорекордером.
Распишите последовательность своих действий.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеМакрос записан макрорекордером.
Распишите последовательность своих действий.
Автор - RAN
Дата добавления - 08.10.2013 в 23:50
turistka Дата: Вторник, 08.10.2013, 23:52 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
RAN, почти во всем разобралась кроме "ActiveWindow.SmallScroll Down:=-30"

Nastya
 
Ответить
СообщениеRAN, почти во всем разобралась кроме "ActiveWindow.SmallScroll Down:=-30"
Автор - turistka
Дата добавления - 08.10.2013 в 23:52
_Boroda_ Дата: Вторник, 08.10.2013, 23:55 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16742
Репутация: 6534 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Судя по всему, в момент записи макроса была активна ячейка I3
ActiveCell.FormulaR1C1 = "=RC[-3]+RC[-1]-RC[-2]" - в активную на данный момент ячейку пишем формулу (для I3 такую =F3+H3-G3)
Selection.AutoFill Destination:=Range("I3:I30"), Type:=xlFillDefault - протягиваем эту формулу на диапазон I3:I30
Range("I3:I30").Select - выделяем диапазон I3:I30
ActiveWindow.SmallScroll Down:=-30 - прокручиваем страницу вверх на 30 ячеек (если это возможно)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеСудя по всему, в момент записи макроса была активна ячейка I3
ActiveCell.FormulaR1C1 = "=RC[-3]+RC[-1]-RC[-2]" - в активную на данный момент ячейку пишем формулу (для I3 такую =F3+H3-G3)
Selection.AutoFill Destination:=Range("I3:I30"), Type:=xlFillDefault - протягиваем эту формулу на диапазон I3:I30
Range("I3:I30").Select - выделяем диапазон I3:I30
ActiveWindow.SmallScroll Down:=-30 - прокручиваем страницу вверх на 30 ячеек (если это возможно)
Автор - _Boroda_
Дата добавления - 08.10.2013 в 23:55
turistka Дата: Вторник, 08.10.2013, 23:59 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
_Boroda_, спасибо!

Nastya
 
Ответить
Сообщение_Boroda_, спасибо!
Автор - turistka
Дата добавления - 08.10.2013 в 23:59
RAN Дата: Среда, 09.10.2013, 00:07 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата (_Boroda_, 08.10.2013 в 23:55, в сообщении № 6)
если это возможно

Если прокручиваем, значит возможно. :)

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата (_Boroda_, 08.10.2013 в 23:55, в сообщении № 6)
если это возможно

Если прокручиваем, значит возможно. :)
Автор - RAN
Дата добавления - 09.10.2013 в 00:07
Неопытный Дата: Среда, 09.10.2013, 02:56 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Можно еще немного ликбеза. Не пойму какой здесь задан диапазон:
[vba]
Код
For Each cc In Sheets(1).[E10].CurrentRegion.Columns(7).Cells
[/vba]
 
Ответить
СообщениеМожно еще немного ликбеза. Не пойму какой здесь задан диапазон:
[vba]
Код
For Each cc In Sheets(1).[E10].CurrentRegion.Columns(7).Cells
[/vba]
Автор - Неопытный
Дата добавления - 09.10.2013 в 02:56
KuklP Дата: Среда, 09.10.2013, 03:05 | Сообщение № 10
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
А нажать F1 на слове CurrentRegion не пробовали?

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеА нажать F1 на слове CurrentRegion не пробовали?
Автор - KuklP
Дата добавления - 09.10.2013 в 03:05
Неопытный Дата: Среда, 09.10.2013, 16:32 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Почему-то несоответствие столбцов в записи. E10- это столбец 5, или может быть это опечатка
 
Ответить
СообщениеПочему-то несоответствие столбцов в записи. E10- это столбец 5, или может быть это опечатка
Автор - Неопытный
Дата добавления - 09.10.2013 в 16:32
KuklP Дата: Среда, 09.10.2013, 16:50 | Сообщение № 12
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Справку Вы не читали. :( deal
Поставьте курсор в E10, далее F5-Выделить-текущую область. А теперь посчитайте в этом выделении Columns(7).

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Среда, 09.10.2013, 16:52
 
Ответить
СообщениеСправку Вы не читали. :( deal
Поставьте курсор в E10, далее F5-Выделить-текущую область. А теперь посчитайте в этом выделении Columns(7).
Автор - KuklP
Дата добавления - 09.10.2013 в 16:50
Мир MS Excel » Вопросы и решения » Вопросы по VBA » объясните макрос (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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