Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / вытащить символ из VIN кода / 12 сообщений из 12, страница 1 из 1
31.07.2019, 17:42
    #39843629
assei
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вытащить символ из VIN кода
Ребята, помогите вытащить из номера VIN кода "XTA21150054033657", каждый символ в отдельное текстовое поле, заранее спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.07.2019, 17:43
    #39843631
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вытащить символ из VIN кода
Что именно вызывает сложность? синтаксис цикла for?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.07.2019, 17:50
    #39843637
assei
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вытащить символ из VIN кода
Shocker.Pro, я ни когда этого не делал, можно на примере показать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.07.2019, 17:53
    #39843638
assei
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вытащить символ из VIN кода
Shocker.Pro, или завтра научите ? я приду на работу
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.07.2019, 18:22
    #39843654
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вытащить символ из VIN кода
Код: vbnet
1.
2.
3.
For  i = 1 To Len(str)
  (i-тое целевое поле) = Mid$(str, i, 1)
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2019, 09:19
    #39843841
assei
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вытащить символ из VIN кода
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, 10:19
    #39843887
Serg197311
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вытащить символ из VIN кода
Код: vbnet
1.
.Bookmarks("V1").Range.Text

?????????
Вт это наверное и не получается.....
Я бы через activeworksheet.Cells(i,n) попробовал
Ну может понадобится activeworksheet.Cells(i,n).Value.....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2019, 11:06
    #39843916
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вытащить символ из VIN кода
А кто сказал, что у ТС эксель? Он тщательно скрывает среду выполнения. но хочет какое-то готовое решение.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2019, 11:18
    #39843930
assei
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вытащить символ из VIN кода
Shocker.Pro, да нет почему же минутку
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2019, 11:22
    #39843937
assei
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вытащить символ из VIN кода
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:29
    #39843951
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вытащить символ из VIN кода
Ну то есть ворд, а не эксель, откуда вызывается - пофиг, хоть из vbs
Просто Serg197311 дал совет для екселя
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2019, 13:16
    #39844046
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вытащить символ из VIN кода
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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / вытащить символ из VIN кода / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 477ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2172019]:
 0ms
get settings:
 12ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 88ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 279ms
total:  477ms
x
x
Закрыть


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