1/1用access和excel進行數(shù)據(jù)分析總結(jié)

#數(shù)據(jù)庫操作(如表的合并,跨表查詢,統(tǒng)計最大最小數(shù)值等)適合用access完成

#excel適合處理二維表,對單元格簡單計算,如下是典型的二維表

600600600601600602600603600604

青島啤酒方正科技廣電電子ST興業(yè)二紡機2002-1-42002-1-72002-1-82002-1-92002-1-102002-1-112002-1-142002-1-152002-1-162002-1-172002-1-18

#一般思路:對于原始的excel表,先利用access的SQL語句進行分組,排序,跨表合并

根據(jù)具體要求再利用excel的公式或VBA完成其他復雜的功能

幾點經(jīng)驗:

中要進行跨表查詢,必須先建立"關(guān)系",可使用工具->關(guān)系菜單進行設置

2.常見SQL語句

a)最大最小,排序處理

SELECTAFE__Stkcd,AFE_,Min(AFE__DAYS_ELAPSED)ASRAW_DAYS_ELAPSED之最小值,Max(AFE__DAYS_ELAPSED)ASRAW_DAYS_ELAPSED之最大值

FROMAFE_statv2ACCURACY

GROUPBYAFE__Stkcd,AFE_

ORDERBYAFE__Stkcd,AFE_;

b)刪除數(shù)據(jù)

DELETE*

FROMAFE_statv2無空項

WHEREAFE_statv2無空項.forecast_AFE最大值=AFE_statv2無空項.forecast_AFE最小值

c)表的連接:

INNERJOIN保留公共數(shù)據(jù),LEFTJOIN和RIGHTJOIN分別完整保留左,右表數(shù)據(jù),必要時通過DISTINCT參數(shù)去除重復的記錄

d)日期函數(shù)Year等

3.excelVBA代碼分析

PublicSubfirstVBA()

DimthisdateAsDate

DimwdayAsInteger

DimrnoAsInteger

DimstkcdAsString

DimananmAsString

DimfindStk1AsRange

DimfindStk2AsRange

DimfindStk3AsRange

DimfindStk6AsRange

DimfindStk7AsRange

DimfindStk8AsRange

DimfindStk9AsRange

DimfindStk10AsRange

DimfindIndexAsRange

DimfindDateAsRange

DimTwoDayBAsInteger

DimTwoDayAAsInteger

DimOneDayBAsInteger

DimOneDayAAsInteger

DimFindColAsInteger

DimCR_FIVEAsDouble

DimCR_THREEAsDouble

DimRevpAsDouble

DimindexTwoDayBAsInteger

DimindexTwoDayAAsInteger

DimindexOneDayBAsInteger

DimindexOneDayAAsInteger

DimCR_Index_FIVEAsDouble

DimCR_Index_THREEAsDouble

Sheet11是最終存放結(jié)果的表,Sheet1-3,6-10存放了各日各股票的價格,sheet5存放上證,深證指數(shù)

Forrno=2To6864

stkcd=("A"&rno).Value查找股票代碼

thisdate=("E"&rno).Value查找日期

SetfindStk1=("1:1").Find(stkcd)

SetfindStk2=("1:1").Find(stkcd)

SetfindStk3=("1:1").Find(stkcd)

SetfindStk6=("1:1").Find(stkcd)

SetfindStk7=("1:1").Find(stkcd)

SetfindStk8=("1:1").Find(stkcd)

SetfindStk9=("1:1").Find(stkcd)

SetfindStk10=("1:1").Find(stkcd)

查找股票在哪張表中

IfNotfindStk1IsNothingThen

SetfindStk=findStk1

Sheets("sz_stk1").Select

ElseIfNotfindStk2IsNothingThen

SetfindStk=findStk2

Sheets("sz_stk2").Select

ElseIfNotfindStk3IsNothingThen

SetfindStk=findStk3

Sheets("sz_stk34").Select

ElseIfNotfindStk6IsNothingThen

SetfindStk=findStk6

Sheets("sh_stk1").Select

ElseIfNotfindStk7IsNothingThen

SetfindStk=findStk7

Sheets("sh_stk2").Select

ElseIfNotfindStk8IsNothingThen

SetfindStk8=findStk8

Sheets("sh_stk3").Select

ElseIfNotfindStk9IsNothingThen

Se