Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
Bags500
0 / 0 / 0
Регистрация: 10.11.2011
Сообщений: 13
#1

Добавление столбцов с формулой

09.12.2011, 15:53. Просмотров 1156. Ответов 3
Метки нет (Все метки)

Добрый день.
Немогли вы мне помочь со следующим . Необходимо добавить 2 новых столбца в которых вставляется формула. Мой код, который записан при помоши "записи макроса"
Но он очень долго работает . Есть код который определяет последнию заполненую строку. Можно какнибуть сделать, чтобы он побысрей работал или хотябы привязать 1 код с другим.

Visual Basic
1
2
3
4
5
With Лист1.Cells
    НизЛист1 = .Find(What:="*", LookIn:=xlValues, LookAt:=xlWhole, _
                SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
                MatchCase:=False, SearchFormat:=False).Row
End With
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Columns("Q:Q").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("Q2").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(C[-16],RC[-16])"
    Selection.AutoFill Destination:=Range("Q2:Q9441")
    Range("Q2:Q9441").Select
    
    Range("R2").Select
    ActiveCell.FormulaR1C1 = "=NETWORKDAYS(RC[14],TODAY())"
   
    Selection.AutoFill Destination:=Range("R2:R9441")
    Range("R2:R9441").Select
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2011, 15:53
Ответы с готовыми решениями:

Добавление столбцов
Доброго времени суток! Прошу помочь разобраться, что не так в коде. В...

Добавление столбцов в различные места таблицы
Добрый вечер Существует таблица(столбцы От B до G). В ней несколько груп,...

Определение координат центров ячеек из столбцов, текст которых - вписан в заголовки столбцов
Добрый вечер, специалисты по эксель. Помогите решить вопрос. На листе...

Макрос с формулой
Доброй ночи. Нужно написать макрос, который будет вычислять значение ячейки по...

Найти ячейки с формулой и закрасить
Доброго времени суток, помогите с написанием макроса по поиску ячеек в столбце...

3
toiai
3090 / 885 / 191
Регистрация: 29.05.2010
Сообщений: 1,883
09.12.2011, 20:05 #2
Как предложение по ускорению данного кода.
Visual Basic
1
2
3
4
5
6
7
8
9
Sub M1()
    Columns(17).Insert
    Columns(17).Insert
    rRow = ActiveSheet.UsedRange.Rows.Count
    [Q2].FormulaR1C1 = "=COUNTIF(C[-16],RC[-16])"
    [R2].FormulaR1C1 = "=NETWORKDAYS(RC[14],TODAY())"
    [Q2:R2].Copy
    Range("Q3:R" & rRow).PasteSpecial Paste:=xlPasteFormulas
End Sub
1
kuklp
1701 / 188 / 19
Регистрация: 20.11.2011
Сообщений: 281
10.12.2011, 14:49 #3
Visual Basic
1
2
3
4
5
6
7
Sub M1()
Dim rRow&
    [Q:R].Insert
    rRow = Лист1.Cells.Find("*", , xlValues, 1, 1, 2).Row
    Range("Q2:Q" & rRow).Formula = "=COUNTIF(C[-16],RC[-16])"
    Range("R2:R" & rRow).Formula = "=NETWORKDAYS(RC[14],TODAY())"
End Sub
1
Bags500
0 / 0 / 0
Регистрация: 10.11.2011
Сообщений: 13
10.12.2011, 18:26  [ТС] #4
Цитата Сообщение от toiai Посмотреть сообщение
Как предложение по ускорению данного кода.
Ну значительно быстрей. Спс большое оба кода работают быстро.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2011, 18:26

Как ячейки с формулой взять результат?
Здравствуйте, помогите, пожалуйста. Есть ячейка, где по формуле считается...

Вычислить произведение чисел, заданных формулой
Нужно вычислить произведение чисел, заданных формулой (i+1/i+2) от i=2 до N,...

Подпрограммы: найти произведение, заданное формулой
Уважаемые форумчане, наверно я вас заколебал уже с этими задачами по Visual...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru