CELL("format",B5)判断单元格是数字型或日期型方法，毫无意义。

ning84

花了好多天时间，以为用CELL("format",B5)判断单元格是数字型或日期型方法，是行之有效的方法。结果都宣告失败,做了无用功，瞎耽误时间。


Str = Evaluate("CELL(""format""," & oRng.Address & ")")结果为很容易做到，结果为D**条件太多，操作麻烦无实际意义，浪费时间。


IsNumeric(Rng)或 IsDate(Rng)方法在判断单元格时有问题。



*********************************
单元格输入=CELL("format",B5)可以判断单元格是日期型还是数字型。



花几天时间也没有找到VBA如何判断单元格是日期型还是数字型的方法。因为日期型是数字型中的一种形式。


现在的解决方法是

1.     Dim Str, Rng As Range
   
2.        Set Rng = Selection
   
3.        Str = "=CELL(""format""," & Rng.Address(0, 0) & ")"
   
4.        Debug.Print Str
   
5.        Rng.Parent.Cells(1, 1) = Str
   
6.        If Rng.Parent.Cells(1, 1) = "D9" Then
   
7.             Str = Rng
   
8.             Debug.Print Format(Rng, "mm:ss")
   
9.        End If
   
10.        Stop

复制代码

大灰狼1976

Str = Evaluate("CELL(""format""," & oRng.Address & ")")

nicleyuan

isdate

isnumeric

ning84

大灰狼1976 发表于 2022-12-22 09:54
Str = Evaluate("CELL(""format""," & oRng.Address & ")")

谢谢你的Evaluate方法。以前用过，没有想起来。

1.     Dim Str, Rng As Range
   
2.        Set Rng = Selection
   
3.        'Str = "=CELL(""format""," & Rng.Address(0, 0) & ")"
   
4.        Str = Evaluate("CELL(""format""," & Rng.Address & ")")
   
5. 
   
6.        If Str = "D9" Then
   
7.             Debug.Print Format(Rng, "hh:mm:ss"), Str
   
8.        Else: Str = "G"
   
9.            Debug.Print Rng, Str
   
10.        End If

复制代码

ning84

nicleyuan 发表于 2022-12-22 10:07
isdate

isnumeric

   

在单元格中，时间也是数字型。

Dim Str, Rng As Range
       Set Rng = Selection
       Debug.Print IsNumeric(Rng), IsDate(Str)
      结论是
数字型结果是True      
日期型结果是False

ning84

1. Sub tDel()
   
2.    Dim Dict As Dictionary, Dict1 As Dictionary
   
3.        Set Dict = New Dictionary
   
4.        Set Dict1 = New Dictionary
   
5.    Dim Rng As Range, oRng As Range, Arr
   
6.    Dim Str
   
7.        Set Rng = Selection
   
8.        For Each oRng In Rng
   
9.           Str = Evaluate("CELL(""format""," & oRng.Address & ")")
   
10.           If Str = "D9" Then
    
11.                'Debug.Print Format(oRng, "hh:mm:ss"), Str, oRng.Address
    
12.                Set Dict(oRng.Value) = oRng
    
13.           ElseIf Str = "G" Then
    
14.                Set Dict(oRng.Value) = oRng
    
15.           End If
    
16.        Next oRng
    
17.        For ii = 0 To Dict.Count - 1
    
18.             Debug.Print Dict.Keys(ii), Dict.Items(ii).Address
    
19.        Next ii
    
20.        Arr = DictionarySort(Dict)
    
21.        For ii = 0 To UBound(Arr)
    
22.             For kk = 0 To Dict.Count - 1
    
23.                 If Dict.Keys(kk) = Arr(ii) Then
    
24.                       Set oRng = Dict.Items(kk)
    
25.                       Debug.Print Dict.Keys(kk), oRng.Address
    
26.                       Set Dict1(Dict.Keys(kk)) = oRng
    
27.                  End If
    
28.             Next kk
    
29.        Next ii
    
30.        Stop
    
31.        For ii = 0 To Dict1.Count - 1
    
32.             Debug.Print Dict1.Keys(ii), Dict1.Items(ii).Address
    
33.        Next ii
    
34. 
    
35. End Sub
    
36. 
    
37. Sub del()
    
38.    Dim Dict As Dictionary, Dict1 As Dictionary
    
39.        Set Dict = New Dictionary
    
40.        Set Dict1 = New Dictionary
    
41.    Dim Rng As Range, oRng As Range, Arr
    
42.    Dim Str
    
43.        Set Rng = Selection
    
44.        For Each oRng In Rng
    
45.              Str = Format(oRng.Value, "hh:mm:ss")
    
46.              If IsDate(Str) Then
    
47.                  Dict(Str) = ""
    
48.              Else
    
49.                  Str = Val(oRng.Value)
    
50.                  Dict(Str) = ""
    
51.              End If
    
52.             
    
53.        Next oRng
    
54.        Stop
    
55. End Sub
    
56. 
    
57. 
    
58. 
    
59. Function DictionarySort(Dict As Dictionary)
    
60.     ''
    
61.     Dim ii, jj, Tmp
    
62.     Dim Num1, Num2
    
63.     Dim Arr
    
64.     With Dict
    
65.          Arr = .Keys
    
66.          ''
    
67.          For ii = 1 To .Count '- 1
    
68.              For jj = 1 To .Count '- 1
    
69.                  Num1 = Val(Arr(ii - 1))
    
70.                  Num2 = Val(Arr(jj - 1))
    
71.                  ''
    
72.                  If Num1 > Num2 Then
    
73.                          Tmp = Arr(ii - 1)
    
74.                          'Debug.Print Arr(ii - 1), Arr(jj - 1)
    
75.                          Arr(ii - 1) = Arr(jj - 1)
    
76.                          Arr(jj - 1) = Tmp
    
77.                  End If
    
78.              Next jj
    
79.          Next ii
    
80.     End With
    
81.     DictionarySort = Arr
    
82. End Function
    
83. 
    

复制代码

If Str = "D9" Then
'Debug.Print Format(oRng, "hh:mm:ss"), Str, oRng.Address
Set Dict(oRng.Value) = oRng
ElseIf Str = "G" Then
Set Dict(oRng.Value) = oRng
End If




If IsDate(Str) Then
Dict(Str) = ""
Else
Str = Val(oRng.Value)
Dict(Str) = ""
End If