kunde
Isaan Rules WFF CCC
If you walked away smiling-then for you the price was right
Keep Exceling
Suosikkibändit/artistit: Queen, Rammstein, genesis, Bruce Bringsteen, Kino, Mandref Mann Earth band Who
Lempikirjat: ohjelmointi...
Suosikkipalstat Suomi24 Keskusteluissa: EXCEL, Kivitalot, EPS
En pidä: pakkanen ja loskakelit
Ruoka & juoma: loimulohi ja valkkari
Linkit: http://www.kundepuu.com, Khorat
Koulutus: ---
Ammatti: Tiede/teknologia
Työskentelen: freelancer
Ase tai siviilipalvelus: yliluutnantti
Siviilisääty: Varattu
Lapset: ---
Hakusanat: Thaimaa, korat, Excel, VBA, ACAD, CNC, Polyurea, EPS, MgO elementti
Liittynyt sitten
Muokkaa profiilia7 aloitusta · 1377 kommenttia
- ei se oo bugi vaan ominaisuus...
lue noi niin ymmärrät mistä se johtuu ja sehän koskee vasta 16 desimaalista alkaen...
http://cpearson.com/excel/rounding.htm
http://en.wikipedia.org/wiki/Numeric_precision_in_Microsoft_Excel - Sub Makro2()
Dim vika As Long
Dim Kopioi As Range
vika = Range("D1").End(xlDown).Row 1
Set Kopioi = Range("D" & vika)
Kopioi.Offset(1, 0).EntireRow.Insert
Kopioi.EntireRow.Copy Range("D" & vika).Offset(1, -3)
Kopioi.EntireRow.Copy Range("D" & vika).Offset(2, -3)
End Sub
Keep EXCELing
@Kunde - muuta rivi
If Not Intersect(Range("A1"), Target) Is Nothing Then
seuraavaksi
If Not Intersect(Range("A:A"), Target) Is Nothing Then
.Offset(0,1) tarkoittaa siirtymää altiivisesta solusta yhden solun verran oikealle (0- pohjainen-eli aktiivinen solu on (0,0)) vastaavasti vasemmalle solun verran olisi .Offset(0,-1)
tässä tapauksessa pitää olla kaksoispisteet
Select Case LCase(.Value)
Case "appelsiini": .Offset(0, 1).Value = "Hedelmä"
Case "kurkku": .Offset(0, 1).Value = "Vihannes"
Case "limsa": .Offset(0, 1).Value = "Coca-cola"
Case Else: .Offset(0, 1).Value = " "
End Select
mutta tässä ei...
Select Case LCase(.Value)
Case "appelsiini"
.Offset(0, 1).Value = "Hedelmä"
Case "kurkku"
.Offset(0, 1).Value = "Vihannes"
Case "limsa"
.Offset(0, 1).Value = "Coca-cola"
Case Else
.Offset(0, 1).Value = " "
End Select
eli KaPo_31 oli lyhentänyt koodin yhdelle riville, siksi tarvitaan tuo ;-piste
Keep EXCELing
@Kunde - mikä versio käytössä ja millä versiolla alkuperäinen tiedosto tehty?
saattaa olla, että yrität talentaa vanhempaan versioon ja se ei tue näitä uusien versioiden muotoiluja yms.
Eli kokeiles tallentaa 2007-2010 versiona( jos nyt oletukseni sattui osumaan...) - suurimmat syöpöt mulla logot ja kuvat...
- hehehe
isommat mulla jotain luokkaa 10 Megaa ja toimii.
Tosin toi riippuu miten se on tehty ja onko linkkejä ulospäin...
Oma isoin sisältää kolme taulukkoa, joissa 20 000 riviä ja 10 saraketta kummassakin...
suurimmat syöpöt tossa tiedostossa on tulosteet kuvineen ja logoineen...
Keep EXCELing
@Kunde - jos soluissa
A1= desimaaliaika
B1=päiväys aikoineen
C1=B1 A1/24 ja soluun sopiva oma muotoilu esim. pp.kk.vvvv t:mm:ss
Keep EXCELing
@Kunde - http://www.kundepuu.com/viewtopic.php?f=155&t=516
Keep EXCELing
@Kunde - http://www.kundepuu.com/viewtopic.php?f=155&t=515
Keep EXCELing
@Kunde - ihan hyvinhän sie oot oppinut.... ;-)
Mutta jos saivarrellaan niin toi rng määrittely ja käyttö on turhaa, koska sisäisessä funktiossa on jo määritelty TARGET rangeksi ja sehän edustaa silloin A1 solua, jota voi käyttää, jos solussa A1 oli tapahtunut muutos...
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo XIT
Application.EnableEvents = False
If Not Intersect(Range("A1"), Target) Is Nothing Then
With Target
Select Case LCase(.Value)
Case "appelsiini": .Offset(0, 1).Value = "Hedelmä"
Case "kurkku": .Offset(0, 1).Value = "Vihannes"
Case "limsa": .Offset(0, 1).Value = "Coca-cola"
Case Else: .Offset(0, 1).Value = " "
End Select
End With
End If
XIT:
Application.EnableEvents = True
End Sub - =TULOJEN.SUMMA(EPÄSUORA("Taul1!"& B2&"2:"&B2&"2000" ))
jos tarttet dollari merkit niin & merkillä lisää - =CHOOSE(MONTH(U6);"F";"G";"H";"I";"J";"K";"L";"M";"N";"O";"P";"Q")
- http://www.kundepuu.com/viewtopic.php?f=155&t=510&p=689#p689
Keep EXCELing
@Kunde - ei selkeämmin voi sanoa...
ohjeena oli
ThisWorkbook moduuliin...
eli kopioi koodi ThisWorkbook moduuliin ja se on siinä ;-)
Keep EXCELing
@Kunde - http://www.kundepuu.com/viewtopic.php?f=155&t=510
Keep EXCELing
@Kunde - cool.. . ;-)
Keep EXCELing
@Kunde - "uusi vuosi uudet kujeet"...
http://www.kundepuu.com/viewtopic.php?f=155&t=506&p=674#p674
Keep EXCELing
@Kunde - http://www.kundepuu.com/viewtopic.php?f=155&t=507&p=676#p676
Keep EXCELing
@Kunde - ei ole unohtunut, mutta ollut niin kiirettä ettei ole kerinnyt paneutua asioihin.
Mutta nyt alkaa uuden vuoden vietto ja vkl aikana onkin sitten aikaa "harrastaa". Landella ei oo nettiä joten tiistaina varmaan jotain tuotosta tarjolla - laita labelin captioniin se tieto....
Keep EXCELing
@Kunde