Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Определение наличия скрытых столбцов
 
#1
14.05.2020 20:58:09
Здравствуйте!
Можно ли каким-то способом быстро определить, есть ли на листе скрытые столбцы?
Через "инспектор документов" или тупо подсчитать уходит больше времени, чем хотелось бы.

P.S. Если узнать еще, какой именно столбец скрыт, то вообще супер!
 
 
 
#2
14.05.2020 21:01:14
Макросом в цикле проверять
Код
If Columns(j).Hidden = True Then

А lальше что пожелаете: открывать, считать, создавать списки...
 
 
 
#3
14.05.2020 21:10:09
Цитата
Александр Чекирда написал:
уходит больше времени, чем хотелось бы
Цикл из #2 по всем столбцам листа будет идти сотые доли секунды.
Владимир
 
 
 
#4
14.05.2020 21:13:54
vikttur
Несколько файлов, состоящих из множества листов, хочу перенести в новую книгу (т.к. формат ячеек ведет себя неадекватно, в основном, при вводе чисел становится денежным). Есть в этих файлах скрытые столбцы с данными, которые участвуют в вычислениях. Теряю много времени на поиск этих скрытых столбцов
 
 
 
#5
14.05.2020 21:15:11
О многих листах/книгах - это не по теме.
 
 
 
#6
14.05.2020 21:21:24
vikttur,
Цитата
О многих листах/книгах - это не по теме.
Я просто обрисовал ситуацию (т.к. тема о проблеме с форматами ячеек была решена не окончательно). А по этой теме - прошу макрос полностью.  
 
 
 
#7
14.05.2020 21:28:07
Код
cells.SpecialCells(xlCellTypeVisible).Columns.Count<>cells.Columns.Count
Даст TRUE если есть скрытые столбцы
Изменено: БМВ - 14.05.2020 21:35:55
По вопросам из тем форума, личку не читаю.
 
 
 
#8
14.05.2020 21:36:34
Спасибо, что отозвались. Что мне с этим делать?
 
 
 
#9
14.05.2020 21:44:00
Александр Чекирда, использовать :-) .    
По вопросам из тем форума, личку не читаю.
 
 
 
#10
14.05.2020 21:46:09
Внесите в редактор VB и запустите.
 
 
 
#11
14.05.2020 21:47:15
Цитата
Александр Чекирда написал:
Что мне с этим делать?
Зависит от того, что вы хотите делать с этой информацией.
Что должно произойти, если есть?
Что должно произойти, если нет?
 
 
 
#12
14.05.2020 21:50:10
БМВ, Вы всегда были шутником. Но я спрашиваю, потому что не знаю как использовать вышенаписанные советы
 
 
 
#13
14.05.2020 21:57:58
"Королева, я в восхищении"
Сначала спрашиваете, как сделать, а после того, как получили ответ, спрашиваете ЧТО с этим делать.
Вопрос  - если вы не знали, что с этим делать, зачем спрашивали, как это делать?
 
 
 
#14
14.05.2020 22:02:44
Цитата
Александр Чекирда написал: не знаю как использовать вышенаписанные советы
Для начала хотя бы почитайте, как создавать макрос, где пишутся макросы...
Попробуйте записать макрорекодером скрытие/отображение столбцов, посмотрите, что получится, попробуйте прочитать  (F1 и подсказки в теме в помощь)
Не первый же вопрос на форуме задаете, значит, Excel для Вас не случайность. Пора уже чему-то научиться.
 
 
 
#15
14.05.2020 22:07:46
Александр Чекирда, вот такой модуль выведет сообщение о наличии/отсутствии скрытых колонок.

Код
Sub CheckIfHiddenColumns()
  If Cells.SpecialCells(xlCellTypeVisible).Columns.Count <> Cells.Columns.Count = True Then ' hint by BMW
       MsgBox "Hidden Columns Exist"
  Else
       MsgBox "No Hidden Columns"
  End If
End Sub
 
 
 
#16
14.05.2020 22:08:58
Александр Чекирда, вы правы пошутить я люблю, но на фоне этого обычно серьезно работаю.

так как не понятно что вам в итоге нужно то не возможно советовать, куда это вставить (гусары молчать!)
В целом что перебор столбцов, что моя строка это логическое условие которое даст понять что есть скрытые столбцы. Ну допустим напишем мы код, который при вызове сделает заключение и даст оповещение что есть скрытые, как это Вам поможет?
По вопросам из тем форума, личку не читаю.
 
 
 
#17
14.05.2020 22:09:42
RAN, а чего восхищаться? Я VBA не знаю. Это все равно, что на просьбу рассчитать тригонометрическую функцию, человеку дали логарифмическую линейку. А он видит ее в первый раз.
 
 
 
#18
14.05.2020 22:34:54
да что ж сегодня такое
Цитата
jack_21 написал:
If Cells.SpecialCells(xlCellTypeVisible).Columns.Count <> Cells.Columns.Count = True
не нужно там =TRUE, ну хоть не мне приписали
Цитата
jack_21 написал:
' hint by BMW
пусть баварцы мучаются :-)
По вопросам из тем форума, личку не читаю.
 
 
 
#19
14.05.2020 22:37:41
jack_21,

выдает "Sub or Function not defined"
 
 
 
#20
14.05.2020 22:41:15
БМВ, уточняющий вопрос: "=TRUE" не нужен или не обязателен?
У мну и так, и так работает...
Изменено: jack_21 - 14.05.2020 22:46:28
 
 
 
#21
14.05.2020 22:41:17
Цитата
БМВ написал:
как это Вам поможет?
...отбросятся те листы, где нет скрытых. Мы все столько понаписали...  
 
 
 
#22
14.05.2020 22:50:17
jack_21, нет смысла, то есть не обязателен. результат сравнения будет уже или TRUE или FALSE этого достаточно чтоб IF отработал, а еще раз TRUE=TRUE  - масло масляное.

Александр Чекирда,  ну вот написали Вам код, легче стало?  Я про то, что дальше то что будете с этим делать?  
По вопросам из тем форума, личку не читаю.
 
 
 
Страницы: 1
Наверх