|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
15.10.2010, 19:30 | #11 | |
Пользователь
Регистрация: 15.10.2010
Сообщений: 17
|
Теперь появился другой вопрос. Мне нужно ввести правило
Цитата:
|
|
15.10.2010, 19:34 | #12 |
Участник клуба
Регистрация: 28.06.2009
Сообщений: 1,950
|
Код:
|
15.10.2010, 19:34 | #13 |
Участник клуба
Регистрация: 28.06.2009
Сообщений: 1,950
|
Добавилось повторное сообщение...
Последний раз редактировалось motorway; 15.10.2010 в 19:37. |
15.10.2010, 19:58 | #14 |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
можно и без цикла
Sub Создание_листа() Sheets.Add.Name = "Test" With Sheets("Test") .Range("B1") = "Всего шт." .Range("B2").Formula = "=" & Date - 1 & "!D2 + I2" .Range("B2:B20") = .Range("B2").Formula End With End Sub
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
|
15.10.2010, 20:04 | #15 |
Пользователь
Регистрация: 15.10.2010
Сообщений: 17
|
Спасибо! А то я только пробую разобраться, тоже думал сделать, используя range
|
15.10.2010, 20:08 | #16 | ||
Пользователь
Регистрация: 15.10.2010
Сообщений: 17
|
Есть только один вопрос. Такой макрос будет работать корректно:
Цитата:
Цитата:
Последний раз редактировалось 4istii_listo4ek; 15.10.2010 в 20:14. |
||
15.10.2010, 20:14 | #17 | |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
Цитата:
Sub Создание_листа2() Dim sh$ sh = Date Sheets.Add.Name = sh With Sheets(sh) .Range("B1") = "Всего шт." .Range("B2").Formula = "=" & Date - 1 & "!D2 + I2" .Range("B2:B20") = .Range("B2").Formula End With End Sub лучше так
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
|
|
15.10.2010, 20:18 | #18 |
Пользователь
Регистрация: 15.10.2010
Сообщений: 17
|
Вот, я тоже так решил сделать
|
15.10.2010, 20:34 | #19 |
Пользователь
Регистрация: 15.10.2010
Сообщений: 17
|
Есть ещё вопрос: как сделать так, чтобы после занесения данных в таблицу листа макросом, столбцы "подстраивались" под содержимое таблицы? А получилось у меня примерно вот такое: http://codepad.org/dI6Pj1lU
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Автоматическое изменение значения в ячейке | TStalin | Microsoft Office Excel | 7 | 07.09.2010 18:19 |
присваивание полю значения из запроса | Desha | Microsoft Office Access | 0 | 12.06.2010 18:34 |
Recordset - присваивание значения поля | Desha | Microsoft Office Access | 6 | 11.06.2010 20:38 |
Присваивание ячейке значения в зависимости от условия | DimonPS | Microsoft Office Excel | 3 | 12.11.2009 14:01 |
Присваивание тексту Memo значения из TStringList | Alex Cones | Общие вопросы Delphi | 10 | 14.08.2009 21:07 |