VBNet - Форум - Макрос Excel

Вопрос: Макрос Excel Добавлено: 30.09.08 13:56

Автор вопроса: AngryBadger

Всем Здраствуйте,столкнулся с такой проблемой, нужен простенький макрос, который будет делать следующее:

Есть столбец, в каждой ячейке столбца номер договора, написаный в виде _№567. Необходимо, чтобы посредством макроса первый символ удалялся, после удаления преходил на следующую ячейку - удалял первый символ ...... и.т.д до конца столбца, потом само-сабой останавливался.

Заранее, спасибо за помощь.
Ответить

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

Номер ответа: 1 Автор ответа: KiZ Вопросов: 27 Ответов: 68	Профиль \| \| #1	Добавлено: 30.09.08 15:25
	Запиши все это Макрос/начать запись и посотри как будет. Увидь закономерность и в цикл до пустой ячейки в этом столбце А еще лучше выделить столбец репласе _ на ""пустое место) Ответить

Номер ответа: 2 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| \| #2	Добавлено: 01.10.08 11:29
	i = START_ROW do while not ActiveSheet.Cells(i,NO_COLUMN).value = Empty ActiveSheet.Cells(i,NO_COLUMN).value = Mid(ActiveSheet.Cells(i,NO_COLUMN).value,1) 'как вариант использовать здесь replace: 'ActiveSheet.Cells(i,NO_COLUMN).value = Replace(ActiveSheet.Cells(i,NO_COLUMN).value, "_", "") i=i+1 loop т.е. тебе надо указать номер строки(START_ROW), с которой начать, номер столбца, который обрабанывать (NO_COLUMN). Цикл прервется на первой встреченной пустрой строке. Ответить

Страница: 1 |