[請益] 函數的使用

[blackjye (My Love Just for You)]

我想在Excel 那做一個Button

按下這個Button就會做平均數的運算

然後輸出在另一個表單

請問我該怎麼下指令

試了好幾種方式都不行

我不想用原始人的方式一個一個加總除以個數放在程式裡面啊

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 211.74.110.18

> -------------------------------------------------------------------------- <

作者: fumizuki (小獅) 看板: Visual_Basic
標題: Re: [請益] 函數的使用
時間: Sat May  7 10:41:16 2005

※ 引述《blackjye (My Love Just for You)》之銘言：
: 我想在Excel 那做一個Button
: 按下這個Button就會做平均數的運算
: 然後輸出在另一個表單
: 請問我該怎麼下指令
: 試了好幾種方式都不行
: 我不想用原始人的方式一個一個加總除以個數放在程式裡面啊
Private Sub CommandButton1_Click()

    Dim x()
    x = Sheet1.Range("A1", "C1")  '假設你的數值存放在A1-C1，三個欄位。

    MsgBox Avg(x)                 '輸出

End Sub

Private Function Avg(Value())     '計算平均數

    Dim i As Single, r As Single, e
    For Each e In Value
        r = r + e: i = i + 1
    Next
    Avg = r / i

End Function

--
VB 程式設計   倉木麻衣       PTT 星爺板     行列輸入法
======================================================
Visual_Basic  MaiKuraki      Stephen        Array

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 210.58.156.43
推 blackjye:感恩~~
> -------------------------------------------------------------------------- <

作者: blackjye (My Love Just for You) 看板: Visual_Basic
標題: Re: [請益] 函數的使用
時間: Sat May  7 20:04:44 2005

※ 引述《fumizuki (小獅)》之銘言：
: ※ 引述《blackjye (My Love Just for You)》之銘言：
: : 我想在Excel 那做一個Button
: : 按下這個Button就會做平均數的運算
: : 然後輸出在另一個表單
: : 請問我該怎麼下指令
: : 試了好幾種方式都不行
: : 我不想用原始人的方式一個一個加總除以個數放在程式裡面啊
: Private Sub CommandButton1_Click()
:     Dim x()
:     x = Sheet1.Range("A1", "C1")  '假設你的數值存放在A1-C1，三個欄位。
:     MsgBox Avg(x)                 '輸出
: End Sub
: Private Function Avg(Value())     '計算平均數
:     Dim i As Single, r As Single, e
:     For Each e In Value
:         r = r + e: i = i + 1
:     Next
:     Avg = r / i
: End Function

我發現用簡單的for 回圈也可以算耶

Private Sub CommandButton1_Click()
t = 0
For i = 1 To 10
t = t + Sheets("test").Cells(1, i)
Next i
Sheets("test").Cells(1,11) = t/10


--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 211.74.110.18
推 fumizuki:方法當然很多
推 fumizuki:看你怎麼用:p