Syötän arvon 111 kohtaan D8, tämän pitäisi kopioida kohdasta G8 arvo kohtaan Q8. jos D8 arvo on 121, pitäisi kopioida kohdasta G8 saatu arvo kohtaan Q9 jne.
Siis, jos rivillä oleva syöte sarakkeessa D on jotain, kopioi samalta riviltä sarake G arvo uuteen kohtaan Q ( joka on määritetty 111=Q8 121=Q9 131=Q10 jne.)
Oliko riittävän sekavasti selitetty?
(G sarakkeen arvot muodostuvat toisen laskennan pohjalta, homma on siis yksinkertaistettuna, annan riville arvon jolloin kopioidaan samalta riviltä sarake, rivin arvolle määritettyyn kohtaan taulukossa.)
Siis, jos rivillä oleva syöte sarakkeessa D on jotain, kopioi samalta riviltä sarake G arvo uuteen kohtaan Q ( joka on määritetty 111=Q8 121=Q9 131=Q10 jne.)
Oliko riittävän sekavasti selitetty?
(G sarakkeen arvot muodostuvat toisen laskennan pohjalta, homma on siis yksinkertaistettuna, annan riville arvon jolloin kopioidaan samalta riviltä sarake, rivin arvolle määritettyyn kohtaan taulukossa.)
Vastaukset 4
Vanhimmat
Tämä ko. sivun moduliin:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Cells(7 Mid(Target.Text, 2, 1), "Q") = Cells(Target.Row, "G")
End If
End Sub
Periaatteessa toimii, mutta jos arvon poistaa D sarakkeesta niin herjaa
"Run-time error '13'" Type mismatch
Tarkistusehtoja voi lisätä tarpeen mukaan. Esim. seuraava hyväksyy vain kolme merkkiä pitkän numeromuotoisen syötteen, jonka ensimmäinen ja viimeinen merkki on "1". Väärä syöte ilmaistaan keltaisella värillä. Tapahtumienkäsittely voidaan keskeyttää makron suorituksen ajaksi, jottei sitä kutsuta turhaan Q-sarakkeen arvon muuttuesssa.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 4 Then
If Len(Target) = 3 And WorksheetFunction.IsNumber(Target) And _
Left(Target, 1) = "1" And Right(Target, 1) = "1" Then
Cells(7 Mid(Target.Text, 2, 1), "Q") = Cells(Target.Row, "G")
Target.Interior.Pattern = xlNone
Else
Target.Interior.Color = RGB(255, 255, 0)
End If
End If
Application.EnableEvents = True
End Sub
hieman sekava selostus ekassa selostuksessa syötetään arvoja soluun D8 ja haetaan arvo G8 riippuen solun D8 arvoista soluihin Q8, Q9, Q10...
tokassa selostuksessa taasen eri riveille ja haetaan vastaavan rivin arvo ja siirrretään rivin D arvo n mukaisesti Q sarakkeeseen...
nyt koodissa arvoja syötetään soluun D8 ja siirtää tiedon G8 solun D8 perusteella Q -sarakkeeseen oikealle paikallle ja hyväksyy luvut 111- 991
tämmöisen koodi ei toimi kuin 111-191 ...
ko taulukon moduuliin...
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Siirtymä As Long
On Error Resume Next
Application.EnableEvents = False
' vain soluun D8 syötetty arvo, muuta jos sarake
If Not Intersect(Target, Range("D8")) Is Nothing Then
If Len(Target) = 3 And Right(Target, 1) = 1 And Target > 110 Then
' hipsaa, jos ei tartte tyhjentää arvoja alueelta ja muuta alue sopivaksi
Range("Q8:Q100") = ""
'toimii luvuilla 101-991, pitää fiksata , josi sompi lukualue tarvitaan
Siirtymä = Left(Range("D8"), 2) - 10
Range("Q7").Offset(Siirtymä, 0) = Range("G8")
End If
End if
Application.EnableEvents = True
End Sub