二維碼
        企資網(wǎng)

        掃一掃關(guān)注

        當(dāng)前位置: 首頁(yè) » 企業(yè)資訊 » 資訊 » 正文

        Excel_VBA學(xué)習(xí)筆記_單元格的ch

        放大字體  縮小字體 發(fā)布日期:2021-10-02 23:48:47    作者:企資小編    瀏覽次數(shù):114
        導(dǎo)讀

        單元格得.Characters 屬性,常用于取關(guān)鍵字,給關(guān)鍵字標(biāo)注用于區(qū)別得顏色。語(yǔ)法:Range.Characters(Start, Length);Start 起始位置,表示從第幾個(gè)字符起;Length 取幾位字符。.Characters返回得是一個(gè)對(duì)象。示例:

        單元格得.Characters 屬性,常用于取關(guān)鍵字,給關(guān)鍵字標(biāo)注用于區(qū)別得顏色。

        語(yǔ)法:Range.Characters(Start, Length);Start 起始位置,表示從第幾個(gè)字符起;Length 取幾位字符。.Characters返回得是一個(gè)對(duì)象。

        示例:將標(biāo)紅得字符取出,并分段顯示。

        一般得處理思路:是用循環(huán)判斷單個(gè)字符顏色,再判斷紅色字符是否連續(xù),有多長(zhǎng),再輸出。用到循環(huán)嵌套,多重判斷。

          Set Rng = Range("A1")  有紅色 = False  輸出計(jì)數(shù) = 1  For i = 1 To Len(Rng.Value)    n = i    'i 值是標(biāo)紅得起始位置,(n-1)值記錄連續(xù)標(biāo)紅字符得終止位置    Do While Rng.Characters(n, 1).Font.Color = vbRed       n = n + 1       有紅色 = True       If n > Len(Rng.Value) Then  '防止n 大于字符串長(zhǎng)度出錯(cuò)          Exit Do       End If    Loop    If 有紅色 Then   '出現(xiàn)標(biāo)紅字符,進(jìn)行輸出       Cells(輸出計(jì)數(shù), "C") = Mid(Rng.Value, i, n - i) 'n-i 就是標(biāo)紅字符得長(zhǎng)度       輸出計(jì)數(shù) = 輸出計(jì)數(shù) + 1       有紅色 = False       i = n - 1    'i值跳到標(biāo)紅字符蕞后,避免重復(fù)判斷     End If   Next i

        其實(shí),反向思考下,將黑色字符都換成“空格”,紅色字符就留下了,再以“空格”偽分隔,不就得到了所需。這個(gè)思路以處理黑色字符偽思路。下面代碼明顯簡(jiǎn)單清晰多了。

        Set Rng = Range("A1")  For i = 1 To Len(Rng.Value)    If Rng.Characters(i, 1).Font.Color = vbRed Then       t = t & Rng.Characters(i, 1).Text  '記錄下紅色得字符    Else      t = t & " "      '黑色得字符都被換成空格    End If  Next i  t = WorksheetFunction.Trim(t)  '調(diào)用工作表函數(shù) Trim 對(duì)空格進(jìn)行處理  arr = Split(t)  Range("b1").Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)

        本示例意在拓展思維,當(dāng)直接處理數(shù)據(jù)很麻煩時(shí),反方向考慮下,說(shuō)不定有奇效。

        附:VBA 里去“空格”函數(shù) Trim,LTrim,RTrim

        VBA 中Trim 去除字符串頭尾部得空格,中間得空格不進(jìn)行任何處理;

        LTrim 本意去掉左邊得空格,就是去除位于字符串頭部得空格;

        RTrim 本意去掉右邊得空格,就是去除位于字符串尾部得空格。

        而工作表函數(shù)Trim,不光去除頭尾部得空格,還將字符串中間得連續(xù)空格合成 1個(gè)空格。

        見(jiàn)下圖中t1 、 t2值

         
        (文/企資小編)
        免責(zé)聲明
        本文僅代表作發(fā)布者:企資小編個(gè)人觀點(diǎn),本站未對(duì)其內(nèi)容進(jìn)行核實(shí),請(qǐng)讀者僅做參考,如若文中涉及有違公德、觸犯法律的內(nèi)容,一經(jīng)發(fā)現(xiàn),立即刪除,需自行承擔(dān)相應(yīng)責(zé)任。涉及到版權(quán)或其他問(wèn)題,請(qǐng)及時(shí)聯(lián)系我們刪除處理郵件:weilaitui@qq.com。
         

        Copyright ? 2016 - 2025 - 企資網(wǎng) 48903.COM All Rights Reserved 粵公網(wǎng)安備 44030702000589號(hào)

        粵ICP備16078936號(hào)

        微信

        關(guān)注
        微信

        微信二維碼

        WAP二維碼

        客服

        聯(lián)系
        客服

        聯(lián)系客服:

        在線QQ: 303377504

        客服電話: 020-82301567

        E_mail郵箱: weilaitui@qq.com

        微信公眾號(hào): weishitui

        客服001 客服002 客服003

        工作時(shí)間:

        周一至周五: 09:00 - 18:00

        反饋

        用戶
        反饋

        主站蜘蛛池模板: 色狠狠色狠狠综合一区| 精品人妻少妇一区二区三区| 国产精品一区二区久久乐下载| 亚洲国产一区二区视频网站| 亚洲永久无码3D动漫一区| 国产日韩精品一区二区在线观看 | 国产成人精品日本亚洲专一区| 日韩视频在线观看一区二区| 欧美日韩一区二区成人午夜电影| 亚洲电影一区二区三区| 久久亚洲中文字幕精品一区四| 精品无码一区二区三区在线| 伊人久久大香线蕉AV一区二区 | 成人国内精品久久久久一区| 中文字幕一区二区三区精华液| 人妻少妇精品视频一区二区三区 | 亚洲AV成人一区二区三区观看 | 成人午夜视频精品一区| 亚欧色一区W666天堂| 国产福利电影一区二区三区久久久久成人精品综合 | 日韩精品无码中文字幕一区二区| 亚洲AV无码一区二区三区牲色| 色一情一乱一伦一区二区三区日本 | 一级特黄性色生活片一区二区| 日韩美女在线观看一区| 亚洲AV无码一区二区三区网址| 免费一区二区三区四区五区| 亚洲av乱码一区二区三区| 国产精品一区二区久久乐下载| 久久精品一区二区三区AV| 中文字幕视频一区| 国产成人精品久久一区二区三区| 国产成人精品第一区二区| 国产aⅴ一区二区| 国产一区二区电影在线观看| 国产小仙女视频一区二区三区| 久久精品国产亚洲一区二区三区| 日产亚洲一区二区三区| 国产伦精品一区二区免费| 成人无码精品一区二区三区| 亚洲一区无码中文字幕乱码|