ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нужна помощь по ячейкам
5 сообщений из 5, страница 1 из 1
Нужна помощь по ячейкам
    #36663387
pepel222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pepel222
Гость
Подскажите как сделать следующее:
чтобы эксель ругался, если ячейка не заполена, т.е. там нет символов, текста и т.п.
чтобы говорил типо "Вы не ввели значение"

т.е. например в ячейки есть что-то, мы удалеям через Del содержимое и отжав его, эксель сказала: "Вы не ввели значение"

реально ли такое?
...
Рейтинг: 0 / 0
02.06.2010, 11:39
| Ответить | Цитировать | Написать  
Нужна помощь по ячейкам
    #36664206
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Если разместить данный код внутри кода какого-то листа, то для этого листа будет нечто подобное.
Правда чтобы не было побочных эффектов, его надо в конечном итоге ещё усложнить, но для начала как отправная точка может подойти.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
Option Explicit

Dim t As Range
Dim proverka As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
 Set t = Target 
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim ch As Range
 
 Application.EnableEvents = False
 
 If t Is Nothing Then
  Else
   proverka = False
   
   For Each ch In t
    If ch.Value = "" Then
     t.Select
     proverka = True
     MsgBox "Ничего не ввели"
     Exit For
    End If
   Next ch
   
   If proverka = False Then
    Set t = Nothing
   End If
 End If
 
 Application.EnableEvents = True
End Sub
...
Рейтинг: 0 / 0
02.06.2010, 15:27
| Ответить | Цитировать | Написать  
Нужна помощь по ячейкам
    #36664938
pepel222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pepel222
Гость
супер уже есть сподвижки
а реально ли сделать след:
1) сделать не для всей книги, а для диапозона
2) реально ли прекрутить, когда сохраняешься и ячейка не заполнена выдавать сообщение

Исходя из этого, по похожей ситуции, реально ли сделать диапозону ячеек, чтобы их не менять, но ячейка должна быть незащищенной
...
Рейтинг: 0 / 0
02.06.2010, 18:38
| Ответить | Цитировать | Написать  
Нужна помощь по ячейкам
    #36667135
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
pepel222,

Где-то на форуме в этом году пару месяцев назад я для кого-то писал код, где в частности была такая задача, что есть лист с формулами, причем формулы не защищены.
И надо было в случае если пользователь удалит формулу, а вместо неё ничего не напишет, вернуть эту формулу на место, как было.
Точно уже не помню. Сам вчера пытался найти этот пример, но так и не смог.
...
Рейтинг: 0 / 0
03.06.2010, 16:13
| Ответить | Цитировать | Написать  
Нужна помощь по ячейкам
    #36667193
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
pepel222
а реально ли сделать след:
1) сделать не для всей книги, а для диапозона
2) реально ли прекрутить, когда сохраняешься и ячейка не заполнена выдавать сообщение
3) Исходя из этого, по похожей ситуции, реально ли сделать диапозону ячеек, чтобы их не менять, но ячейка должна быть незащищенной
1. надо проверять есть ли пересечение диапазона target и вашего диапазона.
2. в объекте ЭтаКнига надо разместить подобный макрос.
Код: plaintext
1.
2.
3.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Cancel = True
End Sub
Данный макрос срабатывает в момент нажатия кнопки сохранить, но перед непосредственным сохранением.
Если после того как макрос будет закончен, значение переменной Cancel будет True, то документ сохраняться не будет.
Поэтому в этом макросе надо сделать нужные вам проверки и в зависимости от того прошли они или нет, в конец присвоить переменной Cancel нужное значение.
3. Если извратиться, то можно.
Например в процедуре Worksheet_Change проверять, какой диапазон ячеек изменился и для некоторого заданного диапазона, возвращать изменённое значение на место.
Для этого надо либо предварительно где-то сохранить например на дополнительном листе значения в нужных ячейках и потом эти значения восстанавливать в случае их изменения (правда способ извращенный), либо выдавать команду на отмену последнего действия, только я код не помню.
...
Рейтинг: 0 / 0
03.06.2010, 16:26
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нужна помощь по ячейкам
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&tid=2178041]:
 0ms
get settings:
 8ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 186ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 239ms
total:  528ms
созд. / загр.: 528ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]