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

Вход

Регистрация

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

 

= Мир MS Excel/макрос: преобразования функции в число - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » макрос: преобразования функции в число (макрос: преобразования функции в число)
макрос: преобразования функции в число
паша000 Дата: Среда, 25.07.2012, 14:00 | Сообщение № 21
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

так и есть, это было сделано
 
Ответить
Сообщениетак и есть, это было сделано
Автор - паша000
Дата добавления - 25.07.2012 в 14:00
паша000 Дата: Среда, 25.07.2012, 14:03 | Сообщение № 22
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Quote (RAN)
.Range(cl.Address).Offset(3).Resize(11).Value = .Range(cl.Address).Offset(3).Resize(11).Value
.Range(cl.Address).Offset(3).Resize(11).Value ..............

а для чего точки? и почему две строчки повторяются?
 
Ответить
Сообщение
Quote (RAN)
.Range(cl.Address).Offset(3).Resize(11).Value = .Range(cl.Address).Offset(3).Resize(11).Value
.Range(cl.Address).Offset(3).Resize(11).Value ..............

а для чего точки? и почему две строчки повторяются?
Автор - паша000
Дата добавления - 25.07.2012 в 14:03
Serge_007 Дата: Среда, 25.07.2012, 14:09 | Сообщение № 23
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2750 ±
Замечаний: ±

Excel 2016
Quote (паша000)
так и есть, это было сделано

В Вашем последнем файле 9766655.xlsm(43Kb) - не так

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (паша000)
так и есть, это было сделано

В Вашем последнем файле 9766655.xlsm(43Kb) - не так
Автор - Serge_007
Дата добавления - 25.07.2012 в 14:09
паша000 Дата: Среда, 25.07.2012, 14:14 | Сообщение № 24
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Quote (Serge_007)
В Вашем последнем файле 9766655.xlsm(43Kb) - не так

понял, спасибо
 
Ответить
Сообщение
Quote (Serge_007)
В Вашем последнем файле 9766655.xlsm(43Kb) - не так

понял, спасибо
Автор - паша000
Дата добавления - 25.07.2012 в 14:14
паша000 Дата: Среда, 25.07.2012, 14:52 | Сообщение № 25
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

[vba]
Code
Private Sub Workbook_Open()
With Sheets("стат-ка звонки")
For Each cl In .Range(.Cells(2, 2), .Cells(2, 2).End(xlToRight))
If cl < Date Then
.Range(cl.Address).Offset(5).Resize(9).Value = .Range(cl.Address).Offset(5).Resize(9).Value
.Range(cl.Address).Offset(20).Resize(6).Value = .Range(cl.Address).Offset(20).Resize(6).Value
End If
Next
If cl = Date Then
.Range(cl.Address).Offset(3).Resize(1).Value = .Range(cl.Address).Offset(3).Resize(1).Value
.Range(cl.Address).Offset(18).Resize(1).Value = .Range(cl.Address).Offset(18).Resize(1).Value
End If
Next
End With
End Sub
[/vba]

правильно я сделал?
 
Ответить
Сообщение[vba]
Code
Private Sub Workbook_Open()
With Sheets("стат-ка звонки")
For Each cl In .Range(.Cells(2, 2), .Cells(2, 2).End(xlToRight))
If cl < Date Then
.Range(cl.Address).Offset(5).Resize(9).Value = .Range(cl.Address).Offset(5).Resize(9).Value
.Range(cl.Address).Offset(20).Resize(6).Value = .Range(cl.Address).Offset(20).Resize(6).Value
End If
Next
If cl = Date Then
.Range(cl.Address).Offset(3).Resize(1).Value = .Range(cl.Address).Offset(3).Resize(1).Value
.Range(cl.Address).Offset(18).Resize(1).Value = .Range(cl.Address).Offset(18).Resize(1).Value
End If
Next
End With
End Sub
[/vba]

правильно я сделал?
Автор - паша000
Дата добавления - 25.07.2012 в 14:52
RAN Дата: Среда, 25.07.2012, 15:56 | Сообщение № 26
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Сделал что?
Если, например, сегодня файл не открывать, то блок
If cl = Date Then
завтра уже не сработает!
И там останется формула навечно.

Вам нужно чтобы сегодня работала формула =СЕГОДНЯ(). Так зачем ее сегодня убивать? Ее надо будет убить завтра.
If cl < Date Then

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 25.07.2012, 16:20
 
Ответить
СообщениеСделал что?
Если, например, сегодня файл не открывать, то блок
If cl = Date Then
завтра уже не сработает!
И там останется формула навечно.

Вам нужно чтобы сегодня работала формула =СЕГОДНЯ(). Так зачем ее сегодня убивать? Ее надо будет убить завтра.
If cl < Date Then
Автор - RAN
Дата добавления - 25.07.2012 в 15:56
паша000 Дата: Среда, 25.07.2012, 17:27 | Сообщение № 27
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Quote (паша000)
строчки 5 и 22 должны менять формулу на число в начале каждого дня. то есть при открытии файла ячейка с формулой за текущую дату меняется на число

там два вида формул. есть старая которую убиваем завтра, есть эта, которую нужно убить сегодня с утра. то есть в той ячейке, где дата с формулой совпадает с сегодняшней
 
Ответить
Сообщение
Quote (паша000)
строчки 5 и 22 должны менять формулу на число в начале каждого дня. то есть при открытии файла ячейка с формулой за текущую дату меняется на число

там два вида формул. есть старая которую убиваем завтра, есть эта, которую нужно убить сегодня с утра. то есть в той ячейке, где дата с формулой совпадает с сегодняшней
Автор - паша000
Дата добавления - 25.07.2012 в 17:27
RAN Дата: Среда, 25.07.2012, 17:45 | Сообщение № 28
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
паша000, еще раз объясняю (последний)
Если, допустим, в К2 стоит сегодняшняя дата, а СЕГОДНЯ вы этот файл по какой-либо причине не открывали, то ЗАВТРА вы формулу в К5 уже не убъете! Поэтому условие должно быть <=.

.Resize(1) - лишнее.

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение паша000, еще раз объясняю (последний)
Если, допустим, в К2 стоит сегодняшняя дата, а СЕГОДНЯ вы этот файл по какой-либо причине не открывали, то ЗАВТРА вы формулу в К5 уже не убъете! Поэтому условие должно быть <=.

.Resize(1) - лишнее.
Автор - RAN
Дата добавления - 25.07.2012 в 17:45
паша000 Дата: Среда, 25.07.2012, 22:31 | Сообщение № 29
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

все, разобрался


Сообщение отредактировал паша000 - Четверг, 26.07.2012, 00:51
 
Ответить
Сообщениевсе, разобрался
Автор - паша000
Дата добавления - 25.07.2012 в 22:31
Volosyankin Дата: Среда, 29.10.2014, 23:11 | Сообщение № 30
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Помогите пожалуйста написать такой макрос при котором в выделенной зоне преобразовывались все значения в текст а формулы удалялись . Я где то на форуме давно видел тему по моему вопросу но теперь не могу найти
[moder]Тема закрыта. Причина: нарушение п.п. 3, 4, 5q Правил форума[/moder]
 
Ответить
СообщениеПомогите пожалуйста написать такой макрос при котором в выделенной зоне преобразовывались все значения в текст а формулы удалялись . Я где то на форуме давно видел тему по моему вопросу но теперь не могу найти
[moder]Тема закрыта. Причина: нарушение п.п. 3, 4, 5q Правил форума[/moder]
Автор - Volosyankin
Дата добавления - 29.10.2014 в 23:11
Мир MS Excel » Вопросы и решения » Вопросы по Excel » макрос: преобразования функции в число (макрос: преобразования функции в число)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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