Tag: show hide
显示/隐藏行每下拉select
我在网上find代码，作为一个例子，我已经调整了显示或隐藏特定的行，这取决于我在Excel文件的下拉列表中select的select。 无论我尝试什么，macros都无法工作。 我的代码如下（还附加了问题2（2a – 2d）中不显示/隐藏的行的截图） Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$F$13" Then If Range("F13").Value = "Yes" Then Rows("14:17").EntireRow.Hidden = False End If If Range("F13").Value = "No" Then Rows("14:17").EntireRow.Hidden = True End If If Range("F13").Value = " " Then Rows("14:17").EntireRow.Hidden = True End If End Sub
保护和隐藏与“非常隐藏”表单相同的列
我试图隐藏一些列，并阻止用户有任何访问他们; 同时他们可以编辑工作表的其他部分。 我正在寻找的东西是这样的： ActiveWorkbook.Sheets("Name").Visible = xlSheetVeryHidden 所以用户不能看到他们。 我知道有一个select是添加另一个工作表并将这些列移动到那里并隐藏该工作表。 但是由于我正在研究一个相对较大的数据集，并且在公司内部有一个标准格式，我宁愿不这样做。 我已经尝试locking列和保护工作表，并检查除了用于selectlocking单元格，插入和删除行和列（下面的代码）的所有框。 Function VeryHideColumn(myColumn As Range) myColumn.Locked = True myColumn.FormulaHidden = True myColumn.Hidden = True 'myColumn.Hidden = xlVeryHidden 'I already tried this ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _ False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowInsertingHyperlinks:=True, AllowSorting:= _ True, AllowFiltering:=True, AllowUsingPivotTables:=True ActiveSheet.EnableSelection = xlUnlockedCells End Function 这是问题：用户仍然可以select一个包含这些隐藏和locking列的范围，并取消隐藏。 有什么方法或窍门像VeryHidden工作表可用范围？
根据单元格值隐藏/显示列
我试图隐藏一个列，并显示一个列有两个不同的Excel VBA（S）我的代码隐藏工作正常，但是当我无法回想列VBAbutton只是眨眼，什么都不做。 可能的原因是，当我试图显示列由于隐藏不可用。 我应该做些什么改变才能读出隐藏的列呢？ Sub SHOW() Dim rngX1 As Range Set rngX1 = Worksheets("Sheet1").Range("A4:P4").Find(Range("G1"), LookIn:=xlValues, lookAt:=xlWhole) If Not rngX1 Is Nothing Then If MsgBox("Do you want to delete Column " & Range("G1"), vbYesNo) = vbNo Then Exit Sub End If rngX1.EntireColumn.Hidden = False End If End Sub
VBA代码：隐藏但不会取消隐藏行
我已经阅读了一些关于在Excel中隐藏行的post，他们都帮助我隐藏，但我似乎还没有find任何解决scheme，为什么它不会UNHIDE。 我正在使用下面的代码： Private Sub Worksheet_Calculate() Dim LastRow As Long, c As Range Application.EnableEvents = False LastRow = Cells(Cells.Rows.Count, "D").End(xlUp).Row On Error Resume Next For Each c In Range("D116:D" & LastRow) If c.Value = 0 Then c.EntireRow.Hidden = True ElseIf c.Value > 0 Then c.EntireRow.Hidden = False End If Next On Error GoTo 0 Application.EnableEvents = […]
在Range属性中引用多个命名范围时出错
我有大约236个命名范围（列）的大型数据表。 试图分割分隔的命名区域的长代码行时出现此错误： 运行时错误“1004”应用程序定义或对象定义的错误 例如： Worksheets("Sheet1").Range("foo1,foo2" _ & "foo3,foo4" _ & "…" _ & "foo235,foo236") 我正在尝试根据特定条件（命名的范围）筛选和未筛选列。 似乎一切正常（对于只能跨越1行的较小的string），直到我必须将代码分成多行，因为它到达窗口的末尾。 代码 – Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$3" Then Worksheets("Sheet1").Range("Fruit," _ & "Months,Colour").EntireColumn.Hidden = Target.Value = "CustomView" End If If Target.Address = "$B$3" Then Worksheets("Sheet1").Range("Colour,Number" _ & "Months").EntireColumn.Hidden = Target.Value = "Custom2View" End If End […]
