原创 如何用VBA創建一個可以求階乘的函數

代碼如下： Function Fac(num) '自定義一個參數的函數，要求用戶輸入一個數，然後求其階乘 Dim i As Integer Dim total As Long total = 1 For i = 1 To num tota

2018-09-01 09:04:37 73

原创 如何用VBA計算個人所得稅

Sub i個人所得稅()For Each Sheet In WorksheetsFor i = 2 To xx = Sheet.UsedRange.Rows.CountDim a%, b% a = Shee

2018-09-01 09:04:37 3

原创 如何用VBA尋找指定區域中的第一個非空單元格

Function firstnoblank(myrange As range)  Dim sheet As range For Each sheet In myrange '遍歷區域裏的每一個單元格 If Not IsNull(sheet

2018-09-01 09:04:37 5

原创 如何用VBA通過給定的商品的單價和銷售計算員工的銷售獎金

可以通過自定義函數處理,以以下爲例： 當銷售額小於200000時，以銷售額的8%作爲獎金金額 ； 當銷售額200001到400000時，以銷售額的10%作爲獎金金額 ； 當銷售額大於400000時，以銷售額的15%作爲獎金金額 ； 代碼如

2018-09-01 09:04:37

原创 如何用VBA求一個圓形的面積

Sub AreaOfCircle()Const PI As Single = 3.14r = Val(InputBox("請輸入半徑"))Range("A1").Value = rDim areaarea

2018-09-01 09:04:36

原创 如何用VBA在指定的區域的內顯示不同的數據類型

代碼如下： Function sheettype(sheet As range) Select Case True Case Application.WorksheetFunction.IsText(sheet) sheettype =

2018-09-01 09:04:36

原创 如何用VBA因商品的購買數量和折扣比率計算其批發單價

實例圖如下：         代碼如下： Sub july232() For Each y In Worksheets x = y.UsedRange.Rows.Count For i = 2 To x x = y.Cells(i, "

2018-09-01 09:04:36 11

原创 如何使用VBA讓所選區域添加所有框線

Sub kuangxian() Range("A27:C38").Select '選擇區域     Selection.Borders(xlDiagonalDown).LineStyle = xlNone     Selection.Bo

2018-09-01 09:04:36

原创 如何用VBA在WORD裏插入指定的圖片和指定的尺寸

Sub 插入圖片() Dim filenames As String  Dim filefilter1 As String  filefilter1 = ("所有圖片文件（*.jpg;*.bmp;*.png;*.gif）,*.jpg;*.

2018-09-01 09:04:36

原创 如何用VBA保護工作表

代碼如下： Private Sub July241()   Sheets("sheet1").Cells.Font.ColorIndex = 2 '防止文檔越權使用者看到內容  If Application.InputBox("請輸入操作

2018-09-01 09:04:36 1

原创 如何用VBA清除一列中有0的數，並且刪除其所在行

代碼如下： Sub july234()   Dim i As Integer   For Each Y In Worksheets   X = Y.UsedRange.Rows.Count   For i = 1 To X  If Cel

2018-09-01 09:04:36

原创 如何用VBA在打開EXCEL文件時自動運行宏

例子： Sub Auto_open() '一種方法是將宏的名稱改爲這個即可 MsgBox "歡迎回來繼續學習VBA！" End Sub 還有一種方法就是使用VBE在工作簿的Open事件中編寫VBA過程。  

2018-09-01 09:04:36 6

原创 如何用VBA從身份證號碼中提取性別

Sub 根據身份證號碼確定性別()sid = InputBox("請輸入身份證號碼：")i = Len(sid)If i <> 15 And i <> 18 Then              '判斷身份證號長度是否正確MsgBox "身

2018-09-01 09:04:34 1

原创 如何用VBA批量copy內容到各工作簿

Sub 批量COPY工作表到工作簿()  '將工作表中的內容，分表COPY到另一個工作簿中    '準備一個工作簿，選取需要COPY的工作表（區域），貼,保存，關閉    mypath = ThisWork

2018-09-01 09:04:34 1

原创 如何用VBA在EXCEL中添加自定義函數

比如 連續自然數m到n求和函數 1、選擇“工具”——“宏”——“Visual Basic編輯器”命令(或按快捷鍵“Alt+F11”)，打開Visual Basic編輯界面。 2、選擇“插入“——”模塊”命令，插入新模塊——如模塊1。 3、

2018-09-01 09:04:34 2