Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / поиск примечаний / 20 сообщений из 20, страница 1 из 1
15.07.2010, 12:59
    #36742951
pepel222
pepel222
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск примечаний
Сделать кнопку, которая бы искала ячейки в определенном диапозоне, в которых стоит значение, но нет примечания!
Найдя такие, выдается сообщение, в котором написано след: значение данное ячейки и номер столбца, если их несколько то по-строчно.
Заранее спс.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.07.2010, 18:04
    #36745771
pepel222
pepel222
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск примечаний
не верю, что мне никто не поможет ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.07.2010, 20:36
    #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
| Ответить | Цитировать | Написать  
19.07.2010, 17:58
    #36748898
pepel222
pepel222
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск примечаний
периодически не работает кнопка
т.е. есть данные для поиска, а он не выдает
а также если не сколько есть значений, тоже не выдает в одном сообщении
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.07.2010, 19:15
    #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
| Ответить | Цитировать | Написать  
20.07.2010, 12:54
    #36749985
pepel222
pepel222
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск примечаний
всё супер заработало
тока он находит и выдает в сообщение ячейки где есть примечания, а надо наоборот
т.е. где просто значение и примечания, а также как указать для поиска определенный диапозон?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2010, 13:02
    #36750009
Shamanus
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск примечаний
pepel222,

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

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


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

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

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

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

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

вот файлик
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2010, 17:14
    #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:40
    #36782782
pepel222
pepel222
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск примечаний
Shamanus,

спс разобрался
вопрос снялся
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2010, 23:33
    #36787255
Бездарь
Бездарь
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск примечаний
а хоть один раз "спасибо" написать, а не быдлячье "спс" влом?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / поиск примечаний / 20 сообщений из 20, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 328ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2177802]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 41ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 208ms
total:  328ms
x
x
Закрыть


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