kunde

Vapaa kuvaus

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

Aloituksia

7

Kommenttia

1377

  1. Lisää nimet ja viittauksessa laitat nimille arvot
    Nimi=Omena
    Viitaus=1

    ja sitten vaan soluuun mihin haluat tuloksen laitat kaavan esim.
    =päärynä*mango


    Keep EXCELing
    @Kunde
  2. EPS helppo ja vaivaton

    Leikkasin CNC lankaleikkurillani paneelit, listat yms.
    Tarkoitus oli pinnoittää aidolla vilulla, mutta en saanut ajoissa viilua, joten hoidin sitten polyurealla jutut.
    Polyureallahan saa EPS:tä kivikovaa...
    Seuraavaan projektiin tulee sit aidolla viilulla pinnoitetua EPS:ää.
    Mallimökki tehtiin 100 mm EPS MgO (10 mm MgO+ 80 mm EPS +10 mm MgO) eltsuista. Ulkopuolelle tuli 100 mm leveää ja 25 mm paksua panelijäljitelmää pystyyn sekä vaakaan, peitelistoja sekä koristelistoja.
    U-arvotkin kohillaan ja EPS paksuudellahan sitä saa parannettua helposti ja tarvetta sille onkin tämmösillä helteillä kuin nytkin +40 C (Thaimaa)

    Leveydet, paksuudet ja profiilit saa just semmoset kuin itse haluu ja noita puulajejakin on kymmenittäin ja lopuksi värittömällä UV-suoja polyurealla kellastumisenesto.
    samoin EPS MgO eltsut helppo tehdä just semmosille U arvoille kun tarttee ja paloluokitukset saa kanssa kohillaan
    3 mm paksu MgO levy vastaa paloluokaltaan 13 mm Gyprocia ja saumoissa on I- profiili lasikuitupalkit,joten monikerrosratkaisut onnistuu helposti.
    Lujuus sitten ihan eriluokassa kuin Gyproc levyllä. Kuka semmosta levyä enää käyttääkään?
    Kaikki rakenneosat talossa on kierrätettävää ja betonia ei tartte missään.

    polyurea... ?, sitäpä ei siellä suomenmaalla moni edes tiedä ja sotkee senkin sit polyuretaaniin...

    jos kiinnostaa niin laita viestiä @kunde (suomi24)
  3. korjaa noi rivit koodissa, mulla oli vaan 3 diaa ja siksi unohdin fiksata ne tohon mallikoodiin...

    Set PPSlide = PPPres.Slides.Add(2, ppLayoutBlank)
    PPApp.ActiveWindow.View.GotoSlide 2

    mutta ne
    Set PPSlide = PPPres.Slides.Add(26, ppLayoutBlank)
    PPApp.ActiveWindow.View.GotoSlide 26

    Keep EXCELing
    @Kunde
  4. tossa tommonen perusjutska...
    helppo sitä fiksata

    Sub ChartToPresentation()
    ' muista referenssi Powerpointiin...
    'tarkista nimet
    Dim PPApp As PowerPoint.Application
    Dim PPPres As PowerPoint.Presentation
    Dim PPSlide As PowerPoint.Slide
    Dim PPShape As PowerPoint.Shape
    Dim Teksti1 As String
    Dim Teksti2 As String
    Sheets(1).ChartObjects("Chart 1").Activate
    Teksti1 = Sheets(1).Range("A1")
    Teksti2 = Sheets(1).Range("A2")
    Set PPApp = GetObject(, "Powerpoint.Application")
    Set PPPres = PPApp.ActivePresentation
    PPApp.ActiveWindow.ViewType = ppViewSlide
    PPApp.ActiveWindow.View.GotoSlide 26
    Set PPSlide = PPPres.Slides(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)
    PPSlide.Delete
    Set PPSlide = PPPres.Slides.Add(2, ppLayoutBlank)
    PPApp.ActiveWindow.View.GotoSlide 2
    ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
    PPSlide.Shapes.Paste.Select
    PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
    PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True

    Set PPShape = PPSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 10#, 250#, 400#, 36#)
    PPShape.TextFrame.TextRange.Text = "- " & Teksti1

    Set PPShape = PPSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 10#, 280#, 400#, 36#)
    PPShape.TextFrame.TextRange.Text = "- " & Teksti2
    Set PPSlide = Nothing
    Set PPPres = Nothing
    Set PPApp = Nothing
    End Sub


    Keep EXCELing
    @Kunde
  5. kyllähän toi onnistuu, mutta tarvitsee tietää onko kaaviot upotettu taulukkoon vaiko omana taulukkona ja sitten lisätäänkö Powerpointissa uuteen diaan vaiko olemassa olevaan ja mihin kohtaan (objektiin) tekstit liitetään jne...
    eli kyssäreitä riittää ja vaatii kyllä mielellään koko powerpoint esityksen malliksi
    mutta teepä lisää hakuja ja tee pala palalta ettiäpäin...

    Keep EXCELing
    @Kunde
  6. jos tohon asti oot päässyt, niin sitten pitäs onnata helposti
    1. laita johonkin soluun luku1
    2. kopioi solu
    3. maalaa korjattava alue
    4. klikkaa hiiren oikealla ja valikosta liitä käyttäen paste special/paste special ja avautuvasaa valikosta sitten ruksaat multiply ja Ok

    toinen tapa on laitaa soluun 0 ja sitten käyttää vaihtoehtoa add
    kolmas tapa VBA (fiksuin...)

    Keep EXCELing
    @Kunde
  7. miksi pitää luupata koodissasi???

    no uuteen kyssäriin löytyy vastaus noista

    http://keskustelu.suomi24.fi/search/s24search/(haejasiirrä+OR+etsijasiirrä)+sort_name:"kunde"?sort=created&perpage=25&term_keywords=

    eli haetaan tietoa ja jos palautuu nothing (ei löytynyt ) siirretään muuten skipataan


    Keep EXCELing
    @Kunde
  8. paljon coolimpi ratkaisu...

    http://www.j-walk.com/ss/excel/tips/tip48.htm

    Keep EXCELing
    @Kunde
  9. taulukon moduuliin missä se laskuri on....

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("B1") = 30 Then
    Range("B9:B19").Copy Worksheets("yhteenveto").Range("B65536").End(xlUp).Offset(1, 0)
    Range("G9:G19").Copy Worksheets("yhteenveto").Range("G65536").End(xlUp).Offset(1, 0)
    End If
    End Sub

    Keep EXCELing
    @Kunde
  10. VBA:lla onnistuu helpostikin.....
    mutta nyt aika ei riitä tekeen malliakoodia sulle, ehkä joku muu neuvoo miten...


    Keep EXCELing
    @Kunde...
  11. Sheets("DATA1").Select
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues

    Data1 solujen arvot muutetaan arvoiksi.
    eli jos esim. solussa on kaava =A1+A2 kaava poistetaan ja kaavan tilalle laskukaavan tulos

    Range("E6:H10000").Select
    Application.CutCopyMode = False
    Selection.ClearContents

    Alueen E6:H10000 sisältö tyhjennetään

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

    suojataan taulukko

    hieman selkeemmin sama

    With Sheets("DATA1")
    .Cells.Copy
    .Range("A1").PasteSpecial Paste:=xlPasteValues
    .Range("E6:H10000").ClearContents
    .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End With


    Keep EXCELing
    @Kunde
  12. http://www.kundepuu.com/viewtopic.php?f=155&t=541&p=834#p834

    Keep EXCELing
    @Kunde
  13. http://www.kundepuu.com/viewtopic.php?f=155&t=541

    Keep EXCELing
    @Kunde
  14. http://www.kundepuu.com/viewtopic.php?f=155&t=412&p=492&hilit=tietokanta#p492

    http://www.kundepuu.com/viewtopic.php?f=155&t=62&p=64&hilit=tietokanta#p64

    http://www.kundepuu.com/viewtopic.php?f=155&t=20&p=22&hilit=tietokanta#p22

    etuna tossa "tietokannassa " on se, että se on nimetty alue ja dynaaminen eli voit lisätä ja poistella tietoja ja aina "tietokanta" oikean kokoinen


    Keep EXCELing
    @Kunde
  15. helposti toteutettvissa VBA:lla

    Auto_Open ja Auto_Close koodiin tarvittavat jutut
    sitten kuvat laitat oikeeseen paikkaan ja niiden kaikkien .visible arvot =False. Solun arvot perusteella sitten muutat ko. kuvan .visible arvon =True



    Keep EXCELing
    @Kunde
  16. ko. taulukon moduuliin...

    Option Explicit

    Private Sub Worksheet_Calculate()
    If Range("E1") = 1 Then
    Aloita
    Else
    Lopeta
    End If
    End Sub

    moduuliin...

    Option Explicit
    Dim Ok As Boolean
    Sub Aloita()
    Ok = True
    Application.OnTime Now() + TimeValue("00:00:01"), "Ajastin"
    End Sub
    Sub Lopeta()
    Ok = False
    Worksheets("Sheet1").Range("F1").Value = 0
    End Sub
    Sub Ajastin()
    If Ok Then
    Worksheets("Sheet1").Range("F1").Value = Worksheets("Sheet1").Range("F1").Value + 1
    Application.OnTime Now() + TimeValue("00:00:01"), "Ajastin"
    End If
    End Sub



    KeepEXCELing
    @Kunde
  17. ilman kaavoja...

    1. Valitse numeroalue
    2. Valikosta Data/Test to Columns
    3. Ekalla sivulla next
    tokalla sivulla ruksi other ja boksiin + ja next
    kolmannella sivulla klikkaa Advanced... ja avautuvassa valikossa varmista, että Trailing Minus for Negative Numbers on valittuna ja OK ja FINISH

    Keep EXCELing
    @Kunde

    HAUSKAA JOULUA!
  18. entäs sitten kun lisään tai poistan rivejä...
    ei se helppous ole niin yksiselitteistä ;-)
    kandee testata ennenkuin postaa

    Keep EXCELing
    @Kunde
  19. 1.
    moduuliin...

    Sub Auto_Open()
    MsgBox "tiedosto sisältää salaista tietoa..."
    End Sub

    2.
    moduuliin...
    Sub Kommentti()
    Dim solu As Range
    On Error Resume Next
    For Each solu In Range("A1:A10")
    solu.Comment.Delete
    solu.AddComment
    solu.Comment.Text Text:="kunde lisäsi kommentteja alueelle:" & Chr(10) & "Kommenttia pukkaa..."
    Next
    End Sub


    Keep EXCELing
    @Kunde
  20. tee VBA:lla oma käyttäjä funktio ja homma toimii...

    Keep EXCELing
    @Kunde
    21. 19 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt