Tag: 取消select

将范围设置为所有填充的单元格

我需要设置一个范围来只select包含数据的行中的单元格。 有时在第3行的列B，C，D，E和F中会有数据，而在其他时间，在该行的前10或20列中会有数据。 我已经尝试了下面，但它不起作用。 Dim rRng As Range Set rRng = Sheets(1).Range("B3").End(xltoright) 我知道我很有标志，但我正在为此而挣扎。 此代码将运行各种不同的数据集; 有时需要select五个单元格，有时需要十个（如果填充）。

引用前一个调暗活动单元时出错（运行时错误“1004”）

我目前正在重新使用一些旧的代码作为循环，而不是160个不同的macros（字面上）。 有趣的是 ，我犯了select范围和使用活动单元格的主要罪恶（部分原因是我不知道这将如何工作，否则），我试图通过分配单元格=单元格等重build，但我不确定这将如何工作，我已经回到了我所知道的。 代码如下： Sub Refined_Code() ' Turn off the usual system hogs. Application.ScreenUpdating = False Application.DisplayStatusBar = False Application.EnableEvents = False ActiveSheet.DisplayPageBreaks = False ActiveWorkbook.ForceFullCalculation = False ' Dim some ranges for use later on. Dim BU As Range Set BU = Sheets("Control").Range("C3") Dim PorT As Range Set PorT = Sheets("Control").Range("C8") Dim BUStart As […]

在列F中复制具有特定值的范围内的行

我有一个工作表，有很多列，也很多行。 从这个工作表中，我想复制匹配2个条件的行：1.列B中的值必须与不同工作表中的下拉列表中的选定值匹配2.列F中的值必须与来自不同工作表中的选定值匹配下拉列表。 我有一个脚本，适用于条件之一。 Private Sub Worksheet_Change(ByVal Target As Range) Dim fRow As Integer, lRow As Integer Dim value As String Dim mychart As chart Dim mycharts As ChartObject If ActiveCell.Address = Sheets("blad1").Cells(1, 1).Address Then Sheets("chartdata").Cells.ClearContents For Each ChartObject In Sheets("blad3").ChartObjects ChartObject.Delete Next value = Sheets("blad1").Cells(1, 1).value With Sheets("schaduwblad") fRow = .Range("B:B").find(what:=value, after:=Range("B1")).Row lRow = .Range("B:B").find(what:=value, […]

select大小写错误输出

所以我试图让我的macros在一张纸上为我分析一些数据。 数据在单元格B2到B6上，数字在0和4之间（小数）。 我无法弄清楚我在做什么错误的代码，它可以很好地处理不同的单元格条件，如下所示 此代码工作： Sub Salmondepthoutlet() Dim score As Double, result As String Dim Rng As Range, i As Long i = 0 With Sheets("Vertical") For Each Rng In .Range("B7:B16") score = Rng.Value Select Case score Case Is >= 0.15 result = "1" Case 0.11 To 0.14 result = "0.6" Case 0.08 To 0.1 result […]

如何在Excel中结合这些SQL查询

我在Excel中有一个数据表，我想通过在excel vba中使用ado连接从它获得一些信息。 我已经写了三个查询来完成这项工作，并会写更多。 数据看起来像这样， 让我稍微解释一下。 Order No是工作的工作顺序。 Resource Id实际上是一台机器的唯一编号。 Duru Kodu是代码解释了Bitim Zamani （结束时间）和Basl Zamani （开始时间）之间停止的原因。 Qty是生产数量。 我只显示EM22的数据，但当然有更多的机器。 停止代码实际上分为两个计划和未计划。 计划代码是D00 D10 D11 。 从D01到D30的其他代码是非计划停止。 我想要一个特定资源ID的总计划停止，计划停止和数量，并按订单号将它们分组 我不能提出一个能够一次完成所有事情的查询，但将其分成三份。 第一个获得计划外停止。 第二个是计划停止，最后一个是数量。 'Specified Machine Number(EM22) makine = Sheets("Dashboard").Cells(2, 11).Value 'Unplanned sorgu1 = "select [Resource Id], [Order No], Sum(([Bitim Zamani]-[Basl Zamani])*1440) as Sure" sorgu1 = sorgu1 + " from [Data$] where […]

在PowerShell中过滤CSV文件中的内容

我使用以下PowerShell脚本来确定最终用户在其计算机上安装的应用程序（除了映像安装的默认应用程序之外）。 目前，该脚本收集旧计算机上的应用程序列表，并粘贴其下的默认应用程序列表（从DefaultApps.csv）。 然后我在Excel中打开它，添加条件格式来查找重复的条目，并隐藏/删除这些行。 然后，我留下了一个我需要在新用户的计算机上安装的列表，其中不包含图像安装的任何东西。 我想要做的是修改脚本，以便PowerShell将筛选出find的任何重复条目。 我在网上发现了几个地方，说明如何删除其中的一个条目，但在这种情况下，这并不会帮助我。 我非常希望PowerShell从远程PC拉取应用程序列表，然后删除DefaultApps.csv中存在的任何条目。 我不知道从哪里开始，因为除了这个脚本以外，我还没有做过多的编辑CSV文件的工作。 有人能指出我如何做到这一点正确的方向吗？ 如果你知道我应该看的cmdlet / switch，或者如果你有一个解释这个的页面的链接，这将是一个好的开始。 $PCListOld = Get-Content F:\PCList-Old.txt ForEach ($PC in $PCListOld) { $AppList = Get-WmiObject -Computer $PC Win32_Product | Sort-Object Name | Select-Object Name $AppList | Export-CSV C:\Scripts\AppLists\$PC.csv -NoTypeInformation Import-CSV C:\Scripts\AppLists\DefaultApps.csv | Export-CSV C:\Scripts\AppLists\$PC.csv -Append }

如何处理从Excel中的谷歌表单到枢轴表的多选答案

我正在处理一堆从谷歌表单结果电子表格到Excel电子表格（制作漂亮的图表和图表）的结果，但我不知道如何处理谷歌提供他们的方式多选题答案。 在下面的图片中，您会看到一些示例结果。 行代表填写表单中的一个人。 列名是问题本身，在单元格中，您将看到一个人select的多个答案（checkbox）。 现在我想要得到一个数据透视表，并select一个答案的总次数。 我也做了一个有所有答案的小桌子（见下图），但仍然无法弄清楚如何在另一个表格中得到这些答案的总数或百分比。 有人能告诉我如何使这个数据透视表在一个快速有效的方式，我有更多的这些types的答案和问题处理，所以我不能去在表中键入每个可能的答案。 所以这将是理想的结果： 提前致谢！

select所有单元格彼此相等的所有行

我有一张只显示单一types信息的大型表格：某一特定研究地点是否存在一种植物。 我在第一栏列出了500多个物种，并且列出了30个站点。 该表填充了一个简单的“Y”或“N”来显示存在。 例： Scientific Name Old Wives Beach Dadi Orote N Airstrip Abelmoschus moschatus NNN Abrus precatorius YNY Abutilon indicum NNN 然而，物种清单包含一些在任何地点都不存在的物种，呈现出一排充满“N”的行，就像上面例子中的第一行和第三行。 我需要删除这些行以使表更易于pipe理。 有没有什么办法可以实现这个没有很长的IF和声明？

为什么这个xls vba select有时会失败 – 在电子表格中没有改变

有人可以告诉我，如果我编码这个不好。 这种select似乎有时失败。 通过这个我的意思是我没有改变xls本身，但我可能只是检查数据，然后重新运行调用例程，它可能会失败，“范围类select方法失败” 我的这个例程的目标是改变一列数据的颜色。 从第1行到最后一行使用。 当这运行 cnum = 16 < – 这是我想突出显示的列号 lrow = 1418 < – 这是数据的最后一行 Sub HighlightColumn(colname As String, sheet As Worksheet, color As Long) Dim cnum As Integer Dim lrow As Long Dim lcol As Integer Dim r As Range lcol = sheet.UsedRange.Columns.Count lrow = RowCount(sheet) 'get column number cnum with […]

VBAselect两个variables的范围

我正在尝试select范围。 我没有问题select它与variables，让说，X和Y是variables。 我没有问题编写代码来select范围从例如A1:By 。 但是，我如何select一个范围从Ax:By ？ 有简单的一个线路解决scheme吗？ 预先感谢您的帮助 我的代码为A1：通过哪些作品 Sheets("Sim").Range("A1:B" & y).Select 我从Axe制作的代码：通过哪个不起作用 Sheets("Sim").Range("A" & x ":B" & y).Select