ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / поиск примечаний
20 сообщений из 20, страница 1 из 1
поиск примечаний
    #36742951
pepel222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pepel222
Гость
Сделать кнопку, которая бы искала ячейки в определенном диапозоне, в которых стоит значение, но нет примечания!
Найдя такие, выдается сообщение, в котором написано след: значение данное ячейки и номер столбца, если их несколько то по-строчно.
Заранее спс.
...
Рейтинг: 0 / 0
15.07.2010, 12:59
| Ответить | Цитировать | Написать  
поиск примечаний
    #36745771
pepel222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pepel222
Гость
не верю, что мне никто не поможет ...
...
Рейтинг: 0 / 0
16.07.2010, 18:04
| Ответить | Цитировать | Написать  
поиск примечаний
    #36745966
nilem
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nilem
Гость
pepel222,

Повесь на кнопку вот это:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub Pepel()
Dim msg As String, poz As Range

For Each poz In Selection.Cells
    If poz.Comment Is Nothing And Not IsEmpty(poz) Then
        msg = msg & "значение: " & poz.Value & ", столбец: " & poz.Column & vbCrLf
    End If
Next poz
MsgBox msg

End Sub
...
Рейтинг: 0 / 0
16.07.2010, 20:36
| Ответить | Цитировать | Написать  
поиск примечаний
    #36748898
pepel222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pepel222
Гость
периодически не работает кнопка
т.е. есть данные для поиска, а он не выдает
а также если не сколько есть значений, тоже не выдает в одном сообщении
...
Рейтинг: 0 / 0
19.07.2010, 17:58
| Ответить | Цитировать | Написать  
поиск примечаний
    #36749075
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
pepel222,

Странно, субъективно код полностью рабочий, может так:
я попробовал доработать код nilem

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub Pepel()
Dim msg As String, poz As Range

For Each poz In Selection.SpecialCells(xlCellTypeComments)
    If Not IsEmpty(poz) Then
        msg = msg & "значение: " & poz.Value & ", столбец: " & poz.Column & vbCrLf
    End If
Next poz
MsgBox msg

End Sub
...
Рейтинг: 0 / 0
19.07.2010, 19:15
| Ответить | Цитировать | Написать  
поиск примечаний
    #36749985
pepel222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pepel222
Гость
всё супер заработало
тока он находит и выдает в сообщение ячейки где есть примечания, а надо наоборот
т.е. где просто значение и примечания, а также как указать для поиска определенный диапозон?
...
Рейтинг: 0 / 0
20.07.2010, 12:54
| Ответить | Цитировать | Написать  
поиск примечаний
    #36750009
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
pepel222,

я не заметил, что нужны ячейки БЕЗ примечаний
тогда код nilem должен работать.

по крайней мере у меня работает без ошибок
...
Рейтинг: 0 / 0
20.07.2010, 13:02
| Ответить | Цитировать | Написать  
поиск примечаний
    #36750662
pepel222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pepel222
Гость
а как сделать, чтобы инфо выдавала по стобцам не в виде цифр, а виде букв?
т.к. столбцы у меня не цифровые, а буквенные
...
Рейтинг: 0 / 0
20.07.2010, 16:59
| Ответить | Цитировать | Написать  
поиск примечаний
    #36756557
pepel222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pepel222
Гость
а реал на оборот чтобы наоборот искал
есть примечание, но нет значения
и в сообщении выдавал номер строки и столбца этого примечания без значения?
...
Рейтинг: 0 / 0
23.07.2010, 14:12
| Ответить | Цитировать | Написать  
поиск примечаний
    #36764565
pepel222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pepel222
Гость
pepel222а как сделать, чтобы инфо выдавала по стобцам не в виде цифр, а виде букв?
т.к. столбцы у меня не цифровые, а буквенные


ну что, есть помощники?
...
Рейтинг: 0 / 0
28.07.2010, 17:23
| Ответить | Цитировать | Написать  
поиск примечаний
    #36781937
pepel222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pepel222
Гость
nilempepel222,

Повесь на кнопку вот это:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub Pepel()
Dim msg As String, poz As Range

For Each poz In Selection.Cells
    If poz.Comment Is Nothing And Not IsEmpty(poz) Then
        msg = msg & "значение: " & poz.Value & ", столбец: " & poz.Column & vbCrLf
    End If
Next poz
MsgBox msg

End Sub


как сделать так, чтобы он давал инфо не номера столбца, а инфо из первой ячейки столбца, в котором есть значение без примечания?
...
Рейтинг: 0 / 0
09.08.2010, 12:49
| Ответить | Цитировать | Написать  
поиск примечаний
    #36782068
fortik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fortik
Участник
pepel222,
здорово то как... выложили на сайт задачу, а вам ее полностью решают бесплатно...
сами-то что пробовали делать?
...
Рейтинг: 0 / 0
09.08.2010, 13:41
| Ответить | Цитировать | Написать  
поиск примечаний
    #36782069
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
pepel222,

ну вообще тут помогают делать, а не делают за Вас. Вам итак на 100% сделали предыдущий код. Могли бы хоть попытаться разобраться

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub Pepel()
Dim msg As String, poz As Range

For Each poz In Selection.Cells
  
    If poz.Comment Is Nothing And Not IsEmpty(poz) Then
        msg = msg & Cells(Selection.SpecialCells(xlCellTypeLastCell).Row - Selection.Rows.Count +  1 , poz.Column) & vbCrLf 
    End If

Next poz
MsgBox msg

End Sub
...
Рейтинг: 0 / 0
09.08.2010, 13:41
| Ответить | Цитировать | Написать  
поиск примечаний
    #36782076
fortik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fortik
Участник
Shamanus,
на этом форуме для пепела все делают)
...
Рейтинг: 0 / 0
09.08.2010, 13:44
| Ответить | Цитировать | Написать  
поиск примечаний
    #36782542
pepel222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pepel222
Гость
Shamanus,

за предвариант спс
немного подкорректировал под себя

в новом вопросе немного не понимаю, поясните
Cells(Selection.SpecialCells(xlCellTypeLastCell).Row - Selection.Rows.Count + 1

что он тянет, какое значение?
...
Рейтинг: 0 / 0
09.08.2010, 16:01
| Ответить | Цитировать | Написать  
поиск примечаний
    #36782553
pepel222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pepel222
Гость
fortik,

это просьба,
отвечают спс
нет тоже спс
...
Рейтинг: 0 / 0
09.08.2010, 16:06
| Ответить | Цитировать | Написать  
поиск примечаний
    #36782562
pepel222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pepel222
Гость
Shamanus,

вот файлик
...
Рейтинг: 0 / 0
09.08.2010, 16:09
| Ответить | Цитировать | Написать  
поиск примечаний
    #36782724
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
pepel222,

По вашему примеру вернется значение ячеек L4 и N4.

Столбцы L и N это те столбцы, в которых находятся ячейки удовлетворяющие условию.
А 4 это первая строка столбца диапазона, который выделен.

вот тут идет вычисление первой строки выделенного диапазона
Код: plaintext
Selection.SpecialCells(xlCellTypeLastCell).Row - Selection.Rows.Count +  1

Если Вам нужна первая строка листа используйте такой код
Код: plaintext
Cells( 1 , poz.Column)
...
Рейтинг: 0 / 0
09.08.2010, 17:14
| Ответить | Цитировать | Написать  
поиск примечаний
    #36782782
pepel222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pepel222
Гость
Shamanus,

спс разобрался
вопрос снялся
...
Рейтинг: 0 / 0
09.08.2010, 17:40
| Ответить | Цитировать | Написать  
поиск примечаний
    #36787255
Бездарь
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бездарь
Гость
а хоть один раз "спасибо" написать, а не быдлячье "спс" влом?
...
Рейтинг: 0 / 0
11.08.2010, 23:33
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / поиск примечаний
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36749075&tid=2177802]:
 0ms
get settings:
 11ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 95ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 72ms
get tp. blocked users:
 2ms
others: 244ms
total:  464ms
созд. / загр.: 464ms
x
x
Закрыть


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