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.)
rivin arvon kopioiminen käskettyyn kohtaan
Firloss
4
261
Vastaukset
- Tämmöinen
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- Firloss
Periaatteessa toimii, mutta jos arvon poistaa D sarakkeesta niin herjaa
"Run-time error '13'" Type mismatch - Tämmöinen
Firloss kirjoitti:
Periaatteessa toimii, mutta jos arvon poistaa D sarakkeesta niin herjaa
"Run-time error '13'" Type mismatchTarkistusehtoja 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
- Kundepuu
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
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1858509
En löydä sinua
En löydä sinua täältä, etkä sinä varmaankaan minua. Ennen kirjoitin selkeillä tunnisteilla, nyt jätän ne pois. Varmaan k264608- 504168
- 593702
- 513176
- 502930
Ne oli ne hymyt
Mitä vaihdettiin. Siksi mulla on taas niin järjetön ikävä. Jos haluat musta eroon päästä niin älä huomioi mua. Muuten kä262646- 382414
Anteeksi kun käyttäydyn
niin ristiriitaisesti. Mä en usko että haluaisit minusta mitään, hyvässä tapauksessa olet unohtanut minut. Ja silti toiv382103- 292086