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. vaihda tapahtumaa ja tsekkaa kaavan tulosta...

    Private Sub Worksheet_Calculate()
    If Range("B8").Value = 0 Then
    'koodi tähän
    End If
    End Sub

    Keep EXCELing
    @Kunde
  2. jos tiedot esim. A1:A100000, niin tee soluun B1 kaava
    =OFFSET($A$1;(ROW()-1)*5;0) ja ENTER
    sitten aktivoi solu B1 ja tuplaklikkaa sitä pientä mustaa neliötä solun oikeassa alakulmassa ja homma sillä siisti...


    Keep EXCELing
    @Kunde
  3. siis solualue lomille on B2:X40 ja sen toi sun makrosi tekee PDF:ksi.
    Mitä sitten haluat tallentaa seuraavaksi esim B41:X78- ehkä?
    Aktiivisesta näytöstä tietyt solut alas ja oikealle (vasen yläkulma solusta tietyt kpl määrät) suuntaansa -ehkä?
    EXCEL taipuu kyllä lähes mihin vaan kun tiedetään tarpeet...
  4. soluissa kaavat
    A1=TÄMÄ.PÄIVÄ()
    B1=VALITSE.INDEKSI(VIIKONPÄIVÄ(A1);"kirkko";"liikuntaryhmä";"taidepaja";"teatteri";"koripallo";"jääkiekko";"sauna")
  5. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Solualue As Range
    If Target.Count = 1 Then
    Set Solualue = Range("E5:JX5")
    For i = 7 To 33 Step 2
    Set Solualue = Union(Solualue, Range("E" & i & ":JX" & i))
    Next
    If Not Intersect(Target, Range(Solualue.Address)) Is Nothing Then
    If Target.Interior.Color = vbGreen Then
    Target = ""
    Target.Interior.Pattern = xlNone
    Else
    Target.Interior.Color = vbGreen
    Target = "X"
    Target.HorizontalAlignment = xlCenter
    End If
    End If
    End If
    End Sub

    Keep EXCELing
    @Kunde
  6. mä arvasin tän sun tulevan kyssärin ;-)
    tottahan toki se onnistuu helposti...

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Solualue As Range
    If Target.Count = 1 Then
    Set Solualue = Range("E5:JX5")
    For i = 7 To 33 Step 2
    Set Solualue = Union(Solualue, Range("E" & i & ":JX" & i))
    Next
    If Not Intersect(Target, Range(Solualue.Address)) Is Nothing Then
    If Target.Interior.Color = vbGreen Then
    Target.Interior.Pattern = xlNone
    Else
    Target.Interior.Color = vbGreen
    End If
    End If
    End If
    End Sub

    Keep EXCELing
    @Kunde
  7. ihan sama mikä kunhan tiedot samassa järjestyksesä . Vaikka pelkkä tekstitiedosto, vaikkapapilkulla tai puolipisteellä erottelee kentät.
    Ei se sen kummempi tartte olla
  8. VBA...
    hakua peliin
    useita etsijasiirrä etsijakopioi ja vastaavia esimerkkejä mun tekemänä tällä foorumilla
  9. Sub Testi()
    Dim fso As New FileSystemObject
    fso.CopyFolder "X:\HAKEMISTO 1", "X:\Huuhaa"
    fso.CopyFolder "X:\Huuhaa", "X:\HAKEMISTO 1\BACKUP"
    fso.DeleteFolder "X:\Huuhaa"
    End Sub
  10. referensseissä lisää Microsoft Scripting Runtime viittaus....
  11. referensseissä lisää Microsoft Scripting Runtime viittaus

    Sub Testi()
    Dim fso As New FileSystemObject
    fso.CopyFolder "X:\HAKEMISTO 1", "X:\HAKEMISTO 1/BACKUP"
    End Sub

    Keep EXCELing
    @Kunde
  12. =OR(A1=4300;A1=4301;A1=28472;A1=28481 )*(A2/A3)/24

    Keep EXCELing
    @Kunde
  13. 2010 vaiko 2013 versiossa muutui salasanat kryptatuiksi, joten ei oo helppoa keinoa lienee enää. Tarjolla on kaupallisia ohjelmia, millä noi salasanat saa selvitettyä ilmeisesti uusimmastakin versioista,
  14. ei avaa oikealla salasanalla vaan "sopivalla", Sitten voit suojata uudella salasanalla ja apanna sen visusti talteen ;-)


    Sub Suojauksenpoisto()

    Dim a As Integer
    Dim b As Integer
    Dim c As Integer
    Dim d As Integer
    Dim e As Integer
    Dim n As Integer
    Dim a1 As Integer
    Dim a2 As Integer
    Dim a3 As Integer
    Dim a4 As Integer
    Dim a5 As Integer
    Dim a6 As Integer
    On Error Resume Next
    For a = 65 To 66
    For b = 65 To 66
    For c = 65 To 66
    For d = 65 To 66
    For e = 65 To 66
    For a1 = 65 To 66
    For a2 = 65 To 66
    For a3 = 65 To 66
    For a4 = 65 To 66
    For a5 = 65 To 66
    For a6 = 65 To 66
    For n = 32 To 126
    ActiveSheet.Unprotect Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(a1) & Chr(a2) & Chr(a3) & Chr(a4) & Chr(a5) & Chr(a6) & Chr(n)
    If ActiveSheet.ProtectContents = False Then Exit Sub
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    End Sub

    Keel EXCELing
    @Kunde
  15. Sub HaeTaulukonArvot()
    Dim X As Object
    Dim laskuri As Integer

    'muuta taulukon nimi sopivaksi
    Worksheets("Sheet2").Cells = ""
    Worksheets("Sheet2").Range("A1") = "X"

    'muuta taulukon nimi sopivaksi
    With Worksheets("Sheet2")
    .Range(.Cells(2, 1), .Cells(UBound(ActiveChart.SeriesCollection(1).Values) + 1, 1)) = Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
    End With

    laskuri = 2
    For Each X In ActiveChart.SeriesCollection
    'muuta taulukon nimi sopivaksi
    Worksheets("Sheet2").Cells(1, laskuri) = X.Name
    'muuta taulukon nimi sopivaksi
    With Worksheets("Sheet2")
    .Range(.Cells(2, laskuri), .Cells(UBound(ActiveChart.SeriesCollection(1).Values) + 1, laskuri)) = Application.Transpose(X.Values)
    End With
    laskuri = laskuri + 1
    Next
    End Sub

    Keep EXCELing
    @Kunde
  16. jos tarkoitat omaa listaa lajittelussa, niin tallenna lista(solualue, missä lajittelukriteeri omaksi luetteloksi) ja käytä sitä sitten lajittelussa?

    Keep EXCELing
    @Kunde
  17. jos sinulla on solussa hyperlinkki niin EXCEL aukaisee sen oletusselaimella ja mitä sitten sivun aukeamisen jälkeen tapahtuu ei ole EXCElistä kiinni.
    Eli jos haluat sen toimivan ilman salasanojen syöttöä tarvitsee tutkailla sivun rakennetta. Jos siellä esim,. lomake mihin syötetään tiedot niin etsiä lomakkeen nimi ja sitten lomakkeelta nimet salasana ja tunnus kentille...
    sitten muutama rivi koodia VBA:lla ja se on siinä ;-)
    no ei nyt ihan noin helppoa käytännössä, mutta sivun rakenteista vaikeusaste riippuu


    Keep EXCELing
    @Kunde
  18. ja miten syötetään hakuehdot?
  19. miten noi arvot on taulukossa?
  20. en kyllä nyt keksi mitään syytä miksi makro toimii eritavoin eripaikasta...
    koodin lopussa sulla on
    Application.ScreenUpdating = False
    ehkäpä se pitäisi olla
    Application.ScreenUpdating = True
    mutta ei se auta tohon siirtymiseen mun mielestä.Seuraava ohje ainaskin estää taulukon liikkumisen...

    klikkaa kaaviota hiren oikealla ja avautuvasta valikosta klikkaa sitä alinta muotoile kaavio aluetta.
    Sitten avautuvasta valikosta klikkaat vasemmalta ominaisuudet ja edelleen aukeavasta valitse ylhäältä objektin apaikan vaihtoehdoista se alin eli älä siirrä ja muuta kokoa solujen mukaan.
    En tiedä mten noi on kirjoitettu suomiversiossa, mutta jotain sinne päin kuiteskin...
    .
    taai lisää koodiin...

    ActiveSheet.ChartObjects("KAAVION NIMI").Placement = xlFreeFloating

    Auttoiko?

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