Just nu i M3-nätverket
Gå till innehåll

Camilla.L

Medlem
  • Antal inlägg

    195
  • Gick med

  • Senaste besök

Om Camilla.L

  • Medlemstitel
    Aktiv
  • Födelsedag 1982-09-06

Kontaktinformation

  • Hemsida
    http://

Profil

  • Ort
    Kungsbacka
  1. Jag har en text fil med kod och vill plocka ut delar av den koden/informationen. Det jag vet är att "ord" nummer två alltså $_[1] startar med 13xxx, det kan t.e.x. vara 13xxx1231. Jag använder mig av följande kod när jag känner till alla tecken i "ordet" jag söker: split If ($_[1] eq "hej") { Någon som har något tips?
  2. Jag har fått perl program för att hämta data ur filer. Koden som letar efter aktuella filer att hämta data från, letar efter filer på hela C-disken. Kan jag ändra koden så att den bara letar efter aktuella filer i en specifik mapp på C-disken? Koden: @xxfiles = qx/dir*.xx\/B\/S/;
  3. Hej Jag har en kolumn i mitt excel ark som har formatet DATE. De som inte hade några datum har fått "datumet" 00.01.1900. Jag ønskar att hitta dessa och markera dem med en annan farg, ur gor jag fora att sortera ut dessa, någon som vet? Sub NotEnded1190() For RX = 2 To 10 ' 1435 CX = 6 If Worksheets("A (2)").Cells(RX, CX). = "00.01.1900" Then Worksheets("A (2)").Cells(RX, CX) = "" Worksheets(" A (2)").Cells(RX, CX).Interior.ColorIndex = 15 Else Worksheets(" A (2)").Cells(RX, 28) = "OK" End If Next RX End Sub Tack på förhand! mvh Camilla Ed av Moderator - Visual Basic i Excel == Visual Basic for Applications == VBA [inlägget ändrat 2009-06-30 11:53:30 av Monshi] [inlägget ändrat 2009-06-30 11:53:55 av Monshi]
  4. Tack den fungerade bra!
  5. Camilla.L

    #VALUE!

    Hej Kan jag på något vis ersatta texten #VALUE! i en excel ruta med tex ERROR (Microsoft Visual Basic i excel) forslagsvis: If Worksheets("test (2)").Cells(RX, CX) = #VALUE! Then Worksheets("test (2)").Cells(RX, CX) = "ERROR" End if Tack på förhand! mvh Camilla
  6. Tack, har fixat det nu, men det var inte felet ?? 'Teste om tagen har ok format Dim iCheck As Integer Dim myStr As String myStr = "" If Len(Tag) > 5 Then If Len(Tag) > 11 Then For i = 6 To 12 iCheck = 100 iCheck = CInt(Mid(Tag, i, 1)) If iCheck <> 100 Then 'Worksheets("Sheet2").Cells(RX, CX) = "I" myStr = myStr & "I" Else 'Worksheets("Sheet2").Cells(RX, CX) = "C" myStr = myStr & "C" End If Next i If myStr = "IICCIII" Then Worksheets("Sheet2").Cells(RX, CX).Interior.ColorIndex = 9 Else Worksheets("Sheet2").Cells(RX, CX).Interior.ColorIndex = 3 End If Else Worksheets("Sheet2").Cells(RX, CX).Interior.ColorIndex = 3 End If End If CX = CX + 1 Loop Next RX End Sub får fortfarande "Run-time error '13':" Type mismatch på iCheck = CInt(Mid(Tag, i, 1))???? Ed av moderator Du har inte iaktagit att jag vill att du använder KOD-taggar [inlägget ändrat 2009-06-03 19:35:55 av Monshi]
  7. For i = 6 To 12 iCheck = 100 iCheck = CInt(Mid(Tag, i, 1)) If iCheck <> 100 Then 'Worksheets("Sheet2").Cells(RX, CX) = "I" myStr = myStr & "I" Else 'Worksheets("Sheet2").Cells(RX, CX) = "C" myStr = myStr & "C" End If Next i If myStr = "IICCIII" Then Worksheets("Sheet2").Cells(RX, CX).Interior.ColorIndex = 9 Else Worksheets("Sheet2").Cells(RX, CX).Interior.ColorIndex = 3 End If End If CX = CX + 1 Loop Next RX End Sub Hej igen. a ett var fel, har nu andrat det till siffran 12. Men nar jag debuggar får jag fel på denna raden: iCheck = CInt(Mid(Tag, i, 1)) Ar det någon som vet varfor??? //Camilla ed av moderator kod-taggar, pls [inlägget ändrat 2009-06-03 15:27:37 av Monshi]
  8. Hej Har gjort ett forsok utan att lyckas, kan någon se vad jag gjort for fel, tacksam for alla forslag på vad felet kan vara? 'Teste om tagen har ok format Dim iCheck As Integer Dim myStr As String myStr = "" If Len(Tag) > 5 Then If Len(Tag) < 12 Then j = Len(Tag) Else j = 12 End If For i = 6 To a iCheck = 100 iCheck = CInt(Mid(Tag, i, 1)) If iCheck <> 100 Then Worksheets("Sheet2").Cells(RX, CX) = "I" myStr = myStr & "I" Else Worksheets("Sheet2").Cells(RX, CX) = "C" myStr = myStr & "C" End If Next i If mystring = "IICCIII" Then Worksheets("Sheet2").Cells(RX, CX).Interior.ColorIndex = 9 Else 'Worksheets("Sheet2").Cells(RX, CX) = iCheck End If End If mvh Camilla ed av moderator: Kod-taggar tack när du klistrar in kod [inlägget ändrat 2009-05-25 13:08:09 av Monshi]
  9. Hei! Jag skriver Visual Basic kod som macro i Excel (Engelsk version). Tänkte använda mig av Ascii koder. Då jag vill jämföra om texten i cellen har följande kombination, två siffror, två bokstäver och tre siffror. Någon som har något förslag på hur jag kan lösa detta? Tack på förhand! mvh Camilla Ed av moderator Visual Basic i Excel == Visual Basic for Applications == VBA flyttar tråden till VBA [inlägget ändrat 2009-05-22 13:33:25 av Monshi]
  10. Jag har ett excel-ark med text en del av texten är direkt genererad från en Lotus Notes databas och en del från Lotus Notes men via en text fil. Den delen som kommer via en text fil innehåller små fyrkanter, vilka jag önskar få bort. Har försökt med både TRIM kommandot med det finns fortfarande kvar då. Är det någon som har någon ide, på hur jag kan lösa detta? [bild raderad 2009-05-20 09:25:05 av Camilla.L]
  11. Hej! Jag har skapat ett bra kommando, för det jag önskar göra i Excel: =LEFT(CONCATENATE(F1;Sheet1!F3);7) Kommandot fungerar så som jag önskar, men i själva Excel rutan visas hela kommandot i stället för resultatet. Är det någon som vet hur jag gøra för att resultatet skall visas, har försökt Tools, Formula Auditing. Vet att rätt resultat skapas då jag har studerat ”popp-up” rutan som indikerar detta. Tack på förhand! mvh Camilla Tråden flyttad från Databaser - övriga av moderator [inlägget ändrat 2009-05-18 11:02:29 av Cluster]
  12. Tack! Det svaret ræcker bra!
  13. hej Tack før ditt svar. Behøver mest veta om det finns en massa eller svårt att fåtag i/inte finns alls. Tolkar ditt svar som det inte ær någon vanlig teknik på marknaden. Ha en bra dag! Hælsningar Camilla
  14. Hej Jag kan inte så mycket om utvecklingen inom området skrivare. Jag undrar om det finns skriva som går att koppla till internett via ett USB internett typ 3G etc? Tack før hjelpen på forhand! Mvh Camilla
×
×
  • Skapa nytt...