Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Программирование, связанное с MS Office > Создание хитрого макроса


Автор: reg09 18.4.2006, 15:40
Есть интересная такая задача... 

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

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

Автор: Staruha 18.4.2006, 20:34
Клубочек быстро размотается ,надо только потянуть 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
Цитата

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

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)