Вставить вчерашнее число

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Вставить вчерашнее число (Макросы/Sub)

mus013

Дата: Четверг, 18.09.2014, 17:09 | Сообщение № 1

Группа: Гости

Здравствуйте. Сломала голову вместо "9" надо вставить ДАТА(СЕГОДНЯ()-1), проще- вчерашнее число

[vba]

Код

Sheets("заг суш").Select
Range("I3").Select
ActiveCell.FormulaR1C1 = "9"
Range("H464").Select
Selection.Copy
Range("H465").Select

[/vba]
вставила ссылку на ячейку, где считается это число, но что-то не так…

[moder]Что за безобразие? Кто так тему называет?
Альбина, это Вы? Или кто-то под Вас шифруется?
Поскольку незарегистрированный ТС изменить свой вопрос не может, поменял название сам.

Ответить

_Boroda_

Дата: Четверг, 18.09.2014, 17:27 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16957

Репутация: 6631 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Sub tt()
Range("A1") = Date - 1
End Sub

[/vba]
Если нет, то кладите пример и готовьтесь - буду ругаться.

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

gling

Дата: Пятница, 19.09.2014, 00:22 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2663

Репутация: 747 ±

Замечаний: 0% ±

2010

Возможно так нужно? [vba]

Код

ActiveCell.FormulaR1C1 = "=DAY(TODAY()-1)"

[/vba]

ЯД-41001506838083

Ответить

ikki

Дата: Пятница, 19.09.2014, 01:37 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

Цитата mus013, 18.09.2014 в 17:09, в сообщении № 1

ДАТА(СЕГОДНЯ()-1)

СЕГОДНЯ() - это уже дата, поэтому внешняя функция ДАТА() не нужна.
поэтому, содрав код у Владимира (gling) и безжалостно искромсав его:
[vba]

Код

ActiveCell.Formula = "=TODAY()-1"

[/vba]

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Ответить

gling

Дата: Пятница, 19.09.2014, 07:25 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2663

Репутация: 747 ±

Замечаний: 0% ±

2010

Сделал так потому что решил, что нужно число от 1 до 31 не дата. Если появится автор, узнаем кто из нас экстрасенс)))

ЯД-41001506838083

Сообщение отредактировал gling - Пятница, 19.09.2014, 07:32

Ответить

mus013

Дата: Пятница, 19.09.2014, 08:21 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 102

Репутация: 25 ±

Замечаний: 0% ±

Excel 2007

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

(забыла войти, так была увлечена поиском решения)
Сегодня с утра прочитала все сообщения и, как все Водолеи - у них развита интуиция, взяла решение Владимира.
Спасибо большое всем, день начался замечательно! yes

Помогать, действительно важно и нужно. «Может, это и не изменит мир, но точно изменит вас!»

Ответить

Вставить вчерашнее число (Макросы/Sub)

Страница 1 из 1
1