Платные хостинги     Раскрутка сайта     Книги по программированию

Макрос автоматического скрытия столбцов в Excel

- ActiveCell.ColumnWidth = 0 'скрытьActiveCell.ColumnWidth = 100 ' показатьМожно прям на панель кнопки две вытащить и на них макросы навесить

- Вопрос тебе понятен? ему нужен цикл на обработку и если столбец содержит только название то тогда скрыть. kokos посмотри пример кода у iNot там цикл на поиск определенного значения по шаблону. ты можеш изменить условия и оставить только один цикл (там перебираются все листы книги) на один лист. А в условии поставь : если значений нет - тогда уже используй то что тебе предложил FoX.

- Private sub CommandButton1_Click()dim x,y, as integerFor a = 2 to 100 - по количеству строк for b = 2 to 300 - по кличеству столбцов if Cells(a,b) <> "" then exit sub else ActiveCell.ColumnWidth = 0 'скрыть ActiveCell.ColumnWidth = 100 ' показать end if next b next aend subПриблизительно так - хотя не проверял на практике )))) Удачи

- Ну я так думаю , что если давать код то нужно самому его обкатать ( каюсь и у меня такие грехи были)Ну а вообще направление правильное, я так думаю что и автор уже понял как эту проблему решить.Удачи Вам !!!

- Alles Да знаю-знаю.......у меня просто времени не было.......ди и в конце-концов просто идею (алгоритм) хотел показать.......))))

-

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD