Új hozzászólás Aktív témák

• #11687 Fire/SOUL/CD félisten Badb0y #11686

  Új Válasz 2011-10-15 14:55:01 #11687

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Badb0y #11686 üzenetére

  Még1x nekifutottam a dolognak, ez lett belőle. [link]

  A makró, a Notebook.xls, csalamádé oszlopára támaszkodik, azaz az A oszlopra. A függvényt(az alábbi kódot) új modulba kell bemásolni.

  Function FSCD_GetMachineInfo(MyRange As Range) As String
  
  Dim MyString As String
  Dim MyArray() As String
  Dim MyRightMarker_Good() As Variant, MyRightMarker_Bad() As Variant
  MyRightMarker_Good = Array("11.6", "12.1", "12.5", "12.6", "13.1", "13.3", "14.1", "15.6", "17.3", "18.4")
  MyRightMarker_Bad = Array("11,6", "12,1", "12,5", "12,6", "13,1", "13,3", "14,1", "15,6", "17,3", "18,4")
  
  MyString = MyRange.Value
  For i = 0 To UBound(MyRightMarker_Good)
  MyString = Replace(MyString, MyRightMarker_Bad(i), MyRightMarker_Good(i))
  Next i
  MyString = Replace(MyString, "BONTOTT", "")
  MyString = Replace(MyString, "NB", "")
  MyString = Trim(MyString)
  MyString = Replace(MyString, ",", " ")
  MyString = Replace(MyString, " ", " ")
  MyArray = Split(MyString, " ")
  MyString = ""
  For i = 0 To UBound(MyArray)
  If Not (InStr(1, MyArray(i), ".", vbTextCompare) > 0 Or _
  InStr(1, MyArray(i), ",", vbTextCompare) > 0 Or _
  InStr(1, MyArray(i), """", vbTextCompare) > 0) _
  Then
  MyString = MyString + MyArray(i) + " "
  Else
  Exit For
  End If
  Next i
  FSCD_GetMachineInfo = Trim(MyString + "Laptop")
  
  End Function

  Többet sajnos nem tudok kihozni makróval...

  UI: Elnézést, hogy nem hamarabb írtam, de ma is hajnali 4 körül értem haza egy melóból, csak most volt rá időm ...

Új hozzászólás Aktív témák