4.2.2.1 Test Steps:
4.2.2.2 Test Command:
4.2.2.3 Test Command Feedback:
4.2.2.4 Pass Criteria:

4.2.2 FW version check

4.2.2.1 Test Steps:
Check product firmware version.

4.2.2.2 Test Command:

[attach]31502[/attach]

G2 可預先下拉到多格 如G99=IF(F2="","",IF(COUNTIFS(B\$2:B2,B2,C\$2:C2,C2,D\$2:D2,D2)=1,IF(COUNTIFS(B\$2:B2,B2,C\$2:C2,C2)=1,"",LOOKUP(1,0/(B\$1:B1=B2)/(C\$2:C2=C2),G\$1:G1)&"+")&D2&"("&F2&")",D2&"("&SUMIFS(F\$2:F2,B\$2:B2,B2,C\$2:C2,C2,\$D\$2:D2,D2)&")"))

1. Sub Test()
2.     MyForm Sheets("Sheet1").[A2]
3. End Sub

1. Sub MyForm(rng As Range)
2.     Dim text As String
3.     Dim re As Object: Set re = CreateObject("vbscript.regexp")
4.
5.     With re
6.         .Pattern = "^\d+([.]\d+)+\s.*"
7.         .MultiLine = True
8.         .Global = True
9.     End With
10.     For Each cell In rng
11.         text = cell.Value
12.         For Each mch In re.Execute(text)
13.             cell.Characters(Start:=mch.FirstIndex, Length:=mch.Length).Font.Bold = True
14.         Next
15.     Next
16. End Sub

http://www.study-area.org/coobila/tutorial_441.html

stillfish00 大

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