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. niin sulla oli vaihtoehtojakin tallennukselle, joten koodiin korjaus

    Select Case Combobox1.Text
    Case Alue1
    Range(ComboBox1.Text).Copy Sheets("Tiedot").Range("C10")
    Case Alue2
    Range(ComboBox1.Text).Copy Sheets("Tiedot").Range("G10")
    Case Else
    End Select
  2. View/Toolbars/Visual Basic ja siitä combobox. Tee sitten johonkin alueelle vaihtoehdot kohteille ja ominaisuuksissa ListFillRange laitat alueen.Nimeä alueet ja sitten nappi samasta valikosta ja napin koodiin

    Private Sub CommandButton1_Click()
    Range(ComboBox1.Text).Copy Sheets("Tiedot").Range("C10")
    End Sub

    siinäpä se -ei paljon koodia vaaadi...
  3. itselläni ei ole versiota 2007, joten en voi sanoa juuta enkä jaata.Ihmettelen kyllä, jos uusi versio ei tue tota funktiota. Ehkäpä joku foorumilaisista voisi testata ja kommentoida...
    Itselläni toimii XP versiossa OK

    Voisit kokeilla seuraavaa
    vie kursori riville Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ja klikkaa F9 ja punainen pallo pitäisi ilmestyä harmaaseen palkkiin vasemmalle. Kokeile nyt tallentaa ja ohjelman pitäisi pysähtyä tälle riville ja voit jatkaa makron suoritusta painamalla F8 jolloin suoritetaan rivi kerrallaan koodia.
    Jos ei toimi nytkään niin en osaa neuvoa muuta

    Keskeytyksen saat pois klikkaamalla punaista palloa hiirellä palkissa( Keskeytyksen saa myös tehtyä klikkaamalla haluamasi rivin kohdalla sitä harmaata palkkia)
  4. Analyysityökalujen Edatella onnistuu
  5. Makronauhoitin antaa mukavaa koodia...
    kokeiles tolla

    Private Sub CommandButton1_Click()
    Sheets("Sheet2").Range("J30:K30").Copy Sheets("Sheet1").Range("V2:W2")
    End Sub
  6. TextBox työkalu olisi sopiva, mutta usean rivin teksti pitäisi saada jaoteltua excelissä jokainen rivi omaan soluunsa, mutta tämä ei onnistu
    Onnistuu kyllä Split funktiolla

    jälkimmäiseen kyssäriin
    esim taulukko Sheet2 soluun A2 siirrytään

    Application.Goto Sheets("Sheet2").Range("A2")
  7. olet varmaan käyttänyt koodissasi Worksheet objektia, vaikka pitäisi käyttää Sheet joka tunnistaa myös kaaviot...

    Sub Macro1()
    For Each taulukko In ActiveWorkbook.Sheets
    taulukko.Protect
    Next

    End Sub
    Sub Macro2()
    For Each taulukko In ActiveWorkbook.Sheets
    taulukko.Unprotect
    Next
    End Sub

    Keep Excelling
    @Kunde
  8. Onkos työkirjassasi varmasti taulukot nimeltään Sheet8 ja Sheet9? Muuta virhemahdollisuutta en keksi, ellei sitten sinulla ole joku ikivanha versio käytössäsi ja se ei tue tuota Array ominaisuutta.
  9. ThisWorkbook moduuliin...
    muuta solua mihin haluat laskurin, nyt solu A1...

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Range("A1") = Range("A1") + 1
    End Sub
  10. Tallenna taulukko HTML muodossa ja Excel tekee automaattisesti kaavioista .GIF

    Toinen tapa
    VBA:lla pari rivia koodia...
  11. Sub Tallenna()
    Sheets(Array("Sheet2", "Sheet4")).Copy

    ActiveWorkbook.SaveAs Filename:="C:\" & Vuosi & "_" & Kuukausi & "_" & Päivä & "_" & Tiedostonimi & "_" & Tieto1 & .xls"

    ActiveWindow.Close
    End Sub

    Keep Exceling
    @Kunde
  12. taulukko 1,
    - soluissa a1-b33 numeroita
    näistä haetaan keskiarvo, max ja min arvot.

    Tulokset haetaan yhteenveto taulukkoon esim. soluihin: h1(ka), i1(max), j1(min)

    eli kaavoissa on alueena A1-B33 ja kyssärissä alueena on sitten C3:C33. Onko tarkoitus, että alue muuttuu A sarakkeesta C ja seuraavalla rivillä sitten taas E3:E33. Vai pitäisikö alueen olla B1:B33 ja sitten taas C1:C33

    ei ihan tarkkaan ottaen selvinnyt...
  13. Private Sub ComboBox1_Change()
    Range("C100") = Val(ComboBox1)
    End Sub
    älä laita linkitettyyn soluun mitään ja muista vaihtaa solumuotoilu yleiseksi tai luvuksi
  14. Muokkaa sopivaksi

    koodi taulukon moduuliin...
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo virhe
    Application.EnableEvents = False
    If Not Intersect(Range("C3:H3"), Target) Is Nothing Then
    If Target = "" Then GoTo virhe
    If Range("C3").Offset(2, 0) = "" Then
    Target.Copy Destination:=Range("C3").Offset(2, 0)
    Else
    Target.Copy Destination:=Range("C3").Offset(2, 10).End(xlToLeft).Offset(0, 1)
    End If
    Target = ""
    End If
    virhe:
    Application.EnableEvents = True
    End Sub
  15. niin suoraan lisää objekti ja siitä itsellesi sopiva vaihtoehto. Luo tiedostosta ja linkitä tiedostoon päivittää kuvan muutokset suoraan Wordiin. Siis miksipä turhaan tallennella eri tiedostomuotoihin ja kuvasi on reaaliajassa toisin kuin eri tiedostomuotoihin tallennettuna...
  16. muuta oman tarpeesi mukaiseksi

    http://keskustelu.suomi24.fi/show.fcgi?category=108&conference=4500000000000708&posting=22000000016162844#22000000016162844
  17. Sub AvaaPDF()
    Dim Nimi As String
    Nimi = "C:\Alpha\AppliedMolding.pdf"
    ActiveWorkbook.FollowHyperlink Nimi
    End Sub
  18. moduuliin...
    lisää nyt Komerojutut nimisen valikon ennen Ohje/Help valikkoa(Hipsaa käytettävän version mukaan- nyt enkkuversio käytössä)

    Public Sub Auto_Open()
    Dim cbWSMenuBar As CommandBar
    Dim muCustom As CommandBarControl
    Dim iHelpIndex As Integer

    Set cbWSMenuBar = Application.CommandBars("Worksheet Menu Bar")
    'iHelpIndex = cbWSMenuBar.Controls("Ohje").Index
    iHelpIndex = cbWSMenuBar.Controls("Help").Index
    Set muCustom = cbWSMenuBar.Controls.Add(Type:=msoControlPopup, _
    Before:=iHelpIndex)
    With muCustom
    .Caption = "Komerojutut"

    With .Controls.Add(Type:=msoControlButton)
    .Caption = "Laskehinta"
    .OnAction = "Laskehinta"
    End With

    With .Controls.Add(Type:=msoControlButton)
    .Caption = "CNC-siirto"
    .OnAction = "AvaaCNC"
    End With
    With .Controls.Add(Type:=msoControlButton)
    .Caption = "Järjestä"
    .OnAction = "Järjestä"
    End With
    With .Controls.Add(Type:=msoControlButton)
    .Caption = "Tulosta"
    .OnAction = "Tulosta"
    End With
    End With
    End Sub


    Public Sub Auto_Close()
    Dim cbWSMenuBar As CommandBar

    On Error Resume Next
    Set cbWSMenuBar = Application.CommandBars("Worksheet Menu Bar")
    cbWSMenuBar.Controls("Komerojutut").Delete
    End Sub
  19. Arrayhin haettavat luvut. Nyt "Tulos" taulukon soluun A1 vertailun tulos.

    taulukon moduuliin...

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Laskuri As Long
    Dim Haettavat As Variant
    Dim Loydettysolu As Range
    Haettavat = Array(11, 22, 33, 44, 55)
    With ActiveSheet
    For Laskuri = LBound(Haettavat) To UBound(Haettavat)
    Set Loydettysolu = .Range("B6:C9").Find(What:=Haettavat(Laskuri), MatchCase:=True)
    If Loydettysolu Is Nothing Then
    Sheets("Tulos").Range("A1") = 0
    Else
    Sheets("Tulos").Range("A1") = 1
    Exit For
    End If
    Next Laskuri
    End With
    End Sub
  20. tolla nyt alkuun. Muuta polku ja tiedostonnimi itsellesi sopivaksija muista tehda tallennuskansio polku osoitteeseen.
    ThisWorkbook moduuliin...

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Const Polku = "C:\Varmuuskopiot\"
    Dim Tiedostonnimi As String
    Dim Laskuri As Long
    Dim JoTallennettu As Boolean
    On Error Resume Next
    Application.EnableEvents = False
    Laskuri = 1
    Do
    Tiedostonnimi = Polku & "MunTaulukko-" & Format(Laskuri, "0000") & ".xls"
    JoTallennettu = Len(Dir(Tiedostonnimi))
    If Not JoTallennettu Then
    ActiveWorkbook.SaveAs Filename:=Tiedostonnimi
    End If
    Laskuri = Laskuri + 1
    Loop Until Not JoTallennettu
    Application.EnableEvents = True
    Cancel = True
    End Sub
    21. 60 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt