Как скрыть несколько столбцов в листе Excel?

Question

Я использую 4 последовательных столбца на листе 1 для создания диаграмм на листе 2. Я хочу скрыть эти 4 столбца на листе 1.

Я пробовал приведенный ниже код, чтобы скрыть столбцы:

Set allColumns = dataSheet.Columns("J:M")
allColumns.Hidden = True

Answer 1

Поменяйте Sheet1 с вашим фактическим названием листа.

Sub HideMe()

    ThisWorkbook.Sheets("Sheet1").Columns("J:M").Hidden = True

End Sub

---

Обратите внимание, что это можно сделать в одну строку.Если вы хотите использовать переменные (рабочую книгу или рабочие таблицы), они должны объединить вышеуказанную строку при объединении

Что-то вроде:

Dim wb as Workbook: Set wb = ThisWorkbook
Dim ws as Worksheet: Set ws = wb.Sheets("Sheet1")
Dim hm as String: hm = "J:M"

ws.Columns(hm).Hidden = True

Если вы подставите переменные в последнюю строку, вы будетев конечном итоге с точно такой же строкой кода, показанной в первом подпункте.

Answer 2

Константы и ссылки

Sub AllCol()

  Const cVntSheet As Variant = "Sheet1"   ' Worksheet Name/Index
  Const cStrRange As String = "J:M"       ' Range Address

  Dim dataSheet As Worksheet              ' Worksheet

  ' Create a reference to the worksheet.
  Set dataSheet = Worksheets(cVntSheet)

  ' Hide the range.
  dataSheet.Columns(cStrRange).Hidden = True

End Sub