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. moduuliin...
    Sub Lisaa()
    Range("A1").Select
    For i = 2 To 1000 Step 2
    ActiveCell = i
    ActiveCell.Offset(1, 0) = i
    ActiveCell.Offset(2, 0).Select
    Next
    End Sub
  2. Sen voi tehdä ilman koodia seuraavasti. Valitse alue ja Edit/Goto/Special/ ja sieltä Blanks. Kirjoita sitten 0 ja CTRL= enter jolloin kirjoittaa kaikkiin alueen tyhjiin soluihin 0. Jos kaavalla olet tehnyt nakymän tyhjäksi sitä ei voi näyttää 0 arvona ilman, että menetät kaavasi.
    VBA:lla vastaava

    moduuliin

    Sub LisaaNollat()
    Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks) = 0
    End Sub
  3. Ruksi kohtaan nolla-arvot. Ja vot, kyll näkyy nollat!
    ei toi mitään nollia kirjoita tyhjiin soluihin niinkuin kysyjä halusi!
  4. jos kaavan nolla tulos näytetään tyhjänä eikä nollana, saa tuon säädettyä taulukon asetuksista, näytetäänkö tulos nollana vai tyhjänä
    Mistä löytyy tuo säätö???
  5. laitapas johonkin soluun kaava esim. =IF(C3=2,0,"") ja tee mainitsemasi jutut ja saat virheilmoituksen... etkä 0 arvoa soluun
    SORRY
  6. moduuliin...
    oletuksena, etta taulukko alkaa A1 ja laittaa valilyonnin tyhjiin soluihin. Voit muuttaa merkin jos tarvetta Range(sarake.Address).Offset(vika, 0).Resize(rivit - vika, 1) = " " = merkin jalkeen lainausmerkkien sisaan

    Sub Tayta()
    Dim rivit As Integer
    Dim vika As Integer
    On Error Resume Next
    rivit = Range("A1").CurrentRegion.Rows.Count
    For Each sarake In Range("A1").CurrentRegion.Columns
    vika = Range(sarake.Address).End(xlDown).Row
    If vika rivit Then
    Range(sarake.Address).Offset(vika, 0).Resize(rivit - vika, 1) = " "
    End If
    Next
    End Sub
  7. kirjoita ohjeessa hakusanaksi luo nimi ja sitten luet Rivi- ja sarakeotsikoiden muuntaminen nimiksi...
    Olen antanut talla palstalla muutaman kerran neuvoksi taman Excelin "Native language" toiminnan. Nyt kun luot nimet niin voit tehda niila otsikoilla laskutoimitukset
    esim
    B1=tammi C1=helmi jne
    A2=vuokra B2=400 C2=400
    A3=ruoka B3=300 C3=500

    maalaa alue A1-C3 luo nyt nimet Lisaa/Nimi/Luo ja excel ehdottelee luo nimet ylarivilta ja vasemmasta sarakkeesta. Klikkaa Ok ja soluun A5 kaava =tammi vuokra+ helmi ruoka niin tulokseksi tulee 900
    Talla tavalla voit hakea myos mista sarakkesta tahasta helposti tietoa kirjoittamalla vain otsikot =helmi ruoka ja saat 500-> korvaa PHAKU
    Keep Excelling!
  8. talukon moduuliin...

    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A1")) Is Nothing Then
    Range("E1") = Range("E1") + Range("A1")
    End If
    Application.EnableEvents = True
    End Sub
  9. kirjoita soluun A1
    ="Koti.autotalli.oma/työkalut/Laatikko3/"&RIVI()&".lokero3" ja kopioit kaavaa alaspain
  10. muuta sen solun muotoiluksi missa kaava
    [h]:mm
  11. koodihan tekee juuri noin!!!
    Hakee solussa olevat tapahtumat
    erottelee ne
    hakee niita vastaavat tuntimaarat ja
    summaa ne yhteen
    ???
  12. laita oma funktio Lasketunnit moduuliin ja sitten soluun mihin haluat tunnit nakyviin kirjoitat kaavan
    =Lasketunnit(C5)
    eli nyt hakee tapahtumat solusta C5 ja tunnit on tapahtumille soluissa E5-E16

    ja tama siis moduuliin (laskee nyt tunteja desimaaleilla). Jos haluat, etta laskee minuuteilla- eli kestoaika annettu muodossa 02:20 niin voin tehda sitten korjatun makron. Makro toimii vain v 2000 ylospain muistaakseni... (Split- funktiosta johtuen)

    Public Function Lasketunnit(Solu As Range) As Double
    Dim tapahtumat
    Dim i As Integer
    Dim tunnit As Double
    tapahtumat = Split(Solu.Text, ",")
    For i = 1 To UBound(tapahtumat) + 1
    tunnit = tunnit + Range("E5").Cells(tapahtumat(i - 1), 1)
    Next
    Lasketunnit = tunnit
    End Function
  13. Nythän koodi hakee B sarakkeesta vuosilukua ja erää ja jos ei löydy niin tekee uuden rivin.
    eli
    Range("B" & Vika + 1) = Haettava ’M9 ja se tulee B sarakkeeseen
    Range("B" & Vika + 1).Offset(0, 3) = Haettava2 ’O6 ja se tulee E sarakkeeseen
    Range("B" & Vika + 1).Offset(0, 4) = Sheets("Syöttö").Range("D9") ja se tulee E sarakkeeseen
    jne...

    offset on 0 pohjainen joten
    Range("B" & Vika + 1).Offset(0, 0) on sama solu kuin Range("B" & Vika + 1)
    Range("B10").Offset(1, 3)=E11
    jne...
  14. sorry, etten ollut huomannut aikaisemmin kyselyäsi...
    tässä korjattu versio ;-)
    Sub Kopioi()
    Dim Vika As Integer
    Dim Haettava As Range
    Dim Haettava2 As Range
    Dim Hakualue As Range
    Dim Löydetty As Range
    Dim EkaSolu As String
    Sheets("Syöttö").Activate
    Set Haettava = Range("M9")
    Set Haettava2 = Range("O6")
    Sheets("Data").Activate
    Vika = Range("B65536").End(xlUp).Row

    Set Hakualue = Range("B1:B" & Vika)
    Range("B1").Select
    Set Löydetty = Hakualue.Find(What:=Haettava, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False)
    If Not Löydetty Is Nothing Then
    EkaSolu = Löydetty.Address
    If Löydetty.Offset(0, 3) = Haettava2 Then
    MsgBox "Tiedot on jo olemassa", vbInformation
    Exit Sub
    Else
    Do
    Set Löydetty = Hakualue.FindNext(Löydetty)
    If Löydetty.Offset(0, 3) = Haettava2 Then
    MsgBox "Tiedot on jo olemassa", vbInformation
    Exit Sub
    End If
    Loop While Not Löydetty Is Nothing And Löydetty.Address EkaSolu
    Range("B" & Vika + 1) = Haettava
    Range("B" & Vika + 1).Offset(0, 3) = Haettava2
    End If
    Else
    Range("B" & Vika + 1) = Haettava
    Range("B" & Vika + 1).Offset(0, 3) = Haettava2
    End If
    End Sub
  15. ThisWorkbook moduuliin...
    nyt tekee ylätunnisteeseen oikealle, jos haluat vasemmalle niin muuta
    PageSetup.RightHeader---> PageSetup.LeftHeader
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Worksheets("Taul1").PageSetup.RightHeader = "Tallennettu viimeksi " & Format(Date, "dd.mm.yyyy")
    End Sub
  16. Sorry, että ei ole aikaa vastailla kuin hätäisesti.

    Nimiruudullahan se nimi näkyy...
    Tossa makro, josta voit säveltää tai toiset jeesata. Sinun tapauksessa et varmaan ole nimennyt kuvia liittäessäsi niitä- eli nimet on tyyliin kuva1, kuva2 jne.


    Option Explicit
    Sub Testi()
    Dim kuva As Picture
    Dim solu As Range

    Set solu = Range("b3")
    Set kuva = ActiveSheet.Pictures.Insert("c:\kunde\kunde.bmp")
    With kuva
    .Top = solu.Top
    .Left = solu.Left
    .Name = "kunde.bmp"
    .OnAction = "Nimi"
    End With

    End Sub
    Sub Nimi()
    MsgBox "Klikkasit kuvaa " & Application.Caller
    End Sub
  17. Joo ei toimi jos Public muuttuja lomakkeella, joten
    moduuliin...
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

    ja lomakkeella voit sitten käyttää esim.
    sleep 500
  18. Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    ja koodissa sitten käytät
    sleep 500
    1000 millisekuntia=1 s
  19. toi tyhjentaa kansion vaikka siella olisi tiedostojakin. Kandee olla varovainen, ettei poista jotakin tarkeatakin.

    Sub PoistaKansio()
    Dim fso
    Dim kansio As String
    kansio = "c:\Testi"
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FolderExists(kansio) Then
    fso.DeleteFolder kansio
    Else
    MsgBox kansio & " ei ole olemassa!" _
    , vbExclamation, "Kansiota ei loytynyt"
    End If
    End Sub
  20. En jaksa nyt juurta jaksaen selittaa...
    Entapa jos kysyja haluaa vain satunnaisluvun kerran soluun eika niin,etta se joka kerta muuttuu kun taulukon solu muuttuu. Mietippas sita ja anna vastaus ilman VBA:ta ja siten, etta muut solut toimivat normaalisti ja ilman mitaan copy/paste juttuja. Lisaksi jos haluat "todella oikean satunnaisluvun" ei tuo tuota satunnaislukuja vaativaan kayttoon. Testaa vaikka tekemalla 100 satunnaislukua tolla tavalla ja tee kaavio siita ja tutki meniko jakauman mukaan???
    siinapa sinullekin purtavaa naljailun sijaan
    21. 67 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt