請教如何判斷儲存格文字是否有加底線問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請教如何判斷儲存格文字是否有加底線問題

返回列表下一主題上一主題發帖

請教如何判斷儲存格文字是否有加底線問題

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2016-10-5 10:08 | 顯示全部帖子

回復 1# lionliu

看不懂您的需求,以下程式碼為單純判斷a欄位是否有底線,並且不為空白,將結果輸出到d欄位

Sub TEST()
For i = 1 To Range("a" & Rows.Count).End(xlUp).Row
If Cells(i, 1) <> "" Then
If Cells(i, 1).Font.Under = xlUnderStyleSingle Then
Cells(i, 4) = "有底線"
Else
Cells(i, 4) = "無底線"
End If
End If
Next
End Sub

複製代碼

PKKO

靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。

返回列表下一主題上一主題