Office軟件

Excel 2013 vba學習教程筆記

0 發布于2017-08-09 閱讀: 364 次

最近因工作需要,學習了一下Excel 2013 vba編程語言,這門語言如果有VB基礎的話,學起來還是很輕松的,如果沒有也沒關系,也可以學的會。

Excel VBA是把VB編程應用在Excel平臺的一套實用教程,Excel +VBA雙劍合壁,他可以幫助我們實現Excel原本實現不了的功能,可以讓工作變得更高效,可以讓操作變得變方便,可以把重復性的操作變得更有趣,隨心所欲的定制自己的工作平臺,還可以針對企業來開發各種系統如,人事管理系統、倉庫系統、進存銷系統等,對于經常要處理大量數據工作的朋友,學會了這套VBA教程你的工作將游刃有余。

今天開始跟大家分享一些vba編程語言的知識,也作為自己學習的筆記,方便日后查找。
辦公軟件QQ交流群,WPS交流群:168486055 office辦公軟件交流群:223204028 歡迎加入。

比較基礎的我這里就不列出,下面的內容有的摘自51自學網,網站里有視頻教程,需要的朋友也可以去看看。

開啟編輯窗口:在功能區里顯示“開發工具”的情況下,按alt+F11,或者選擇相應的“visual Basic”工具即可。
三個重要的窗口:視圖里,工程資源管理器、立即窗口、本地窗口。
插入模塊,第一個小程序:
Sub 我的第一個程序() '注意sub后邊有一個空格
MsgBox "我學VBA了" ‘如果需要換行要+下劃線+空格+回車換行
End Sub
 
顯示工作表名稱:
Sub 屬性()
Debug.Print Sheet1.name
Debug.Print Sheet1.Range("a1").Value
End Sub
'立即窗口來運行的。調用各名稱和內容。
 
給屬性賦值:
Sub 屬性賦值()
Sheet1.Name = 6666
Sheet1.Range("a1").Value = 88888
End Sub
 
方法:celect,copy,delete
常量:const
變量:dim as 
數據類型:
簡寫 英文(記憶技巧) 名稱
% integer(百分百完整) 整型
! single(孤單的單精度) 單精度
# double(二橫二豎雙精度) 雙精度
& long(比較長) 長整型
$ string(s上加一豎) 字符型
@ currency(象個銅錢) 貨幣型

后面更精彩 »

在日常工作中,總有朋友會遇到這種情況:想比較或者檢查兩個 Excel 表格,卻不知怎么瀏覽才能同步查看。
這是 Excel 表哥表妹經常碰到的問題。
如果你不知道一個技巧,可能只會用在兩個窗口之前頻繁來回切換的笨辦法!切換到你懷疑人生...
今天就只分享一個技巧,簡單,實用!
常年和 Office 打交道的人都知道,在視圖選項卡中,包含了所有文檔瀏覽的相關功能,Excel 也不例外!
而其中有一項,就能幫我們省時省力的比較查看兩個表格,它就是 —— 并排查看。
先看同步滾動的效果:
bijiao.GIF
直接點擊【視圖】-【并排查看】就能實現。
本篇教程 Over。
 

后面更精彩 »

Excel2013如何合并多個工作表內容

0 發布于2017-04-27 閱讀: 596 次
剛剛朋友打電話過來找我幫忙合并一個Excel文件中很多工作表的內容,文件中大概有幾十個工作表,每個工作表中又有成百上千條的數據,如果手工合并的話估計很累,在網上查詢了一下,可以通過代碼來完成合并,記錄在此,分享出來,希望能幫助有需要的朋友。步驟如下:
新建一個“數據合并.xlsx“文檔,把需要合并的excel表格文檔放到同一個文件夾里。
打開“數據合并.xlsx“文檔,在”Sheet1“工作表的地方右鍵→查看代碼(快捷鍵:“Alt+F11”,盡量選用快捷方式)進入到Microsoft Visual Basic for Applications窗口
雙擊工程資源管理器里面的sheet1,在右側的代碼區粘貼如下代碼:
	Sub 合并當前目錄下所有工作簿的全部工作表() 
Dim MyPath, MyName, AWbName 
Dim Wb As Workbook, WbN As String 
Dim G As Long 
Dim Num As Long 
Dim BOX As String 
Application.ScreenUpdating = False 
MyPath = ActiveWorkbook.Path 
MyName = Dir(MyPath & "\" & "*.xls") 
AWbName = ActiveWorkbook.Name 
Num = 0 
Do While MyName <> "" 
If MyName <> AWbName Then 
Set Wb = Workbooks.Open(MyPath & "\" & MyName) 
Num = Num + 1 
With Workbooks(1).ActiveSheet 
.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) 
For G = 1 To Sheets.Count 
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) 
Next 
WbN = WbN & Chr(13) & Wb.Name 
Wb.Close False 
End With 
End If 
MyName = Dir 
Loop 
Range("A1").Select 
Application.ScreenUpdating = True 
MsgBox "共合并了" & Num & "個工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示" 
End Sub
運行→運行子過程/用戶窗體(或者直接點擊運行按鈕,快捷鍵:F5),即可合并所有Excel表格到”數據合并.xlsx“文檔的Sheet1工作表里面
這樣就完成了Excel表格的合并,如果你正好需要并且看到了這篇文章,解決了你的問題,希望能在下面留個言,謝謝。
更多辦公軟件的使用歡迎加入WPS交流QQ群:168486055
  • 分頁:
生财有道官网