【求助】誰會Excel的?

guruguru

請問有誰會用Excel...
  
我想要在一個區域中(如A1~D20)... 如果有符合的數字(如12)... 就自動加一... 在某一格中顯示那一個區域中有多少個12....  
  
---------------------------------
統計樂透用...

guruguru

謝謝啦... 不過我還要研究一下...   
巨集... >_<  
  
我不是要寫對獎的... 是要寫統計用的....
輸入數字就會自動統計有多少個數字出現過...
and... 自動畫出圖表...

Ethan

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

PS++：
中了六星，記得要請客ㄚ

guruguru

沒寫過VBA... 不過看了一下... 好像蠻簡單的...
明天準備來寫了... 也許會遇到大問題也說不一定...

Ethan

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

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

guruguru

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得到多少錢的小統計...