Excel數(shù)據(jù)分析實戰(zhàn)——教您輕松玩轉(zhuǎn)Excel

相似文件 換一批

是 否 +2 論壇幣

k人 參與回答

經(jīng)管之家送您一份

應(yīng)屆畢業(yè)生專屬福利!

求職就業(yè)群

趙安豆老師微信：zhaoandou666

經(jīng)管之家聯(lián)合CDA

送您一個全額獎學(xué)金名額~ !

立即領(lǐng)取

感謝您參與論壇問題回答

經(jīng)管之家送您兩個論壇幣！

+2 論壇幣

Excel數(shù)據(jù)分析實戰(zhàn)-教您輕松玩轉(zhuǎn)Excel


一、開課時間
時間：2017年11月20-24日（五天）
二、課程定價
費用：400元/天 (贈送錄制視頻)

三、學(xué)習(xí)方式

1、上課方式：同步現(xiàn)場直播學(xué)習(xí)+錄播學(xué)習(xí)+在線答疑 +1萬次反復(fù)觀看

2、課程時間：上午9:00-12:00；下午1:30-4:30；答疑4:30-5:00

3、直播課程，開課即學(xué)

4、在線反復(fù)觀看，1萬次反復(fù)觀看

四、報名福利（優(yōu)惠）

1、現(xiàn)場班老學(xué)員可以享受9折優(yōu)惠；

2、同一機構(gòu)3人以上報名，9折優(yōu)惠；

3、同一機構(gòu)6人以上報名，8折優(yōu)惠；

4、贈送Excel課程視頻；

5、專業(yè)老師在線答疑；

6、精致課程練習(xí)題供學(xué)員課后操作更易于學(xué)員理解與掌握所受知識，提高實戰(zhàn)能力；

7、報名成功后發(fā)送老師課程講義供學(xué)員提前預(yù)習(xí)；

8、提供就業(yè)培訓(xùn)、就業(yè)指導(dǎo)、就業(yè)面試題；

9、免費參加CDA數(shù)據(jù)分析研究院俱樂部活動。

10、贈送經(jīng)管之家（原人大經(jīng)濟論壇）論壇幣1000

（前三項優(yōu)惠不疊加）

五、講師介紹

CDA數(shù)據(jù)分析講師馬竹青老師

二級教授，北京市高校教學(xué)名師，獲取過北京市教育教學(xué)成果二等獎、北京市優(yōu)秀教師、北京市優(yōu)秀教學(xué)團隊領(lǐng)隊人。

1978-1981年國防科技大學(xué)攻讀本科；

1983-1986電子科技大學(xué)攻讀碩士研究生。

1992-1993年期間國家教委派出，丹麥哥本哈根大學(xué)訪問學(xué)者；

1998-1999年期間受國家教委派出，美國加州州立大學(xué)做訪問學(xué)者；

2013-2014年期間所在學(xué)校派出，倫敦大學(xué)瑪麗女王學(xué)院訪問學(xué)者。

       從教近三十年，開設(shè)過十門計算機相關(guān)課程，不斷地為學(xué)生辛勤耕耘，多次被評為“我愛我?guī)煛�、學(xué)校優(yōu)秀教師、師德先進個人。專著譯著7部，論文數(shù)十篇，研究方向數(shù)據(jù)分析、數(shù)據(jù)庫應(yīng)用和數(shù)據(jù)模型實施；近期投入Power BI for Excel相關(guān)教學(xué)和研究，頗有建樹、興致和根基。

CDA數(shù)據(jù)分析講師李奇老師

       經(jīng)管之家簽約講師/中國電子表格應(yīng)用大會主席IBM中國擔(dān)任銷售管理團隊數(shù)據(jù)分析項目組長及德勤北京所的數(shù)據(jù)分析高級咨詢顧問。專精于企業(yè)數(shù)據(jù)分析、制定商業(yè)智能業(yè)務(wù)解決方案、軟件開發(fā)及Excel培訓(xùn)等           

六、課程簡介

       Excel是微軟辦公套裝軟件的一個重要的組成部分，它可以進行各種數(shù)據(jù)的處理、統(tǒng)計分析和輔助決策操作，廣泛地應(yīng)用于管理、統(tǒng)計、財經(jīng)、金融等眾多領(lǐng)域。
       本課程主要是從其最基礎(chǔ)的excel定位條件操作，到中級各種統(tǒng)計函數(shù)、文本函數(shù)、邏輯函數(shù)、查找引用函數(shù)等等，進而步入圖表展現(xiàn)和透視表，以及函數(shù)、圖表結(jié)合的動態(tài)展現(xiàn)，再到后面的Power BI自動分析你的所有數(shù)據(jù)。

七、課程大綱

第一章：Excel基礎(chǔ)

第一節(jié)：Excel基本操作及基本數(shù)據(jù)處理

1、處理重復(fù)數(shù)據(jù)，處理不完整數(shù)據(jù)

2、處理格式錯誤數(shù)據(jù)，處理異常值

3、提取數(shù)據(jù)，數(shù)據(jù)轉(zhuǎn)換

4、 數(shù)據(jù)標準化，加權(quán)平均

第二節(jié)： 函數(shù)基礎(chǔ)

1、數(shù)學(xué)函數(shù)，文本函數(shù)

2、邏輯函數(shù)，查找定位函數(shù)

3、日期函數(shù)，統(tǒng)計函數(shù)

4、函數(shù)的嵌套使用

第三節(jié)： 基本圖表

1、餅圖，折線圖

2、柱形圖，條形圖

3、散點圖，氣泡圖

4、雷達圖，面積圖

5、組合圖

第四節(jié)： 動態(tài)圖表

1、控件基礎(chǔ)

2、基本動態(tài)圖表方法

第五節(jié)： 數(shù)據(jù)透視表

1、數(shù)據(jù)透視表基礎(chǔ)，數(shù)據(jù)透視圖基礎(chǔ)

2、切片器，數(shù)據(jù)透視圖表與切片器的組合應(yīng)用

3、計算規(guī)則設(shè)定方法

第二章：Excel高級

第一節(jié)：案例-杜邦分析儀制作方法

1、杜邦分析儀業(yè)務(wù)背景介紹

2、 杜邦分析儀制作方法詳解

第二節(jié)：Power Map

1、Power Map概述

2、Power Map使用方法介紹

3、Power Map應(yīng)用案例

第三節(jié)：Power View

1、Power View概述

2、Power View使用方法介紹

3、Power View應(yīng)用案例

第四節(jié)：Power Query

1、Power Query概述

2、Power Query數(shù)據(jù)導(dǎo)入

3、Power Query基本功能介紹

4、橫縱向合并數(shù)據(jù)，M公式介紹

第五節(jié)：Power Pivot

1、Power Pivot概述

2、Power Pivot數(shù)據(jù)導(dǎo)入

3、Power Pivot基本功能介紹

4、Power Pivot搭建多維數(shù)據(jù)集

5、Power Pivot創(chuàng)建KPI

6、Power Pivot創(chuàng)建層次結(jié)構(gòu)

7、Power Pivot使用案例

八、課程重點

       Excel數(shù)據(jù)處理技巧和高效方法，Excel數(shù)據(jù)收集和處理，Excel常用公式、函數(shù)、數(shù)組及數(shù)據(jù)分析、Excel可視化數(shù)據(jù)分析（排序、篩選、透視表等）、Excel圖表化數(shù)據(jù)呈現(xiàn)、利用Power Pivot創(chuàng)建表關(guān)聯(lián)、制作切片器、制作動態(tài)圖標、制作地圖、制作城市名的動態(tài)條形圖、為”儀表盤”工作中各個部件布局、Powerquery數(shù)據(jù)導(dǎo)入、Power query數(shù)據(jù)處理、制作PowerView界面分析儀、調(diào)整儀表板中各部件布局及顯示格式。

九、課程目標

1、熟練掌握Excel基本操作和基本數(shù)據(jù)處理，能熟練使用常用的Excel函數(shù)，能使用Excel畫基本的圖表以及動態(tài)圖表，掌握Excel數(shù)據(jù)透視表。
2、在Excel高級的課程中，熟練使用power query和power pivot，了解power map和power View的原理和用法。

十、報名流程及咨詢
1. 提交報名信息：http://www.peixun.net/main.php?mod=buy&cid=1063
2. 給予反饋，確認報名信息
3. 交費
開戶行：北京農(nóng)商銀行四季青支行萬壽寺分理處
戶名：北京國富如荷網(wǎng)絡(luò)科技有限公司
卡號：0404 1001 0300 0003 092
支付寶：guofuruhe@126.com
戶名：北京國富如荷網(wǎng)絡(luò)科技有限公司
4. 郵遞發(fā)票

咨詢方式

龔加勇
電話：010-53605625
手機：17773656856

Q  Q: 1281241407

掃碼加我 拉你入群

請注明：姓名-公司-職位

以便審核進群資格，未注明則拒絕

分享0 收藏1 回帖

關(guān)鍵詞：EXCEL數(shù)據(jù)分析 excel數(shù)據(jù) EXCEL xcel exce

謝謝分享

VBA文件及文件夾操作
1.VBA操作文件及文件夾
on error resume next下測試

A，在D：\下新建文件夾，命名為folder

方法1：MkDir "D：\folder"

方法2：Set abc = CreateObject("Scripting.FileSystemObject")

abc.CreateFolder ("D：\folder")

B，新建2個文件命名為a.xls和b.xls

Workbooks.Add

ActiveWorkbook.SaveAs Filename：="D：\folder\a.xls"

ActiveWorkbook.SaveAs Filename：="D：\folder\b.xls"

C,創(chuàng)建新文件夾folder1并把a.xls復(fù)制到新文件夾重新命名為c.xls

MkDir "D：\folder1"

FileCopy "D：\folder\a.xls", "D：\folder1\c.xls"

D,復(fù)制folder中所有文件到folder1

Set qqq = CreateObject("Scripting.FileSystemObject")

qqq.CopyFolder "D：\folder", "D：\folder1"

D,重命名a.xls為d.xls

name "d：\folder1\a.xls" as "d：\folder1\d.xls"

E,判斷文件及文件夾是否存在

Set yyy = CreateObject("Scripting.FileSystemObject")

If yyy.FolderExists("D：\folder1) = True Then ...

If yyy.FileExists("D：\folder1\d.xls) = True Then ...

F,打開folder1中所有文件

Set rrr = CreateObject("Scripting.FileSystemObject")

Set r = rrr.GetFolder("d：\folder1")

For Each i In r.Files

Workbooks.Open Filename：=("d：\folder1\" + i.Name + "")

Next

G,刪除文件c.xls

kill "d：\folder1\c.xls"

H,刪除文件夾folder

Set aaa = CreateObject("Scripting.FileSystemObject")

aaa.DeleteFolder "d：\folder"

2.excel vba一次性獲取文件夾下的所有文件名的方法
小生今天上網(wǎng)下載了一個財務(wù)常用報表的文件包，里面有幾百個excel工作表，要是手工一個一個的獲得文件名的話，那我可是要忙十天半月哦。于是想到昨論 壇就是vba論壇，昨不充分利用excel 自身的高級應(yīng)用呀，呵呵，實現(xiàn)的代碼如下，把工作量幾天的任務(wù)可是一下子就完成了，這就是excel vba給你工作提高效率的結(jié)果！

excle vba自動獲取同一文件夾下所有工作表的名稱紅色代碼：

按Alt+F11，打開VBA編輯器，插入一個模塊，把下面的代碼貼進去，按F5執(zhí)行

Sub t()

Dim s As FileSearch '定義一個文件搜索對象

Set s = Application.FileSearch

s.LookIn = "c：\" '注意路徑，換成你實際的路徑

s.Filename = "*.*" '搜索所有文件

s.Execute '執(zhí)行搜索

Cells.Delete '表格清空

For i = 1 To s.FoundFiles.Count

Cells(i, 1) = s.FoundFiles(i) '每一行第一列填寫一個文件名

Next

End Sub

現(xiàn)在獲得的可是帶路徑的工作表名，去掉前的路徑可用以下方法；

=RIGHT(A1,LEN(A1)-FIND("#",SUBSTITUTE(A1,"\","#",LEN(A1)-LEN(SUBSTITUTE(A1,"\",)))))

最后用常規(guī)的方法往下拖，就完成了筆者所需的工作表名。

outlook下VBA編程：把公用文件夾里的郵件附件拷貝出來保存在硬盤上

2009-06-17 09：35

Sub SaveAttachments()

Dim oApp As Outlook.Application

Dim oNameSpace As NameSpace

Dim oFolder As MAPIFolder

Dim oMailItem As Object

Dim sMessage As String

BeforeDate = #10/1/2007#     ' choose the end date of wanted

MyDir = "E：\liuxc-work\oil loss\backup from public folder\"   ' choose the folder location for save

Sender = "Hz121 Supervisor"   ' caution, case sensitive

SendFile = "HZ121-1_Daily.xls"

MyY = 0

Set oApp = New Outlook.Application

Set oNameSpace = oApp.GetNamespace("MAPI")

Set oFolder = oNameSpace.PickFolder

For Each oMailItem In oFolder.Items

With oMailItem

MyT3 = Left(CStr(oMailItem.CreationTime), 10)

If CDate(oMailItem.CreationTime) >= BeforeDate Then

If oMailItem.SenderName = Sender Then

If oMailItem.Attachments.Count > 0 Then ' protect error

For i = 1 To oMailItem.Attachments.Count

If oMailItem.Attachments.Item(i).FileName = SendFile Then

MyT1 = InStr(1, oMailItem.Attachments.Item(i).FileName, ".", 1)

MyT2 = Left(oMailItem.Attachments.Item(i).FileName, 19) + "-" + MyT3 + ".xls"

oMailItem.Attachments.Item(i).SaveAsFile MyDir & MyT2

MsgBox oMailItem.Attachments.Item(i).DisplayName & " was saved as " & oMailItem.Attachments.Item(i).FileName

End If

Next i

End If

End If

Else

MyY = MyY + 1

If MyY > 10 Then GoTo LoopEnd

End If

End With

Next oMailItem

LoopEnd：

' Set oMailItem = Nothing

' Set oFolder = Nothing

' Set oNameSpace = Nothing

' Set oApp = Nothing

3.Excel VBA把選定文件夾中的工作簿導(dǎo)入到新建ACCESS數(shù)據(jù)庫中
2010-04-24 22：33

方法一

Sub Create_AccessProject()

Dim AccessData As Object

Set AccessData = CreateObject("Access.Application")

Dim Stpath As String

Stpath = ThisWorkbook.Path & "\DSEM-Stock-Allocation.mdb" '設(shè)定路徑

If Dir(Stpath, vbDirectory) = "DSEM-Stock-Allocation.mdb" Then

Kill (Stpath)

End If

AccessData.NewCurrentDatabase Stpath

Set AccessData = Nothing '創(chuàng)建表格

Set cnnaccess = CreateObject("Adodb.Connection")

Set rstAnswers = CreateObject("Adodb.Recordset")

cnnaccess.Provider = "Microsoft.Jet.OLEDB.4.0"

Application.Wait Now() + TimeValue("00：00：02") '系統(tǒng)暫停2秒,以等待data.mdb建立成功

cnnaccess.Open "Data Source =" & Stpath & ";Jet OLEDB：Database Password=" & ""

'strSQL = "Create Table myData(last_date char(8))"

'rstAnswers.Open strSQL, cnnaccess

Set rstAnswers = Nothing

Set cnnaccess = Nothing

MyMainFile = ThisWorkbook.Name

Dim CurFile As String

Application.DisplayAlerts = False

myFile = Application.GetOpenFilename("(*.xls),*.xls)", , "Please Select Files")

If myFile = False Then Exit Sub

DirLoc = CurDir(myFile) & "\"

CurFile = Dir(DirLoc & "*.xls")

Do While CurFile <> vbNullString

Set objAccess = CreateObject("Access.Application")

LinkFile = DirLoc & CurFile

TableName = Left(CurFile, Len(CurFile) - 4)

If CurFile = "HONHAI-VMIData1.xls" Then

With objAccess

.OpenCurrentDatabase (ThisWorkbook.Path & "\DSEM-Stock-Allocation.mdb")

.DoCmd.TransferSpreadsheet acLink, 8, TableName, LinkFile, True, "Aging Report$"

End With

objAccess.CloseCurrentDatabase

Set objAccess = Nothing

CurFile = Dir

Else

With objAccess

.OpenCurrentDatabase (ThisWorkbook.Path & "\DSEM-Stock-Allocation.mdb")

.DoCmd.TransferSpreadsheet acImport, 8, TableName, LinkFile, True, ""

End With

objAccess.CloseCurrentDatabase

Set objAccess = Nothing

CurFile = Dir

End If

Loop

End Sub

方法二

Sub Folder2Access()

Dim db As DAO.Database

Dim ws As DAO.Workspace

Set ws = DBEngine.Workspaces(0)

Set db = ws.OpenDatabase("C：\CustomersDataBase\DSEM-PO-Stock-Status.mdb", False, False, "")

db.Execute ("delete * from [DSEM-MovingPlan]")

db.Close

Set db = Nothing

Dim myFile As String

Dim s As FileSearch '定義一個文件搜索對象

Set s = Application.FileSearch

s.LookIn = "C：\CustomersDataBase\Test\" '注意路徑，換成你實際的路徑

s.Filename = "*.*" '搜索所有文件

s.Execute '執(zhí)行搜索

For i = 1 To s.FoundFiles.Count

FullName1 = Right(s.FoundFiles(i), Len(s.FoundFiles(i)) - Len("C：\CustomersDataBase\Test\"))

Filename = Left(FullName1, Len(FullName1) - 4)

Set objAccess = CreateObject("Access.Application")

myFile = "C：\CustomersDataBase\Test\" & Filename & ".xls"

With objAccess

.OpenCurrentDatabase ("C：\CustomersDataBase\DSEM-PO-Stock-Status.mdb")

.DoCmd.TransferSpreadsheet acImport, 8, "DSEM-MovingPlan", myFile, True, ""

End With

objAccess.CloseCurrentDatabase

Set objAccess = Nothing

Next

End Sub

4.vba操作文件及文件夾示例
2009-08-20 00：07

vba操作文件及文件夾示例

利用excel中的vba可以對電腦中的文件及文件夾做一些常用的操作。

包括復(fù)制、重命名、刪除等，其中一些簡單的示例總結(jié)如下。

希望對一些經(jīng)常需要批量處理文件的朋友有所幫助，也希望感興趣的朋友多多指教！以下代碼建議在on error resume next下測試

1，在D：\下新建文件夾，命名為folder

方法1：MkDir "D：\folder"

方法2：Set abc = CreateObject("Scripting.FileSystemObject")

abc.CreateFolder ("D：\folder")

2，新建2個文件命名為a.xls和b.xls

Workbooks.Add

ActiveWorkbook.SaveAs Filename：="D：\folder\a.xls"

ActiveWorkbook.SaveAs Filename：="D：\folder\b.xls"

3,創(chuàng)建新文件夾folder1并把a.xls復(fù)制到新文件夾重新命名為c.xls

MkDir "D：\folder1"

FileCopy "D：\folder\a.xls", "D：\folder1\c.xls"

4,復(fù)制folder中所有文件到folder1

Set qqq = CreateObject("Scripting.FileSystemObject")

qqq.CopyFolder "D：\folder", "D：\folder1"

5,重命名a.xls為d.xls

name "d：\folder1\a.xls" as "d：\folder1\d.xls"

6,判斷文件及文件夾是否存在

Set yyy = CreateObject("Scripting.FileSystemObject")

If yyy.FolderExists("D：\folder1) = True Then ...

If yyy.FileExists("D：\folder1\d.xls) = True Then ...

7,打開folder1中所有文件

Set rrr = CreateObject("Scripting.FileSystemObject")

Set r = rrr.GetFolder("d：\folder1")

For Each i In r.Files

Workbooks.Open Filename：=("d：\folder1\" + i.Name + "")

Next 8,刪除文件c.xls

kill "d：\folder1\c.xls" 9,刪除文件夾folder

Set aaa = CreateObject("Scripting.FileSystemObject")

aaa.DeleteFolder "d：\folder"

VBA Dir 函數(shù) 遍歷文件夾下的所有文件

2010-05-26 17：30

5.用VBA獲取文件夾中的文件列表
如果我們要在Excel中獲取某個文件夾中所有的文件列表，可以通過下面的VBA代碼來進行。代碼運行后，首先彈出一個瀏覽文件夾對話框，然后新建一個工作簿，并在工作表的A至F列分別列出選定文件夾中的所有文件的文件名、文件大小、創(chuàng)建時間、修改時間、訪問時間及完整路徑。方法如下：

1.按Alt+F11，打開VBA編輯器，單擊菜單“插入→模塊”，將下面的代碼粘貼到右側(cè)的代碼窗口中：

Option Explicit

Sub GetFileList()

Dim strFolder As String

Dim varFileList As Variant

Dim FSO As Object, myFile As Object

Dim myResults As Variant

Dim l As Long

'顯示打開文件夾對話框

With Application.FileDialog(msoFileDialogFolderPicker)

.Show

If .SelectedItems.Count = 0 Then Exit Sub '未選擇文件夾

strFolder = .SelectedItems(1)

End With

'獲取文件夾中的所有文件列表

varFileList = fcnGetFileList(strFolder)

If Not IsArray(varFileList) Then

MsgBox "未找到文件", vbInformation

Exit Sub

End If

'獲取文件的詳細信息，并放到數(shù)組中

ReDim myResults(0 To UBound(varFileList) + 1, 0 To 5)

myResults(0, 0) = "文件名"

myResults(0, 1) = "大�。ㄗ止�(jié)）"

myResults(0, 2) = "創(chuàng)建時間"

myResults(0, 3) = "修改時間"

myResults(0, 4) = "訪問時間"

myResults(0, 5) = "完整路徑"

Set FSO = CreateObject("Scripting.FileSystemObject")

For l = 0 To UBound(varFileList)

Set myFile = FSO.GetFile(CStr(varFileList(l)))

myResults(l + 1, 0) = CStr(varFileList(l))

myResults(l + 1, 1) = myFile.Size

myResults(l + 1, 2) = myFile.DateCreated

myResults(l + 1, 3) = myFile.DateLastModified

myResults(l + 1, 4) = myFile.DateLastAccessed

myResults(l + 1, 5) = myFile.Path

Next l

fcnDumpToWorksheet myResults

Set myFile = Nothing

Set FSO = Nothing

End Sub

Private Function fcnGetFileList(ByVal strPath As String, Optional strFilter As String) As Variant

' 如果文件夾中包含文件返回一個二維數(shù)組，否則返回False

Dim f As String

Dim i As Integer

Dim FileList() As String

If strFilter = "" Then strFilter = "*.*"

Select Case Right$(strPath, 1)

Case "\", "/"

strPath = Left$(strPath, Len(strPath) - 1)

End Select

ReDim Preserve FileList(0)

f = Dir$(strPath & "\" & strFilter)

Do While Len(f) > 0

ReDim Preserve FileList(i) As String

FileList(i) = f

i = i + 1

f = Dir$()

Loop

If FileList(0) <> Empty Then

fcnGetFileList = FileList

Else

fcnGetFileList = False

End If

End Function

Private Sub fcnDumpToWorksheet(varData As Variant, Optional mySh As Worksheet)

Dim iSheetsInNew As Integer

Dim sh As Worksheet, wb As Workbook

Dim myColumnHeaders() As String

Dim l As Long, NoOfRows As Long

If mySh Is Nothing Then

'新建一個工作簿

iSheetsInNew = Application.SheetsInNewWorkbook

Application.SheetsInNewWorkbook = 1

Set wb = Application.Workbooks.Add

Application.SheetsInNewWorkbook = iSheetsInNew

Set sh = wb.Sheets(1)

Else

Set mySh = sh

End If

With sh

Range(.Cells(1, 1), .Cells(UBound(varData, 1) + 1, UBound(varData, 2) + 1)) = varData

.UsedRange.Columns.AutoFit

End With

Set sh = Nothing

Set wb = Nothing

End Sub

2.關(guān)閉VBA編輯器，回到Excel工作表中，按Alt+F8，打開“宏”對話框，選擇“GetFileList”，單擊“運行”按鈕。