Я регулярно скрываю и показываю столбцы на своих листах. Если у меня скрыт целый ряд столбцов, мне сложно показать один столбец из всех скрытых. Например, если я скрываю столбцы C: M и хочу отобразить столбец F, мне нужно отобразить весь диапазон, а затем повторно скрыть C: E и G: M. (Есть и другие способы выполнить ту же задачу, но ни один из них не вызывает особой симпатии.)

Однако я обнаружил, что один столбец можно очень легко отобразить с помощью макроса. Рассмотрим следующее:

Sub UnhideSingleColumn()

Dim Col As String     Dim rng As Range

StartHere:

Col = InputBox("Enter column to unhide.", "Unhide Column")

If Col = "" Then Exit Sub     On Error Resume Next     ' if not a valid range, an error occurs     Set rng = ActiveSheet.Columns(Col)

If Err.Number <> 0 Then         On Error GoTo 0         Err.Clear         MsgBox "Invalid input! Please input a valid column."

GoTo StartHere     End If

rng.EntireColumn.Hidden = False

MsgBox "Column " & UCase(Col) & " is now visible.", _       vbOKOnly, "Unhide Specified Column"

Set rng = Nothing     On Error GoTo 0 End Sub

Макрос запрашивает пользователя, для какого столбца следует сделать видимым, а затем пытается выбрать этот столбец. Если столбец не может быть выбран, генерируется ошибка, и пользователя снова запрашивают ввод. Если столбец можно выбрать, то его свойство .Hidden отключается, что делает столбец видимым.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2405) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и новее) здесь:

link: / excelribbon-Unhiding_a_Single_Column [Отображение одного столбца].