| Вопрос: как задать условие «ТЕКСТ СОДЕРЖИТ «Х»???!!!!!!!!! | Добавлено: 18.10.10 10:27 |
Автор вопроса:  iruska109 | ICQ: 370774468 |
|
Всем доброго времени суток.
Такой вопрос. Нужна сортировка по вертикали и горизонтали. Здесь простой пример как будут скрываться ненужные столбцы. Но не знаю как задать условие «ТЕКСТ СОДЕРЖИТ «Х».Причем количество символов может быть любое.В названий столбцов будут номера чертежей и номера линий типа «UPJ-TFP-4000-LIS-19025 400-0-FC-0396-2"-B21» Спасибо Я не чайник…я еще учусь)) VB-help |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  iruska109 ICQ: 370774468 Вопросов: 1 Ответов: 2 |
Профиль | | #1 | Добавлено: 18.10.10 10:40 |
|
не знаю как прикрепить файл...протсо текст програмки
Private Sub CommandButton1_Click() For i = 1 To 7 x = Worksheets(1).Cells(5, 5) d = Worksheets(1).Cells(5, 7 + i) For colCount = 8 To 14 For rowCount = 5 To 6 Columns(colCount).Hidden = True If Cells(5, colCount) = x Then Columns(colCount).Hidden = False Exit For End If Next rowCount Next colCount Next i End Sub Private Sub CommandButton2_Click() Dim rowCount As Long Dim colCount As Long For i = 1 To 7 x = Worksheets(1).Cells(5, 5) d = Worksheets(1).Cells(5, 7 + i) For colCount = 8 To 14 For rowCount = 5 To 6 Columns(colCount).Hidden = False Next rowCount Next colCount Next i End Sub Одна кнопка отбирает нужный столбец и скрывает ненужные , другая отображает все столбцы обратно ВОПРОС как задать не РАВНО (If Cells(5, colCount) = x Then) а ТЕКСТ СОДЕРЖИТ Х СПАСИБО |
||
|
Номер ответа: 2 Автор ответа:    Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #2 | Добавлено: 18.10.10 11:09 |
| if (instr(1, Cells(5, colCount), x, vbTextCompare)) | ||
|
Номер ответа: 3 Автор ответа: iruska109ICQ: 370774468 Вопросов: 1 Ответов: 2 |
Профиль | | #3 | Добавлено: 18.10.10 14:14 |
| СПАСИБО ОГРОМНОЕ!!!!!!!!!!!ВСЕ работает!!!!!! | ||
Страница: 1 |