Office PK 第五期，Excel挑战Access：算个数（单条件计数）

pureshadow

在Excel的单元格里写公式，这是Excel的强项，为了不让Access感到心理崩溃，我也不想弄个类似于要求计算100以内质数之类的BT题，就写个简单的公式吧。
话说我不小心把自己迷失在过往已经中了，请帮忙找一下，这里一共有多少个自己。
计数就行，不必在表上高亮显示。

tmtony

不光崩溃，而且泪奔

pureshadow

王站你不用这样吧，你出的第二期里，就用到类似功能的，有贴为证：Excel和AccessPK第二期：Access自定义单号http://www.office-cn.net/thread-121535-1-1.html

我当时不会写这块的代码，就用了个被VBA高手鄙视的法子：用代码调用工作表函数，写成application.countif...
这会你跳出来说你崩溃泪奔？谁信啊？！

roych

单行或者单列很简单。单列的话，dcount应该没问题。单行使用记录集，move到目标行计算即可。

这个题目难就难在于countif的自由性（任意区域，甚至多区域），为了尽量匹配到，需要用到VBA，这里先假定是任意连续区域（多区域条件暂不考虑）：

1. Function Countif(ByVal strWhere As String, _
   
2.             ByVal lngSColumn As Long, _
   
3.             ByVal lngEColumn As Long, _
   
4.             ByVal lngSRow As Long, _
   
5.             ByVal lngERow As Long) As Long
   
6.             
   
7.     Dim rst As New ADODB.Recordset
   
8.     Dim i As Long, j As Long, lngCount As Long
   
9.    
   
10.    
    
11.    
    
12.     rst.Open "tbl_Countif", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    
13.    
    
14.     '初始化，以免出错。数字格式部分暂由数据有效性处理，这里略去。
    
15.     lngCount = 0
    
16.     If lngSColumn < 1 Then lngEColumn = 1
    
17.     If lngEColumn > rst.Fields.count Then lngEColumn = rst.Fields.count
    
18.     If lngSRow < 1 Then lngEColumn = 1
    
19.     If lngERow > rst.RecordCount Then lngERow = rst.RecordCount
    
20. 
    
21.     For i = lngSRow To lngERow
    
22.         For j = lngSColumn - 1 To lngEColumn - 1
    
23.             If rst(j) Like "*" & strWhere & "*" Then
    
24.                 lngCount = lngCount + 1
    
25.             End If
    
26.         Next
    
27.         rst.MoveNext
    
28.     Next
    
29. Countif = lngCount
    
30. End Function

复制代码

暂不做窗体，有兴趣的版友可以尝试做下。建议使用组合框来设置数据的有效性。这个例子支持通配符，例如：
Countif("可*", 1, 7, 1, 2)=1
Countif("可", 1, 7, 1, 2)=0
其它说明【不可能或较困难的任务】：

• 由于Access的数据格式必须规范化，因此不可能做出同一列数字、文本混排然后再统计数字之类的。
• 如果需要统计数字或者日期，则需要将条件的文本转换为条件，可能需要提取运算符（and，>=之类），或者使用where子句或者filter方法，实现起来较为困难。
  

大家可以先参考下，算是抛砖引玉吧。
另外，本例如果用记录集的getrows可能会有更高的效率，不过也更加繁琐（所以没测试）。具体思路大约是：

• 先根据列标起止位置，获取列名（Field.Name)。
• 根据引用行数（Rows），起始行数（Start）和1得到的数组作为参数，调用getrows方法，得到一个二维数组。
• 然后转二维数组为一维数组（或者一列列追加到临时表也行）。
• 用数组的Filter方法过滤掉，得到新的数组，计算Ubound，即为Countif结果。
• 如果是追加到临时表，则应该在追加时就使用条件，否则较难判断。追加完毕后，可以使用Count聚合函数来计算或者使用ADO的RecountCount。
  

zhuyiwen

妖，变态，眼睛吃不消，我数了好久。

pureshadow

zhuyiwen 发表于 2016-3-27 19:50
妖，变态，眼睛吃不消，我数了好久。

谁让你用肉眼数了？

tmtony

pureshadow 发表于 2016-3-27 21:17
谁让你用肉眼数了？

哈哈

tmtony

roych 发表于 2016-3-27 14:59
单行或者单列很简单。单列的话，dcount应该没问题。单行使用记录集，move到目标行计算即可。

这个题目难 ...

这个函数不错，长access志气，灭Excel威风。

pureshadow

tmtony 发表于 2016-3-28 12:00
这个函数不错，长access志气，灭Excel威风。

你以为Excel里没有Dcount?

zhuyiwen

pureshadow 发表于 2016-3-27 21:17
谁让你用肉眼数了？

本来就是肉眼凡胎