Re: [VBA ]有關資料比數計算的問題

看板Visual_Basic作者fumizuki (矇面加菲獅)時間19年前 (2006/11/30 07:02)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/2 (看更多)

※ 引述《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