Tag: excel

在excel中find对应string的值: 我想知道如何在excel中不使用if公式的情况下执行以下操作。假设这是表1 [数据]：在工作表2上，我想要这样的数值：在这种情况下，if语句不会太复杂，但是我需要用20个值和30行以及10列数据来做到这一点。这是可能的，还是我在为所有如果陈述的母亲？

Excel：有没有办法以编程方式更改多列列表框控件中单个单元格的背景颜色: 我有一个embedded在Excel中的多列表框控件，有没有办法改变单个单元格的背景，字体和其他属性（而不是改变列表框中的所有文本）？我不介意使用哪个列表框控件（activeX或其他）。我也会考虑使用另一个没有绑定到Excel工作表行和列的控件（即我不能使用表格）。

1秒延迟持续近2秒: 我正在编写一个代码，将数据从一个电子表格复制到另一个电子表格。我已经尝试了Application.Wait和睡眠，但他们阻止两个电子表格，所以我决定使用一个做直到循环。它有效，但1秒持续近2秒，我不知道为什么。所以我只留下了代码中的循环，但testing给出了相同的结果（大约需要95秒）。任何build议？这里是代码： Sub Test() Dim Delay As Date cell = 1 For i = 1 to 60 Workbooks("Data").Worksheets("Sheet1").Range("C" & cell).Value = cell cell = cell +1 Delay = Now() + TimeValue("00:00:01") Do Until Now() >= Delay Do Events Loop Next i End Sub

如何将平面表格转换为2D Excel表格: 我有一个“扁平化”的表与国家和Excel年。例如。 Country Year Value USA 1961 a USA 1962 x USA 1963 g USA 1964 y France 1961 u … 我想有一个二维表如下： 1961 1962 1963 1964 USA axgy France ueha Germany oxnp 你碰巧知道，如何在Excel中使用VBA进行编程。非常感谢任何提示或build议。

Excelmacros将单元格格式更改为受保护工作表的文本: 我有一个要求打开工作表一旦更改受保护的工作表单元格格式为文本（从date）。我的意思是说价值应该出现在表单中。我已经将我的代码保存在ThisWorkBook的Workbook_Open（）事件中，以及下面给出的步骤顺序。取消保护工作表： gSampleSheet.Unprotect Password:="MyPassword" 更改单元格格式： gSampleSheet.Range("K1:K100").NumberFormat = "Text" 保护工作表： gSampleSheet.Protect DrawingObjects:=False, contents:=True, Scenarios:=True, Password:="MyPassword" 在单元格中inputdate值时，应将其转换为文本格式，并且该值应按原样显示。即如果input12/12/15，12.12.15，12-12-15，12-Dec-15，那么它们应该在input时出现（而不是改变成date格式）。但是单元格显示了一些随机值，如T2015tx或其他值。请帮我解决这个问题，因为我正在努力寻找根本原因。

在Excel中从string列表中分割列: 我正在尝试创build基于文本文件的Excel文档。这是我的文本文件的一个例子： example.txt文件 |<Number1>| |TREE= 800 | |BIRD = 500 | |FISH = 25 | |DOG = 10 | |CAT = 5 | |ANOTHERCAT = 800 | |THERESOMANYCATS = 3 | |HAMSTER = 5 | |<Number2>| |TREE= 800 | |BIRD = 500 | |FISH = 25 | |DOG = 10 | |CAT = 5 | […]

Excel中使用一个声明variables在另一个子: 我想在这里做的是使用我声明的“vSelection”在另一个小组，但它似乎并没有工作。也许任何人都可以帮助我？这是我宣布的地方。 Public Sub cmdBladeren_Click() Dim vSelection As Variant vSelection = Application.GetOpenFilename("Graphics files (*.gif), *.gif") If vSelection = False Then MsgBox "Selecteer een foto!" Exit Sub End If End Sub 这是我想要使用它的地方 Private Sub btnOK_Click() Dim rngRange As Range Dim rngProduct As Range Dim lTop As Long Dim lLeft As Long Dim oShape As Shape […]

设置活动单元closures: 我有一个macros分配到一个特定的单元格，启动一个dateselect器日历。不幸的是，当我的工作簿被closures时，同一个单元在下次打开时仍然是活动单元格。这会导致下一个用户必须点击另一个单元格，然后再次点击macros的单元格以启动日历。我期望完成的是一个将使另一个单元格closures或保存工作簿的活动。这样，当一个人打开工作簿时，他们只需要点击macros的单元格来启动日历。

性能问题在外部数据源的两个表中运行Excel中的macros: 在工作表上，我有两个表，它们是从两个不同的外部来源填充的，一个来自db2和另一个SQL服务器。一旦表中的数据被刷新，我将触发一个运行VBA代码的macros，这个代码循环遍历两个表中的单元格并应用业务规则。在本地进行testing，按预期工作，macros在几秒钟内完成。当我将连接更改为指向networking上的db2和SQL Server数据库时，它会及时刷新数据，但是当我触发macros时， 30分钟即可完成。只有连接已被更改，我正在使用相同的工作簿进行所有testing。首先想到的是，它现在正在从networking中提取数据，可能是连通性的，但是它刷新了数据OK，而且它只是运行缓慢的macros，VBA代码不使用连接，只是循环的基础。我失去了什么是造成这一点，想知道是否有人曾经遇到过这种行为，知道如何解决它？

函数检查列中的两个值是否相等，以及它们对应的行值之一是否相等: 我有一个Excel电子表格，其中包含Raw file和Sequences作为列。我想检查Sequences列find任何重复的序列和所有的重复，以检查他们的Raw file也是相同的。这是它的样子： | 原始文件| 序列| otherdata1 | otherdata2 | | HU_932 | BLAST | **＆ | （＆| | WR_235 | HELLO | ＃（@ |＃@ * | | HU_932 | BLAST | ＃@（|（＃）| | HU_932 | CHART | $＆@ | ％＃* | | RT_329 | BLAST | ^ *）| @ $＃| 所以在上面的例子中，我希望能够只select第一和第三行，因为这些是Sequences唯一的行，并且Raw file是相同的。 […]