我有一个与数字excel列。 我需要使用该号码在另一个单元格中写入一个string。 例如，列A有“21”，在列BI中需要写一个21 0的string。 那么应该有这样的时间，所以字符的总数= 40。 Duration ch 21 000000000000000000000……………… 22 0000000000000000000000…………….. 19 0000000000000000000……………….. 21 000000000000000000000………………

我需要将两个单元格的值从dd / mm / yyyy转换为mm-dd-yyyy，并将这些值附加到存储过程调用中。 我的代码： Dim dtInicio As String Dim dtFim As String Set stDate = CStr(MWS.Cells(1, "E").Value) Set enDate = CStr(MWS.Cells(2, "E").Value) 上面的代码后，我需要这样的东西： wstring = "exec sp_accessFile '"+stDate+"', '"+enDate +"'

我有一张桌子，有两列，看起来像下面的一个。 我的目标是创build一个第三列，其中输出是该行按照组别划分的增长率的百分位数。 也就是说，我希望公式只看“黑”组的增长率，给我百分位数的增长率为10％。 不能为我的生活弄清楚这一点。 Group Growth Black 10% Black -1% Blue 0% Blue 5% Blue 5% Red 2% Green 2% Green 9%

好吧…再回到另一个Excel问题。 这一次，我有一个Excel工作簿，其化学和物理特性为800化学品/化合物。 我有另一本有大约200种这样的化学品的工作手册。 在800工作簿中我需要做的只是显示在较小的工作簿中显示的化学物质。 我可以在技术上通过所有800种化学物质，并使用“filter”function来取消我不想要的一切，但显然这将永远存在，而且肯定有更快的方法。 下面我想的是需要发生的事情： 在这两个工作簿中，CAS编号是其中的一个列。 我已将所有要显示的化学品的CAS编号复制到较大的工作簿中的新列中。 我想要做的是有一些基本上这样说的VBA代码：“如果较大的工作簿中的CAS号码等于较小的工作簿中的CAS号码，则显示该化学品。如果不是，则不显示它。 如果这很难理解，那么我很抱歉，这很难说出来。 This is what I started doing: Sub HideRows() BeginRow = 3 EndRow = 802 ChkCol = 3 For RowCnt = BeginRow To EndRow If Cells(RowCnt, ChkCol).Value = "A3" Then Cells(RowCnt, ChkCol).EntireRow.Hidden = True Else Cells(RowCnt, ChkCol).EntireRow.Hidden = False End If Next RowCnt End Sub 我不认为这是正确的。 […]

所以我正在写一个excel VBA程序，它将具有特定名称的所有csv文件读入工作簿上的不同表格中。 它正在阅读没有问题的文件。 问题出现在将数据从文件转换到数组中，这意味着要包含目录中所有文件中的所有相关数据。 要读取文件并按行分隔， 我在用： Do Until EOF(1) Line Input #1, LineFromFile lineitems = Split(LineFromFile, Chr(10)) 在模块的下面，当符合该行数据中的特定条件时，我将这些lineitems传递给数据数组。 为了清楚起见，expression式将文件行中的date值与文件名称上的date标记进行比较。 ElseIf (Left(lineitems(Line), 8) = Right(Left(FileTime(FileNum), 6), 2) + "/" + Right(Left(FileTime(FileNum), 4), 2) + "/" + Left(FileTime(FileNum), 2)) Then Proxy = CStr(lineitems(Line)) DataArray(InverterNumber – 1, m(InverterNumber – 1)) = Proxy 正如你所看到的，我已经添加了一个代理步骤来尝试并确保数据通过，但无济于事。 我还添加了一个故障保险，以确保没有空行进入DataArray： If Len(DataArray(InverterNumber – 1, […]

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

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

我正在编写一个代码，将数据从一个电子表格复制到另一个电子表格。 我已经尝试了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

我有一个“扁平化”的表与国家和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议。

我有一个要求打开工作表一旦更改受保护的工作表单元格格式为文本（从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或其他值。 请帮我解决这个问题，因为我正在努力寻找根本原因。