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. Control Toolboxin comboboxiin ja liitä allaoleva koodi siihen, pääsee kaikkein helpoimmalla

    Private Sub ComboBox1_Change()
    Range("A1") = ComboBox1
    End Sub
  2. nappuloiden lisääminen ja koodit niihin ihan perusjutskaa, mutta merkin indeksointi onkin sitten eriasia. Excel toimii erilailla kuin Word, et pysty maalaamaan yksittäistä merkkiä ja muuttamaan koodilla sitä kuten Wordissä. Koko solu tietty onnistuu kerralla.
    Kerro mitä haluat.
    Jos jokin tietty kohta solussa, mikä indeksoidaan, niin koodaamalla se onnaa. Pitää tietää monesko merkki alusta lukien ja montako merkkiä muutetaan...
    tietenkin voisi rakentaa niin et kysyy merkin paikan ja montako merkkiä.
    Mutta vastaus on ei toimi ilman merkinpaikannusta!
    Toki solumuotoilullakin onnistuu jos esim. kyseessä olisi neliö/kuutio jutskat (m2 /m3 )

    Keep Excelling
    @Kunde
  3. klikkaa hiiren oikealla napilla
  4. liitä normaalisti Wordiin ja ei haittaa vaikka ei mahdukaan sivulle...
    Klikkaa taulukon vasemmassa yläkulmassa olevaa nuolihäkkyrää ja avautuvasta valikosta Autofit/Autofit to Contents tai Autofit to Window(enkkuversiossa 3. alimmainen)
    siinäpä se se
  5. oli vissiin termit hukassa kun puhuttiin työkirjaa taulukkona ja taulukkoa taulukkona, joten ajattelin mennä aidan matalimmasta kohtaa yli...
    siis samassa työkirjassa kopioi ABC taulukkoon kaikki muut taulukon
    määritellyt alueet
    Sub Siirrä()
    Dim ws As Worksheet
    Dim vika As Long
    On Error Resume Next
    Application.ScreenUpdating = False
    With Worksheets("ABC")
    .Activate
    .Cells.Clear
    End With
    vika = 0
    For Each ws In ActiveWorkbook.Sheets
    If Not ws.Name = "ABC" Then
    ws.Range("A1").Copy Range("ABC!A1").Offset(vika, 0)
    ws.Range("D3").Copy Range("ABC!A1").Offset(vika, 1)
    ws.Range("E3").Copy Range("ABC!A1").Offset(vika, 2)
    ws.Range("F4").Copy Range("ABC!A1").Offset(vika, 3)
    vika = vika + 1
    End If
    Next
    Application.ScreenUpdating = True
    End Sub
  6. ko kaava palauttaa kyllä taulukon nimen mutta ei oikein. Kopioipa kaava vaikka Sheet2 johonkin soluun ja tarkista mitä nyt lukee Sheet1 solussa niinpä niin Sheet2 eikä Sheet1

    fiksaamalla kaavaa, että se viittaaa taulukkoon sen saa toimimaan esim.
    =RIGHT(CELL("filename";A1);LEN(CELL("filename";A1))-FIND("]";CELL("filename";A1);1))

    tai yksinkertaisesti UDF:lla

    moduuliin...
    Function Taulukonnimi()
    Taulukonnimi = ActiveSheet.Name
    End Function

    ja solussa kirjoitat =taulukonnimi()
  7. =IF(J14
  8. =IF(J14
  9. C14 tulee comboxista tekstimuodossa ja se pitää muuttaa luvuksi. Jos sulla on käytössä solulinkki ota se pois käytöstä ja liitä koodi comboboxiin Private Sub ComboBox1_Change() Range("C14") = Val(ComboBox1) End *************************************** asian voi testata allaolevalla koodilla Private Sub ComboBox1_Change() Range("C14") = ComboBox1 End Sub Keep Excelling @Kunde
  10. jäi edellisestä viestistä pois maininta, että kaavio pitää olla aktivoituna kun täpän lisäät...
  11. jos kopioida pitää niin vaatii VBA:ta avuksi, mutta jos teet kaavion suoraan alueesta niin täppä oikeaan kohtaan ja sillä selvä. eli TOOLS/OPTIONS ja valitse CHART välilehti ja siinä täppä kohtaan ACTIVE CHART/ PLOT VISIBLE CELLS ONLY Keep Excelling @Kunde
  12. valitse kaavarivillä soluviittaus esim. =IF(C72>0;VLOOKUP(C72;$AA$28:$AB$32;2);0)*G72 maalaat nyt $AA$28:$AB$32 ja CRTL+C ja sitten CRTL+G ja OK siinäpä se
  13. ei tartte alkaa rautalangasta vääntämään ja just sitä mitä haet... http://contextures.com/xlDataVal13.html#Depend
  14. sekä Excel puolella että VBA puolella, mutta niin ylimalkainen kymysys... vaatii alueet missä tiedot ja mitä haluat...
  15. makronauhoitus antaa 90 turhaa koodia. Poista siis kaikki turhat määritykset mitä ei tarvita, samoin pyri käyttämään excelin omia funktioita, poista laskenta ja kuvaruutupäivitys väliaikaisesti yms. Jos mahdollista niin pistä koodi näytille niin katsotaan tai lähetä se mulle emaililla [email protected], niin tsekkaan onko mitään tehtövissä
  16. moduuliin... Option Explicit Sub Siirrä() Dim Löydetty As Range Dim haku As Date On Error Resume Next Application.ScreenUpdating = False haku = DateAdd("D", -1# * DatePart("D", CDate(Range("B1"))) + 1, CDate(Range("B1"))) Set Löydetty = EtsiJaSiirrä(haku, Range("D:D")) Löydetty.Offset(0, 8) = Range("B4") Application.ScreenUpdating = True End Sub Function EtsiJaSiirrä(Hakuehto As Variant, HakuAlue As Range) As Range Dim solu As Range Dim EkaOsoite As String With HakuAlue Set solu = .Find( _ What:=Hakuehto, _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False, _ SearchFormat:=False) If Not solu Is Nothing Then Set EtsiJaSiirrä = solu EkaOsoite = solu.Address Do Set EtsiJaSiirrä = Union(EtsiJaSiirrä, solu) Set solu = .FindNext(solu) Loop While Not solu Is Nothing And solu.Address EkaOsoite End If End With End Function keep Excelling @Kunde
  17. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True End If End Sub
  18. tottahan tohon voisi kaavoja väännellä tai VBA:lla koodin rustata, mutta laitankin iän ikuisen Excel 4 makron peliin... oletetaan, että 1. laskettavat solut A1 alaspäin. 2. B1 kaava =SUBSTITUTE(A1;"x";"*") ja vetämällä alaspäin niin pitkälle kun laskettavia soluja on 3.Aktivoi solu C1 ja INSERT/NAME/DEFINE ja laita nimeksi vaikka laskin ja viittaukseksi =EVALUATE($B1) ja OK. jos esim. solussa A1 4x3+6x5-(2*4) niin soluun B1 tulee 4*3+6*5-(2*4) ja C1 lasketaan tulokseksi 34 toimii normaaleilla laskutoimituksilla... keep excelling @Kunde
  19. no nyt sekin sitten lisätty koodiin... Sub lisää() Dim ws As Worksheet Dim OnJo As Boolean On Error Resume Next For Each ws In ActiveWorkbook.Worksheets If ws.Name = "Tulos" Then OnJo = True End If Next If Not OnJo Then Sheets.Add , After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "Tulos" End If Worksheets("Tulos").Activate Range("D5:E1000") = "" For Each ws In ActiveWorkbook.Worksheets If Not ws.Name = "Tulos" Then Range("D5").Select Do Until ActiveCell = "" ActiveCell.Offset(1, 0).Select Loop ActiveCell = ws.Name ActiveCell.Offset(0, 1) = ws.Range("C1") ActiveCell.Offset(0, 2) = ws.Range("C3") End If Next End Sub
  20. kuten sanoin helppo muokata sopivaksi... ja tiedot voi hakea kerralla... Sub lisää() Dim ws As Worksheet On Error Resume Next Worksheets("Tulos").Activate Range("D5:E1000") = "" For Each ws In ActiveWorkbook.Worksheets If Not ws.Name = "Tulos" Then Range("D5").Select Do Until ActiveCell = "" ActiveCell.Offset(1, 0).Select Loop ActiveCell = ws.Name ActiveCell.Offset(0, 1) = ws.Range("C1") ActiveCell.Offset(0, 2) = ws.Range("C3") End If Next End Sub
    21. 51 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt