當前位置：首頁 > 科技 > 正文

教程 | 這些Excel vba源碼，值得收藏（二）


寫在前面

很多時候，編程不是非要寫出别出心裁的新東西，更多地是組合與堆砌，就像搭積木一樣，那些ExcelVBA的常用寫法就像白眉大俠腰間的百寶囊一樣，随時随地可以掏出來解決問題，前提是百寶囊裡得有貨！

下面這些可以收藏進你的百寶囊，希望你能夠借此百發百中。


自動調整行高列寬

此代碼自動調整工作表中的所有行或列。當運行此代碼時，它将選擇工作表中的所有單元格，并自動調整所有行高或列寬。
Sub自動調整列寬() Cells.Select Cells.EntireColumn.AutoFit End Sub
Sub自動标準行高() Cells.Select Cells.EntireRow.AutoFit End Sub

取消合并單元格

相當于“主頁”選項卡上的取消合并選項，以下代碼将取消所選内容中的所有合并單元格，如果需要取消特定範圍，可以将selection改成具體範圍。

Sub 取消合并() Selection.UnMergeEnd Sub

突出顯示内容錯誤單元格

本方法将文本格式轉化為數字格式，即相當于将文本前的撇号去掉。
Sub定位錯誤單元格() Dim rng As Range For Each rng In ActiveSheet.UsedRange If Not Application.CheckSpelling(word:=rng.Text) Then rng.Style = 'Bad' End If Next rng End Sub

調整圖表大小

此宏代碼使所有圖表的大小相同。可以通過在宏代碼中更改圖表的高度和寬度。 
Sub調整圖表() Dim i As Integer For i = 1 To ActiveSheet.ChartObjects.Count With ActiveSheet.ChartObjects(i) .Width = 300 .Height = 200 End With Next iEnd Sub

删除空工作表

檢查活動工作簿中的所有工作表，如果工作表為空，則将其删除
Sub 删除空白工作表() Dim Ws As Worksheet On Error Resume Next Application.ScreenUpdating= False Application.DisplayAlerts= False For Each Ws In Application.Worksheets If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then Ws.Delete End If Next Application.ScreenUpdating= True Application.DisplayAlerts= True End Sub

THE

END

創作不易，

您的支持是我堅持的動力，

勞煩動動手指轉發、在看

你可能想看：

Excel VBA 7.19 Excel跨工作薄多工作表數據合并之Excel表格多行表頭

所以我們今天針對多行表頭的數據彙總來分析下方法場景模拟假設我們要統計的Excel中每個表格都有表頭，1) End If Next sth End If ActiveWorkbook.Close Fal...

《Excel2003入門動畫教程27、Excel拆分表格》

《Excel2003入門動畫教程27、Excel拆分表格》。　　演示動畫，　　操作步驟，　　有時候在Excel中：們需要比較浏覽同一工作表中不同區域的數據時，可以通過折分窗口來實現“　　選中窗口中部的...

Excel教程：30秒做好Excel超鍊接目錄

工作表前面插入一張空白工作表Sheet。點擊右鍵，查看代碼會激活VBE編輯器界面，點擊插入——模塊，并且複制以下代碼到右邊編輯區。"選擇目錄起始單元格",Excel提示我們是否VB項目，選擇文件保存類...

Excel 中Alt鍵的高手用法 Excel必學技巧

即可一鍵生成柱形圖，Alt加Enter（回車鍵）單元格内強制換行五、Alt加數字鍵輸入符号 (需要在帶有小鍵盤的電腦上操作哦）Alt加41446輸入溫度符号Alt加41409輸入錯号Alt加41420...

VS2010操作Excel2010，報錯解決及讀寫excel

加到模塊std中:#include "CWorksheet.h";#include "CRange.h":5、将以上頭文件的#import "C;\\Program Files\\Microsoft ...

Excel VBA解讀（53）：高級篩選——AdvancedFilter方法

我們先使用Excel的錄制宏工具錄制一段進行高級篩選操作的代碼，先在單元格G1中輸入标題，選擇單元格區域A1”則可以選擇整個數據區域“就用不着每次都要選擇不同的列表區域了”表明将數據複制到由參數Cop...

Excel VBA引用單元格區域有哪些方法？

VBA中可以使用Range屬性返回單元格或單元格區域,圖 11使用Range屬性引用單元格區域：Range屬性返回活動表的一個區域。使用Cells屬性返回一個Range對象，Cells屬性指定單元格區...

65個excel操作教程大全，新手很容易上手，建議收藏備用

可以看看本文提供的Excel表格操作技巧彙總詳細教程。1、為excel文件添加打開密碼：按ctrl或shift鍵選取多個要打開的excel文件”10、把A.xlsx文件圖标顯示為圖片形式“4、隐藏ex...

Excel公式技巧01： 使用INDEX函數返回整行或整列

INDEX函數是我們經常使用的函數之一，如果将其行參數或者列參數指定為0（或者忽略）。那麼會返回對指定列或行的引用，這裡返回的不是單個值。返回數據區域A1:=INDEX(A1：返回數據區域A1，即單元...

excel查找定位：INDEX函數——精确制導導彈

一、認識INDEX函數Index函數：返回特定行列交叉處單元格的值或引用。二、INDEX函數基礎用法1.單行、單列中提取數值”隻需一個坐标值如果給定的區域是單行或者單列。INDEX通過坐标返回數值”實...

沉浸式Excel工作表目錄教程

今天來簡單聊一下如何使用Excel簡單的函數完成工作表目錄和文件目錄的制作！工作表目錄制作教程，使用下面的函數組合公式定義名稱,用于獲取工作表名稱,=REPLACE(GET.WORKBOOK(1),工...

對比Excel，輕松學習Python報表自動化實戰，這篇教程有點肝!

輕松學習Python報表自動化》中關于報表自動化實戰的内容。并教你用Python實現工作中的一個報表自動化實戰，1.Excel的基本組成2.一份報表自動化的流程3.報表自動化實戰 -當日各項指标同環...

Excel教程：統計中國式排名的三種方法，一定有一個适合你

=RANK（要排名的數據，既然使用RANK函數的結果不是中國式排名，下面就為大家介紹三種得到中國式排名的方法：一、SUMPRODUCT+COUNTIF的公式方法第一種方法需要用到SUMPRODUCT和...

Excel教程：撤銷鍵不見了，試試這樣找回

自定義快速訪問工具欄”下拉中，添加到快速訪問工具欄即可，下面的截圖。就是将excel表格的撤銷按鈕、重做按鈕添加之後的模樣，如果之前沒有做過設置：還看不到excel表格的撤銷按鈕在哪裡，那就先在Exc...

财務小白，智勝Excel函數高手！（内含46個視頻教程）

在H2輸入公式:=INDEX(A,SMALL(IF(MATCH($A$2,0)=ROW($2,ROW($2;ROW(A1)))&。=UNIQUE(A2，在E2輸入公式:按Ctrl+Shift+E...

一直以為自己擅長Excel，直到遇見這些神技!

中選擇輸入「=$A2<”點擊「格式」-「填充」;=OR(AND(ROW()>AND(COLUMN()>② 右鍵點擊「Sheet1」-「查看代碼」;Private Worksheet_Se...

太牛了！這些隐藏的Excel技巧，真後悔沒早點遇到

1、更改網格線顔色點擊任意選項卡，在打開的Excel選項界面中，之後在【此工作表的顯示選項】中選擇【網格線顔色】，2、更改回車鍵後光标移動的方向在默認情況，3、更改計算方式為什麼我的Excel表格輸入...

Excel各種密碼解鎖姿勢（收藏備用）

經常會遇到加密工作簿或者工作表忘記密碼的情況，1.1工作簿保護密碼;Excel工作簿保護後（審閱 - 保護工作簿）;在上圖工作表标簽右鍵菜單中點擊"查看代碼;打開一個新的窗口(Visual ...

你的工作中必須要學會的這27個Excel函數公式，速速收藏

職場必學的Excel打印技巧，這5個方法，1秒打印所有内容

看到這樣打印的表格相信會抓狂滴。制作好的表格打印後，這樣再打印表格就在一張紙上了，普通打印時除第1頁紙有标題行（也就是表頭部分）外，查看數據時還要翻到第1頁紙看看标題：鼠标點擊【頁面布局】選項卡中的【...

1小時整理了10個Excel快捷鍵，直接拿走套用!

今天跟大家分享10個使用頻率超高的Excel快捷鍵，可快速調出功能設置窗口，經常用于自定義單元格格式和圖表的設置。【Ctrl+E】組合鍵用于向下快速填充數據，隻需要在首個單元格輸入你想要的目标值，按下...

如何用Excel2分鐘制作一個自動抽獎小程序？

另一個當然是Excel教程---教你兩分鐘用Excel做出一個超有趣的抽獎小程序。有Excel函數公式視頻，用Excel做一個簡單的抽獎小程序，教你2分鐘用Excel制作出自動抽獎小程序，先來認識幾個...

5分鐘搞定2個小時的工作量？這個Excel“魔法”讓同事直呼：這也太猛了...

下面就和春風老師一起來從創建、運行、管理、宏的安全設置四個方面學習下。這條命令可以是文檔編輯中的任意操作或操作的任意組合。我們分錄制和使用Visual Basic兩種方式創建宏。01錄制宏在Excel...

excel怎麼把篩選項一次性全部生成新表？

再次、設置公式從總表提取數據至新表；設置表格式後完成生成新表，最後、複制新表生成另一新表。替換公式參數完成另一類篩選，并把欄目的各項數據對應填入數據：設置好日期、品名、單位及數量等表頭欄目。按日期順序...

8個Excel常見問題，你一定遇到過，附案例解決辦法！

小編整理了8個excel中常見的問題，在輸入的内容前添加“将單元格格式設置為文本格式即可。二、單元格内容顯示為：顯示公式文本内容：0不見了是因為系統判定輸入的值為數值；顯示為科學計數法的形式也是因為單...

有一個Excel函數叫：省時一整天，你卻連我的名字都不知道…

今天給大家介紹一下SUBSTITUTE函數，今天給大家介紹一個可以進行查找替換的函數---SUBSTITUTE函數,SUBSTITUTE函數的基礎語法是,省略這個參數表示替換全部，先通過一個示例來掌握...

新來的同事，憑借這份Excel圖表，成功征服老闆！

今天就跟大家聊一下如何選擇内置圖表後做出不一樣的圖表效果？在【插入】選項卡中找到圖表-折線圖，點擊鼠标右鍵設置坐标軸格式：接着在【設計】選項卡中找到【添加圖表元素】，鼠标選中圖表中輔助列系列的數據标點...

單元格源碼

上一篇
你真的會做“采購”嗎？

下一篇
八年級英語上冊單詞表

有話要說...

最新文章

取消
掃碼支持 支付碼