Tag: 可见的

Excel VBA ActiveWindow.Visible隐藏错误的工作簿: 我想打开一个工作簿（WB1），然后在打开时打开另一个工作簿（WB2）。我想WB2隐藏。 Private Sub Workbook_Open() Application.ScreenUpdating = False Workbooks.Open Filename:="C:\WB2.xlsm" ActiveWindow.Visible = False End Sub 这是我迄今为止所做的，它所做的就是隐藏两个工作簿。我希望WB1保持在最前面，并且可见。谢谢！玩笑

find第一个可见的单元格，并获得参考: 我试图select第一个可见的单元格后，使用自动筛选器。 If First.AutoFilter.Range.Columns(1).SpecialCells(xlVisible).Count – 1 > 0 Then Range("A1").Select Do ActiveCell.Offset(1, 0).Select Loop While ActiveCell.EntireRow.Hidden = True 但是下一步我需要使用这个单元格，所以我需要它的行号和列号。我怎么能得到它？（不使用lastrow和lastcolumn）

VBA代码过滤一列，然后填写另一列中可见单元格的公式: 我是相当新的macros，但我想过滤列AW，然后键入文本对应的AZ列中的条件。当然，我想填充文本到可见单元格，然后重复使用列AZ中过滤的其他标准的过程。我正在使用下面的代码，但它不填写列AZ，只在AZ2！我不希望标头受到影响。感谢这里的任何帮助！ -Amy Sub Macro16() ' Macro16 Macro 'Insert Column – OK Columns("AZ:AZ").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("AZ1").Select ActiveCell.FormulaR1C1 = "Finalized Comment" Rows("1:1").Select Range("AS1").Activate Selection.AutoFilter 'Filter Combined Comment for #NA then type "Style linked to a Dropped T/P" Dim lastRow As Long With ActiveSheet .Range("AW2").AutoFilter Field:=2, Criteria1:="#N/A" lastRow = .Range("AW" & Rows.Count).End(xlUp).Row .Range(.Range("AZ2"), […]

如何自动筛选表格内容并计算结果行数？: 我正在用VBA来计算一周中的某一天和一天中的小时（分别绘制）的事件的实例。 date/时间戳记的格式如下：“2/28/2014 20:32” 例： AppID = 14329 DateCreated = 2/28/14 20:55 日=星期五小时= 20:55 我现在正在将数据复制到一个新的列，并将date格式设置为“dddd”，所以它会显示为“星期天”等。从那里我是自动过滤一周的每一天，并计数产生的可见细胞。这是用这个代码： With Range("C2:C" & LR) .AutoFilter .AutoFilter Field:=3, Criteria1:="Sunday" cCnt = ActiveSheet.AutoFilter.Range.Columns(3) _ .SpecialCells(xlCellTypeVisible).Cells.Count For Each cell In Range("C2:C" & cCnt) Sun = Sun + 1 Next .AutoFilter Field:=3, Criteria1:="Monday" cCnt = ActiveSheet.AutoFilter.Range.Columns(3) _ .SpecialCells(xlCellTypeVisible).Cells.Count For Each cell In Range("C2:C" […]

当我使用AutoCilter的SpecialCells在VBA中获取可见单元格时出错: 我的主要目标是复制自动筛选器的可见单元格，然后将可见单元格的尺寸复制到新工作表。我正在使用这个代码： Sheets(1).AutoFilterMode = False Sheets(1).Range("A1:A1").AutoFilter Field:=columnaNumeroIntervalo, criteria1:=CDec(paramCantidadCriterio) Sheets(1).Range("A1:A1").AutoFilter Field:=columnaNumeroIntervaloUnidades, Criteria1:=paramUnidadesCriterio MsgBox AutoFilter.Range.SpecialCells(xlCellTypeVisible)(2, 11).Value 用最后一行我想检查单元格的值。如果我使用Cells(2,11)而不是SpecialCells我可以看到单元格中的所有单元格都是可见的，不可见的。所以我想用SpecialCells 。如果我使用特殊的单元格，我得到以下错误： error '-2147417848 (80010108) in runtime. Automatization error. 对于执行的types来说，它似乎进入一个循环，并最终给出这个错误。也许SpecialCells修改自动filter，然后在每次修改再次执行自动filter？