ongelmista yleensä. Vastauksina on suurpiirteisiä, minusta tuntuu, tai tiettyyn soluun kohdistuvista asioista,
Minä olen saanut ainoastaan Kundelta rattkaisut asioihin, joten kalvetkaa harrastelijat. Leikki sikseen, mutta tietämys kunniaan. (puhuu 30 vuotta atk-alalla ollut ja vasta excelin makroihin joutunut tai päässyt)
Tarvitsisin Excelin MACRO ohjelman:
(Taustaa: Soluja on A -> AK. Data on numeerista, tekstitietoa ja päivämääriä.
Tarkoituksena on, että kun taulukko avataan, niin tulee tyhjä näyttö,
mihin syötetään vaihtelevan mittainen merkkisarja, sisältäen mitä merkkejä tahansa.
Näin:
-tyhjä näyttö, jonka johonkin soluun (vaikka G 3) syötetään vaikkapa tieto OTR87-6
-makro rupeaa etsimään taulukosta EXCELIIN.xls, solusta C vastaava tietoa
-tiedon löydyttyä makro ottaa käsittelyyn solun AC (pvmtieto) ja vähentää siitä pois neljä kuukautta
-syötetty tieto, AC ja laskennallinen, miinus neljä kuukautta tulos tuodaan tyhjälle näytölle, sekä solussa T oleva pvm tieto. Samaiselle näytölle tulisi lisäilmoitus (Ylittynyt), jos elettävä päivä on sama tai suurempi, kuin solussa AC oleva pvm tieto. Edellisen lauseen ilmoitus näytölle toteutuisi vain jos solun T arvo ei sovi solun AC ja sen miinustettuun neljä kuukautta arvojen raameihin.
Tuntuu 'hauskalta', kun kysellään Excelin
7
210
Vastaukset
ymmärsiköhän nyt oikein...
aktiivisessa taulukossa
solu G3 = hakuehto etsitää EXCELIIN.xls sarakkeesta C
solu H3 = Exceliin.xls solu hakuehdon riviltä AC-sarakkeen tieto
solu I3 = Exceliin.xls solu hakuehdon riviltä AC- sarakkeen tieto - 4 kk
solu J3 = Exceliin.xls solu hakuehdon riviltä T-sarakkeen tieto
jos J3>=H3 niin solu K3= ylittynyt muuten =""
mutta sitten...
Edellisen lauseen ilmoitus näytölle toteutuisi vain jos solun T arvo ei sovi solun AC ja sen miinustettuun neljä kuukautta arvojen raameihin...
mielestäni ristiriita edellisen väittämän kanssa...
mutta tosssa tähän astinen koodi ilman ilmoitusta...
taulukon moduuliin...
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
If Not Intersect(Target, Range("G3")) Is Nothing Then
HakeeSuljetusta
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
moduuliin...
Sub HakeeSuljetusta()
Dim wb As Workbook
Dim Löydetty As Range
Set wb = Workbooks.Open("C:\Exceliin.xls", True, True)
Set Löydetty = EtsiJaSiirrä(ThisWorkbook.Worksheets("Sheet1").Range("G3"), Range("C:C"))
With ThisWorkbook.Worksheets("Sheet1")
.Range("H3") = DateSerial(Year(Löydetty.Offset(0, 26)), Month(Löydetty.Offset(0, 26)), Day(Löydetty.Offset(0, 26)))
.Range("I3") = DateSerial(Year(Löydetty.Offset(0, 26)), Month(Löydetty.Offset(0, 26)) - 4, Day(Löydetty.Offset(0, 26)))
.Range("J3") = DateSerial(Year(Löydetty.Offset(0, 17)), Month(Löydetty.Offset(0, 17)), Day(Löydetty.Offset(0, 17)))
If .Range("J3") = .Range("I3") Then
.Range("K3") = ""
Else
.Range("K3") = ""
End If
End With
wb.Close False
Set wb = Nothing
End Sub
Function EtsiJaSiirrä(Hakuehto As Variant, HakuAlue As Range) As Range
Dim solu As Range
Dim EkaOsoite As String
Worksheets("Sheet1").Activate
With HakuAlue
Set solu = .Find( _
What:=Hakuehto, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not solu Is Nothing Then
Set EtsiJaSiirrä = solu
EkaOsoite = solu.Address
Do
Set EtsiJaSiirrä = Union(EtsiJaSiirrä, solu)
Set solu = .FindNext(solu)
Loop While Not solu Is Nothing And solu.Address EkaOsoite
End If
End With
End Function- hENSKELI..
สวัสดี
Kunde
Ajatuksessani on, varmaankin ristiriita. Mutta jos viitsit, niin yritän selittää konkreettisesti (vanha Cobol -mies selittää)
Kysymys koskee autojen katsastusta. Esimerkiksi, jos auton hankintapäivä on 23.02.2007, auton voi katsastaa hankinta-aika miinus neljä kuukautta.
Tässä tapauksessa katsastusaika olisi 23.10.2010 - 23.02.2011
-kun annetaan tyhjään näyttöön rekisteritunnus OIJ-275 (solu G 3)
macro lukee taulukkoa 'exceliin.xls' ja hakee solusta C vastaavan rivin
-( kohta1) tuodaan sinne tyhjälle näytolle soluun H 5, solun exceliin.xls taulukon solu AC
-(kohta 2) miinustetaan äskeisestä AC solusta neljä kuukautta ja tuodaan tulos soluun F 5
- toistetaan sama kuin kohdat 1 ja 2, sillä erolla, että vuosi on muutettu elettäväksi vuodeksi. Tiedot tuodaan kohtiin H 6 ja F 6
-taas tuodaan tyhjälle näytölle taulukosta exceliin.xls solusta T (viimeien katastuspäivä) soluun G 8
-soluun G 9 tuodaan elettävä päivämäärä
-varsinainen juttu on laskea, onko auto katsastettu. Jos elettävä päivä huomioonottaen tarkastellaan viimeistä katsastuspäivää exceliin.xls solu T arvo ei sovi H 6 - F 6 välille tulee ilmoitus 'Katsastus suorittamatta. Muussa tapauksessa 'OK'
Laittaisin tähän esimerkin, mutta kopioi - liitä ei oikein excelin taulukkoon tähän saittiin sovi.
Kiitos jos viitsit
- toistetaan sama kuin kohdat 1 ja 2, sillä erolla, että vuosi on muutettu elettäväksi vuodeksi. Tiedot tuodaan kohtiin H 6 ja F 6
eli nyt siis katsastusaika ton mukaan olisi esim H6=23.2.2011 ja F6=23.10.2011
onkos tuolla Exceliin.xls T sarakkeessa pvm tälle vuodelle vai mikä pvm siellä on?
ei mennnyt vieläkään jakeluun...- Henskeli..
Moi,
T sarakkeessa on viimeisen katsastuspäivän päivämäärä.
Jos esimerkiksi ajatellaan tätä päivää 18.05.2011
ja rekisteriotteessa(käyttöönottopvm) 17.05.2005, sen mukaan katsastusaika on 17.01.2011 - 17.05.2011, minkä aikana katastus on tehtävä.
Katsotaan T sarakkeen viimeisin katsastuspvm. Jos se on vaikka 14.04.2010, niin tämän vuoden katsastus on myöhässä, koska katsastusaikajakso (4kk) on ylitetty yhdellä päivällä.
mitä tolla T sarakkeen tiedolla sitten on merkitystä?
Mihin sitä tarvitaan?
ei aukea mulle- ei sitten millään...- Henskeli..
T-sarakkeeseen merkitään aina katasastuspäivämäärä. Jos auto katsastetaan huomenna, rekisteriotteeseen laitetaan se ko päivämäärä, jonka meidän toimistolla täydennetään Exceliin.xls taulukoon.
Mistään muualta ei voi tietää onko auto katsastettu ajallaan vai ei. T sarakkakkeen tiedon mukaan tapahtuu asian päättely. Henskeli.. kirjoitti:
T-sarakkeeseen merkitään aina katasastuspäivämäärä. Jos auto katsastetaan huomenna, rekisteriotteeseen laitetaan se ko päivämäärä, jonka meidän toimistolla täydennetään Exceliin.xls taulukoon.
Mistään muualta ei voi tietää onko auto katsastettu ajallaan vai ei. T sarakkakkeen tiedon mukaan tapahtuu asian päättely.eikös katsastaa voi myöhässäkin...
lisäsin semmosen vaihtoehdon
taulukon moduuliin...
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
If Not Intersect(Target, Range("G3")) Is Nothing Then
HakeeSuljetusta
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
moduuliin...
Sub HakeeSuljetusta()
Dim wb As Workbook
Dim Löydetty As Range
Set wb = Workbooks.Open("D:\Exceliin.xls", True, True)
Set Löydetty = EtsiJaSiirrä(ThisWorkbook.Worksheets("Sheet1").Range("G3"), Range("C:C"))
With ThisWorkbook.Worksheets("Sheet1")
.Range("H5") = DateSerial(Year(Löydetty.Offset(0, 26)), Month(Löydetty.Offset(0, 26)), Day(Löydetty.Offset(0, 26)))
.Range("F5") = DateSerial(Year(Löydetty.Offset(0, 26)), Month(Löydetty.Offset(0, 26)) - 4, Day(Löydetty.Offset(0, 26)))
.Range("H6") = DateSerial(Year(Date), Month(Löydetty.Offset(0, 26)), Day(Löydetty.Offset(0, 26)))
.Range("F6") = DateSerial(Year(Date), Month(Löydetty.Offset(0, 26)) - 4, Day(Löydetty.Offset(0, 26)))
.Range("G8") = DateSerial(Year(Löydetty.Offset(0, 17)), Month(Löydetty.Offset(0, 17)), Day(Löydetty.Offset(0, 17)))
.Range("G9") = Date
'onko tämäpäivä katsastusajalla?-kyllä
If .Range("G9") = .Range("F6") Then
.Range("F15") = "OK"
'onko tämäpäivä katsastusajalla?-ei
Else
'tulossa?
If .Range("G9")
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Jussi Halla-aho huolissaan Sofia Virrasta
Jussihan on vanha vihreä. Onko tässä kyse alkukesän kiimasta, kun aidan toisella puolella oleva vihreä alkaa kiinnostama194949Sofia Virta kadonnut....onko juomassa?
Virran poissaolo eduskunnasta on herättänyt huomiota. Esimerkiksi Ilta-Sanomat kertoi aiemmin, että Virta on ollut tällä563950Julkista rahaa ei tule antaa senttiäkään yksityisille yrityksille
Julkinen raha on meidän yhteistä rahaa, ja se raha on tarkoitettu yhteiseen käyttöön, kuten esimerkiksi tuottamaan palve703543Vihreiden, SDP:n ja Vasemmistoliiton kannattajista selvästi alle puolet on miehiä
ja silti joku punafeministi valitti kokoomuksen naiskannattajien puutteesta, vaikka siellä on enemmän naisia kuin punavi942868On tiedossa, että venäjämieliset diggaavat diktatuurista venäjää
jossa ei esim. ole sanan- ja lehdistönvapautta. Mutta keitä nämä venäjän palvojat sitten ovat, ei heitä toki paljon ole622698Ensin Henry Novak ja nyt sitten se Irlannin tapaus
jossa mustaihoinen afrikkalainen mieshenkilö puukottaa valkoihoista maassa makaavaa miestä useita kertoa pään alueelle.732668Belfastissa käynnissä kunnon persuilu
Joku random mamu tekee rikoksen, niin sikäläiset naamiopersut kostavat tuhoamalla kantaävestön omaisuutta. Liekö siellä982634Tytti Tuppurainen: Suomen pakolaiskiintiö pitäisi nostaa 10 000 vuodessa
asia on faktaa, noin Tytti sanoi aiemmin. Kun taas Orpon hallitusohjelman mukaisesti Suomen pakolaiskiintiö on pudotettu1412418Halla-aho sivaltaa edustajantyöstään lintsaavaa Sofia Virtaa
https://www.iltalehti.fi/politiikka/a/937c74d7-f905-4466-b9b4-abd017fe5b63 Kansanedustajan on ilmoitettava poissaolosta572309Islamovasemmistolaisuus - tälläista termiä käytetään
Termi tarkoittaa alunperin äärivasemmiston ja muslimifundamentalistien liittoa, jonka ytimessä oli antisemitismi. Isl582094