yuanweisen

摘要： 'BP Type为Dist时，Product/Metric列为下拉列表1、Shipped REV ($k), 2、Sell Thru Units, 3、WOS '否则还是普通的文本框 Private Sub Worksheet_SelectionChange(ByVal Target As Range) '首先判断被选择的是不是Product/Metric，并且判断BP Type的值是不是Dist... 阅读全文

摘要： '过滤特殊字符 Public Function XmlEncode(sStr) If Trim(sStr) = "" Or IsNull(sStr) Then XmlEncode = "" Exit Function End If sStr = Trim(sStr) Dim i i = 0 Dim sRet ... 阅读全文

摘要： 'Excel数据转成Xml文件流 Function getSheetXml() Dim sXml Dim i Dim sXmlRow Dim ProductGroup '头文件流 sXml = "" & ReportName & "" '遍历Excel每个数据，转为Xml文件流 For i = MinRow To RetMaxRow - 1... 阅读全文

摘要： 1 写VBA函数的时候，如果函数有返回值，则写成如下形式 '获取真实数据的实际行数 Public Function GetMaxRow() as integer For i = MinRow To MaxRow '循环最小行到最大行 For j = MinCol To MaxCol '循环最小列到最大列 If Trim(Cells(i, j).Value) ... 阅读全文

摘要： '保存数据按钮事件 Private Sub SaveData_Click() Dim fso, oFile, sXml, fname, objStream Dim i '定义导出的文件名 fname = "Rebate_Report1_" & Year(Now()) & "-" & Month(Now()) & "-" & Day(Now()) & " "... 阅读全文

摘要： '检测数据按钮方法,如果检测通过，则保存按钮可用 Private Sub CheckData_Click() GetMaxRow '首先得到实际数据的最大有效行数 If RetMaxRow = MinRow Then MsgBox "没有任何有效数据" Exit Sub End If For i = MinRow To RetMaxRow - 1 '循环每一行 ... 阅读全文