ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / вытащить символ из VIN кода
12 сообщений из 12, страница 1 из 1
вытащить символ из VIN кода
    #39843629
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Ребята, помогите вытащить из номера VIN кода "XTA21150054033657", каждый символ в отдельное текстовое поле, заранее спасибо
...
Рейтинг: 0 / 0
31.07.2019, 17:42:21
| Ответить | Цитировать | Написать  
вытащить символ из VIN кода
    #39843631
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Что именно вызывает сложность? синтаксис цикла for?
...
Рейтинг: 0 / 0
31.07.2019, 17:43:44
| Ответить | Цитировать | Написать  
вытащить символ из VIN кода
    #39843637
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, я ни когда этого не делал, можно на примере показать?
...
Рейтинг: 0 / 0
31.07.2019, 17:50:42
| Ответить | Цитировать | Написать  
вытащить символ из VIN кода
    #39843638
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, или завтра научите ? я приду на работу
...
Рейтинг: 0 / 0
31.07.2019, 17:53:23
| Ответить | Цитировать | Написать  
вытащить символ из VIN кода
    #39843654
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
2.
3.
For  i = 1 To Len(str)
  (i-тое целевое поле) = Mid$(str, i, 1)
Next
...
Рейтинг: 0 / 0
31.07.2019, 18:22:01
| Ответить | Цитировать | Написать  
вытащить символ из VIN кода
    #39843841
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, что то не получается
Код: vbnet
1.
2.
3.
4.
5.
Dim i, str
i = TextBox21
For i = 1 To Len(str)
  .Bookmarks("V1").Range.Text = Mid$(str, i, 1)
Next
...
Рейтинг: 0 / 0
01.08.2019, 09:19:51
| Ответить | Цитировать | Написать  
вытащить символ из VIN кода
    #39843887
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
Код: vbnet
1.
.Bookmarks("V1").Range.Text

?????????
Вт это наверное и не получается.....
Я бы через activeworksheet.Cells(i,n) попробовал
Ну может понадобится activeworksheet.Cells(i,n).Value.....
...
Рейтинг: 0 / 0
01.08.2019, 10:19:39
| Ответить | Цитировать | Написать  
вытащить символ из VIN кода
    #39843916
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А кто сказал, что у ТС эксель? Он тщательно скрывает среду выполнения. но хочет какое-то готовое решение.
...
Рейтинг: 0 / 0
01.08.2019, 11:06:42
| Ответить | Цитировать | Написать  
вытащить символ из VIN кода
    #39843930
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, да нет почему же минутку
...
Рейтинг: 0 / 0
01.08.2019, 11:18:08
| Ответить | Цитировать | Написать  
вытащить символ из VIN кода
    #39843937
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, из XL записываю в документ по меткам
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub CommandButton8_Click()
Set wa = CreateObject("Word.Application")
wa.Visible = True
Set wd = wa.Documents.Open("C:\DOCM\documents\zalog.doc")
wa.Visible = True
With wd 'запись по меткам
Dim i, str
i = TextBox21
For i = 1 To Len(str)
  .Bookmarks("номер").Range.Text = Mid$(str, i, 1)
Next
End With
wa.ActiveDocument.PrintPreview
End Sub
...
Рейтинг: 0 / 0
01.08.2019, 11:22:05
| Ответить | Цитировать | Написать  
вытащить символ из VIN кода
    #39843951
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ну то есть ворд, а не эксель, откуда вызывается - пофиг, хоть из vbs
Просто Serg197311 дал совет для екселя
...
Рейтинг: 0 / 0
01.08.2019, 11:29:07
| Ответить | Цитировать | Написать  
вытащить символ из VIN кода
    #39844046
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
assei
Код: vbnet
1.
2.
3.
Dim i, str
i = TextBox21
For i = 1 To Len(str)

Интересно, чему же тут равно str?
assei.Bookmarks("номер").Range.Text = Mid$(str, i, 1)
а здесь по факту всегда одна и та же закладка используется. И скорее всего сразу же после первого прохода она будет удалена...
Повторюсь в очередной раз: если не начнете читать техническую литературу в части азов - так и будете тыркаться туда-сюда в поисках элементарных решений.
...
Рейтинг: 0 / 0
01.08.2019, 13:16:58
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / вытащить символ из VIN кода
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=39843937&tid=2172019]:
 0ms
get settings:
 18ms
get forum list:
 24ms
check forum access:
 7ms
check topic access:
 7ms
track hit:
 37ms
get topic data:
 18ms
get forum data:
 4ms
get page messages:
 67ms
get tp. blocked users:
 2ms
others: 289ms
total:  473ms
созд. / загр.: 473ms
x
x
Закрыть


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