Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Работа со строкой в Ексел Добавлено: 07.03.09 23:18  

Автор вопроса:  Yuri
Помогите пожалуйста.
Есть списаок в столбце "А" в таком виде
АВС 123 Принтер Инв.№ 1234, 234567, 86654 и т.д.
Нужно в столбец "В" пренсти только числа Инв. номеров, а из столбца"А" убрать конец строки, начиная со слов "Инв.№"
Спасибо, выручите, а то я никогда не работал со строкой

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #1 Добавлено: 09.03.09 16:18
  1. Sub SplitИнв.№()
  2.   Dim R As Long
  3.   Dim A() As String
  4.   For R = 1 To ActiveSheet.UsedRange.Rows.Count
  5.     A = Split(Cells(R, 1), " Инв.№ ")
  6.     If UBound(A) > 0 Then
  7.       Cells(R, 1) = A(0)
  8.       Cells(R, 2) = A(1)
  9.     End If
  10.   Next R
  11. End Sub

Ответить

Номер ответа: 2
Автор ответа:
 Yuri



Вопросов: 2
Ответов: 1
  Профиль | | #2 Добавлено: 10.03.09 22:22
Огромное спасибо!
Все гениальное просто!
Просто, когда знаешь и умеешь!!!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам