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
- sori olin postannut vai osan testifunktiosta tänne, enkä kokofunktiota ja enpähän näköjään osannut kääntää SEARCH funktiota lontoosta sohjolaan...
kuten yllä jo korjattiin
SEARCH = KÄY.LÄPI - etsii merkkijonoa (ei tunnista kirjainkokoa) ;-)
=SUMPRODUCT(ISNUMBER(SEARCH("*bens*";C1:C122))*D1:L122)
=TULOJEN.SUMMA(ONLUKU(KÄY.LÄPI("*bens*";C1:C122))*D1:L122) - tallennus oletusnimellä
vaihda kansio sopivaksi
et maininnut mikä versio käytössä ja tää nyt vain yleisenä laittaa oletuksena solun B2 tiedostonimeksi (vain tiedostonnimi soluun, ilman päätettä).
jos haluat sitten tallentaa ilman makroja taikka tekstitiedostona yms. niin vaatii reippaammin koodia, mutta onnistuu kyllä ilman turhia herjoja ja klikkailuja...
moduuliin...
Sub Tallenna()
ChDir "E:/Excel"
Application.Dialogs(xlDialogSaveAs).Show Worksheets("Sheet1").Range("B2")
End Sub
tokaan kyssäriin kanssa simppeli vastaus
ThisWorkBook moduuliin...
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("Sheet1").Range("A1") = Now()
End Sub
jos perut tallennuksen päivittää kumminkin, mutta käsiteltävissä tuokin koodaamalla....
Luultavasti riittänee sulle näin? - =SUMPRODUCT(SEARCH("*bensa*";C1:C9)*D1:L9)
=TULOJEN.SUMMA(ETSI("*bensa*";C1:C9)*D1:L9)
Keep EXCELing
@Kunde - kerro tulos 24:lla, koska tulos on päivän desimaaliosa 1=24h ja 0,5 on 12 h
siis 0,3125*24=7,5 - http://www.kundepuu.com/viewtopic.php?p=663#p663
;-)
Keep EXCELing
@Kunde - saattaapi tulla ongelmia jos "luvut" sopivat päiväyksiin esim. 12.11 ja EXCEL "arpoo" sen päiväykseksi niin ...
malliesim. ei ongelmia tämän suhteen
lycka till! - http://www.kundepuu.com/viewtopic.php?f=155&t=504
Keep EXCELing
@Kunde - laita moduuliin oma funktio
määrittelet vain muuttujille oikeat tyypit samoin kuin funktion palautusarvolle
esim.
Function Kuutiontilavuus(Leveys As Double, Syvyys As Double, Korkeus As Double) As Double
Kuutiontilavuus = Leveys * Syvyys * Korkeus
End Function
ja sitten soluun kaava esim. =Kuutiontilavuus(A1;B1;C1)
siinäpä se yksinkertaisimmallaan...
Keep EXCELing
@Kunde - mikä fontin nimi ja fontin koko?
- jos käytät jotain tiettyä fonttia niin sen fontin attribuuttien avulla VBA:lla voi laskea likimain tekstin pituuden ja vertailla sitä sitten solun leveyteen. Ei ole muut keinoa...
jos useampi fontti käytössä niin ei kiinnosta...
Keep EXCELing
@Kunde - http://www.kundepuu.com/viewtopic.php?f=155&t=502
Keep EXCELing
@Kunde - http://www.kundepuu.com/viewtopic.php?p=656#p656
Keep EXCELing
@Kunde - ei ole Excelissä tapahtumaa scrollaukselle ja vaatii API komentoja ja menee liian monimutkaiseksi...
pitänee nyt vaan tyytyä siihen, että on piilossa niin kauan kunnes klikkaat solua...
toki nuolinäppäimillähän se toimii ihan Ok! - http://www.kundepuu.com/viewtopic.php?f=155&t=500
Keep EXCELing
@Kunde - http://www.kundepuu.com/viewtopic.php?f=155&t=499
Keep EXCELing
@Kunde - et ole lisännyt Active X työkalupalkista tekstiruutua vaan tavallisen tekstiruudun lisää valikosta
Keep EXCELing
@Kunde - et maininnut mikä versio, mutta samanlailla se toimii kaikissa versioissa, paitsi ei tästä 2010 ribboneista mitään löydä itekään ja asensin vanhan malliset valikot...
eli lisää Active X komponenteistä tekstiruutu klikkaamalla sen kuvaketta ja piirrät sitten taulukkoon suorakaiteen. Tuplaklikkaa suorakaidetta ja koodisivu aukeaa. Vasemmalla pitäisi olla Ominaisuudet ikkuna Properties Window ja sieltä muuttelet noi arvot sopiviksi. Jos ei ole näkyvillä niin valikosta View klikkaa Properties Window
Vasemmalla yläkulmassa pitäisi olla Project ikkuna ja sieltä klikkaat ko. taulukkoa mihin lisäsit tekstiruudun ja koipoit koodin oikealla olevaan valkoiselle alueelle. Jos et näe Project ikkunaa niin View valikosta klikkaa Project Explorer
siinäpä se...
Keep EXCELing
@Kunde - =EPÄSUORA(OSOITE(RIVI()-1;SARAKE()))
=INDIRECT(ADDRESS(ROW()-1);COLUMN() ))
Keep EXCELing
@Kunde - =EPÄSUORA("A"& RIVI()-1)
=INDIRECT("A"& ROW()-1)
Keep EXCELing
@Kunde - http://www.kundepuu.com/viewtopic.php?f=155&t=496&p=641#p641
keep EXCELing
@Kunde