Tag: 取消select

从用户select中获取多个范围（Excel VBA）

是否有可能从用户select中获得多个范围。 例如，如果用户select“A1：B2”，然后按住Ctrl并select“E1：G2”，那么我可以得到第一个范围1范围variables和第二个到另一个？

如何使用设定的范围

我正在寻找一种方法来改善一个更好的方式来写一段代码，看看是否有客户从“第二列表”中的“第一列表”，并将数据复制到名为“find”的工作表。 它是这样的： Dim row As Long, row2 As Long, found as Long Dim ID As String, prtGtId as String, GtId2 as String Application.ScreenUpdating = False prtGtId = "B" GtId2 = "D" row = 2 row2 = 2 found = 0 Do While row <= Cells(Rows.Count, prtGtId).End(xlUp).row ID = Cells(row, prtGtId) Sheets("Second List").Select Do While row2 […]

vbaselect/删除除第一个以外的所有表单

我在清除不必要的纸张时遇到了问题。 我看了不同的论坛，并将不同的解决scheme混合在一起。 这个macros删除表单（第一个表单除外）。 Sub wrong() Dim sht As Object Application.DisplayAlerts = False For Each sht In ActiveWorkbook.Sheets If sht.Index <> 1 Then sht.Delete End If Next End Sub 这个解决scheme好吗，还是可以改进？ 我也尝试直接对象（工作簿，工作表）的行动，但我每次都失败了

SQL – 按提供者的成员获得最高利用率

我的数据看起来像这样： Member – Provider – UtilizationCounts 123 – AA – 10 234 – BB – 8 456 – AA – 7 123 – CC – 5 我需要显示具有最高利用率的成员信息和提供者信息。 所以结果应该是这样的： Member – Provider – UtilizationCounts 123 – AA – 10 234 – BB – 8 456 – AA – 7

在mysql中使用SELECT INTO OUTFILE命令保存XLS文件

即时通讯使用SELECT INTO OUTFILE查询与XLS文件 "SELECT * INTO OUTFILE " . "myfile.xls" . " FIELDS TERMINATED BY '\t' LINES TERMINATED BY '\n' FROM transactions where ppno like '%$cid%' 我使用XLS文件而不是CSV。 这有什么问题吗？ 当我尝试在Microsoft Excel中打开该XLS文件它说'该文件是在不同的格式，你确定要打开'… PLZbuild议我

从excel粘贴到文本框

我想从一个Excel文件复制一些数据到一个文本框中的一个胜利的应用程序。 复制粘贴工作正常，如果单元格是连续的，但如果我select（与CTRL）的第一个和第三个单元格，当我将其粘贴到文本框，它也将粘贴第二个单元格。 获得我感兴趣的细胞的最佳方法是什么？ 谢谢

在Excel中lockingselect框大小

这似乎是一个简单的事情，但我无法弄清楚，或在网上find它。 如果我select列中的5个单元格（比如A1：A5），并且我想将此select形状（列1：5）移到（到B1：B5）; 有没有捷径可以做到这一点？ 目前我按左箭头，select框更改大小只是B1，我必须点击shift并selectB2：B5。 理想情况下，我想发现一个“locking”select框形状的热键。 有同事build议写一个macros，但是这在很多情况下是无效的。 例如，如果不是列，我想用一行或不同大小的形状做同样的事情。 excel似乎有内置此function。

Excel VBA – 链接来自不同工作表的行

情景：由于敏感材料，我无法发布实际的工作簿，但我会尽可能最好地解释它。 每个工作表分为多个分支，即：工作表2是分支2，工作表3是分支3等等。 对于每张表格，栏目都是一样的。 A列中有分支号码。 B列有不相关的信息，所以我只隐藏该列。 C列有一个系统号码（特定于每个帐户。 意图：我想创build另一个名为CallOuts表。 我想复制一些行（从各个分支），并将其粘贴到“主表”（ CallOuts ）我可以在CallOuts工作表，而不是去每个分支。 所以，每当我编辑一个单元格，它也将更新/更改分支表单中的完全相同的单元格，反之亦然与主表单。 问题：我知道MS Exccel有一个“粘贴特殊”function，它添加了单元格。 与它的问题是它链接单元格，所以如果我sorting母表，它会将行replace到错误的分支表。 例如：如果系统＃J112在分支2表中，第2行和我在主表单中的第4行粘贴了链接，如果我在主表上进行更新，然后重新sorting，系统＃现在移动到行2（在主表单上）第4行（在主表上）中的任何内容现在都在第2行，分支2表单中。 我想也许是一个macros，我可以从主表复制和粘贴整个行。 做一些types的案例select来检查哪一个分支在列A中，然后在分支表上find相同的系统＃然后粘贴整行。 我的VBA级别是最好的新手，所以任何帮助，将不胜感激。

代码来select文本并将其删除

我正在尝试创build一个macros来查找特定的expression式并删除该内容。 例如，我需要删除从“通知”一词到“早上好”（但是如果可能，保持“早上好”）的所有内容。 我有一个代码删除一行，但不知道如何做一个select，因为我没有相同的行数每次。 可能是3或9，或多或less。 我有这样的代码是这样的（我已经删除了代码，做了其他事情，这与我有这个问题没有关系的部分）： Private Sub ProcessMsg(msg As MailItem) On Error GoTo ErrorHandlerProcessMsg Dim msg2 As Outlook.MailItem Dim msgDoc As Word.Document Dim msgDoc2 As Word.Document Dim objSel As Word.Selection Set msg2 = Application.CreateItem(olMailItem) Set msgDoc = msg.GetInspector.WordEditor Set msgDoc2 = msg2.GetInspector.WordEditor msgDoc.Select msgDoc.Windows(1).Selection.Copy msgDoc2.Windows(1).Selection.PasteAndFormat wdPasteDefault Set objSel = msgDoc2.Windows(1).Selection With objSel .Find.Execute "NOTIFICATION" .Collapse […]

VBAselect案例运行时错误13

我试图运行一个select的情况下，当一个单元格被改变的范围内，当input特定的文本时运行一个macros。 我有一个工作单元（和后面的代码）为“F50”，但是当我尝试使用相同样式的代码几行后，它不起作用。 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("F50")) Is Nothing Then Select Case Range("F50") Case "MPR-9A": Resize9 Case "MPR-8A": Resize8 Case "MPR-6A": Resize6 Case "MPR-3A": Resize3 End Select End If If Not Intersect(Target, Range("F4:F45")) Is Nothing Then Select Case Range("F4:F45") Case "M-20A": M20A Case "M-2X20A": M2X20A Case "M-20A-SP": M20ASP End Select […]