如何在 C# 中使用 WorksheetFunction.CountIf？

Question

我正在将我的 VBA 代码移动到 VS2019 中的 C# VSTO Excel 插件项目中。今天遇到的一个问题是 WorksheetFunction.Countif 弄乱了 FOR 循环。一开始，弹出错误“OleAut reported a type mismatch”。不知何故，我不能再重复那个错误了。但我知道问题仍然存在。请帮忙。谢谢。这是代码：

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.IO;
using System.Linq;
using System.Text;
using System.Text.RegularExpressions;
using System.Threading.Tasks;
using System.Windows.Forms;
using Excel = Microsoft.Office.Interop.Excel;
using Office = Microsoft.Office.Core;
using Microsoft.Office.Tools.Excel;
using System.Runtime.InteropServices;
public void Validate_Tags1()
{
    //If found the invalid data, highlight it.
    Boolean fDup = false, fSpare, fTBD = false, fSChar = false, fEmptyTag = false, fInvIOType = false, fInvTag;
    Excel.Workbook wbk = Globals.ThisAddIn.Application.ActiveWorkbook;
    Excel.Worksheet wsh = wbk.Worksheets[1];
    Excel.Range rng;
    Regex keywrd;
    int intRowIO = wsh.Cells.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Row;
    rng.Interior.Color = System.Drawing.Color.White;
    //Loop through each tag in the Column 3. Spare channels are filtered out. Invalid cell will be red highlighted.
    foreach (Excel.Range rngCell in rng)
    {
        string strtag = rngCell.Value2;
        //Check if the tag cell is empty
        if ((strtag is null) || (strtag == ""))
        {
            fEmptyTag = true;
            rngCell.Interior.Color = System.Drawing.Color.Red;
        }
        else
        {
            //Check if tag is still "To Be Determined"
            keywrd = new Regex("TBD", RegexOptions.IgnoreCase);
            Boolean fTBDTag = false;
            if (keywrd.IsMatch(strtag))
            {
                fTBD = true;
                fTBDTag = true;
                rngCell.Interior.Color = System.Drawing.Color.Red;
            }
            //Check if the tag is duplicated. 
            keywrd = new Regex("spare", RegexOptions.IgnoreCase);
            fSpare = keywrd.IsMatch(strtag);
            if (!fSpare && !fTBDTag)
            {   listbox1.items.add("Row " + rngCell.Row + ": Found no issue.");   
                // I had to comment out the following lines to get the FOR loop completed. If put the 
                //codes back, the Messagebox on the last line won't pop out. 
                //if (ExcelApp.WorksheetFunction.CountIf(rng, rngCell.Value2) > 1)
                //{
                //    fDup = true;
                //    rngCell.Interior.Color = System.Drawing.Color.Red;
                //}
            }
        }
    }
    messagebox.show("Done!");
}

Answer 1

显示的代码中，您缺少 ExcelApp

的声明

尝试在代码开头添加这一行：

var ExcelApp = Globals.ThisAddIn.Application;

如何在 C# 中使用 WorksheetFunction.CountIf？

How to use WorksheetFunction.CountIf in C#?

c#

excel

countif