我是MS Excel中的VBA新手，我需要帮助。 我一直在网上search，但我还没有find任何解决我的问题。 我在我的excel中添加了一个button，并尝试点击button后popup一条消息，它完美的工作。 但是，当我closuresExcel应用程序时，单击button时警报消息不起作用。 这是我的代码。 Private Sub CommandButton1_Click() msgbox ("this is test") End Sub 我做什么？

我目前有这样的代码： =IFERROR(IF(EDATE(A2,1)>TODAY(),"",EDATE(A2,1)),"") 但是，即使在某些情况下单元格是空白的，它仍然绘制在我的图表上。 显然这是一个知道的问题，我应该使用＃N / A或NA（），但都不是或我的实现工作： =IFERROR(IF(EDATE(A2,1)>TODAY(),#N/A,EDATE(A2,1)),#N/A) 要么 =IFERROR(IF(EDATE(A2,1)>TODAY(),NA(),EDATE(A2,1)),NA()) 当我拖动窗体时，它们仍然分开N / A文本。 任何人都可以告诉我这是如何实施的吗？ 詹姆士

我必须从EXCEL的给定数据中显示YES或NO。 我试图写程序。 但我找不到解决scheme。 即使输出为NO，也只显示YES。 请帮助我这个程序。 我要检查整列C的数据（数据是从列的2到1439）。 如果数据大于等于0.003，则显示否，否则显示是。 码： ' Declare array Dim arrMarks(0 To 1437) As Double Sub ArrayLoops() ' Fill the array with numbers Dim i As Integer For i = LBound(arrMarks) To UBound(arrMarks) arrMarks(i) = Range("C2:C1439").Select Next i ' Using If statement For i = LBound(arrMarks) To UBound(arrMarks) If arrMarks(i) >= 0.003 Then […]

我有两张工作表的Excel电子表格，工作Sheet 1包含一些文本和公式我希望复制下来写我的项目的2,000奇数行的C＃代码。 非常重复，所以我想我可以用Excel来为我写。 Sheet 2包含我的数据库提取，我希望用来填充该值。 我的Excel代码段看起来像这样，分布在10行5列： new AccountingPeriod() { MonthCovered="=Sheet2!B2", StartDate=DateTime.Parse("Sheet2!C2"), EndDate=DateTime.Parse("Sheet2!D2"), AccountingPeriodDescription="Sheet2!E2", Active='=Sheet2!F2', April='=Sheet2!G2, TaxYear="Sheet2!H2" }, 当我突出显示这10行并使用Excel复制工具时，我希望单元格引用（例如，在我的电子表格Sheet1!D3 = Sheet2!B2 ，我希望Sheet1!D13 = Sheet2!B3 NOT Sheet2!B13 ）增加1而不是像我在电子表格中所做的那样。 我们已经尝试了一种替代解决scheme，即写入一个macros以在Sheet2为每个填充行插入10个空白行，以便重复的引用在Sheet1是正确的，但是我们目前正在使这个工作正常地失败。

我在SQL Server数据库和Excel中有一个表，看起来像这样 使用Excel计算列“H”中“D”的值我已经使用了下面的公式： =IF(G2="NULL",100,IF(A2="NULL",((E2-3-F2)/D2),IF(D2="NULL",((B2-3-C2)/A2),IF(((B2-3-C2)/A2)<((E2-3-F2)/D2),((B2-3-C2)/A2),((E2-3-F2)/D2))))) 公式工作正常，如果我想在公式中更改值3到3.2，并更新Excel中的值，我只是将3更改为3.2，使其看起来像下面的公式： =IF(G2="NULL",100,IF(A2="NULL",((E2-3.2-F2)/D2),IF(D2="NULL",((B2-3.2-C2)/A2),IF(((B2-3.2-C2)/A2)<((E2-3.2-F2)/D2),((B2-3.2-C2)/A2),((E2-3.2-F2)/D2))))) 然而，我不知道如何将这个Excel公式转换为SQL查询，我将不胜感激，如果任何人都可以帮助我在编写正确的SQL查询语句基于上述公式。 提前致谢。

有没有一个例子来添加一个自定义名称空间 例如 xmlns:bluh = "http://www.bluhbluh.com" 在Workbook/WorkbookPart/SpreadSheetDocument级别 使用C＃OpenXml SDK？

在Excel中，我在一MATCH号码上使用了MATCHfunction。 我所遇到的奇怪的是除了一个注册号之外， MATCHfunction正常工作。 它似乎并不喜欢包含车辆登记号码不匹配的单元格。 我已经检查了单元格的格式，并且与车辆注册栏中的其他单元格相同。 我认为这可能是与车辆注册本身（这是一个string，而不是一个数字）有关，所以我试着把string的example并把公式=MATCH(L1,C:C)列C包含车辆注册（我现在正在读取example遇到的单元格）和l1包含stringexample ，仍然是N/A 我完全被这个困惑了。 有什么build议，为什么发生这种情况？

Sub FindData() Dim accountNumber As Range Set accountNumber = Range(Range("A2"), Range("A2").End(xlDown)) Dim dataSet As QueryTable For Each Value In accountNumber Set dataSet = .QueryTables.Add( _ Connection:="URL;http://www.prad.org/CamaDisplay.aspx?OutputMode=Display&SearchType=RealEstate&ParcelID=" & Value, _ Destination:=ThisWorkbook.Worksheets(2).Range("A1")) Next Value With dataSet .RefreshOnFileOpen = False .WebFormatting = xlWebFormattingNone .BackgroundQuery = True .WebSelectionType = xlSpecifiedTables .WebTables = "3" End With With Application dataSet.Refresh BackgroundQuery:=False […]

我有下面的代码，用于查找匹配单元格值并返回匹配单元格值的行，例如在单元格D57（第58行）上查找值为“LogiGear”，它将返回第58行。我想要改进代码，只查找D列。 我不知道为什么它返回错误“无效的类string”。 有什么build议？ ''' get excell row number via MS ''' def GetExcellRowNumberViaMS(strFile, strSheet, text): try: bFound = False #Create an instance of Excel.Application xlApp = win32com.client.Dispatch("Excel.Application") lnRowNumber=0; i = 1 lastrow = xlSheet.UsedRange.Rows.Count lastcol = xlSheet.UsedRange.Columns.Count while(i<65000 and bFound ==False): if(i == lastrow+1): break j = 1 while(j<256): if(j == lastcol+1): break value = […]

（我知道select必须避免，即时学习，并已经得到了与其他密切相关的问题的帮助）非常感谢帮助如何重新编码以下更“宽”，现在有时运行通过，有时不运行。 现在停在第四行，标题中写有错误信息。 请记住：正如你所看到的，刷新数据库时logging的macros给出了两种不同types的代码，我猜它必须与我的数据库在运行时通过不同的excelversions进行复制？ 它可以写在一个方面吗？ 我可以打电话给公众吗？ Sheets("DB2 Totbel").Select Selection.QueryTable.Refresh BackgroundQuery:=False Sheets("DB2 Giva").Select Selection.QueryTable.Refresh BackgroundQuery:=False Sheets("TS4LAGER").Select Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False Sheets("PIX").Select Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False 'Sheets("PIX").Select 'Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False Sheets("OFO data").Select Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False