在以下与> CIvector <- CI(na.omit(myvector))
> CIvector
upper mean lower
60.85270 60.71467 60.57663
播放列表相同的屏幕快照中,如何为宽度为Public Sub CL_NC()
'Looks like your whole range is between A:G columns, so we insert that data
'inside the array
Dim sCLNC As String
Dim rngDB As Range
Dim i As Long
Dim arr As Variant
Dim Country As String
With ThisWorkbook.Worksheets("Gesamt")
'Last row
i = .Cells(.Rows.Count, 1).End(xlUp).Row
'insert your data into the array
Set rngDB = .Range("A1:G" & i)
arr = rngDB
'Loop through row 2 to the last (inside the array
For i = 2 To UBound(arr)
Country = Trim(Replace(arr(i, 4), "Cert ", ""))
sCLNC = getCLorNC(Country, arr(i, 2))
arr(i, 7) = Country & " " & arr(i, 3) & " " & sCLNC
Next i
rngDB = arr
End With
End Sub
Function getCLorNC(Nation As String, Regelwerk As Variant)
Dim a As Variant, b As Variant
Select Case Nation
Case "Croatia", "Czech Republic", "Poland", "Turkey", "Indonesia", "Malaysia"
a = Array("ISO 9001", "ISO 14001", "OHSAS 18001", "ISO 50001")
Case "Greece"
a = Array("ISO 9001", "ISO 14001", "OHSAS 18001")
Case "Bulgaria"
a = Array("ISO 9001", "ISO 14001", "OHSAS 18001", "ISO 50001", "ISO 22000")
Case Else
getCLorNC = "NC"
Exit Function
End Select
For Each b In a
If InStr(Regelwerk, b) Then
getCLorNC = "CL"
Exit Function
Else
getCLorNC = "NC"
End If
Next b
End Function
的Container扩展高度?
YoutTube
答案 0 :(得分:0)
问题解决了
ionic -v