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

Вход

Регистрация

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

 

= Мир MS Excel/подправите макрос - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » подправите макрос
подправите макрос
anger47 Дата: Четверг, 02.08.2012, 16:15 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 192
Репутация: 6 ±
Замечаний: 0% ±

Суть такая: поправить макрос, чтобы при сумме в ячейке "Е21" более 2500 или равно 2500. появлялся МеседжБокс с текстом: Спасибо!
К сообщению приложен файл: 9456686.xls (27.5 Kb)


Сообщение отредактировал anger47 - Четверг, 02.08.2012, 16:34
 
Ответить
СообщениеСуть такая: поправить макрос, чтобы при сумме в ячейке "Е21" более 2500 или равно 2500. появлялся МеседжБокс с текстом: Спасибо!
Автор - anger47
Дата добавления - 02.08.2012 в 16:15
anger47 Дата: Четверг, 02.08.2012, 17:45 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 192
Репутация: 6 ±
Замечаний: 0% ±

уже не надо! спс
 
Ответить
Сообщениеуже не надо! спс
Автор - anger47
Дата добавления - 02.08.2012 в 17:45
_Boroda_ Дата: Четверг, 02.08.2012, 17:45 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
[vba]
Code
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E21") >= 2500 Then MsgBox "Спасибо!"
End Sub
[/vba]
К сообщению приложен файл: 9456686_1.xls (30.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение[vba]
Code
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E21") >= 2500 Then MsgBox "Спасибо!"
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 02.08.2012 в 17:45
anger47 Дата: Четверг, 02.08.2012, 18:05 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 192
Репутация: 6 ±
Замечаний: 0% ±

_Boroda_, как всегда спс.
 
Ответить
Сообщение_Boroda_, как всегда спс.
Автор - anger47
Дата добавления - 02.08.2012 в 18:05
Run-time error 1004 (VBA) Дата: Среда, 08.08.2012, 18:31 | Сообщение № 5
Группа: Гости
Очень прошу помочь выдает ошибку "невозможно получить свойство PivotItems класса PivotField"...
Сам макрос:
[vba]
Код
Sub Auto_open()

Dim Mydate As Date

Mydate = CStr(Now)

Dim MyMonth As String

MyMonth = MonthName(CStr(Month(Mydate)), False)

With Лист1.PivotTables("СводнаяТаблица1" ).PivotFields("Месяц")
.PivotItems("MyMonth").Visible = True
.PivotItems("(blank)").Visible = False
End With

End Sub
[/vba]
 
Ответить
СообщениеОчень прошу помочь выдает ошибку "невозможно получить свойство PivotItems класса PivotField"...
Сам макрос:
[vba]
Код
Sub Auto_open()

Dim Mydate As Date

Mydate = CStr(Now)

Dim MyMonth As String

MyMonth = MonthName(CStr(Month(Mydate)), False)

With Лист1.PivotTables("СводнаяТаблица1" ).PivotFields("Месяц")
.PivotItems("MyMonth").Visible = True
.PivotItems("(blank)").Visible = False
End With

End Sub
[/vba]
Автор - Run-time error 1004 (VBA)
Дата добавления - 08.08.2012 в 18:31
Мир MS Excel » Вопросы и решения » Вопросы по VBA » подправите макрос
  • Страница 1 из 1
  • 1
Поиск:

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