標題: 在vba內非數字寫法是否有專有名詞或代號 [打印本頁]

---

作者: jim    時間: 2016-8-21 05:39     標題: 在vba內非數字寫法是否有專有名詞或代號

各位高手好:
If ActiveSheet.Range("$BG$4").Cells = "任何文字" Then
    "任何文字"  指用 任何 A 或 B 或, C, ----均可 執行 ( 除數字外)
  請指教 謝謝

---

作者: GBKEE    時間: 2016-8-21 06:12

回復 1# jim

試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range
   
4.     Set Rng = ActiveSheet.Range("BG4")
   
5.     Rng = "任何文字"
   
6.    ' Rng = 123456
   
7.     If IsNumeric(Rng.Value) Then
   
8.         MsgBox Rng.Address & "  " & Rng & " 是數字"
   
9.     ElseIf TypeName(Rng.Value) = "String" Then
   
10.         MsgBox Rng.Address & "  """ & Rng & """ 是文字"
    
11.     End If
    
12. End Sub
    
13. Sub Ex1()
    
14.     Dim Rng As Range
    
15.     Set Rng = ActiveSheet.Range("BG4")
    
16.    ' Rng = "任何文字"
    
17.     Rng = 123456
    
18.     If IsNumeric(Rng.Value) Then
    
19.         MsgBox Rng.Address & "  " & Rng & " 是數字"
    
20.     ElseIf IsNumeric(Rng.Value) = False Then
    
21.         MsgBox Rng.Address & "  """ & Rng & """ 是文字"
    
22.     End If
    
23. End Sub

複製代碼

---

作者: jim    時間: 2016-8-21 10:17

回復 2# GBKEE
GBKEE  多謝指導

---

作者: jim    時間: 2016-8-25 06:08

各位高手好:

If ActiveSheet.Range("$BG$4").Cells = "任何文字" Then
     "任何文字"  指用 任何 A 或 B 或, C, ----均可 執行 ( 除數字外)
若改在函數內應如何呢
   請指教 謝謝

---

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