Tag: 类

如何在Excel中对值进行分类？: 图片嗨，大家好，可以帮我吗？从图片中，目标是根据ID号将ID分类到AE。例如。 1是A，17是D. 有没有办法做到这一点不使用macros？谢谢！

如何为VBA中的自定义集合类指定默认属性？: 我有一个噩梦般复杂的Excelmacros，我试图通过设置一系列类来简化，但是我从来没有做过面向对象编程，所以我有点不清楚如何设置东西（甚至如何制定我的问题）。我目前有一个租赁类，它有一个Payments属性，如下所示： Option Explicit Private oPayments As New Payments Public Property Get Payments() As Payments Set Payments = oPayments End Property Public Property Let Payments(param_Payments As Payments) Set oPayments = param_Payments End Property 我也有一个支付类，它将包含付款编号和一个支付类的实例的支付类。 Payments类看起来像这样： Option Explicit Private Payments As New Collection Sub Add(param_Number As String) Dim NewPayment As Payment Set NewPayment = New Payment […]

Excel 2013，如何让我们像“查找”function，如查找: 本质上，我正在寻找一种像“vlookup”function一样使用“search”function的方法。在我的情况下，我有一个很长的名单，比如1000个不同types的紧固件的描述，我想根据它们是什么（即螺母，螺栓，垫圈等）进行分类。然而，我不能按照说明或零件编号来分类，因为它们在字母数字上不按类别排列。但是他的描述领域确实在某种程度上说，它是什么（即螺母，螺栓，垫圈等）。如上所述，我有一个类的表，我正在寻找一个公式，将在“描述”字段中查看表中的所有值，然后返回该值或与之关联的值（如vlookup用单元格值）。因此，如果在描述中find“nut”，它将返回“nut”，或者如果它find“bolt”，它将返回“bolt”。我希望这个问题是有道理的。我还要说，我发现了一种“手动”的方式，使用searchfunction以及其他方法，但公式非常长，我的表中的每个值都必须被特别调出。但是，我将包括我用来明确我想要做什么的公式。见下文。 =IF(ISNUMBER(SEARCH($G$2,C3)),$G$2,IF(ISNUMBER(SEARCH($G$3,C3)),$G$3,IF(ISNUMBER(SEARCH($G$4,C3)),$G$4,IF(ISNUMBER(SEARCH($G$5,C3)),$G$5,…IF(ISNUMBER(SEARCH($G$13,C3)),$G$13,"MISC")))))))))))) 你看到，你添加到你的表中的每个项目，你必须添加另一个if循环。我希望有一个更好的方法。（我会称之为“vsearch”:-)）

初始化N个类对象; VBA: 在Excel VBA中工作，我试图初始化类“CUserType”的几个对象的数组，但我有一些麻烦。我试着在循环中这样做： For count = 1 To size Dim myArray(count) As CUserType Next 但是，看起来VBA希望数组索引是一个常量整数。现在我试图用一个单独的函数来做到这一点： Sub ititUsers(num As Integer) Dim myArray() As CUserType Redim myArray(1 to num) If num = 1 Then Dim myArray(1) As CUserType ElseIf num = 2 Then Dim myArray(1) As New CUserType Dim myArray(2) As New CUserType ElseIf num = […]

在Excel VBA中使用类: 我正在尝试使用类定义来计算Excel VBA中的某些内容。主要目标是在一个类Calc1中的一个类中计算一个简单的比例。当执行模块时，我收到以下错误：函数或variables的预期在模块的行中 MsgBox myCalc1.Calc1 代码如下类定义如下： ' These are properties Public dat_date1 As Date Public dat_date2 As Date Public str_Option As String Dim ratio As Double Dim nominator As Double Dim denominator As Double ' These are methods Sub Calc1() ' Code for day count conventions If str_Option= "o1" Then nominator […]

我在哪里可以find一个很好的PHP类来导出数据从HTML或数据集excel文件格式化？: 我正在寻找一个现有的PHP类，将数据导出到Excel文件。我也需要能够创builddevise，使所有的报告看起来像报告的网页版本。有人可以带我到一个良好的testingclass吗？

VBA – 设置类属性时的“应用程序定义或对象定义的错误”: 我正在写一个小的Excelmacros，我有一个名为EventClass的类。我循环遍历工作表中的每一行，并将每行添加为EventClass对象集合中的EventClass对象 – 行中的每个单元格都是该类的属性。这里是代码： Dim iRow As Integer For iRow = 2 To oSourceWorksheet.UsedRange.Rows.Count Set evEvent = New EventClass evEvent.OwnerConsolidated = oSourceWorksheet.Rows(iRow, 1) evEvent.OwnerUser = oSourceWorksheet.Rows(iRow, 2) evEvent.ProductsAF = oSourceWorksheet.Rows(iRow, 3) evEvent.ProductsGL = oSourceWorksheet.Rows(iRow, 4) evEvent.ProductsMZ = oSourceWorksheet.Rows(iRow, 5) evEvent.Quarter = oSourceWorksheet.Rows(iRow, 6) evEvent.Attendees = oSourceWorksheet.Rows(iRow, 7) evEvent.CampaignName = oSourceWorksheet.Rows(iRow, 8) colEvents.Add evEvent Next […]

类对象VBA中的单个属性的多个实例: 假设我创build了一个名为Farm的类。它有3个属性： FarmName as String NumberOfStables as Long HasHorse as Boolean 我开始上课 Dim SmithFarm as Farm Set SmithFarm = New Farm SmithFarm.FarmName = "Smith Farm" SmithFarm.NumberOfStables = 3 有没有办法创buildHasHorse属性的多个副本？说我想知道Farm的每个马厩里是否有一匹马 Dim i As Long For i = 1 To SmithFarm.NumberOfStables SmithFarm.HasHorse(i) = True Next 所以现在SmithFarm 将会有 Stable 1 ， Stable 2和Stable 3 – 所有的马都可以出租，并跟踪我在马场里有多less匹马 – […]

VBA对象数据被覆盖在集合中: 在下面的循环中，我将一个类对象添加到另一个类对象中的一个集合，这个对象本身就在一个集合中。 Dim opportunity As New ClmOpportunity opportunity.name = name owners.item(overallOwner).addOpportunity opportunity MsgBox opportunity.name Next i MsgBox owners("John Smith").opportunities(1).name 第一个消息框提供了正确的机会名称，但是第二个消息框被设置为添加的最后一个机会，尽pipeJohn Smith是第一个收集的机会。所以如果我有两个业主，约翰·史密斯（John Smith）和玛丽·卢（Mary Lou）将有机会从第二个消息框出来，这两个logging都是机会2。但是第一个信息就是预期的机会1和2。这是来自Owner类模块的代码： Public name As Variant Public opportunities As New collection Public Function addOpportunity(opp As ClmOpportunity) Dim OppID As String OppID = opportunities.count + 1 opp.ID = OppID opportunities.Add opp, OppID End […]

设置类对象数组属性: 我试图设置一个对象的属性，这是一个类对象数组的一部分，对于Excel中的VBA。代码如下所示： Dim myClass(5) as class1 Dim i as integer For i = 0 to 5 set myClass(i) = New class myClass(i).myProperty = "SomeValue" Next i 类代码简单地说就是： Private pmyProperty as string Public Property Let myProperty(s as string) pmyProperty = s End Property Public Property Get myProperty() as string myProperty = pmyProperty End Property 但是，当我运行这个，我得到一个编译错误“预期：列表分隔符”。这个命中myClass（i）.myProperty […]