换行 Chr(10)

ning84

chr(10)问题得到解决。

1. Sub llsss()
   
2.     Dim Sht  As Worksheet
   
3.     Dim Rng As Range
   
4.         Set Rng = Selection
   
5.         Set Sht = Rng.Parent
   
6.         Set oRng = Sht.Cells(Rng.Row, "F").Resize(Rng.Rows.Count, 1)
   
7.         Dim Str, Str1, Str2, Str3
   
8.         Debug.Print Rng.Address, oRng.Address
   
9.         
   
10.         Str1 = "= Text(" & Sht.Cells(Rng.Row, "F").Address & ",""" & "yyyy年mm月dd日" & """)"
    
11.         Str2 = "   count(" & oRng.Address & ")"
    
12.         Str3 = "   sum(" & oRng.Address & ")"
    
13.         Debug.Print Str1
    
14.         Debug.Print Str2
    
15.         Debug.Print Str3
    
16.         
    
17.         '"""" &
    
18.         
    
19.         
    
20.         Str = Str1 & " & " & """" & Chr(10) & " Files:" & """   & " & Str2 & " & " & """" & Chr(10) & " SubFolderIDCEs:" & """   & " & Str3
    
21.         ' & Str3"
    
22.         Debug.Print Str
    
23.         'Debug.Print Rng.Address
    
24.         Rng = Str
    
25.         
    
26.         'Debug.Print "= Text(" & Sht.Cells(Rng.Row, "F").Address & ",""" & "yyyy年mm月dd日" & """)" & Chr(10) & "& " & "  count(" & oRng.Address & ")" & Chr(10) & " & " & " sum(" & oRng.Address & ")"
    
27. 
    
28. End Sub
    

复制代码