養花種魚數月亮賞星星: Excel

顯示包含「Excel」標籤的文章。顯示所有文章

Excel：Calculate ACF and PACF in Excel

由戴忠淵於 2020年3月13日星期五上午11:57 發表

Function acf(data As Range, k As Integer) As Double
Dim n As Integer
n = data.Rows.Count
Dim xbar As Double
xbar = Application.Average(data)
Dim sum1 As Double
sum1 = Application.SumProduct(data, data) - n * xbar * xbar
Dim sum2 As Double
sum2 = 0
For i = 1 To n - k
    sum2 = sum2 + (data.Cells(i) - xbar) * (data.Cells(i + k) - xbar)
Next
acf = sum2 / sum1
End Function

Function pacf(data As Range, k As Integer) As Double
Dim xx() As Double
ReDim xx(1 To k, 1 To k) As Double
For i = 1 To k
    For j = 1 To k
        xx(i, j) = acf(data, Abs(j - i))
    Next
Next
Dim yy() As Double
ReDim yy(1 To k, 1 To 1) As Double
For i = 1 To k
    For j = 1 To 1
        yy(i, 1) = acf(data, Abs(i))
    Next
Next 
pacf = Application.Index(Application.MMult(Application.MInverse(xx), yy), k, 1)
End Function

繼續閱讀全文　Excel：Calculate ACF and PACF in Excel

Excel 教學：符合條件整列變色

由戴忠淵於 2018年11月17日星期六下午4:26 發表

繼續閱讀全文　Excel 教學：符合條件整列變色

Excel 教學用函數抓每行最後一筆資料

由戴忠淵於 2014年2月7日星期五下午12:00 發表

繼續閱讀全文　Excel 教學用函數抓每行最後一筆資料

Excel 教學班級分班S型排列

由戴忠淵於 2011年6月23日星期四下午4:38 發表

Q: 一份資料，是小學生的成績表現。因為要編班，所以需要s型的排列。請問是否有方式可以自動排出s型排列？

=INDEX($B$2:$B$28,IF(MOD(ROW(),2)=0,COLUMN()-3+3*(ROW()-2),
COLUMN()-3+3*(ROW()-2)-2*(COLUMN()-5)))

Excel 教學格式化條件，滿足條件整列變色

由戴忠淵於 2011年5月27日星期五下午11:03 發表

格式化條件，滿足條件整列變色

條件：平均成績及格則該列變色。

One picture is worth a thousand words

繼續閱讀全文　Excel 教學格式化條件，滿足條件整列變色

使excel自動取出趨勢線的公式

由戴忠淵於 2010年6月18日星期五下午9:21 發表

Q：如何用公式自動把趨勢線的公式或係數取出來?

Ans：趨勢線在Excel中可以在XY圖散步圖點選畫圖來。但是要將這些係數取出就有點困難！有學過統計的應該都知道在複迴歸中以最小平方法所估計出來的Beta公式為(X^T X)^{-1}.X^T.Y，其中^T是轉置矩陣，-1是反矩陣。在這邊可以使用Excel函數的矩陣院算的函數達成。

繼續閱讀全文　使excel自動取出趨勢線的公式

利用Excel製作簡單甘特圖

由戴忠淵於 2010年6月11日星期五下午9:45 發表

Q: 如何利用Excel製作簡單的甘特圖

Ans:
Step 1：先將AB兩欄設定成文字格式

Step 2：設定第一列的格式為00

Step 3：工具=>設定格式化的條件=>公式為
=AND(COLUMN()/2+4>=VALUE(LEFT($A2, 2))+VALUE(RIGHT($A2, 2))/60, COLUMN()/2+4<=VALUE(LEFT($B2, 2))+VALUE(RIGHT($B2, 2))/60) (PS，等號 = 一定要打)

Step 4：設定存格的底色

Step 5：收工

繼續閱讀全文　利用Excel製作簡單甘特圖

Ptt：Excel如何抓台股每日漲跌停家數的歷史資料

由戴忠淵於 2010年4月16日星期五下午9:39 發表

Q：Excel如何抓台股每日漲跌停家數的歷史資料。

Ans：

Step 1：先將台灣證券交易所查詢的url資料建立好

Step 2：寫一下VBA，不會寫的話，工具=>巨集=>建立。之後把下面的程式貼上，最後按F9。當然這邊看你要抓多少就改一下20的地方。

Sub test1()
Dim Fn As Object
Set Fn = Application.WorksheetFunction
For i = 2 To 472
Columns("N:X").Select
Selection.Delete Shift:=xlToLeft
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & Cells(i, 13) _
, Destination:=Range("N2"))
.Name = "11"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "8"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Cells(i, 2) = Cells(4, 15)
Cells(i, 3) = Cells(4, 17)
If Cells(i, 12) <>
Step 3：完畢收工，不過事前先去洗個早或泡杯咖啡，有點久！

如果還是不會，那下載這個檔案吧！台股指數歷史資料

Mathematica教學 mathematica 6教學 mathematica基本教學 mathematica mathematica下載 spss教學講義下載spss教學網站 spss教學pdf spss教學網 spss教學講義下載 spss教學網站 spss教學下載 spss教學講義 spss教學pdf roc curve spss教學 manova spss教學 spss教學手冊 spss 16教學 automator mac 教學 automator 浮水 box cox spss cwtex linux cwtex ptt cwtex texlive cwtex-linux excel matrix excel 分配圖 excel 畫常態分配圖 excel常態分配 excel常態分配圖 excel畫常態分佈圖 excel畫常態分配圖 google latex 註解 graphicspath latex 路徑 import mathematica integral exp x 2 latex latex 文字和圖片重疊 latex 浮水印透明度 watermark latex 圖例 latex 圖片文字重疊 latex教學 mac automator mac latex 新增 package mac pdf 浮水印 mac 水印 mac合併pdf mathematica mathematica 8 圖字 mathematica abs mathematica pso mathematica 字型 mathematica 教學 pdf mathematica 講義 mathematica教學 mathematica講義 norminv vba p-value excel scientific workplace lyx spss string substr spss 幾何平均數 spss 遺漏值 spss教學講義下載丁吉峰可愛手寫字體可愛字體可愛的字體如何畫常態分配圖利用mac automator幫pdf加入浮水印怎麼合併pdf for mac automator 怎麼畫星星浮水印 cwtex 留言板常態分配圖常態分配圖如何畫敏感性分析公式統計學講義最小生成樹華康可愛字體戴忠淵 Mathematica 解方程式

繼續閱讀全文　Ptt：Excel如何抓台股每日漲跌停家數的歷史資料

Ptt：如何合併兩個工作表並加總

由戴忠淵於 2010年4月15日星期四上午10:46 發表

Q：軟體: excel，版本: 2007，請問要怎麼把下面兩個工作表合併成一個？

Ans：

Step 1：資料分析=>合併彙整

Step 2=>選擇計算欄位以及參照位置

成果

Mathematica教學 mathematica 6教學 mathematica基本教學 mathematica mathematica下載 spss教學講義下載spss教學網站 spss教學pdf spss教學網 spss教學講義下載 spss教學網站 spss教學下載 spss教學講義 spss教學pdf roc curve spss教學 manova spss教學 spss教學手冊 spss 16教學 automator mac 教學 automator 浮水 box cox spss cwtex linux cwtex ptt cwtex texlive cwtex-linux excel matrix excel 分配圖 excel 畫常態分配圖 excel常態分配 excel常態分配圖 excel畫常態分佈圖 excel畫常態分配圖 google latex 註解 graphicspath latex 路徑 import mathematica integral exp x 2 latex latex 文字和圖片重疊 latex 浮水印透明度 watermark latex 圖例 latex 圖片文字重疊 latex教學 mac automator mac latex 新增 package mac pdf 浮水印 mac 水印 mac合併pdf mathematica mathematica 8 圖字 mathematica abs mathematica pso mathematica 字型 mathematica 教學 pdf mathematica 講義 mathematica教學 mathematica講義 norminv vba p-value excel scientific workplace lyx spss string substr spss 幾何平均數 spss 遺漏值 spss教學講義下載丁吉峰可愛手寫字體可愛字體可愛的字體如何畫常態分配圖利用mac automator幫pdf加入浮水印怎麼合併pdf for mac automator 怎麼畫星星浮水印 cwtex 留言板常態分配圖常態分配圖如何畫敏感性分析公式統計學講義最小生成樹華康可愛字體戴忠淵 Mathematica 解方程式

繼續閱讀全文　Ptt：如何合併兩個工作表並加總

Ptt：Excel中如何剔除最大和最小的數個資料

由戴忠淵於 2009年10月29日星期四上午12:23 發表

Q:

想請教大家一個問題，同樣假設有10筆資料，我想把其中最高的3筆
與最低的3筆找出來 (不改變排序的狀況下)
並且對這6筆資料標上顏色做記號
請問該如何做呢？
謝謝大家~

Ans:

假設資料在A1:A10，開啟設定格式化條件，使用"公式為"

條件一
=IF(OR(A1=LARGE($A$1:$A$10,1),A1=SMALL($A$1:$A$10,1)),TRUE,FALSE)

條件二
=IF(OR(A1=LARGE($A$1:$A$10,2),A1=SMALL($A$1:$A$10,2)),TRUE,FALSE)

條件三
=IF(OR(A1=LARGE($A$1:$A$10,3),A1=SMALL($A$1:$A$10,3)),TRUE,FALSE)

如果不嫌麻煩，也可以把它寫在一起

=IF(OR(A1=LARGE($A$1:$A$10,1),A1=SMALL($A$1:$A$10,1),
A1=LARGE($A$1:$A$10,2),A1=SMALL($A$1:$A$10,2),
A1=LARGE($A$1:$A$10,3),A1=SMALL($A$1:$A$10,3)),TRUE,FALSE)

自己在調一下你要的格式就ok

繼續閱讀全文　Ptt：Excel中如何剔除最大和最小的數個資料

常態分配圖怎麼畫

由養花種魚數月亮賞星星於 2009年6月30日星期二下午3:54 發表

如果這個你會，那如何用execel畫卡方分配，F分配，t分配，Weibull分配對你應該都不是問題了！以標準常態為例，A1=-3.5，B1=NORMDIST(A1,0,1,0)

A欄點越多，圖形就越細緻！下面是做好的成品：

繼續閱讀全文　常態分配圖怎麼畫

Ptt：Excel不同組合對應數字加總

由養花種魚數月亮賞星星於 2009年5月29日星期五下午7:50 發表

提供一個很蠢的方法～

先定義名稱 B1 牛肉;B2 羊肉....以此類推
Sub ptt()
Dim MyName As Name
i = 10
For i = 1 To 8
Cells(i, 2).Name = Cells(i, 1).Value
Next
End Sub

E1=INDIRECT(E1)+INDIRECT(F1)+INDIRECT(Sheet1!G1)

這樣就可以計算出A餐的價格～

用這個方法的好處是對一個Excel笨蛋來說也會計算
E1=牛肉+紅茶+蛋糕

spss教學講義下載常態分配圖 spss教學浮水印常態分配 spss 教學 spss教學講義 roc curve spss教學 spss中文教學戴忠淵 mathematica 教學 pdf mathematica 教學 excel 常態分配圖雙週一題 mactex 敏感性分析統計學講義標準常態分配表下載 canonical correlation analysis mathematica教學標準常態分配表 spss下載 spss教學pdf correlation analysis 生物統計學講義下載 excel畫常態分佈圖 canonical correlation box cox transformation spss mathematica wxmaxima mathematica下載 mac pdf excel畫常態分配圖 spss教學手冊 t分配 box-cox transformation spss教學網站 birkenstock london nelder mead spss 下載 beamer ridge regression excel常態分配圖抽樣 f分配 box-cox excel mmult 常態分佈 correlation spss 貓咪 box cox automator spss教學下載講義 maxima教學 t1 word 方程式編號 mathematica 6下載 spss roc curve sidewaystable correlation spss 座標軸 texmacs matrix language 卡方分配 spss cox pdf mac mathematica6 correlation analysis spss wxmaxima 教學基礎統計學講義下載 manova spss 月亮和星星 mathematica 6教學常態分配 excel box cox transformation mathematica legend excel macro教學 spss correlation 這就是人生 pc-t1 eoq model mmult excel box-cox transformation spss 生物統計學講義 querytables.add dummy variable nelder mead simplex mathematica table synctex excel mmult example latex sidewaystable mac automator 4sred 抽樣計畫 t2 latex 教學卡方分配表常態分佈高等統計學講義

繼續閱讀全文　Ptt：Excel不同組合對應數字加總

Ptt：EXCEL的資料驗證，B行可以依據A行選擇的結果出現特定選項

由養花種魚數月亮賞星星於 2008年10月13日星期一下午9:40 發表

在資料驗證視窗中選擇清單，將公式設定為 =IF(E4="飲料",$C$1:$C$2,$B$1:$B$3)

如此F行可以依據E行選擇的結果出現特定選項。

繼續閱讀全文　Ptt：EXCEL的資料驗證，B行可以依據A行選擇的結果出現特定選項

Ptt：EXCEL，1-60不重複隨機分派

由養花種魚數月亮賞星星於 2008年10月9日星期四上午12:39 發表

洗牌法

Sub RandomNumbers()
Dim x(1 To 60) As Integer
For i = 1 To 60
  x(i) = i
Next
For j = 1 To 1000
 a1 = Int(Rnd() * 60) + 1
 a2 = Int(Rnd() * 60) + 1
 temp = x(a1)
 x(a1) = x(a2)
 x(a2) = temp
Next
For l = 1 To 60
 Cells(l, 1) = x(l)
Next
End Sub

亂數排序法

Sub RandomNumbers()
Dim Fn As Object
Set Fn = Application.WorksheetFunction
Rnd (-1)
Randomize 10
For i = 1 To 60
  Cells(i, 1) = Rnd
Next
For j = 1 To 60
  Cells(j, 2) = Fn.Rank(Cells(j, 1), Range("A1:A60"))
Next
End Sub

繼續閱讀全文　Ptt：EXCEL，1-60不重複隨機分派

Ptt：Excel抓公開觀測站的數據

由養花種魚數月亮賞星星於 2008年9月28日星期日上午9:41 發表

A欄放你要的股票代號, 2002, 1301, 2317...

最好抓到前一年就好，這一年的在另外抓～～

Sub Ptt()
Dim Fn As Object
Set Fn = Application.WorksheetFunction
yearstart = 2000
yearend = 2007
tempvalue = 0
For i = 1 To 2
co_id = Cells(i, 1)
For j = yearstart To yearend
 For k = 1 To 4
     yearseason = j & "0" & k
 With ActiveSheet.QueryTables.Add(Connection:= _
     "URL;http://mops.twse.com.tw/nas/t06sa18/" & yearseason & "/A02_" & co_id & "_" & yearseason & ".htm", _
     Destination:=Range("B1"))
     .Name = "PTT"
     .FieldNames = True
     .RowNumbers = False
     .FillAdjacentFormulas = False
     .PreserveFormatting = True
     .RefreshOnFileOpen = False
     .BackgroundQuery = True
     .RefreshStyle = xlInsertDeleteCells
     .SavePassword = False
     .SaveData = True
     .AdjustColumnWidth = True
     .RefreshPeriod = 0
     .WebSelectionType = xlSpecifiedTables
     .WebFormatting = xlWebFormattingNone
     .WebTables = "4"
     .WebPreFormattedTextToColumns = True
     .WebConsecutiveDelimitersAsOne = True
     .WebSingleBlockTextImport = False
     .WebDisableDateRecognition = False
     .WebDisableRedirections = False
     .Refresh BackgroundQuery:=False
 End With
     For l = 1 To 16
         teststring = Fn.Trim(Cells(30 + l, 2))
         test = Mid(teststring, 1, 4)
         If test = "本期淨利" Then
             temp = Cells(30 + l, 3)
             tempvalue = tempvalue + 1
             Sheets("sheet2").Cells(tempvalue, 1) = co_id
             Sheets("sheet2").Cells(tempvalue, 2) = yearseason
             Sheets("sheet2").Cells(tempvalue, 3) = temp
             Exit For
         Else
             temp = ""
         End If
     Next
 ActiveSheet.Range("B:H").Delete
 Next
Next
Next
End Sub

繼續閱讀全文　Ptt：Excel抓公開觀測站的數據

Ptt：Excel計算距離矩陣

由養花種魚數月亮賞星星於 2008年9月25日星期四下午3:20 發表

excel mmult example excel計算距離矩陣
D1=(INDEX($A$1:$A$6,COLUMN()-3,)-$A1)^2+(INDEX($B$1:$B$6,COLUMN()-3,)-$B1)^2

資料量大時，可考慮VBA

Sub distancematrix()
Dim Fn As Object
Set Fn = Application.WorksheetFunction
Range("A1:B6").Select
nrow = Selection.Rows.Count
ncol = Selection.Columns.Count
For i = 1 To nrow
  xtemp1 = Fn.Index(Selection.Value, i)
  For j = 1 To nrow
      xtemp2 = Fn.Index(Selection.Value, j)
      distance = (Fn.Index(Fn.MMult(xtemp1, Fn.Transpose(xtemp1)), 1) - Fn.Index(Fn.MMult(xtemp1, Fn.Transpose(xtemp2)), 1) - Fn.Index(Fn.MMult(xtemp2, Fn.Transpose(xtemp1)), 1) + Fn.Index(Fn.MMult(xtemp2, Fn.Transpose(xtemp2)), 1)) ^ 0.5
      Sheets("sheet2").Cells(i, j) = distance
  Next
Next
End Sub

繼續閱讀全文　Ptt：Excel計算距離矩陣

PTT：Excel大樂透49取6亂數列出1000筆組合

由養花種魚數月亮賞星星於 2008年9月20日星期六下午9:13 發表

Sub lotto()
Dim Fn As Object
Set Fn = Application.WorksheetFunction
For k = 1 To 1000
 For i = 1 To 6
     Cells(k, i) = Fn.RoundUp(Rnd * 49, 0)
     For j = 1 To i - 1
         If Cells(k, i) = Cells(k, j) Then i = i - 1
     Next
 Next
Next
End Sub