Excel VBA---之with語句用法


用with關鍵字來實現對Excel表格的簡易操作。

with:當需要執行重復操作時,可以使用with來簡化操作。

工具/原料

 
  • Excel軟件

方法/步驟

 
  1. 1

    功能實現:

    一、不用with語句,實現填充表格數據;

    二、使用with語句,填充表格數據;

  2. 2

    一、不用with語句,實現填充表格數據;

    1、原始表格數據為空;

    Excel VBA---之with語句用法
  3. 3

    2、打開VBE,編寫代碼:

    Sub firstSub()

    Range("a1").Value = "Who am I?"

    Range("a1").Parent.Name = "go on"

    Range("a1").Font.Size = 20

    Range("a1").Font.Bold = True

    End Sub

    Excel VBA---之with語句用法
  4. 4

    3、回到Excel界面中,插入--形狀,選擇一個橢圓;

    4、在Excel界面中繪制橢圓;

    5、右鍵選擇橢圓,點擊 指定宏--選擇剛剛定義的宏,並點擊確定;

    Excel VBA---之with語句用法
    Excel VBA---之with語句用法
    Excel VBA---之with語句用法
  5. 5

    6、執行宏,運行結果如下;

    在a1列中填充了Who am I,字體變為20,字體加粗;

    表格名稱已經被修改;

    Excel VBA---之with語句用法
    END

方法/步驟2

 
  1. 1

    二、使用with語句,填充表格數據;

    1、在VBE中編寫代碼為:

    Sub withSub()

    With Range("a1")

        .Value = "With with withWho am I?"

        .Parent.Name = "With with withgo on"

        With .Font

            .Size = 30

            .Bold = True

        End With

    End With

    End Sub

    Excel VBA---之with語句用法
  2. 2

    2、在Excel中參照以上方法插入宏,執行宏withSub;

    3、執行結果如下所示:

    Excel VBA---之with語句用法
  3. 3

    綜上所述,本文通過對比 使用with關鍵字、不適用with關鍵字兩種方法表示了填充表格的方式。


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM