標題: 請教如何判斷儲存格文字是否有加底線問題 [打印本頁]

---

作者: lionliu    時間: 2016-10-5 09:49     標題: 請教如何判斷儲存格文字是否有加底線問題

各位大哥好
有個判斷自家底線問題請教，有座聚集但是無效。
請問應如何修正[attach]25444[/attach]

---

作者: PKKO    時間: 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

複製代碼

---

作者: lionliu    時間: 2016-10-5 10:19

本帖最後由 lionliu 於 2016-10-5 10:25 編輯

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

---

作者: lionliu    時間: 2016-10-5 11:12

感謝各位，我已做出來了。

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)