Tag: 取消select

从默认表大小VBA Excel中select所有数据: 我有一个电子表格的默认表格大小和布局是由另一个电子表格的信息填充。该表总是具有相同的列数，但行中的条目数量可能会有所不同。我想从表中select所有数据，并将其粘贴到另一个表中，而不复制任何空行。我最初的尝试涉及以下代码： Set rightcell = Range("B9").End(x1Right) Set bottomcell = Range(rightcell).End(x1Down) 要定义右下angular应该是什么，所以我可以像这样引用整个表格： Range("B9", bottomcell).Select 或复制或其他。当我运行这个，它给了我一个“用户定义或对象定义的错误”，我不知道为什么。我把代码input为一个更大的子的一部分，我已经定义了我的variables作为范围和变体，试图让这个工作。我花了相当多的时间在互联网上寻找解决scheme，但到目前为止，我发现的信息并没有明确地涉及到我的问题，也没有类似的解决scheme。有谁知道这是什么适当的编码，或者如果我正在做一些小的错误，抛出一切closures？我记得在大学的一个项目中遇到同样的问题，但在我的生活中，我不记得解决办法。这很令人沮丧。另外，如果我太模糊或者需要更多的解释，请不要犹豫。先谢谢您的帮助！编辑：我忽略了一个重要的注意事项是，我想从中提取数据的表格是在与多个其他表格的中间，我不想与之交互。

检测刚刚停用的工作表中的selecttypes: 我想要一个方法来查询，更改ActiveSheet ，没有额外的激活/取消激活：上一个活动工作表中的Selectiontypes（最重要的，如果它是ChartObject或Range ）。如果它是一个Range ，获取地址。这可能吗 …？ PS：这个答案将帮助我find在任何打开的工作簿中检测刚停用的工作表中的selecttypes的答案。但他们不一样。

VBA：来自userForm的访问表: 我正在尝试访问我的工作簿和工作表，而我在UserForm的子例程中。工作表中的焦点更改时，我的macros开始： Sub Worksheet_SelectionChange(ByVal Target As Range) '… End Sub 在我的UserForm中，我现在想要定义当右上angular的红色x被按下时会发生什么。在这种情况下，我想在用户窗体closures时更改Sheet1中的焦点/select。虽然，我想要做到这一点相对于原来的位置，所以相对于目标或相对于ActiveCell 。在上面的例程中有什么作用是： ActiveCell.Offset(0, 1).Select 不过，我想在下面的例程中这样做： Sub UserForm_Terminate() Me.Hide 'change focus here End End Sub 我能够select一个单元格 Sheet1.Cells(3, 3).Select 但这显然不是相对于原来的位置。在UserForm_Terminate中， Target和ActiveCell都不可用我希望任何人都可以帮忙 Vincenz

VBAselect案例插入: 我正在尝试编写一个select case函数来确定D列中的文本和单元格A2中的值，并分别取决于文本和值，并在与活动单元格相邻的列中插入适当的值。这是我到目前为止（显然这将增长考虑到列D和A2中的所有variables） Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "D:D" Then Select Case ActiveCell.TextPart = "" Case ActiveCell.TextPart = "Cat I(a)" And Range("A2").Value = 1: ActiveCell.Offset (0,1).Insert.Value "1" 谁能告诉我我做错了什么？我是我的Uni论文的VBA新手写作代码。

随机查找Excel: 我想对数据列表进行随机查找。我使用了Vlookup，但只返回匹配的第一个单元格。请帮助从列表中随机select。数据：$ A $ 1：$ B $ 12 CHESSCY 3562908 CHESSCY 5917972 CHESSCY 9120332 CHESSCY 1034603 CHESSCY 7267341 MANCY 9344508 MANCY 7246578 MANCY 8598782 MANCY 3522520 MANCY 8062641 MANCY 9191026 式： CHESSCY **3562908** >> =VLOOKUP(D1,$A$1:$B$12,2,FALSE) CHESSCY **3562908** >> =VLOOKUP(D2,$A$1:$B$12,2,FALSE) MANCY **9344508** >> =VLOOKUP(D4,$A$1:$B$12,2,FALSE) MANCY **9344508** >> =VLOOKUP(D5,$A$1:$B$12,2,FALSE)

自动filter后取消select范围: 这似乎非常简单直接，但无论我做了多lesstesting和检索，我都无法解决。我目前有脚本打开AutoFilter没有select任何东西，但我想我可以复制数据并粘贴到一个新的工作表没有select的数据。但是，在完成操作之后，它将显示列A：K。我一直无法弄清楚如何取消select工作表上的那些列，也没有能够find如何复制和粘贴没有被选中的第一个地方。任何指导表示赞赏。谢谢。 Sub RunScript() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim ws1 As Worksheet Set ws1 = ThisWorkbook.Sheets("Data") Sheets.Add.Name = "copy" Dim galreqws As Worksheet Set galreqws = ThisWorkbook.Sheets("copy") Sheets("Data").Select Range("A:K").AutoFilter ws1.Range("A1:K1000").Copy Destination:=Sheets("copy").Range("A1:K1000") galreqws.Delete 'Sheets("Data").Select Range("A:K").AutoFilter Range("A:K").Select Sheets("Buttons").Select Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

在Do Until循环中使用.Select属性的替代方法: 我试图运行一个简单的嵌套如果＆做直到多个工作表循环： Sub DoUntil() Dim ws As Worksheet Dim i As Integer For Each ws In ActiveWorkbook.Worksheets For i = 1 To 25 If ws.Cells(i, 10) = "T" Then ws.Cells(i, 10).Select Do Until ActiveCell = "P" ActiveCell.Offset(1, 1) = 1 ActiveCell.Offset(1, 0).Select Loop End If Next i Next ws End Sub 目的：这个函数是为了遍历一个列，并把1放在下一列的右边。 1必须在“T”之后开始，以“P”结束。 T和P的间距不均匀。问题：为没有ws的单个工作表运行此代码。对象没有问题。 […]

VBA – select方法失败: 对于VBA来说，我是一个相当新的东西，所以如果对于更有经验的用户来说问题是显而易见的，那么很抱歉我尝试阅读几个类似问题的答案，并解决问题，但仍面临同样的问题。我的代码是： Workbooks("XXX.xls").Activate ' Setting column width Workbooks("XXX.xls").Worksheets("XXX").Cells.Select Selection.ColumnWidth = 10 ' Filtering XXX funds Workbooks("XXX.xls").Worksheets("XXX").Rows("1:1").Select Selection.AutoFilter Field:=3, Criteria1:="=*XXX*" ' Add new sheet and rename it Sheets.Add After:=Worksheets(Worksheets.Count) ActiveSheet.Name = "XXX_F" 'Copying needed information Workbooks("XXX.xls").Worksheets("XXX").Range("A1:C1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy 我得到的错误是“运行时错误”1004“：select范围类失败的方法”在底部的第三行。我试图通过添加这一行来解决它（即激活工作簿，我想先处理）： Workbooks("XXX.xls").Activate 此外，我在我的代码中使用明确的引用，如： Workbooks("XXX.xls").Worksheets("XXX").Range("A1:C1").Select 我明白，最好不要在我的代码中使用.Select方法。但这不是我第一次得到这个错误，我只是想了解VBA的逻辑。据我了解Excel只是不明白我指的是哪张表，但我不明白为什么 – 因为我已经激活了工作簿，我需要（我有几个工作簿打开），并使用明确的引用。如果你可以请详细解释为什么会发生这个错误（即Excel在哪个时间点混淆），我将不胜感激！感谢大家提前的帮助！

我如何写一个Excelmacros来select一组单元格？: 我正在寻找一个可以运行的macros来select一个一致的单元格范围，以便我可以轻松地将它们复制到另一个电子表格。范围将是F3：BJ3。

VB – Visual Studio 2010中的自动化Excel – select已更改的问题: 我目前正在编写一个实用程序，它从Excel文档中获取两组不同的数据并将其发送到两个不同的Web服务。每组数据都有自己的button，将数据发送到Web服务。当单击abutton时，相应的Web服务将根据input值返回数据。我所要做的是让这个工具可以被各种各样的人所使用。他们将要做的是将他们自己的Excel文档中的特定单元格与我实用程序中的相应单元格同步。使用简单的Excel公式。例如： c:\temp\[book1.xls]sheet1'!a1 现在我想要做的是自动“点击”button，或更新，当用户将他们的单元格连接到我的实用程序相应的单元格上的工具。我已经尝试了我的页面上的select更改事件。但是，直到我的实用程序处于活动状态或点击状态，它才会真正处理。有没有办法让我的工具自动更新？如果不知何故，当我的公用事业被closures时，这将是特别真棒。所以当用户打开它时，它已经充满了他们的信息，输出是正确的。