湖北快3走势图:辦公中常用到的Excel-VBA編程

來源:互聯網
更新時間:2018/2/8 23:42:51
責任編輯:李佳
 Excel 
字體:

福建体彩走势图 www.uyduz.icu

用過VB的人都應該知道如何聲明變量,在VBA中聲明變量和VB中是完全一樣的!

使用Dim語句

Dim a as integer '聲明a為整型變量

Dim a '聲明a為變體變量

Dim a as string '聲明a為字符串變量

Dim a as currency ,b as currency ,c as currency '聲明a,b,c為貨幣變量

聲明變量可以是:Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal(當前不支持)、 Date、String(只限變長字符串)、String * length(定長字符串)、Object、Variant、用戶定義類型或對象類型。

強制聲明變量

Option Explicit

說明:該語句必在任何過程之前出現在??櫓?。

聲明常數

用來代替文字值。

Const

' 常數的默認狀態是 Private。

Const My = 456

' 聲明 Public 常數。

Public Const MyString = "HELP"

' 聲明 Private Integer 常數。

Private Const MyInt As Integer = 5

' 在同一行里聲明多個常數。

Const MyStr = "Hello", MyDouble As Double = 3.4567

選擇當前單元格所在區域

在EXCEL97中,有一個十分好的功能,他就是把鼠標放置在一個有效數據單元格中,執行該段代碼,你就可以將連在一起的一片數據全部選中。只要將該段代碼加入到你的??櫓?。

Sub My_Select

Selection.CurrentRegion.Select

End sub

返回當前單元格中數據刪除前后空格后的值

sub my_trim

msgbox Trim(ActiveCell.Value)

end sub

單元格位移

sub my_offset

ActiveCell.Offset(0, 1).Select'當前單元格向左移動一格

ActiveCell.Offset(0, -1).Select'當前單元格向右移動一格

ActiveCell.Offset(1 , 0).Select'當前單元格向下移動一格

ActiveCell.Offset(-1 , 0).Select'當前單元格向上移動一格

end sub

如果上述程序產生錯誤那是因為單元格不能移動,為了解除上述錯誤,我們可以往

sub my_offset 之下加一段代碼 on error resume next

注意以下代碼都不再添加 sub “代碼名稱” 和end sub請自己添加!

給當前單元格賦值

ActiveCell.Value = "你好?。?!"

給指定單元格賦值

例如:A1單元格內容設為"HELLO"

Range("a1").value="hello"

又如:你現在的工作簿在sheet1上,你要往sheet2的A1單元格中插入"HELLO"

1.

sheets("sheet2").select

range("a1").value="hello"

2.

Sheets("sheet1").Range("a1").Value = "hello"

說明:

1.sheet2被選中,然后在將“HELLO"賦到A1單元格中。

2.sheet2不必被選中,即可“HELLO"賦到sheet2 的A1單元格中。

隱藏工作表

'隱藏SHEET1這張工作表

sheets("sheet1").Visible=False

'顯示SHEET1這張工作表

sheets("sheet1").Visible=True

打印預覽

有時候我們想把所有的EXCEL中的SHEET都打印預覽,請使用該段代碼,它將在你現有的工作簿中循環,直到最后一個工作簿結束循環預覽。

Dim my As Worksheet

For Each my In Worksheets

my.PrintPreview

Next my

得到當前單元格的地址

msgbox ActiveCell.Address

得到當前日期及時間

msgbox date & chr(13) & time

?;すぷ韃?p>ActiveSheet.Protect

取消?;すぷ韃?p>ActiveSheet.Unprotect

給活動工作表改名為 "liu"

ActiveSheet.Name = "liu"

打開一個應用程序

AppActivate (Shell("C:\WINDOWS\CALC.EXE"))

增加一個工作表

Worksheets.Add

刪除活動工作表

activesheet.delete

打開一個工作簿文件

Workbooks.Open FileName:="C:\My Documents\Book2.xls"

關閉活動窗口

ActiveWindow.Close

單元格格式

選定單元格左對齊

Selection.HorizontalAlignment = xlLeft

選定單元格居中

Selection.HorizontalAlignment = xlCenter

選定單元格右對齊

Selection.HorizontalAlignment = xlRight

選定單元格為百分號風格

Selection.Style = "Percent"

選定單元格字體為粗體

Selection.Font.Bold = True

選定單元格字體為斜體

Selection.Font.Italic = True

選定單元格字體為宋體20號字

With Selection.Font

.Name = "宋體"

.Size = 20

End With

With 語句

With 對象

.描述

End With

清除單元格

ActiveCell.Clear '刪除所有文字、批注、格式

返回選定區域的行數

MsgBox Selection.Rows.Count

返回選定區域的列數

MsgBox Selection.Columns.Count

返回選定區域的地址

Selection.Address

忽略所有的錯誤

ON ERROR RESUME NEXT

遇錯跳轉

on error goto err_handle

'中間的其他代碼

err_handle: ' 標簽

'跳轉后的代碼

刪除一個文件

kill "c:\1.txt"

定制自己的狀態欄

Application.StatusBar = "現在時刻: " & Time

恢復自己的狀態欄

Application.StatusBar = false

用代碼執行一個宏

Application.Run macro:="text"

滾動窗口到a1的位置

ActiveWindow.ScrollRow = 1

ActiveWindow.ScrollColumn = 1

定制系統日期

Dim MyDate, MyDay

MyDate = #12/12/69#

MyDay = Day(MyDate)

返回當天的時間

Dim MyDate, MyYear

MyDate = Date

MyYear = Year(MyDate)

MsgBox MyYear

inputbox<輸入框>

XX=InputBox ("Enter number of months to add")

得到一個文件名

Dim kk As String

kk = Application.GetOpenFilename("EXCEL (*.XLS), *.XLS", Title:="提示:請打開一個EXCEL文件:")

msgbox kk

打開zoom對話框

Application.Dialogs(xlDialogZoom).Show

激活字體對話框

Application.Dialogs(xlDialogActiveCellFont).Show

打開另存對話框

Dim kk As String

kk = Application.GetSaveAsFilename("excel (*.xls), *.xls")

Workbooks.Open kk

根據您訪問的內容,您可能還對以下內容感興趣,希望對您有幫助:

求《Excel 2007與VBA編程從入門到精通》《Excel VB...

答:直接發送給你的話,文件比較大,已經給你(迅雷)鏈接地址,你自己下吧! 如果還需要相關教程的,可以再M我。 Q 27487521

如何在excel里用vba編程制作一個簡單的數據庫

答:Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open "Provider=Microsoft.Jet.Oledb.4.0;Persist Security Info = False;extended properties='Excel 8.0;HDR=YES;IMEX=0';Data Source=“各科成績表.xls" If conn.State = ...

Excel VBA編程中有哪些常用的英文詞匯

答:VBA對英文肯定是有需求的,因為代碼輸入時都有聯想功能,你只需要去選擇就行,不一定要求會讀會寫,但肯定要認得,不認得會困難很多,認得它就需要去記了,所以學它還是有點英語基礎好點。

Excel 在vba編程中,有沒有無條件進位的函數

答:可以直接調用Excel函數roundup啊 application.worksheetfunction.roundup(A1,0)

Excel 常用函數的VBA代碼怎么查看

答:Alt+F11 打開 VBE 編輯器,然后 F2 打開對象瀏覽器, 常見的 Excel 函數在 WorksheetFunction 這個類??橄攏?如果要查看更具體的幫助,可以選中某個函數,然后 F1 打開幫助文檔。

excel vba做什么

答:VBA是VB的一個子集。 盡管存在一些不同,VBA和VB在結構上仍然十分相似.事實上,如果你已經了解了VB,會發現學習VBA非???相應的,學完VBA會給學習VB打下堅實的基礎.而且,當學會在EXCEL中用VBA創建解決方案后,即已具備在WORD ACCESS OUTLOOK FOXPRO ...

在當前excel中用VBA編程取出另一個xls文件中的內容

答:沒有你的工作表,試著閉門造車一下,看看能用不。你說的那個規律我不知道有什么用。 Sub GetContent() Dim Sh As Workbook, Wk2 As Workbook, R As Range, S As String, F As Boolean, L As Long Set Wk1 = Workbooks("新建Microsoft Excel工作...

excel中關于VBA編程用到listbox的問題

答:dim a as string a="listbox1" controls(a).additem a

求解:excel軟件vba中,worksheets(1)與worksheets...

答:worksheets(1)表示表格中第一個位置的工作表 worksheets(“sheet1”)指定了工作表名稱為"sheet1"

excel中VBA編程 中日對照表

答:你這個需求CAT工具可以做,一個典型的術語操作,既然VBA你也不是不會寫的,那就不如了解一個軟件簡單點,中日對照表做成一個術語庫,然后用trados預翻一下你的日文文章

Excel VBA編程

Private Sub Worksheet_Activate() Application.ScreenUpdating = False Dim i For i = Range("A65536").End(xlUp).Row To 8 Step -1 If WorksheetFunction.Count(R...

關于在Excel中使用VBA編程時遇到運行錯誤'13'的問題

用函數將Cells(x2, y).Value轉換為數值型的值后再加1就行了. 如果將這個格子設為數值型的值的話可能也行的. 有機會到我的主頁上看看,可能有你想要的.

辦公軟件,excel宏的學習,VBA需要學哪些書比較好!

必學: 一.進階級,世界表格先生寫的: 中文版Excel.2007高級VBA編程寶典 二.入門級 Excel.2007與VBA編程從入門到精通

EXCEL VBA2007的書能適合EXCEL2003操作嗎?

辦公根本接觸不到,建議你先看"中文版Excel 2007高級VBA編程寶典"清華大學出版社,它... 還有就是如果不會從網上尋求解決方法的就一定搞點專講實例的書看,實際編程中有很多...

我想學習excel+vba編程,但我就是不知道什么書好,大家能不能推...

不太新潮,但是它是一本相當好的入門書。 C語言本來就是比較簡單的語言,書比C++少多了…… 比較有名的: 《The C Programming Language》(C語言程序設計,第2版新版...

EXCEL VBA 是什么意思

VBA就是俗稱的"宏",它是一種程序語言,可以實現office軟件的辦公自動化。它的編程幾乎和VB一樣,方便易懂。

Excel打開提示:此工作簿已丟失其VBA項目,ActiveX控件以及其...

你好!你的電腦出現的這種情況是由于殺毒軟件將辦公軟件Excel系統文件誤殺造成的。... Data\ Microsoft\Excel\XSTART\這個EXCEL加載文件夾中多出一...

Excel 2003辦公應用與Excel2003 VBA辦公應用區別

excel講的是通常的操作,適用于初學者。 excelVBA講的是為excel編程方面的,適用于高級用戶。 如果VBA沒接觸過的話,還是買36那本吧

excel 中的VBA怎樣連接OUTLOOK

VBA,其中Excel和Access的VBA最為成熟。 在Excel中VBA程序即可以存放有.xls中,也... 畢竟經常用Excel的用戶一般是辦公人員,不可能是專業編程人員),然后結合宏記錄器學習...

關于excel vba 采購管理系統的書籍或資料?

《完全手冊:Excel VBA辦公應用開發詳解》(伍云輝)完美書簽 高清晰版 《Excel VBA實戰技巧精粹》 一定要EXCELHOME出版的. (分為2003,2007版)


www.xue163.net true //www.xue163.net/soft/18/188268.html report 19404 辦公中常用到的Excel-VBA編程,用過VB的人都應該知道如何聲明變量,在VBA中聲明變量和VB中是完全一樣的!使用Dim語句Dimaasinteger聲明a為整型變量Dima聲明a為變體變量Dimaasstring聲明a為字符串變量Dimaascurrency,bascurre...
網友評論
最新添加資訊
    24小時熱門資訊
    娛樂時尚
      科技資訊
      歷史文化
        真視界
        旅游美食
        精彩圖文
        我愛我車
        母嬰健康
        關于本站 | 廣告服務 | 手機版 | 商務合作 | 免責申明 | 招聘信息 | 聯系我們
        Copyright © 2004-2018 xue163.net All Rights Reserved. 學網 版權所有
        京ICP備10044368號-1 京公網安備11010802011102號
        教育考試: 學歷財經建筑 醫藥公考資格外語電腦作文招聘中小學留學 文檔 移民 文庫專欄23問答中心問答圖書館知識IT編程數碼信息解決方案信息中心IT科技topzttophottopsctopnew問答新聞中心軟件教室設計大全網絡相關英語學習開發編程考試中心參考范文管理文庫營銷中心站長之家IT信息中心商學院數碼大全硬件DIY企業服務網吧在線百科硬件知識手機平板汽車游戲家電精彩攝影現代家居IT女人經驗健康養生獵奇創業攻略教育學習歷史時尚潮流福建体彩走势图漲知識