вытащить символ из VIN кода / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / вытащить символ из VIN кода

12 сообщений из 12, страница 1 из 1

вытащить символ из VIN кода

#39843629

assei

Гость

Ребята, помогите вытащить из номера VIN кода "XTA21150054033657", каждый символ в отдельное текстовое поле, заранее спасибо

...

Рейтинг:

0 / 0

31.07.2019, 17:42

| Ответить | Цитировать | Написать

вытащить символ из VIN кода

#39843631

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Что именно вызывает сложность? синтаксис цикла for?

...

Рейтинг:

0 / 0

31.07.2019, 17:43

| Ответить | Цитировать | Написать

вытащить символ из VIN кода

#39843637

assei

Гость

Shocker.Pro, я ни когда этого не делал, можно на примере показать?

...

Рейтинг:

0 / 0

31.07.2019, 17:50

| Ответить | Цитировать | Написать

вытащить символ из VIN кода

#39843638

assei

Гость

Shocker.Pro, или завтра научите ? я приду на работу

...

Рейтинг:

0 / 0

31.07.2019, 17:53

| Ответить | Цитировать | Написать

вытащить символ из VIN кода

#39843654

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.

For  i = 1 To Len(str)
  (i-тое целевое поле) = Mid$(str, i, 1)
Next

...

Рейтинг:

0 / 0

31.07.2019, 18:22

| Ответить | Цитировать | Написать

вытащить символ из VIN кода

#39843841

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

| Ответить | Цитировать | Написать

вытащить символ из VIN кода

#39843887

Serg197311

Участник

Откуда: Жуковский

Сообщения: 1 058

Рейтинг: 0 / 0

Код: vbnet

.Bookmarks("V1").Range.Text

?????????
Вт это наверное и не получается.....
Я бы через activeworksheet.Cells(i,n) попробовал
Ну может понадобится activeworksheet.Cells(i,n).Value.....

...

Рейтинг:

0 / 0

01.08.2019, 10:19

| Ответить | Цитировать | Написать

вытащить символ из VIN кода

#39843916

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

А кто сказал, что у ТС эксель? Он тщательно скрывает среду выполнения. но хочет какое-то готовое решение.

...

Рейтинг:

0 / 0

01.08.2019, 11:06

| Ответить | Цитировать | Написать

вытащить символ из VIN кода

#39843930

assei

Гость

Shocker.Pro, да нет почему же минутку

...

Рейтинг:

0 / 0

01.08.2019, 11:18

| Ответить | Цитировать | Написать

вытащить символ из VIN кода

#39843937

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

| Ответить | Цитировать | Написать

вытащить символ из VIN кода

#39843951

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Ну то есть ворд, а не эксель, откуда вызывается - пофиг, хоть из vbs
Просто Serg197311 дал совет для екселя

...

Рейтинг:

0 / 0

01.08.2019, 11:29

| Ответить | Цитировать | Написать

вытащить символ из VIN кода

#39844046

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

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

| Ответить | Цитировать | Написать

12 сообщений из 12, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / вытащить символ из VIN кода

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=39843916&tid=2172019]:	0ms
get settings:	10ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	33ms
get topic data:	10ms
get forum data:	2ms
get page messages:	47ms
get tp. blocked users:	2ms
others:	294ms

total:	416ms