Windows 10是美國(guó)微軟公司研發(fā)的跨平臺(tái)及設(shè)備應(yīng)用的操作系統(tǒng)。是微軟發(fā)布的最后一個(gè)獨(dú)立Windows版本。Windows 10共有7個(gè)發(fā)行版本,分別面向不同用戶和設(shè)備。2014年10月1日,微軟在舊金山召開(kāi)新品發(fā)布會(huì),對(duì)外展示了新一代Windows操作系統(tǒng),將它命名為“Windows 10”,新系統(tǒng)的名稱跳過(guò)了這個(gè)數(shù)字“9”。截止至2018年3月7日,Windows 10正式版已更新至秋季創(chuàng)意者10.0.16299.309版本,預(yù)覽版已更新至春季創(chuàng)意者10.0.17120版本
6、對(duì)數(shù)據(jù)進(jìn)行復(fù)雜的操作和分析
案例教程:
1、本示例為設(shè)置密碼窗口(1)
If Application.InputBox(“請(qǐng)輸入密碼:”) = 1234 Then
[A1] = 1 密碼正確時(shí)執(zhí)行
Else:MsgBox “密碼錯(cuò)誤,即將退出!” 此行與第2行共同設(shè)置密碼
End If
2、本示例為設(shè)置密碼窗口(1)
X = MsgBox(“是否真的要結(jié)帳?”, vbYesNo)
If X = vbYes Then
Close
3、本示例為設(shè)置工作表密碼
ActiveSheet.Protect Password:=641112 ‘ 保護(hù)工作表并設(shè)置密碼
ActiveSheet.Unprotect Password:=641112 ’撤消工作表保護(hù)并取消密碼
4、本示例關(guān)閉除正在運(yùn)行本示例的工作簿以外的其他所有工作簿,并保存其更改內(nèi)容。
For Each w In Workbooks
If w.Name ThisWorkbook.Name Then
w.Close SaveChanges:=True
End If
Next w
每次打開(kāi)工作簿時(shí),本示例都最大化 Microsoft Excel 窗口。
Application.WindowState = xlMaximized
5、本示例顯示活動(dòng)工作表的名稱。
MsgBox"The name of the active sheet is"& ActiveSheet.Name
6、本示例保存當(dāng)前活動(dòng)工作簿的副本。
ActiveWorkbook.SaveCopyAs"C:/TEMP/XXXX.XLS"
Excel對(duì)于非計(jì)算機(jī)專業(yè)辦公人員來(lái)說(shuō),已經(jīng)是功能非常強(qiáng)大的數(shù)據(jù)庫(kù)了,CURD已經(jīng)足夠優(yōu)秀。而你只要常常要用到Excel學(xué)習(xí)VBA就有了必要。VBA可以拓展你的Excel
Windows 10系統(tǒng)成為了智能手機(jī)、PC、平板、Xbox One、物聯(lián)網(wǎng)和其他各種辦公設(shè)備的心臟,使設(shè)備之間提供無(wú)縫的操作體驗(yàn)。