Tag: 取消select

在Range.select中遇到variables问题: 任何人都可以给我一个线索，为什么我似乎无法得到一个variables在我的Range.select函数？正如您从注释中看到的，我已经尝试了许多不同的语法和命令，但是我总是得到一个运行时错误1004，对象全局范围失败我试图从特定部分中的表单中获取数据，并将其复制到表格2中当前行中的特定单元格（按循环计数）。忽略未完成的循环，一直没有能够让它运行，所以我还没有完成编写循环。 Sub PutDataSht2() Dim rowVal As Integer rowVal = 1 ' ' PutDataSht2 ' ' 'ThisWorkbook.Activate 'Sheets("Sheet1").Activate Sheets("Sheet1").Select Range("A38:H38").Select Selection.Copy 'Sheets("Sheet2").Activate Sheets("Sheet2").Select 'Range("A1:H1").Select Range("A[XrowVal]:H[XrowVal]").Select 'Range("A & rowVal:H & rowVal").Select 'Application.Goto ActiveWorkbook.Sheets("Sheet2").Range("A & rowVal:H & rowVal") 'ActiveSheet.Range(Cells(1, rowVal), Cells(8, rowVal)).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Sheets("Sheet1").Activate Sheets("Sheet1").Select Range("B85:H85").Select Application.CutCopyMode = False […]

worksheet_change运行时错误: 下面的代码适用于工作表上的数据透视表数据范围，当“SelectionChange”被激活时（每次点击），它将更新每个工作表上的所有“数据透视表3”。它通常工作，除非我编辑它，然后重试问题：如何使用“Worksheet_Change”？我总是得到一个运行时错误，无法弄清楚语法 Private Sub Worksheet_SelectionChange(ByVal Target As Range) For Each ws In ActiveWorkbook.Worksheets Call PivRefresh Next End Sub Sub PivRefresh() ActiveSheet.PivotTables("PivotTable3").PivotCache.refresh End Sub

如何设置当前所选单元格的范围: 我试图设置一系列已经被选中的单元格，有没有办法做到这一点？ Range("e2").Select Range(Selection.End(xlToRight), Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlToRight)).Select Set temprange = activeselection 我不得不select这种方式，因为在工作表中没有数据总是在所有的列，但在E它必须和数据从第2行开始工作正常，但我需要设置它作为一个范围在其他通过一个filter在上面。 Activeselection太容易了，所以我应该知道，它不会这样工作..什么是正确的方法来做到这一点？谢谢

使用工作表CodeName和避免.Select＆.Activate: 在我的工作簿中，我经常需要使用他们的CodeName来激活一些工作表，然后在该工作表中search一些文本，并使用包含我正在查找的文本的单元格的行号或列号。在这种情况下，我使用下面的代码： Sheet16.Select '(Using codename) Cells.Find(What:="FIRST TEXT I'M LOOKING FOR", After:= _ ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate FirstRow= ActiveCell.Row Cells.Find(What:="SECOND TEXT I'M LOOKING FOR", After:= _ ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate SecondRow = ActiveCell.Row Rows(FirstRow & ":" & SecondRow + 1).EntireRow.Hidden = False Eveything运作良好，但现在我正在努力提高我的代码，我想更快地运行我的代码。现在， 1-如何轻松地引用我的WorkSheets的CodeName？（我正在寻找像ThisWorkbook.Worksheets（“Sheet1”） […]

如何在Excel VBA中获取选定的形状？: 我插入了一个聪明的艺术，并将其转换为形状。并通过点击select一个形状。现在我想获得Shape形状的Shape对象。我已经尝试过，但它会抛出exception。 dim shap as Excel.Shape = ExcelApp.Selection 我可以通过迭代ActiveSheet.Shapes或像这样得到形状对象 dim shap as Excel.Shape = ActiveSheet.Shapes.Item(1) 但是，我怎么会知道这个形状被选中或不，真的需要帮助谢谢。

Powerpoint VBA：是否可以让用户使用鼠标/键盘在Excel中select范围？: 在Excel中，用户可以通过用鼠标或键盘select一个单元格范围（例如，下图），或者在input模式下input公式，然后继续select范围细胞）：有谁知道这样的function是否可以从Powerpointmacros/加载项中调用？本质上，我想在Powerpoint中有一段代码，它生成一个类似的对话框，允许用户直接selectExcel电子表格中的一系列单元格，并让PPTmacroslogging那个范围是什么。谢谢！

Excel VBA代码以在一个工作簿中select包含特定文本string的单元格，然后将这些单元格复制并粘贴到新的工作簿: 我在Excel电子表格的单个列中包含一大组数据。我一直在试图找出一种方法来自动化一个方法，从一个工作簿中的列中select某些数据，并将其粘贴到一个新的工作簿中。例如，我在列中有一个名称列表。我想select任何包含文本“名字：”的单元格，然后将这些单元格复制并粘贴到不同工作簿中的列中。我可以使用Excel中的“查找所有”工具手动执行此操作，使用“Find what：”select单元格，然后使用Ctrl + Aselect所有find的项目，然后closures“Find All”工具，并使用Ctrl + C复制所有单元格，移至下一个工作簿，然后使用Ctrl + V粘贴这些单元格。但是，我需要做这个过程很多次，不幸的是，macroslogging器不logging在“查找全部”工具中执行的任何查询/进程。我假设我需要一些VBA代码，但一直没有find任何适合的网站/论坛。

使用VBA直接引用范围Excel: 我在使用直接引用时遇到了问题。我试图把值放在根工作簿，而不使用select或激活。但是，如果数据需要复制到哪里不工作，我的代码会给出一个错误。如果工作表处于活动状态，则代码正常工作。这是我的代码 Workbooks(root).Activate Dim wb As Workbook Set wb = Application.Workbooks(root) wb.Sheets("d_eff_stress").Cells(1, n).Value = filename wb.Sheets("d_eff_stress").Range(Cells(3, n), Cells(100, n)).Value = varray1 wb.Sheets("eff_stress").Cells(1, n).Value = filename wb.Sheets("eff_stress").Range(Cells(3, n), Cells(100, n)).Value = varray2 解决scheme：全面参考范围…我可能已经知道 Workbooks(root).Activate Dim wb As Workbook Set wb = Application.Workbooks(root) wb.Sheets("d_eff_stress").Cells(1, n).Value = filename wb.Sheets("d_eff_stress").Range(wb.Sheets("d_eff_stress").Cells(3, n), wb.Sheets("d_eff_stress").Cells(100, n)).Value = varray1 wb.Sheets("eff_stress").Cells(1, […]

Excel代码即使有空单元格也可以select列: 您好我目前正在使用此代码，但它只select列，直到它find一个空单元格，我想要的是从H3单元格中select列，直到该列中的最后一个值，即使有空行 Range("H3").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select

如何避免在循环vba中selectdynamic行: 过去几个月我一直在使用下面的代码。但我刚刚发现，因为我在工作表中select一个dynamic范围，如果我不在工作表中，我会select方法范围类失败。下面的代码失败： With w.Sheets("Sheet1") n = .Cells(Rows.Count, 2).End(xlUp).Row .Range("Y2:AI2").Copy .Cells(n, 25).Select .Range(Selection, Selection.End(xlUp).Offset(1, 0)).PasteSpecial xlPasteFormulas .Application.CutCopyMode = False End With 以下代码成功： With w.Sheets("Sheet1") n = .Cells(Rows.Count, 2).End(xlUp).Row .Range("Y2:AI2").Copy Sheets("Sheet1").Select .Cells(n, 25).Select .Range(Selection, Selection.End(xlUp).Offset(1, 0)).PasteSpecial xlPasteFormulas .Application.CutCopyMode = False End With 我必须再次select表单。理想情况下，我想避免select/激活干脆！任何转向正确的方向将不胜感激！