ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в форме Excell перебрать все текстовые поля
12 сообщений из 12, страница 1 из 1
Как в форме Excell перебрать все текстовые поля
    #36472926
p2x4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
p2x4
Гость
Прошу натолкнуть на решение такой задачки:
на листе присутствует ряд текстовых полей, как их все вызвать в цикле для анализа и изменения значений?
...
Рейтинг: 0 / 0
16.02.2010, 16:19
| Ответить | Цитировать | Написать  
Как в форме Excell перебрать все текстовые поля
    #36472997
Dophin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dophin
Гость
p2x4,

dim cell as range
for each cell in range("a1:a10")
бла бла бла
next cell
...
Рейтинг: 0 / 0
16.02.2010, 16:38
| Ответить | Цитировать | Написать  
Как в форме Excell перебрать все текстовые поля
    #36473297
p2x4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
p2x4
Гость
Dophinp2x4,

dim cell as range
for each cell in range("a1:a10")
бла бла бла
next cell

Увы, не все так просто. Имеются ввиду элементы управления типа поле, а не ячейки на листе.
...
Рейтинг: 0 / 0
16.02.2010, 18:15
| Ответить | Цитировать | Написать  
Как в форме Excell перебрать все текстовые поля
    #36473355
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
p2x4, перебирайте коллекции раб. листа OLEObjects или Shapes, проверяя имена объектов.
...
Рейтинг: 0 / 0
16.02.2010, 18:35
| Ответить | Цитировать | Написать  
Как в форме Excell перебрать все текстовые поля
    #36473364
p2x4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
p2x4
Гость
Что-то типа:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
With WorkSheets( 1 ) 
   For Each ss in .Shapes 
      If ss.Type = msoOLEControlObject Then 
        Debug.Print ss.Name 
        'здесь ss - это элемент управления на листе 
      End if 
   Next ss 
End With

вопрос как из полученой выборки выделить поля?
...
Рейтинг: 0 / 0
16.02.2010, 18:36
| Ответить | Цитировать | Написать  
Как в форме Excell перебрать все текстовые поля
    #36473373
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
p2x4,

If ss.Name Like "TextBox" & "#" Then Stop, например
...
Рейтинг: 0 / 0
16.02.2010, 18:42
| Ответить | Цитировать | Написать  
Как в форме Excell перебрать все текстовые поля
    #36473383
p2x4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
p2x4
Гость
vlth,
думал об этом, не все имена содержат textbox
...
Рейтинг: 0 / 0
16.02.2010, 18:45
| Ответить | Цитировать | Написать  
Как в форме Excell перебрать все текстовые поля
    #36473403
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
p2x4, если их не переименовывать, то как обратиться к ним иначе, я не знаю.
...
Рейтинг: 0 / 0
16.02.2010, 18:49
| Ответить | Цитировать | Написать  
Как в форме Excell перебрать все текстовые поля
    #36474068
p2x4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
p2x4
Гость
vlth,
похоже прийдется переименовывать
...
Рейтинг: 0 / 0
17.02.2010, 08:53
| Ответить | Цитировать | Написать  
Как в форме Excell перебрать все текстовые поля
    #36475167
-nail-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-nail-
Гость
For Each ctl In Worksheets("1").OLEObjects
Debug.Print ctl.Name
Debug.Print ctl.OLEType
if ctl.OLEType = 2 then
msgbox ctl.name
end if
Next ctl
End Sub


думаю что OLEType для текстовых полей одинаковый (=2)
...
Рейтинг: 0 / 0
17.02.2010, 14:25
| Ответить | Цитировать | Написать  
Как в форме Excell перебрать все текстовые поля
    #36475522
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
-nail-думаю что OLEType для текстовых полей одинаковый (=2)
-nail-, напрасно так думаете. Из хелпа VBA:
OLEType Property
See AlsoApplies ToExampleSpecificsReturns the OLE object type. Can be one of the following XlOLEType constants: xlOLELink or xlOLEEmbed. Returns xlOLELink if the object is linked (it exists outside of the file), or returns xlOLEEmbed if the object is embedded (it's entirely contained within the file). Read-only Long.

xlOLELink = 0
xlOLEEmbed = 1

Что такое OLEType = 2, нигде не сказано, но для всех элементов управления на листе он одинаков .
...
Рейтинг: 0 / 0
17.02.2010, 15:59
| Ответить | Цитировать | Написать  
Как в форме Excell перебрать все текстовые поля
    #36475566
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
p2x4, используйте св-во объекта ProgID:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
With WorkSheets( 1 ) 
   For Each ss in .Shapes 'или OLEObjects
      If ss.Type = msoOLEControlObject Then 
        Debug.Print ss.ProgID
        'здесь ss - это элемент управления на листе 
        If ss.ProgID Like "*TextBox*" Then
         ...  
        end if
      End if 
   Next ss 
End With
...
Рейтинг: 0 / 0
17.02.2010, 16:12
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в форме Excell перебрать все текстовые поля
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36473297&tid=2178471]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 43ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 214ms
total:  334ms
созд. / загр.: 334ms
x
x
Закрыть


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