Function CellType(Rng)Dim Cella As Range Set Cella = Rng.Range("A1") Select Case TrueCase IsEmpty(Cella)CellType = "Blank"Case Application.IsText(Cella)CellType = "Text"End SelectEnd FunctionSub 類型()Dim a As Varianta = CellType(Selection)MsgBox "該類型為：" & a, vbInformationEnd Sub
2 回答
忽然笑
TA貢獻1806條經驗 獲得超5個贊
這是一個來判斷某個單元格中數據類型的自定義函數。rng為單元格區域，可以為一個單元格，也可以是一塊單元格區域，Rng.Range("A1") 是你所選區域的第一個單元格，通過這個自定義函數來判斷如果為空，則返回此為blank,如果為文本，即返回text.
楊魅力
TA貢獻1811條經驗 獲得超6個贊
Rng.Range("A1")并不是表的第一個單元格。
Rng 是你的selection, Rng.Range("A1") 是你所選區域的第一個單元格
你的程序存在兩個情況：
1> 當只選擇一個單元格時
2> 當選擇多個單元格時，如果所選區域有的單元格有值，有的沒有值，那么就有問題，而Rng.Range("A1")，將selection定位于所選區域的第一個單元格進行判斷
添加回答
舉報
0/150
提交
取消