VBA – 循环自定义types
首先我要说的是，我不是一个大的Visual Basic人。 但是，我必须以VBA for Excel的forms使用它。 我遇到了一个困难。 我创build了一个自定义的类，如下所示
Public Type stores number As Integer file As String dailySales As salesData End Type salesData和随后的salesDataItem如下所示：
Private Type salesData custCount As salesDataItem nightDeposit As salesDataItem dayDeposit As salesDataItem inSales As salesDataItem driveSales As salesDataItem driveCust As salesDataItem tax As salesDataItem overShort As salesDataItem refunds As salesDataItem voids As salesDataItem breakfastSales As salesDataItem breakfastCustomers As salesDataItem creditCardTotal As salesDataItem dcTrans As salesDataItem dcTotal As salesDataItem mcTrans As salesDataItem mcTotal As salesDataItem visaTrans As salesDataItem visaTotal As salesDataItem aeTrans As salesDataItem aeTotal As salesDataItem mcDebit As salesDataItem mcDebitCount As salesDataItem visaDebit As salesDataItem visaDebitCount As salesDataItem gcRedeemed As salesDataItem gcSold As salesDataItem End Type Private Type salesDataItem col As String startRow As Integer value As Double End Type
一个简单的例子，我如何填充数据
Public Function getSalesData(store As stores) As stores Dim sourceFile As String Dim salesRange As String Dim pluRange As String sourceFile = store.file Workbooks.Open (sourceFile) store.dailySales.dayDeposit.col = "C" store.dailySales.nightDeposit.col = "D" store.dailySales.dayDeposit.startRow = SALES_START_ROW store.dailySales.nightDeposit.startRow = SALES_START_ROW store.dailySales.dayDeposit.value = sumSelective("amount", getRange("deposits"), 11, "1") store.dailySales.nightDeposit.value = sumSelective("amount", getRange("deposits"), 11, "2")
现在要实际将数据写入Excel工作表，我需要获取与每个项目关联的列和行。
我尝试了这个没有成功
Dim item As salesDataItem For Each item In store.dailySales Range(item.col, item.startRow + day).value = item.value Next item
因为我无法迭代非收集选项。 VBA处理集合和数组完全不同，我习惯于。 我意识到为什么我得到错误，但我不确定，在VBA中，解决这个问题最好的办法是什么。 任何指导将非常感激。
谢谢！
尝试使用Class模块“clsStores”
Public number As Integer Public file As String Public dailySales As New Collection
和Class模块“clsSalesDataItem”
Public col As String Public startRow As Integer Public value As Double
和你的代码是这样的：
Dim SDI As New clsSalesDataItem, store As New clsStores SDI.col = "C" SDI.startRow = SALES_START_ROW SDI.value = sumSelective("amount", getRange("deposits"), 11, "1") store.dailySales.Add SDI, "dayDeposit"
当你遇到问题的时候，一开始就回来。
这里是使用Class对象的选项。
我创build了两个类模块cSalesDataItem和cStores 。 在cSalesDatItem我给它col ， startRow ， Value的属性和另外的ID ，这是项目名称（例如，“void”，“dcTrans”等）
Option Explicit Private pID As String Private pCol As String Private pStartRow As Long Private pValue As Double Public Property Get ID() As String ID = pID End Property Public Property Let ID(lID As String) pID = lID End Property Public Property Get col() As String col = pCol End Property Public Property Let col(lcol As String) pCol = lcol End Property Public Property Get StartRow() As Long StartRow = pStartRow End Property Public Property Let StartRow(lStartRow As Long) pStartRow = lStartRow End Property Public Property Get Value() As Double Value = pValue End Property Public Property Let Value(lValue As Double) pValue = lValue End Property
cStores类看起来像这样。 Initialize事件会拆分IDstring，并将每个ID的新cSalesDataItem对象添加到DailySales集合中：
Option Explicit Private pNumber As Integer Private pFile As String Private pDailySales As Collection Private Const ids As String = "custCount,nightDeposit,dayDeposit,inSales,driveSales,driveCust,tax,overShort,refunds,voids," & _ "breakfastSales,breakfastCustomers,creditCardTotal,dcTrans,dcTotal,mcTrans,mcTotal,visaTrans," & _ "visaTotal,aeTrans,aeTotal,mcDebit,mcDebitCount,visaDebit,visaDebitCount,gcRedeemed,gcSold" Private Sub Class_Initialize() Set pDailySales = New Collection Dim itm Dim sdItem As cSalesDataItem For Each itm In Split(ids, ",") Set sdItem = New cSalesDataItem sdItem.ID = itm pDailySales.Add sdItem, itm Next End Sub Public Property Get number() As Integer number = pNumber End Property Public Property Let number(lNumber As Integer) pNumber = lNumber End Property Public Property Get file() As String number = pNumber End Property Public Property Let file(lNumber As String) pFile = lfile End Property Public Property Get dailysales() As Collection Set dailysales = pDailySales End Property Public Property Let dailysales(lDailySales As Collection) Set pDailySales = lDailySales End Property
从cStores.dailysales集合创build，分配和读取的cStores.dailysales ：
Sub example() Dim store As cStores '## Initialize a new cStores object Set store = New cStores Dim sdItem 'Assign the values store.dailysales("custCount").Value = 259 store.dailysales("custCount").StartRow = 1 store.dailysales("custCount").col = 9 store.file = "c:\myfile.txt" store.number = "123456" 'Read the values: Debug.Print store.dailysales("custCount").Value Debug.Print store.dailysales("custCount").StartRow Debug.Print store.dailysales("custCount").col 'Iteration over the cStores object's .DailySales collection: 'Read the values For Each sdItem In store.dailysales Debug.Print sdItem.ID Debug.Print sdItem.col Debug.Print sdItem.StartRow Debug.Print sdItem.Value Next End Sub