0:01用Format，只能是0小时1分，要求结果是1分钟。

ning84

Debug.Print Format("0:01", "h小时m分")
0小时1分
Debug.Print Format("0:01", "m分")
12分

1. Sub ll()
   
2.   Dim Str, S

复制代码

Debug.Print Format(”0:01“, "m分")结果为12分。
Debug.Print Format(”0:01“, "h小时m分")

鄂龙蒙

m  改成  n   试试

鄂龙蒙

Debug.Print Format("0:01", "n分")

ning84

鄂龙蒙 发表于 2024-3-10 20:01
Debug.Print Format("0:01", "n分")

谢谢解答

1. Sub ll()
   
2.     Debug.Print "0:01→", Format("0:01", "n分")
   
3.     Debug.Print "0:51→", Format("0:51", "n分")
   
4.     Debug.Print "1:01→", Format("1:01", "h小时n分")
   
5.     Debug.Print "10:31→", Format("10:31", "h小时n分")
   
6. End Sub

复制代码

0:01→         1分
0:51→         51分
1:01→         1小时1分
10:31→        10小时31分



----------------------

1. 
   
2. <div>Sub l1()
   
3.    Dim Rng As Range
   
4.        Set Rng = Selection
   
5.      For ii = 1 To Rng.Rows.Count
   
6.          Debug.Print Rng(ii, 1), Rng(ii, 1),
   
7.          If Rng(ii, 1) < 4.16666666666667E-02 - 0.001 Then
   
8.              Debug.Print Format(Rng(ii, 1), "n分")
   
9.          Else
   
10.              Debug.Print Format(Rng(ii, 1), "h小时n分")
    
11.          End If
    
12.      Next ii
    
13. End Sub</div>
    
14. 
    

复制代码