Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Ноль - этот ноль, а пусто - это пусто
 
Доброго времени суток.
Подскажите - как избавиться от 0 при копировании пустой ячейки. В конкретном случае при копировании температур с листа2 на лист1 (с G21 по G27 на листе2) пустые ячейки, а на листе1 (F21:F27) подставляются ноли.
Нужно чтобы если ячейка пустая так и копировалась пустая ячейка, а если в ячейке ноль - значит ноль. (температура либо было ноль , либо замер не производился - пусто)
Спасибо
Изменено: Igor Rezanov - 23.10.2015 12:55:22
Метод Paste Special завершен неверно.
 
Подскажите, пожалуйста - почему при нажатии на кнопку "стереть данные" макрос выдает ошибку ...paste special..... а после  повторного запуска макроса все срабатывает?
Спасибо
PS задача программки - при нажатии кнопки "стереть данные" сохранить средние показания температур на листе2  в виде значений и затем подставить их на лист1.
сохранение копии файла с помощью .SaveCopyAs
 
Здравствуйте. Подскажите пожалуйста - возможно ли сохранять копию файла с помощью Activeworkbook.SaveCopyAs с добавлением к файлу текущей даты и времени? Я в курсе, что на форуме есть специальные макросы но мне интересно именно так. У меня получается добавлять дату но при добавлении времени макрос ругается. спасибо
Этот не работает
Код
Sub save()
Dim X As String
X = Now()
ActiveWorkbook.SaveCopyAs "C:\kontrol\proba " & X & ".xlsm"
End Sub
 
а этот работает

Код
Sub save()
Dim X As String
X = Now()
ActiveWorkbook.SaveCopyAs "C:\kontrol\proba " & Date & ".xlsm"
End Sub
как присвоить переменной автоматически изменяемую дату
 
Код
х = Date 
z = "15/03/2015" 
как в VBA написать код чтобы у переменной "z" год менялся самостоятельно. как в формуле: =дата(год(сегодня());3;15). А то у меня чет никак ,,

Код
Sub aa()
Dim x As Date
x = 15 / 3 / DatePart("yyyy", Now)
'MsgBox Year(Now) & Chr(9) & Month("3") & Chr(9) & Day("15")
MsgBox x

End Sub
 

Спасибо
Сравнить даты: заданную и СЕГОДНЯ, VBA
 
Подскажите пожалуйста, как переменной в VBA присвоить значение дата сегодня (=СЕГОДНЯ()). необходимо сравнить две переменные Х и У. переменная икс - некая фиксированная дата, а переменная игрек - дата сегодня.

Код
Sub data()
'
 Dim x As Date
 Dim y As Date
 x = CDate("3/15/2015")
 'y = FormulaR1C1 = "=TODAY()"
 y = TODAY()
 MsgBox (y)
    
End Sub
 
спасибо
Изменено: Igor Rezanov - 21.01.2015 02:06:02
не срабатывает автозапуск макроса
 
Здравствуйте, Уважаемые.
Такая проблемка - при закрытии книги должен запустится макрос который кодирует данные на листе "spiski" , в 2010 екселе нет проблем все срабатывает, а в 2007 не хочет      :(  .
файлик тут
Изменено: Igor Rezanov - 17.12.2014 14:39:30
подсчет количества не пустых ячеек (без учета скрытых формул)
 
задача: в ячейке АВ1 нужно подсчитать кол-во детей из диапазона В6:В31. проблема в том- что в этих ячейках стоят формулы и ексель видит что они не пустые, как можно решить эту проблему?
Спасибо
как внести данные в ячейку с формулой?
 
Здравствуйте, уважаемые. можно ли вносить данные в ячейку с формулой (при определенных условиях)и при этом не затереть формулу? смотрите вложенный файл. спасибо
как привязать формулу к кнопке (или наоборот)
 
1, есть кнопка с макросом    
Range("A1").Select  
ActiveCell.FormulaR1C1 = "=TODAY()"  которая подставляет в А1 текущую дату.  
 
2, нужно сделать кнопку при нажатии на которую срабатывала бы формула А1-1. т,е текущая дата уменьшалась бы на один день назад, как к кнопке прилепить формулу =А1-1?  
 
спасибо
функция СЦЕПИТЬ
 
объясните неразумному - есть такая формула - =ЕСЛИ((E3-ЦЕЛОЕ(E3))>0;"если(E3<451;впр (E3;'RVS-7'!1:65536;2)+впр((E3-целое(E3))*10;'RVS-7'!E2:F10;2);если(E3>451;впр (E3;'RVS-7'!1:65536;2)+впр((E3-целое(E3))*10;'RVS-7'!E14:F22;2);&;если(E3>601;впр (E3;'RVS-7'!1:65536;2)+впр((E3-целое(E3))*10;'RVS-7'!E26:F34;2);&;если(E3>1051;впр (E3;'RVS-7'!1:65536;2)+впр((E3-целое(E3))*10;'RVS-7'!E38:F46;2)";ВПР(E3;'RVS-7'!1:65536;2))  
 
при сохранении выдает сообщение что ткст содержит более 255 символов воспользуйтесь функцией сцепить. куда здесь и как вставить эту функцию?  
спасибо
синтаксис
 
всем доброго времени суток. такой вопрос -  
как в функции ЕСЛИ указать целое или десятичное число  
 " если А1 это целое число то .."  
например если А1=30 то .....   или если А1=30,3 то ... ?  
спасибо
распознавание символа
 
Здравствуйте. Возникла такая проблема - Есть таблица для измерения объема жидкости, в которой дано колличество литров в зависимости от уровня взлива в емкости, но таблица прописана в сантиметрах и отдельно дается табличка в миллиметрах(9 мм - в каждом мм определенное колличество литров).Допустим у меня получился взлив 365,5 (365см 5мм) я записываю этот взлив в одну ячейку - Как сделать чтобы EXEL смог распознавать что в ячейке после запятой цифра обазначена в мм и прибавить соответствующее этой цифре колличество литров к литрам получившимся в сантиметрах(т.е до запятой). Спасибо
Страницы: 1
Наверх