English 中文(简体)
组合 VBA 代码以隐藏多行
原标题:Combine VBA Codes to Hide Multiple Rows
  • 时间:2023-02-08 18:06:51
  •  标签:
  • excel
  • vba
  • row
I d like to combine two codes which hide rows. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheets("Re-Hire Questionnaire").Protect Password:="Testing2022!", UserInterFaceOnly:=True If Range("B12").Value = False Then Rows("9:11").EntireRow.Hidden = True Else Rows("9:11").EntireRow.Hidden = False End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheets("Re-Hire Questionnaire").Protect Password:="Testing2022!", UserInterFaceOnly:=True If Range("B19").Value = False Then Rows("16:16").EntireRow.Hidden = True Else Rows("16:16").EntireRow.Hidden = False End If End Sub Tried to place them underneath each other.
问题回答
A Worksheet Selection Change: Hide Rows Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub Dim TargetCells: TargetCells = Array("B12", "B19") Dim HideRows: HideRows = Array("9:11", "16:16") Dim tCell As Range, hRows As Range, n As Long, WasSelected As Boolean For n = LBound(TargetCells) To UBound(TargetCells) Set tCell = Me.Range(TargetCells(n)) If Not Intersect(tCell, Target) Is Nothing Then Set hRows = Me.Rows(HideRows(n)) hRows.EntireRow.Hidden = tCell.Value = False WasSelected = True End If Next n If WasSelected Then Me.Parent.Sheets("Re-Hire Questionnaire").Protect _ Password:="Testing2022!", UserInterFaceOnly:=True End If End Sub




相关问题
import of excel in SQL imports NULL lines

I have a stored procedure that imports differently formatted workbooks into a database table, does work on them then drops the table. Here is the populating query. SELECT IDENTITY(INT,1,1) AS ID ...

Connecting to Oracle 10g with ODBC from Excel VBA

The following code works. the connection opens fine but recordset.recordCount always returns -1 when there is data in the table. ANd If I try to call any methods/properties on recordset it crashes ...

Excel date to Unix timestamp

Does anyone know how to convert an Excel date to a correct Unix timestamp?

C# GemBox Excel Import Error

I am trying to import an excel file into a data table using GemBox and I keep getting this error: Invalid data value when extracting to DataTable at SourceRowIndex: 1, and SourceColumnIndex: 1. As ...

Importing from excel "applications" using SSIS

I am looking for any tips or resources on importing from excel into a SQL database, but specifically when the information is NOT in column and row format. I am currently doing some pre-development ...

热门标签