PALMisLIFE 討論區

標題: 【求助】誰會Excel的? [列印本頁]

作者: guruguru 時間: 2002-2-1 22:44
標題: 【求助】誰會Excel的?
請問有誰會用Excel...

我想要在一個區域中(如A1~D20)... 如果有符合的數字(如12)... 就自動加一... 在某一格中顯示那一個區域中有多少個12....

---------------------------------
統計樂透用...

作者: Ethan 時間: 2002-2-2 02:07
標題: 回覆：【求助】誰會Excel的?

guruguru wrote:
請問有誰會用Excel...

我想要在一個區域中(如A1~D20)... 如果有符合的數字(如12)... 就自動加一... 在某一格中顯示那一個區域中有多少個12....

---------------------------------
統計樂透用...

開Excel用VBA寫的,試試看ㄅ

PS:
寫完之後才發現,C真是方便的語言ㄚ,

--
Public Sub 全民捐款運動()

   Const BinGoMax = 3  '// 對號總數
   Dim i As Long, j As Long, k As Long
   Dim BinGoValue(BinGoMax) As Long
   Dim BinGoCount(BinGoMax) As Long
   Dim BinGoCellX(BinGoMax) As Long
   Dim BinGoCellY(BinGoMax) As Long

   On Error GoTo Err

   BinGoValue(1) = 3 '// 目標號碼
   BinGoCellX(1) = 3 '// 顯示目標號碼加總的位址
   BinGoCellY(1) = 4

   BinGoValue(2) = 4
   BinGoCellX(2) = 3
   BinGoCellY(2) = 5

   BinGoValue(3) = 5
   BinGoCellX(3) = 3
   BinGoCellY(3) = 6

   For i = 1 To 4  '//  對獎區域
      For j = 1 To 2  '//  對獎區域
         For k = 1 To BinGoMax
               If Sheet1.Cells(i, j) = BinGoValue(k) Then
                  BinGoCount(k) = BinGoCount(k) + 1
               End If
         Next
      Next
   Next

   For i = 1 To BinGoMax
      Sheet1.Cells(BinGoCellX(i), BinGoCellY(i)) = BinGoCount(i)
   Next

Err:

End Sub

作者: Ethan 時間: 2002-2-2 02:09
標題: Re:【求助】誰會Excel的?
PS++：
中了六星，記得要請客ㄚ

作者: guruguru 時間: 2002-2-2 02:27
標題: Re:【求助】誰會Excel的?
謝謝啦... 不過我還要研究一下...
巨集... >_<

我不是要寫對獎的... 是要寫統計用的....
輸入數字就會自動統計有多少個數字出現過...
and... 自動畫出圖表...

作者: guruguru 時間: 2002-2-2 02:42
標題: Re:【求助】誰會Excel的?
沒寫過VBA... 不過看了一下... 好像蠻簡單的...
明天準備來寫了... 也許會遇到大問題也說不一定...

作者: Ethan 時間: 2002-2-2 02:48
標題: 回覆： Re:【求助】誰會Excel的?

guruguru wrote:
我不是要寫對獎的... 是要寫統計用的....
輸入數字就會自動統計有多少個數字出現過...

應該有ㄅ,執行巨集後,它會自動顯示目標號碼重複的次數。
--
繪出圖表，恩~這可能要去查查Help或書了，
我忘了那個圖表的物件名稱>_<

作者: guruguru 時間: 2002-2-5 15:26
標題: Re:【求助】誰會Excel的?
Public Sub 全民繳笨蛋稅運動()

   Const BinGoMax = 10 '// 所掃瞄的期數，有必要時請自行增加
   Dim i As Long, j As Long, k As Long
   Dim BinGoMun As Long

   On Error GoTo Err

   BinGoMun = 0

   For i = 1 To 42 '//號碼區域值，目前是1到42
      For j = 2 To BinGoMax
         For k = 2 To 8
               If Sheet1.Cells(j, k) = i Then
                  BinGoMun = BinGoMun + 1
               End If
         Next
      Next
      Sheet2.Cells(2, i) = BinGoMun
      BinGoMun = 0
   Next

Err:

End Sub

http://home.pchome.com.tw/homepage100/td143607/Lotto.xls
記得另存新檔哦...

在Sheet1中只要輸入中獎號碼... 再執行一次巨集...
就會在Sheet2中自動秀出統計同跟統計數值...

PS.Sheet1中有可以統計你已經捐了多少錢.. and得到多少錢的小統計...

歡迎光臨 PALMisLIFE 討論區 (http://f.pil.tw/)