VPF::Создание хитрого макроса - Форум программистов

reg09

Дата 18.4.2006, 15:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 18.4.2006

Репутация: нет
Всего: нет

Есть интересная такая задача...

На 1-м листе 2 столбца, 1-й столбец - код, 2-й - Наименование товара
На 2-м листе 1 столбец, в котором содержится код и наименования товара объединенные (код, затем точка, пробел, и полное название товара.
На 3-м листе расположены элементы управления
1. Нужно 2-й лист привести к тому же виду что и 1-й, т.е. код товара перенести в 1-ю колонку, а остальное (убрав точку и пробел) во 2-ю.
2. Затем нужно удалить из 1-го листа все те строки, код которых не найден среди кодов на листе 2
3. Выделить цветом на листе 2 все те строки, кодов которых нет на листе 1.

Что скажете? Не так страшен черт, как его малютка? smile

Это сообщение отредактировал(а) reg09 - 18.4.2006, 15:43

Staruha

Дата 18.4.2006, 20:34 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27

Клубочек быстро размотается ,надо только потянуть smile

Цитата

1. Нужно 2-й лист привести к тому же виду что и 1-й, т.е. код товара перенести в 1-ю колонку, а остальное (убрав точку и пробел) во 2-ю.

раскидываешь текст по столбцам.

Код


Private Sub CommandButton1_Click()
Dim M
Dim MArray As String
Dim i As Integer
Dim r As Integer
 For r = 1 To 5
MArray = Range("A" & r).Value
M = Split(MArray,". ")
 For i = 0 To UBound(M) 'начальная и конечная точка массива
 Cells(r, 2 + i) = M(i) '2-т.к.индексация массива начинается_
                        'с нуля плюс столбец в котором текст
 Next i
 Next r
End Sub

Цитата

Что скажете? Не так страшен черт, как его малютка?

гы

.До сих пор слышала "Как его малюют"

Это сообщение отредактировал(а) Staruha - 18.4.2006, 20:35

--------------------

Возмездие настигнет

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »