VBA判斷單元格內容格式、顏色、合併單元格

2021-03-06 VBA教學教程

'一、判斷數值的格式

'1 判斷是否為空單元格

Sub d1()

[b1] = ""

'If Range("a1") = "" Then

'If Len([a1]) = 0 Then

If VBA.IsEmpty([a1]) Then

[b1] = "空值"

End If

End Sub

'2 判斷是否為數字

Sub d2()

[b2] = ""

'If VBA.IsNumeric([a2]) And [a2] <> "" Then

'If Application.WorksheetFunction.IsNumber([a2]) Then

[b2] = "數字"

End If

End Sub

'3 判斷是否為文本

Sub d3()

[b3] = ""

'If Application.WorksheetFunction.IsText([A3]) Then

If VBA.TypeName([a3].Value) = "String" Then

[b3] = "文本"

End If

End Sub

'4 判斷是否為漢字

Sub d4()

[b4] = ""

If [a4] > "z" Then

[b4] = "漢字"

End If

End Sub

'5 判斷錯誤值

Sub d10()

[b5] = ""

'If VBA.IsError([a5]) Then

If Application.WorksheetFunction.IsError([a5]) Then

[b5] = "錯誤值"

End If

End Sub

Sub d11()

[b6] = ""

If VBA.IsDate([a6]) Then

[b6] = "日期"

End If

End Sub

'二、設置單元格自定義格式

Sub d30()

Range("d1:d8").NumberFormatLocal = "0.00"

End Sub

'三、按指定格式從單元格返回數值

'Format函數語法(和工作表數Text用法基本一致)

'Format(數值,自定義格式代碼)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'Excel中的顏色可以用兩種方式獲取，一種是EXCEL內置顏色，另一種是利用QBCOLOR函數返回

Sub y1()

Dim x As Integer

Range("a1:b60").Clear

For x = 1 To 56

Range("a" & x) = x

Range("b" & x).Font.ColorIndex = 3

Next x

End Sub

Sub y2()

Dim x As Integer

For x = 0 To 15

Range("d" & x + 1) = x

Range("e" & x + 1).Interior.Color = QBColor(x)

Next x

End Sub

Sub y3()

Dim 紅 As Integer, 綠 As Integer, 藍 As Integer

紅 = 255

綠 = 123

藍 = 100

Range("g1").Interior.Color = RGB(紅, 綠, 藍)

End Sub

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'單元格合併

Sub h1()

Range("g1:h3").Merge

End Sub

'合併區域的返回信息

Sub h2()

Range("e1") = Range("b3").MergeArea.Address '返回單元格所在 的合併單元格區域

End Sub

'判斷是否含合併單元格

Sub h3()

'MsgBox Range("b2").MergeCells

' MsgBox Range("A1:D7").MergeCells

Range("e2") = IsNull(Range("a1:d7").MergeCells)

Range("e3") = IsNull(Range("a9:d72").MergeCells)

End Sub

'合併H列相同單元格

Sub h4()

Dim x As Integer

Dim rg As Range

Set rg = Range("h1")

Application.DisplayAlerts = False

For x = 1 To 13

If Range("h" & x + 1) = Range("h" & x) Then

Set rg = Union(rg, Range("h" & x + 1))

Else

rg.Merge

Set rg = Range("h" & x + 1)

End If

Next x

Application.DisplayAlerts = True

End Sub

相關焦點

  • Excel批量合併相同內容單元格的幾種方法
    在製作Excel表格時，經常需要將相同內容的單元格進行合併，本篇文章分享3種快速批量合併相同內容單元格的方法。下圖為待處理的數據源方法一：使用分類匯總合併A列中相同內容的單元格步驟1：選中A列數據區域，點擊數據—分類匯總，單擊確定。
  • Excel怎麼合併單元格?合併單元格保留所有內容的方法
    Excel是辦公及生活必備也是常常會使用到的一種文檔格式，雖說實用性很高，但想要真的用透卻不是一件容易的事，比如Excel合併單元格就有很多朋友不知道怎麼做，下面小編就來跟大家分享Excel合併單元格保留所有內容的方法。
  • EXCEL之VBA應用實例-合併單元格並保留所有單元格內容
    默認情況下，EXCEL中合併單元格只保留左上角第一個單元格內容，很多時候我們需要保留所有內容，把合併前的每個單元格內容分行顯示在合併後的單元格內，下面是我想到的一個方法，如果大家有更好的方法歡迎分享。Sub 合併單元格並保留所有單元格內容()Application.DisplayAlerts = False '自動對彈出的確認框進行確認，不顯示彈出對話框。
  • Excel表格使用條件格式為與所選單元格內容相同的單元格填充顏色
    條件格式是Excel表格中非常強大的一個功能，使用條件格式可以實現很多騷操作。這篇文章和朋友們通過一個實例一起來學習一下使用條件格式為與所選單元格內容相同的單元格填充顏色、突出顯示的操作。一.我們要製作選擇一個單元格後，所有與該單元格內容相同的單元格自動填充一個顏色、方便老師查看本人都監考哪些場次的考試。2.效果演示：二.
  • 如何用VBA代碼處理單元格合併與反合併?
    這時總會有些朋友告誡大家說，合併單元格不是個好人，你別用它，不和它交往就行了……可世界是如此複雜，單純如我，都不敢有如此自閉成仙的想法……我不找合併單元格，合併單元格還找我呢？誰家的報表不帶點合併單元格？惹不起也躲不了——所以，關於單元格合併與反合併，多少還是要了解一下▼單元格合併打個響指，先來看單元格的合併。
  • Excel合併多個單元格中的內容
    在Excel制表中，有時需要將多個單元格中的內容進行合併，今天我們就來介紹幾種常用的方法。文本合併函數PHONETIC函數格式為=PHONETIC(引用)前面兩種方法只適合在需要合併的單元格數量較少時使用，當單元格數量較多時，我們可以使用該函數。
  • Excel拆分單元格與把一個單元格內容拆分到多個單元格
    另外，一次可以只拆分一個單元格，也可以批量拆分多個單元格。除拆分單元格外，還可以拆分單元格內容，即把一個單元格中的內容拆分到多個單元格，拆分內容可以數字、數字與字母組合、漢字詞組等，但分隔符必須用半角而不能用全形。以下先介紹Excel拆分單元格的兩種方法，再介紹拆分單元格內容的方法，操作中所用 Excel 版本為 2016。
  • 表格的單元格變化-合併拆分與斜線單元格
    表格是由一個個單元格組成的，每個單元格我們都可以單元設置，包括拆分單元格，合併單元格以及單元格中（1）合併單元格。合併單元格是指多個單元格合併成一個大的單元格。首先選中需要合併的單元格，單擊「表格工具」中的「合併單元格」按鈕，將所選中的四個單元格合併成一個單元格，如下圖所示。 （2）拆分單元格。同樣的，我們還可以將一個單元格再拆分成若干個小的單元格。選中大的單元格後，單擊「表格工具」菜單中的「拆分單元格」按鈕。
  • Excel07單元格及內容的合併、拆分
    引:Excel 2007的合併與拆分操作包括對單元格與單元格內容的合併與拆分。 　　　Excel 2007的合併與拆分操作包括對單元格與單元格內容的合併與拆分。　合併單元格或拆分合併的單元格　當您合併兩個或多個相鄰的水平或垂直單元格時，這些單元格就成為一個跨多列或多行顯示的大單元格。其中一個單元格的內容出現在合併的單元格(合併單元格：由兩個或多個選定單元格創建的單個單元格。合併單元格的單元格引用是原始選定區域的左上角單元格。)的中心，如以下示例所示。
  • Excel合併單元格用快捷鍵與滑鼠及怎麼合併單元格數據與文字內容
    Excel合併單元格既可以用滑鼠操作，也可以用快捷鍵；其中用滑鼠操作共有三個選項，分別為合併後居中、跨越合併和單元格合併，它們之間有區別，具體區別在實例後分享；用快捷鍵可分為兩種情況，一種用Excel默認的快捷鍵，另一種用智能快捷鍵。除合併單元格外，還可以合併單元格數據與文字內容，具體怎麼合併？也可分為兩處情況，一種是按列合併，另一種是按行合併。
  • Excel合併單元格時怎麼保留各單元格中的內容
    Excel在合併單元格時會彈出提示：「合併單元格時，僅保留左上角的值，而放棄其他值」。這時如果進行合併單元格，則除了左上角單元格中的值外，其餘合併單元格中的內容會被刪除。如果要合併的單元格都在同一列中，要想在合併同列單元格時保留各單元格中的文字內容，可參考本文的方法進行合併操作。
  • excel單元格操作:如何快速批量合併單元格
    都說「分久必合，合久必分」，當你在為合併單元格煩惱的時候，其他人可能在想怎麼按要求合併單元格。這不，小美就遇上合併單元格的問題了，看看我們的苗老師會怎麼解決呢？小美：「苗老師，怎麼批量合併單元格啊？」苗老師：「批量合併單元格？是啥意思？需要怎麼批量？」
  • excel單元格操作：如何快速批量合併單元格
    都說「分久必合，合久必分」，當你在為合併單元格煩惱的時候，其他人可能在想怎麼按要求合併單元格。這不，小美就遇上合併單元格的問題了，看看我們的苗老師會怎麼解決呢？小美：「苗老師，怎麼批量合併單元格啊？」 苗老師：「批量合併單元格？是啥意思？需要怎麼批量？」 小美：「是這樣的，我做了一個表格，領導說不好看，讓我把相同的部門做成合併單元格。」
  • Excel怎麼把多個單元格的內容合併到一個單元格中
    因為Excel的特性，其中的內容都是保存在各個單元格中，通常情況下，對Excel的多個單元格進行複製後再粘貼時仍然會粘貼到與複製時數量相同的單元格中。那麼如果想把多個單元格中的文字內容複製後粘貼到一個單元格中，（也就是合併到一個單元格中）該怎麼辦呢？
  • excel怎麼合併單元格?合併單元格的快捷鍵是什麼?
    本篇將介紹excel怎麼合併單元格？合併單元格的快捷鍵是什麼？，有興趣的朋友可以了解一下！excel是我們經常使用的一款表格製作工具，它的一些常用功能我們應該要了解。今天小編帶領大家一起來學習excel合併單元格的操作，excel合併單元格是excel中用的非常頻繁的一個功能，還不熟練的朋友趕快動起手來和小編一起學習。
  • Excel中部門合併了單元格，銷售額如何按部門快速合併單元格求和？
    在Excel中合併單元格可以說是一個又愛又恨的功能，合併了可以使表格內容更加清晰、易讀，但很多操作也會受限制。以前教程和大家分享了一些合併單元格技巧，小夥伴們可以查看相關內容。今天分享一個合併單元格求和的技巧，如下圖中，部門列合併了單元格，那麼銷售額也要按部門合併單元格計算求和。
  • VBA基礎-單元格對象（三）常用方法
    我們要複製單元格內容、刪除單元格內容、合併單元格等等，這些都是操作單元格對象的方法。手動複製粘貼內容，大家都會。這裡，我們就教大家在VBA中如何用編程的方法來操作單元格。這個時候我們就要用到union方法來合併單元格區域了。Union，單從英文解釋上說有「聯合」的意思，這樣我們就很好理解了，它的作用及時聯合若干個單元格區域。
  • Excel小技巧|如何快速合併相同單元格內容?
    相同分類的數據合併單元格後會起到一個美觀的效果，數據不會顯得那麼冗餘，給人以直觀的形象，那麼如何快速合併多個相同內容的單元格呢？如果數據量少的話，我們可以直接選中相同的數據，然後點擊【開始】—【合併後居中】即可完成數據的合併，但是數據量過大，擁有很多分類的情況下，一步步去點擊合併將會耗費大量的時間，今天我們用Excel中分類匯總的功能來完成快速合併單元格。
  • Excel合併單元格不能篩選怎麼辦?
    在日常工作中，很多小夥伴為了讓自己的表格更加的美觀，時常會將多個單元格進行合併，雖然這樣操作達到美觀的效果，但為後期數據處理，尤其是篩選留下麻煩，只能篩選到表格中的第一行，如下圖所示，這時候要怎麼解決呢？
  • Excel如何批量合併單元格
    相信很多時候我們在操作Excel合併單元格的時候，都會遇到這樣的問題，那就是我們每次需要合併的時候都是逐個去點擊合併，當我們需要合併很多單元格的時候感覺這樣不僅很浪費時間，而且工作效率非常的低下，那麼我們有沒有更好的方法可以進行大批量的合併單元格呢？