公式在条件格式中不起作用

我有一个三页的工作簿。 第2页和第3页持有类似的数据,但从不同的时间段(案件当前案件历史)。 将“案例当前”中的信息汇总在一起,并使用COUNTIF整理某些信息。 我试图获得一个条件格式来改变文本的颜色,如果从案例当前的COUNTIF高于或低于历史页面上相同数据的COUNTIF。 例如: 单元格C3具有以下公式: '=COUNTIFS('Cases '!$D:$D,C$2,'Cases '!$C:$C,$A3)并显示图7 。 我在一个普通的单元格中使用了一个IF公式,下面的工作就是这样。 (在这个例子中,COUNTIF返回10 。 IF(C3<COUNTIFS(Compare!$D:$D,C2,Compare!$C:$C,$A3),"Lower","Higher") 我在条件格式中使用了相同的公式,但是它不会触发字体颜色的变化。 我在IF语句结束时删除了两个结束条件,因为条件格式在TRUE返回时被触发。 =IF(C3<COUNTIFS(Compare!$D:$D,C2,Compare!$C:$C,$A3)

将START和STOPbutton添加到现有的代码

在列A中input一个值。要开始,请双击列A中的值。要停止,请双击任何空白单元格。 停止监视在B2单元中运行。 Public stopMe As Boolean Public resetMe As Boolean Public myVal As Variant Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then If Target.Value = myVal And Target.Value <> "" Then 'Changed Dim startTime, finishTime, totalTime, timeRow startTime = Timer stopMe = False resetMe = False myTime = Target.Offset(, […]

将列值与另一列进行匹配并添加行的公式

我试图匹配一列中的值到另一列,然后添加在不同行中的两个值。 鉴于: ABCD 1 Mustang 300 Camaro 70 2 Corvette 700 F150 82 3 Charger 218 Impala 74 4 Firebird 200 Mustang 66 有一场比赛,A1 = C4。 因此,在新的列E中添加值B1和D4。 以下是我所尝试的: =(Index(A1:D4,Match(A1,C:C,0),D) + B1) 匹配(如果为true)应该返回C中的行。然后我试着INDEX使用匹配的行与我想要添加到B1的列。 我为第1行尝试了这个,它没有任何返回,这是正确的。 当我把它拖到列上的时候,它没有任何工作。

error handling循环和用户input

For i = 1 To repNumber TryAgain: On Error GoTo ErrH: repName = InputBox("Enter rep name you want to exclude.", "Name of Rep") .PivotItems(repName).Visible = False Next i ErrH: MsgBox "Try Again" GoTo TryAgain: 它显示一个错误,如果我input数据透视表中不存在的副本名称。 所以我试图使用一个error handling程序让用户再次inputRep名称。 但是在第二次之后,我input了错误的代码,而不是去error handling程序,代码自行终止。 我不确定'On Error GoTo'是否在错误的行中。

自动将工作簿中的某些工作表保存为CSV文件

我find了一个体面的解决scheme将Excel工作表保存为CSV文件,使用VB将工作簿中的所有工作表保存为CSV文件。 不过,我希望能够修改这个代码,只保存表单名以_t结尾的工作表。 我正在使用下面的代码: Sub SaveWorksheetsAsCsv() Dim WS As Excel.Worksheet Dim SaveToDirectory As String Dim CurrentWorkbook As String Dim CurrentFormat As Long CurrentWorkbook = ThisWorkbook.FullName CurrentFormat = ThisWorkbook.FileFormat ' Store current details for the workbook SaveToDirectory = "H:\test\" For Each WS In ThisWorkbook.Worksheets Sheets(WS.Name).Copy ActiveWorkbook.SaveAs Filename:=SaveToDirectory & ThisWorkbook.Name & "-" & WS.Name & ".csv", FileFormat:=xlCSV ActiveWorkbook.Close […]

检查键值对是否存在,并在匹配旁边的行中返回它们

我有优秀的汤姆给出的电子表格。 在电子表格中,他给了我〜1000个关键值对。 Tom's salesID, transID: salesID transID 329709765 TODPG201110131205590838 329711175 TODPG201110131206560772 329712002 TODPG201110131207560344 329713688 TODPG201110131207570066 330220683 TODPG201110210902560629 330220789 TODPG201110210903570267 2004429174 TODPG201412051415130300 … 在我的数据库中,我find了那些transID ,但是有不同的salesID 。 所以,我需要将我的结果与Tom的结果合并。 汤姆想看到的差异,即 Tom's salesID, transID: My salesID, transID: BCEFG salesID transID salesID transID match? 329709765 TODPG201110131205590838 227841258 TODPG201110131205590838 329711175 TODPG201110131206560772 635241526 TODPG201110131206560772 329712002 TODPG201110131207560344 201452635 TODPG201110131207560344 329713688 TODPG201110131207570066 412563578 TODPG201110131207570066 […]

从具有合并单元格的Excel文件中提取数据并存储在MySQL数据库中

我有一个正常单元格的Excel文件以及合并的单元格和一个任务,将Excel文件中的每一行存储到MySQL数据库。 我能够从Excel文件中获取每个单元格的数据,并将其存储在数据库中,除了来自合并单元格的数据。 我的Java代码: FileInputStream input = new FileInputStream("/Users/test.xlsx"); Workbook wb = WorkbookFactory.create(input); Sheet sheet = wb.getSheetAt(0); for(i=0;i<no.ofrows;i++) for(j=0;j<no.ofcolomns;j++) { String var = String.valueOf(sheet.getRow(i).getCell(j)); }

电子邮件不正确的所有收件人

当有多个用户发送的第一封电子邮件是正确的,但在第二个只有For 10/23/2015出现。 下面是一个正确的电子邮件的副本,数据来自哪里和代码。 正确的电子邮件 **For 10/2/2015** ( Msg = "For " & c.Offset(, 1) & Chr(14) & Chr(14) **-There are no issues to report in the HLA & Molecular Diagnostics Laboratory.** ( For i = 3 To 4 If LCase(WS.Cells(c.Row, i)) = "x" Then Msg = Msg & " -" & WS.Cells(1, i) & Chr(14) […]

更新查询以在MS Access表中指定的范围内插入缺less的date

我有一个Access数据库跟踪滚动35周窗口的作业数据。 我有它自动化,所以一个月一次我运行一个脚本,生成一个电子邮件,并附加一个Excel工作表为适当的程序pipe理器,使他们可以更新他们的船员数量预测未来35周。 该程序保存了Excel工作表的一个副本,以便在工作表返回后可以运行比较。 我想要做的是在构build通过电子邮件发送的Excel工作表之前,从其数据集中添加缺失的date。 这样,我存储date的表格就会有一个自动生成的订单项编号,稍后我可以从Excel文件重新导入数据时参考。 我想我可以运行一个更新查询,将数据库中的所有工作logging展开到相同的结束date,并随后在滚动窗口消失时清除任何有零个工作人员数的东西,但有没有更好的方法接近这个?

与VBA合并单元格

我正在寻找合并3个水平单元格,但我这样做是在一个循环。 代码看起来像这样: myrange.Range(cells(3,i), cells(3,i+3)).mergecells = true 这不起作用。 我猜它是因为代码试图合并两个不相邻的单元格。 使用这种单元地址types合并一系列单元格的语法是什么? 任何帮助将不胜感激! 谢谢!