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. en tiedä miten excelin ruudukon voisi poistaa näkymästä muuten kuin kikkailemalla. Toisaalta taas kopioimalla excelistä solu kerrallaan on liian hidasta...

    Sub ExcelistäWordiin()

    Dim oWord As Word.Application
    Dim oDoc As Word.Document
    Dim ws As Worksheet

    On Error Resume Next

    Set oWord = GetObject(, "Word.Application")
    If Err Then
    Set oWord = New Word.Application
    End If

    On Error GoTo virhe
    oWord.DisplayAlerts = wdAlertsNone
    oWord.Visible = True
    oWord.Activate
    Set oDoc = oWord.Documents.Add
    For Each ws In ActiveWorkbook.Worksheets
    If ws.Name = "Sheet8" Or ws.Name = "Sheet9" Then
    ws.UsedRange.Copy
    oDoc.Paragraphs(oDoc.Paragraphs.Count).Range.InsertParagraphAfter
    oDoc.Paragraphs(oDoc.Paragraphs.Count).Range.PasteExcelTable _
    LinkedToExcel:=False, _
    WordFormatting:=False, _
    RTF:=True


    Application.CutCopyMode = False
    oDoc.Paragraphs(oDoc.Paragraphs.Count).Range.InsertParagraphAfter

    If Not ws.Name = Worksheets(Worksheets.Count).Name Then
    With oDoc.Paragraphs(oDoc.Paragraphs.Count).Range
    .InsertParagraphBefore
    .Collapse Direction:=wdCollapseEnd
    .InsertBreak Type:=wdPageBreak
    End With
    End If
    End If
    Next ws
    oDoc.Saved = True
    oWord.DisplayAlerts = wdAlertsAll
    Set oWord = Nothing
    Set oDoc = Nothing
    Exit Sub

    virhe:
    oWord.DisplayAlerts = wdAlertsAll
    oWord.Quit
    End Sub
  2. Function OnkoAuki(Nimi As String) As Boolean
    On Error Resume Next
    Set Työkirja = Workbooks(Nimi)
    If Työkirja Is Nothing Then
    OnkoAuki = False
    Set wBook = Nothing
    On Error GoTo 0
    Else
    OnkoAuki = True
    Set wBook = Nothing
    On Error GoTo 0
    End If
    End Function

    Sub koe()
    If OnkoAuki("Heikki.xls") Then
    MsgBox "Työkirja on jo avoinna"
    Else
    MsgBox "Työkirja ei ole avoinna"
    End If
    End Sub
  3. löytyy vaikka kuinka paljon ohjeita
    esim tässä hyvät ohjeet outlookin manipuloimiseen
    http://www.dicks-clicks.com/excel/olAutomating.htm
  4. 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
  5. 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...
  6. 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)
  7. Analyysityökalujen Edatella onnistuu
  8. Makronauhoitin antaa mukavaa koodia...
    kokeiles tolla

    Private Sub CommandButton1_Click()
    Sheets("Sheet2").Range("J30:K30").Copy Sheets("Sheet1").Range("V2:W2")
    End Sub
  9. 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")
  10. 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
  11. 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.
  12. 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
  13. Tallenna taulukko HTML muodossa ja Excel tekee automaattisesti kaavioista .GIF

    Toinen tapa
    VBA:lla pari rivia koodia...
  14. 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
  15. 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...
  16. Private Sub ComboBox1_Change()
    Range("C100") = Val(ComboBox1)
    End Sub
    älä laita linkitettyyn soluun mitään ja muista vaihtaa solumuotoilu yleiseksi tai luvuksi
  17. 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
  18. 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...
  19. muuta oman tarpeesi mukaiseksi

    http://keskustelu.suomi24.fi/show.fcgi?category=108&conference=4500000000000708&posting=22000000016162844#22000000016162844
  20. Sub AvaaPDF()
    Dim Nimi As String
    Nimi = "C:\Alpha\AppliedMolding.pdf"
    ActiveWorkbook.FollowHyperlink Nimi
    End Sub
    21. 60 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt