日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

【Excel】二、VBA入门指导

發布時間:2024/3/26 编程问答 45 豆豆
生活随笔 收集整理的這篇文章主要介紹了 【Excel】二、VBA入门指导 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

一、PERSONAL.XLSB

  • 如果需要經常在不同的工作薄里使用相同的一些宏功能代碼,建議配置一個打開Excel軟件后總是會默認打開的PERSONAL.XLSB文件。
  • PERSONAL.XLSB默認不可見,可以通過「視圖」里的功能來"取消隱藏"或重新"隱藏"工作薄。
  • xlsb是一種比較節省體積的保存格式:推薦使用xlsb格式保存Excel文件。
  • Excel使用VBA小程序的方法。
  • 二、VBE相關配置

  • 在Excel中,按下「Alt+F11」打開的界面就叫VBE(Visual Basic Editor),這里介紹一些VBE的配置及使用方法,提高以后編寫代碼的效率。
  • 關閉“自動語法檢測”
    在VBA中切換代碼行時,默認會進行語法檢測。有時未完成該行,鼠標選擇其它行的內容進行復制,則會彈出警告窗口,影響編輯效率。可以通過「工具–>選項」設置關閉自動檢測:
  • 打開「視圖->工具欄–>編輯」,方便批量注釋、取消注釋代碼塊。
  • 「工具–>引用」,可以添加很多現有的功能庫,如我用過的
  • 名稱內容
    Microsoft Scripting Runtime字典Dictionary類
    Microsoft VBScript Regular Expressions正則表達式
    Microsoft XML,v3.0XML文檔分析
  • vba代碼格式化插件: http://www.cnblogs.com/Charltsing/p/SmartIndenter64.html
  • 三、定義變量

  • 簡表
  • 數據類型類型聲明字符
    Integer%
    Long&
    Single!
    Double#
    String$
  • 為了代碼精短,我會習慣性的使用類型聲明字符,但又為了代碼可讀性,同類型的最后一個變量,會保留as的顯式類型定義,如Dim i&, j&, k As Long

  • 更多示例代碼

  • Sub 變量定義方法示例() '1 顯示定義后再使用Const 常量整數1 As Integer = 9Const 常量整數2 = 7Const 日期 = #1/11/1982# '定義日期1982111日'2 未定義直接使用一個字符串 = "Yang" '變量可以直接使用一個字符串 = 13 '并且可以隨時改變數據類型'3 Dim'Dim可以定義變量,方法同上'Dim還可以定義對象Dim 對象1 As ObjectDim 字典 As Dictionary'4 綜合介紹'Interge是16位無符號整型,long32位無符號整型Dim 定義整數 As IntegerDim 整數的另一種定義方法%Dim long的特殊定義方法&'Single是單精度浮點型,double是雙精度浮點型Dim Single的特殊定義方法! '32位Dim Double的特殊定義方法# '64位' 其他類型Dim Currency貨幣型#Dim 布爾值 As Boolean' 注意字節型,不是字符型Dim 字節型 As Byte '0~255,在進行ANSI和UTF讀取時,string可能會破壞原值' 時間類型Dim Tdate As DateTdate = #11/15/2005# '寫#2005-11-15#,#November 15,2005#時會自動變為#11/15/2005#Tdate = #11/15/2005 1:00:00 PM#Dim 字符串 As String '在VBA中,字符和字符串沒有區別字符串 = "Hello"字符串 = "a" End Sub

    四、基本語法結構

  • 判斷,字符串處理
  • If InStr(s, "★") > 0 Then星星數 = Len(s) - Len(Replace(s, "★", "")) ElseIf InStr(s, "難度:") > 0 Thenn = Mid(s, InStr(s, "難度:") + 3, 1)If CStr(星星數) <> n Thenp.Selectp.HighlightColorIndex = wdYellowExit SubEnd If End If
  • For循環
  • For i = 1 To lentht = toInt(Mid(s, i, 1))If t = -1 ThentoBase10Value = CVErr(xlErrNA)Exit FunctionElsetoBase10Value = toBase10Value * oriBase + tEnd If Next i
  • While循環
  • Do While d <> 0r = d Mod dstBasetoBaseNValue = toChar(r) + toBaseNValued = Int(d / dstBase) '截去小數向下取整 Loop

    總結

    以上是生活随笔為你收集整理的【Excel】二、VBA入门指导的全部內容,希望文章能夠幫你解決所遇到的問題。

    如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。