返回列表 上一主題 發帖

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

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-10-5 09:49 | 只看該作者

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

各位大哥好
有個判斷自家底線問題請教，有座聚集但是無效。
請問應如何修正 活頁簿1.rar (12.4 KB)
收藏 分享
lionliu

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
4#
發表於 2016-10-5 11:12 | 只看該作者
感謝各位，我已做出來了。
lionliu

TOP

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
3#
發表於 2016-10-5 10:19 | 只看該作者
本帖最後由 lionliu 於 2016-10-5 10:25 編輯

回復 2# PKKO
謝謝pkko
我試一下。
這方法試過無效，會出錯誤：438
物件不支援尺屬性或方法。
我嘗試了幾種方法不適會出錯就是判斷不出來。
lionliu

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

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

論壇榮譽勳章論壇贊助勳章
2#
發表於 2016-10-5 10:08 | 只看該作者
回復 1# lionliu

看不懂您的需求,以下程式碼為單純判斷a欄位是否有底線,並且不為空白,將結果輸出到d欄位
  1. Sub TEST()
  2. For i = 1 To Range("a" & Rows.Count).End(xlUp).Row
  3.     If Cells(i, 1) <> "" Then
  4.         If Cells(i, 1).Font.Under = xlUnderStyleSingle Then
  5.             Cells(i, 4) = "有底線"
  6.         Else
  7.             Cells(i, 4) = "無底線"
  8.         End If
  9.     End If
  10. Next
  11. End Sub
複製代碼
PKKO

TOP

        靜思自在 : 自己害自己，莫過於亂發脾氣。
返回列表 上一主題