本篇指在為excel內(nèi)寫vb腳本提供指導(dǎo)和入門

數(shù)據(jù)類型

1.只有一種variant類型，根據(jù)上下文判定是數(shù)字還是字符串

var的子類型有以下幾種：

類型解釋

Empty	未初始化都是這個(gè)值，數(shù)值變量，值為0，字符串為""
Null	無任何數(shù)據(jù)的var
Boolean	true或者false
Byte	包含0到255的整數(shù)
Integer	-32768到32768
Currency	-922337203685477.5808 到 922337203685477.5808
Long	-2147483648 到 2147483648
Single	單精度浮點(diǎn)數(shù)，-3402823E38 到 -1.401298E-45（負(fù)數(shù)），1.401298E-45 到 3402823E38（整數(shù)）
Double	雙精度浮點(diǎn)數(shù)，-1.79769313486232E308 到 -4.94065645841247E-324（負(fù)數(shù)）
Date(Time)	公元100年1月1人到公元9999年12月31日
String	可變長字符串，最大長度20億個(gè)字符
Object	包含對(duì)象
Error	包含錯(cuò)誤號(hào)

2.定義變量的方式

Dim var1 As String '定義一個(gè)名為var1的字符串 var1 = "assignment" '變量的賦值

Excel 相關(guān)的代碼操作

'1）彈窗 MsgBox "一個(gè)彈窗" '彈窗信息'2）單元格操作 '第一個(gè)工作簿的第一行第一列賦值 Cell(1,2) ' 1：行 2：列'3）單元格定位三種方式 Worksheets(1).Cells(1, 1).Value = "aa" '指定工作簿的指定位置，絕對(duì)定位 Range("A1").Value = "cc" '當(dāng)前活動(dòng)工作簿的指定位置，當(dāng)前活動(dòng)簿內(nèi)的絕對(duì)定位 ActiveCell.Cells(1, 1).FormulaR1C1 = "aa" '當(dāng)前點(diǎn)擊處的位置，相對(duì)位置'4）單元格顏色 ActiveCell.Cells(1, 1).Interior.ColorIndex = 3 ' 背景的顏色為3 紅色[^1]'5）設(shè)置指定單元格的高度（單位：磅, 0.035cm） ActiveSheet.Rows(2).RowHeight = 1 / 0.035 ' 第二行高度改為1cm'6）設(shè)置指定單元格的寬度（單位：字符個(gè)數(shù)）ActiveSheet.Columns(2).ColumnWidth = 5'7） 插入公式 'D3單元格公式為=Average(A3:B3)? ActiveSheet.Cells(3, 4).FormulaR1C1 = "=Average(RC[-3]:RC[-2])" '8) 分頁符 ' 第8行之前插入分頁符（0：取消分頁符 1：插入分頁符） ActiveSheet.Rows(8).PageBreak = 1 '取消 第8列之前的分頁符 ActiveSheet.columns(8).pagebreak = 0' 9) 指定邊框線寬度 ' Borders（邊框形狀：1-左 2-右 3-頂 4-底 5-\ 6-/） ' 值代表寬度 ActiveSheet.Range("B3:D4").Borders(6).Weight = 2' 10) 設(shè)置第一行（可指定）字體屬性ActiveSheet.Range("B3:D4").Borders(6).Weight = 2ActiveSheet.Rows(1).Font.Name = "黑體"ActiveSheet.Rows(1).Font.Color = vbRedActiveSheet.Rows(1).Font.Bold = TrueActiveSheet.Rows(1).Font.Underline = True' 11) 字符串處理' 計(jì)算字符串長度Len("abcd") ' 4' 從右開始截取指定長度的字符串Right("abcd", 3) ' bcd'從左開始截取指定長度的字符串 Left("abcd", 3) ' abc'分割字符串：x = "1,2,3"split(x, ',')

附1：單元格顏色代碼

附2：單元格顏色代碼

常數(shù)值描述

vbBlack?(H0)	黑色
vbRed?(HFF)	紅色
vbGreen?(HFF00)	綠色
vbYellow?(HFFFF)	黃色
vbBlue?(HFF0000)	蘭色
vbMagenta?(HFF00FF)	洋紅
vbCyan?(HFFFF00)	青色
vbWhite?(HFFFFFF)	白色

基本流程語句的格式

'1）條件判斷( if-elseif-else )： If i < 10 Then ActiveCell.Range("A1").FormulaR1C1 = "if" ElseIf i = 11 Then ActiveCell.Cells(0, 0).FormulaR1C1 = "elseif" Else ActiveCell.Cells(0, 0).FormulaR1C1 = "else" End If'2）循環(huán)控制( for )： For excel_column = 1 To 8' 語句塊 Next excel_column'3）switch case分支: Select Case d Case 1 document.write("Sleepy Sunday") Case 2 document.write("Monday again!") Case 3 document.write("Just Tuesday!") Case else document.write("Super Saturday!!!!") End Select

總結(jié)

以上是生活随笔為你收集整理的Excel 内的 VBS 脚本编程锦策的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。