ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / пересчет данных в таблице word по примеру.
11 сообщений из 61, страница 3 из 3
  3  все
пересчет данных в таблице word по примеру.
    #36529437
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Пожалуй, следует немного по-другому, исходя из ТЗ:

Код: plaintext
1.
2.
3.
4.
5.
6.
Dim i As Integer, CRow As Cell, IsHeader As Boolean
i =  1 : IsHeader = False
For Each CRow In cll.Row
  If Val(Replace(CRow.Range, Chr( 13 ) + Chr( 7 ), "")) <> i Then Exit For
  If i =  13  Then IsHeader = True: Exit For
  i = i +  1 
Next
...
Рейтинг: 0 / 0
18.03.2010, 19:02
| Ответить | Цитировать | Написать  
пересчет данных в таблице word по примеру.
    #36529732
vkopitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkopitsa
Гость
Shocker.Pro,

неработает.
...
Рейтинг: 0 / 0
18.03.2010, 22:45
| Ответить | Цитировать | Написать  
пересчет данных в таблице word по примеру.
    #36529744
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
Dim i As Integer, CRow As Cell, IsHeader As Boolean
i =  1 : IsHeader = False
For Each CRow In cll.Row.Cells
  If Val(Replace(CRow.Range, Chr( 13 ) + Chr( 7 ), "")) <> i Then Exit For
  If i =  13  Then IsHeader = True: Exit For
  i = i +  1 
Next

.Cells было забыто.

Что интересно, я копировал код отсюда , на кое сообщение вы сказали "спасибо", однако, там была та же ошибка.
...
Рейтинг: 0 / 0
18.03.2010, 23:00
| Ответить | Цитировать | Написать  
пересчет данных в таблице word по примеру.
    #36529789
vkopitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkopitsa
Гость
Shocker.Pro,

Ошибка.

424 Object required Требуется объект
...
Рейтинг: 0 / 0
18.03.2010, 23:53
| Ответить | Цитировать | Написать  
пересчет данных в таблице word по примеру.
    #36529795
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
...
Рейтинг: 0 / 0
19.03.2010, 00:02
| Ответить | Цитировать | Написать  
пересчет данных в таблице word по примеру.
    #36529809
vkopitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkopitsa
Гость
Shocker.Pro,

На вашем примери работает, а на таблице не ;(.

--> вот <--
...
Рейтинг: 0 / 0
19.03.2010, 00:29
| Ответить | Цитировать | Написать  
пересчет данных в таблице word по примеру.
    #36529812
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Я не понимаю, какие я должен сделать выводы из приложенного скриншота.
...
Рейтинг: 0 / 0
19.03.2010, 00:37
| Ответить | Цитировать | Написать  
пересчет данных в таблице word по примеру.
    #36530168
vkopitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkopitsa
Гость
Shocker.Pro,

Ошибка возникает при объединенных ячейках, когда ячейки одинаковые (не объединенные) ошибки нету.

Вот ошибка.
...
Рейтинг: 0 / 0
19.03.2010, 10:28
| Ответить | Цитировать | Написать  
пересчет данных в таблице word по примеру.
    #36530175
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
vkopitsaShocker.Pro,

Ошибка возникает при объединенных ячейках, когда ячейки одинаковые (не объединенные) ошибки нету.

Вот ошибка.

на какой строке?
...
Рейтинг: 0 / 0
19.03.2010, 10:32
| Ответить | Цитировать | Написать  
пересчет данных в таблице word по примеру.
    #36530231
vkopitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkopitsa
Гость
Shocker.Pro,

For Each cll In ThisDocument.Tables(1).Columns(1).Cells
...
Рейтинг: 0 / 0
19.03.2010, 10:59
| Ответить | Цитировать | Написать  
пересчет данных в таблице word по примеру.
    #36530453
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
vkopitsaShocker.Pro,

For Each cll In ThisDocument.Tables(1).Columns(1).Cells

А зачем вам эта строка? Это я дописал только чтобы показать, что пример работает. Вам она не понадобится при встраивании этого кода в ваш цикл.
...
Рейтинг: 0 / 0
19.03.2010, 12:14
| Ответить | Цитировать | Написать  
11 сообщений из 61, страница 3 из 3
  3  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / пересчет данных в таблице word по примеру.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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