作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VBA ]有关资料比数计算的问题
时间Thu Nov 30 07:13:20 2006
※ 引述《colude (云淡风清)》之铭言：
: 刚学VBA碰到了下列问题不知该如何写
: 希望有高手先进能教导一下~~谢谢各位!!
: 问题是~~
: A B C D E
: 发行日 上市日 到期日
: 1 2003/02/01 2003/03/01 2004/01/01
: 2 2002/03/04 2002/04/01 2003/02/21
: 类似的资料共有1000笔
: 如果我想做的是如下
: 在1000笔资料中找出上市日(发行日)介於第一笔资料的上市日(发行日)与到期日的笔数
: 并显示在D1(E1),同理个别找出这1000资料的情形
: 也就是除第一笔本身外,其他999笔有几笔的上市日介在B1到C1
: 二 999 B2 C2
: .
: .
: .
: 1000笔
Dim i As Integer, count1 As Integer, count2 As Integer
Dim A1 As Date, B1 As Date, C1 As Date, A As Date, B As Date
A1 = CDate(Range("A1").Value)
B1 = CDate(Range("B1").Value)
C1 = CDate(Range("C1").Value)
For i = 2 To 1000
B = CDate(Range("B" & i).Value)
If B >= B1 And B <= C1 Then count1 = count1 + 1
A = CDate(Range("A" & i).Value)
If A >= A1 And A <= C1 Then count2 = count2 + 1
Next
Range("D1").Value = count1
Range("E1").Value = count2
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.58.156.20