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

1374

  • Uusimmat aloitukset
  • Suosituimmat aloitukset
  • Uusimmat kommentit
  1. 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
  2. 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
  3. 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
  4. 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
  5. paljon coolimpi ratkaisu...

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

    Keep EXCELing
    @Kunde
  6. 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
  7. VBA:lla onnistuu helpostikin.....
    mutta nyt aika ei riitä tekeen malliakoodia sulle, ehkä joku muu neuvoo miten...


    Keep EXCELing
    @Kunde...
  8. 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
  9. http://www.kundepuu.com/viewtopic.php?f=155&t=541&p=834#p834

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

    Keep EXCELing
    @Kunde
  11. 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
  12. 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
  13. 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
  14. 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!
  15. entäs sitten kun lisään tai poistan rivejä...
    ei se helppous ole niin yksiselitteistä ;-)
    kandee testata ennenkuin postaa

    Keep EXCELing
    @Kunde
  16. 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
  17. tee VBA:lla oma käyttäjä funktio ja homma toimii...

    Keep EXCELing
    @Kunde
  18. mutta VBA ja Kunde jeesaa... ;-)

    taulukon moduuliin...

    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If InStr(1, Target, ",") > 0 Then
    Target.NumberFormat = "0.0"
    Else
    Target.NumberFormat = "0"
    End If
    Application.EnableEvents = True
    End Sub

    Keep EXCELing
    @Kunde
  19. piti olla
    vika=Range("O65536").End(xlUp).Row
  20. vika=Range("A65536").End(xlUp).Row

    ActiveChart.SeriesCollection(1).Values =Worksheets("Raportti_APU'").Range("O6:O"& vika)
    `
    Keep EXCELing
    @Kunde
    21. 19 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt