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. ei kummonen juttu...

    muokkaa sopivaksi muuttamalla solualueita

    nyt kopioi aktiivisesta taulukosta (laskupohja) solussa H30 olevaan asiakasnimen nimiseen taulukkoon tiedot A sarakkeeseen ekaan tyhjään soluun

    ...koodia
    Range("A10:K15").Copy Sheets(Range("H30").Text).Range("A65536").End(xlUp).Offset(1, 0)
    ...koodia
  2. "Tämä taas tarvitaan ERP integraation muutosta varten ja minulla menisi useita päiviä tämän tekemiseen manuaalisesti..."

    no nythän meille jää aikaa kikkailla jotain muuta 2-3 päivää -1 minuutti sihteerikön kanssa... ;-)

    en tiedä halusitko siirtää tiedot erilliseen taulukkoon tai vain muokata jo olemassa olevaa taulukkoa, mutta nyt helppo tehdä mitä haluaa taulukoille.

    Kopioi Taul1 taulukon "Huuhaa" taulukkoon ja tekee tarvittavat jutskat

    moduuliin...
    muuta taulukoiden nimet sopiviksi

    Sub Järjestä()
    Dim S As Variant
    Dim T As Variant
    Dim i As Long
    Dim j As Long
    Dim vika As Long
    Dim nimi As String

    On Error Resume Next
    nimi = Worksheets("Huuhaa").Name
    If Not Err.Number = 0 Then Sheets.Add.Name = "Huuhaa"
    On Error GoTo 0
    Worksheets("Huuhaa").Cells = ""
    vika = Worksheets("Taul1").Range("S65336").End(xlUp).Row
    For Each solu In Worksheets("Taul1").Range("S1:S" & vika)
    S = Split(solu, ",")
    T = Split(solu.Offset(0, 1), ",")
    For i = 0 To UBound(S)
    For j = 0 To UBound(T)
    solu.EntireRow.Copy Worksheets("Huuhaa").Range("A65536").End(xlUp).Offset(1, 0)
    Worksheets("Huuhaa").Range("S65536").End(xlUp) = S(i)
    Worksheets("Huuhaa").Range("T65536").End(xlUp) = T(j)
    Next
    Next
    Next
    End Sub
  3. oliko JMS?

    ISO 8601(European Standard EN 28601) -standardin mukaan aika merkitään:
    VVVV-KK-PP(T)HH:MM:SS tai VVVVKKPP HH:MM:SS

    oikein olisi merkata 2011-01-07 TAI 20110107 ja 12:00-15:30 ja 3:30 ,

    Palkanlaskutoimituksissahan käytetään desimaaleja eikä minuutteja eli tunnit/minuutit on muutettava kuitenkin jossain vaiheessa muotoon X,XX tuntia kaavalla (tunnit*24 tai tunnit/24), jotta palkka voidaan maksaa rahana.

    Sehän on ihan sama mitä solussa näyttää kunhan laskutoimitukset menee oikein desimaaleiksi.
    se onko sulla solun tekstinä 12.00-15.30 vaiko 12:00 -15.30, sillä ei ole merkitystä, koska tunteja ei voi laskea tosta ilman kaavaa ja se on ihan ihan sama kaavassa, onko erottimena tuntierottimena . , vaiko :

    eiku palautetta kouluttajalle ja selvitystä asiasta.

    Kysy häneltä miksi kellonaikasolussa saa olla tekstinä 12:00-15.30 eikä 12:00-15:30 jos "Työaika -tehtävässä kellonaikoja laskettaessa erottimena ei pilkku vaan kaksoispiste." Siis siinä pitäisi olla kaksoispiste...

    Miksi virheellisestä päiväyksestä ei ole huomautettu?

    Standardin mukaan muotoa VVVV-KK-PP tai VVVVKKPV (pudottaa sitten sun arvosanaa lisää heheh).
    Ja oikeasti tuo pistepäiväys ei toimi aina oikein laskettaessa aikajutskia (esim haku ei toimi... vaan vaatii päiväyksen muuttamisen(koodipuolella))

    "Työaika -tehtävässä kellonaikoja laskettaessa erottimena ei pilkku vaan kaksoispiste."
    jos ajoilla lasketaan niin 3,5 on 3:30

    taitaa olla aika "käpy" toi sun kouluttajasi...
  4. Public i As Integer
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim viesti1 As String
    Dim viesti2 As String
    Dim viesti3 As String
    Dim viesti4 As String

    i = i + 1
    Select Case i
    Case 1
    viesti = "excel on suorittanut laittoman toiminnon ja se on suljettava"
    Case 2
    viesti = "excel on suorittanut laittoman toiminnon ja onko se suljettava"
    Case 3
    viesti = "excel on suorittanut laittoman toiminnon ja se ei sulkeudu-vai?"
    Case 4
    viesti = "APRILLIÄ APRILLIÄ !!!"
    End Select

    If Not Intersect(Target, Range("A:B")) Is Nothing Then
    MsgBox viesti, vbCritical
    Application.Cursor = xlWait
    End If
    If Not Intersect(Target, Range("C:D")) Is Nothing Then
    MsgBox viesti, vbYesNo + vbInformation
    Application.Cursor = xlIBeam
    End If
    If Not Intersect(Target, Range("E:F")) Is Nothing Then
    MsgBox viesti, vbYesNo + vbInformation
    Application.Cursor = xlNorthwestArrow
    End If
    If Not Intersect(Target, Range("G:H")) Is Nothing Then
    Application.Cursor = xlDefault
    End If
    If i = 4 Then i = 0
    End Sub
    Sub Resetoi()
    Application.EnableEvents = True
    Application.Cursor = xlDefault
    End Sub

    Keep EXCELing
    @Kunde
  5. ???
    soluun C1 KAAVA
    =JOS((A1*4)>B1;0;B1-(A1*4))+SUMMA(C2:EPÄSUORA("C"& LASKE.A(C:C)))

    ja soluun C2 kaava =
    JOS(TAI(A2="";B2="");"";JOS((A2*4)>B2;"";B2-(A2*4)))

    ja kopiot solusta C2 alaspäin kaavan vetämällä ...

    takuulla toimii just niinkuin pitää...

    keep EXCELing
    @Kunde
  6. C1==JOS((A1*4)>B1;"";B1-(A1*4))+SUMMA(C2:EPÄSUORA("C"& LASKE.A(C:C)))
    C2=JOS(TAI(A2="";B2="");"";JOS((A2*4)>B2;"";B2-(A2*4))) ja kopiot alaspäin...

    Keep EXCELing
    @Kunde
  7. muuta toi solu (nyt A1) sopivaksi , missä sulla on ongelma ja samoin palautussarake(nyt B).
    Jos solussa on luku 50 000 ja solussa lukumuotoiluna on esim. yleinen, tuloksena pitäisi tulla 5 lukua 53 5,48 0,48 0,48 0,48 0
    jos lukuja tulee 6(tai enemmän?) niin tsekkaa luvun 53,jälkeen tuleva joku muu numero kuin 48 0.
    Jälkimmäisetä merkistä näet mikä merkki on kyseessä ja sitten voit kokeilla ETSI/KORVAA toimintaa (välilyöntiä ja muitakin näkymättömiä erikoismerkkejä ei voi tulostaa, joten siinä on silloin vain 1 luku esim. välilyönnille 32).

    Jos ei toimi niin avaa uusi työkirja ja tuo tiedot puhtaaseen taulukkoon ja jos vika jatkuu edelleen, niin sitten EXCELissä joku häikkä ja asennus uusiksi...

    Sub Puramerkeiksi()
    For i = 1 To Len(Range("A1"))
    Range("B65536").End(xlUp).Offset(1, 0) = Asc(Mid(Range("A1"), i, 1)) & " " & Chr(Asc(Mid(Range("A1"), i, 1)))
    Next
    End Sub
    Keep EXCELing
    @Kunde
  8. EI ONNISTU MITENKÄÄN ILMAN KOODAUSTA..
    perun puheeni, kyllä toi summa ilman koodiakin onnistuu...
  9. EI ONNISTU MITENKÄÄN ILMAN KOODAUSTA...

    et näköjään testannut koodiani...
    ja jos lukua 16 esimerkissäsi eI tartte näyttää niin koodi on silloin

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim vika As Long
    On Error Resume Next
    Application.EnableEvents = False
    'A- sarakkeen muutokset
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
    'A JA B ei saa olla tyhjiä
    If Not Target = "" And Not Target.Offset(0, 1) = "" Then
    ' B suurempi kuin 4*A silloin A.ID(summa-arvo) ja C soluun B-4*A
    If Target.Offset(0, 1) > Target * 4 Then
    Target.Offset(0, 2) = Target.Offset(0, 1) - Target * 4
    Target.ID = Target.Offset(0, 1) - Target * 4
    Else
    '4*A suurempi kuin B silloin A.ID =0 (summa-arvo)ja C soluun A*4
    If Target * 4 > Target.Offset(0, 1) Then
    Target.Offset(0, 2) = ""
    Target.ID = 0
    End If
    End If

    End If
    If Target = "" Or Target.Offset(0, 1) = "" Then
    Target.Offset(0, 2) = ""
    End If
    End If

    'B- sarakkeen muutokset
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
    'A JA B ei saa olla tyhjiä
    If Not Target = "" And Not Target.Offset(0, -1) = "" Then
    ' B suurempi kuin 4*A silloin A.ID (summa-arvo)ja C soluun = B-4*A
    If Target > Target.Offset(0, -1) * 4 Then
    Target.Offset(0, 1) = Target - Target.Offset(0, -1) * 4
    Target.Offset(0, -1).ID = Target - Target.Offset(0, -1) * 4
    Else
    '4*A suurempi kuin B silloin A.ID =0 (summa-arvo)ja C soluun A*4
    If Target.Offset(0, -1) * 4 > Target Then
    Target.Offset(0, 1) = ""
    Target.Offset(0, -1).ID = 0
    End If
    End If
    End If
    If Target = "" Or Target.Offset(0, -1) = "" Then Target.Offset(0, 1) = ""
    End If

    vika = Range("A65536").End(xlUp).Row
    For Each solu In Range("A1:A" & vika)
    summa = summa + CDbl(solu.ID)
    Range("C1") = summa
    Next
    Application.EnableEvents = True
    End Sub
    Sub Reset()
    Application.EnableEvents = True
    End Sub
  10. "Laita vaikka B1:een "0"&A1 ja sitten kopioi alas. Lopuksi kopioi arvot takaisin A1:een."
    vaatiin kuitenkin A1 asettamisen tekstiksi, jotta jatkossa siihen voi tehdä muutoksia ja etunolla säilyisi

    "muotoilet tekstiksi , excel kyllä hoitaa lasekmisen vaikka osa olisi tekstiä ja osa lukuja. siis jos tekstikin sisältää pelkääsnt lukuja, ei siis kirjaimia."

    ei se pelkäksi tekstiksi mitään etunollaa lisää, pakko se on sinne manuaalisesti makrolla /lisätä

    Omaa solumuotoilua voi käyttää hyväksi kanssa \00
    ja jos haluaa aina tietyn pituisen tuotekoodin niin lisää nollia esm. 5 numeroinen \00000. Mutta tämä ei toimi, jos kirjoitat siihen 5 numeroisen luvu- lykkää sitten sen etunollan siihen kuudenneksi merkiksi

    nopein ja kivuttomin tapa on fiksata makro toimimaan valinnalle ja suorittaa se, eli muokkaa nyt vain valitut solut

    Sub MuutaMuotoiluTekstiksi()
    For Each solu In Selection.SpecialCells(xlCellTypeConstants)
    solu.NumberFormat = "@"
    If IsNumeric(solu) Then
    solu.Value = "0" & solu.Value
    End If
    Next
    End Sub
  11. "mä vaan"
    ei tartte tietää kuin kansio missä tiedostot on
    "mä vaan"

    ja haulla löytyy mun tekemää koodiakin vastaavaan kysymykseen pikku fiilauksella...

    nyt kelit lämmennee (+38C). ja laiskottaa...

    Keep ARCHAing
    @Kunde
  12. laskee nyt kumulatiivisesti A ja B saraketta (molemmissa pitää olla luku, jotta arvo muuttuu soluun C1)
    kun ei tarkempaa tietoa miten käytät niin olkoon...
    nyt jos poistat arvot B sarakkeesta jättää C1 summan muistiin...
    ja
    jos poistat arvoja A sarakkeesta huomioi muutoksen


    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim vika As Long
    On Error Resume Next
    Application.EnableEvents = False
    'A- sarakkeen muutokset
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
    'A JA B ei saa olla tyhjiä
    If Not Target = "" And Not Target.Offset(0, 1) = "" Then
    ' B suurempi kuin 4*A silloin A.ID(summa-arvo) ja C soluun B-4*A
    If Target.Offset(0, 1) > Target * 4 Then
    Target.Offset(0, 2) = Target.Offset(0, 1) - Target * 4
    Target.ID = Target.Offset(0, 1) - Target * 4
    Else
    '4*A suurempi kuin B silloin A.ID =0 (summa-arvo)ja C soluun A*4
    If Target * 4 > Target.Offset(0, 1) Then
    Target.Offset(0, 2) = Target * 4
    Target.ID = 0
    End If
    End If
    End If

    End If
    'B- sarakkeen muutokset
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
    'A JA B ei saa olla tyhjiä
    If Not Target = "" And Not Target.Offset(0, -1) = "" Then
    ' B suurempi kuin 4*A silloin A.ID (summa-arvo)ja C soluun = B-4*A
    If Target > Target.Offset(0, -1) * 4 Then
    Target.Offset(0, 1) = Target - Target.Offset(0, -1) * 4
    Target.Offset(0, -1).ID = Target - Target.Offset(0, -1) * 4
    Else
    '4*A suurempi kuin B silloin A.ID =0 (summa-arvo)ja C soluun A*4
    If Target.Offset(0, -1) * 4 > Target Then
    Target.Offset(0, 1) = Target.Offset(0, -1) * 4
    Target.Offset(0, -1).ID = 0
    End If
    End If
    End If

    End If
    vika = Range("A65536").End(xlUp).Row
    For Each solu In Range("A1:A" & vika)
    summa = summa + CDbl(solu.ID)
    Range("C1") = summa
    Next
    Application.EnableEvents = True
    End Sub

    Keep EXCELing
    @Kunde
  13. eipä paljoa auttanut selitys
    minkälainen se viivakoodi on, joku luku vai luku/teksti vaiko ihka oikea viivakoodi ja missä sarakkeessa?

    " tieto "vedetään" hiirellä alas uudelle riville" antaa viitteitä , että vpisi sarjaominaisuutta käyttää
  14. vähän ylimalkaista on kyselyn tiedot...
    Oletkos kokeillut nauhoittaa makroa. Ja jos ei toimi niinhän voit aina kysellä apuja täältä uudelleen

    tommosta koodia nauhoitin lykkää kun esim. riville 3 lisää uuden tyhjän rivin

    Sub Macro1()
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown
    End Sub

    sama siistittynä

    Sub Macro1()
    Rows("3:3").Insert Shift:=xlDown
    End Sub

    Keep EXCELing
    @Kunde
  15. mulla on pohjalla enkkuversio 2003 ja siinä lisänä suomikielipaketti..
    Käynnistä valikon Officen tools valikon kieliasetuksista voi sitten valita käyttöliittymän kielen (sama kuin käyytöjärjestelmä/englanti/suomi)
    Eli kun valitset suomen käytössäsi on suomifunktiot ja kun englannin niin enkkufunktiot
    Ja parasta siinä on, että jos kaavat työkirjassa enkuksi niin kun avaat saman tiedoston sitten suomiversiossa kaavat on käännetty suomeks ja tieteskin päinvastoin toimii kanssa ...
  16. Et tosin maininnut mikä versio käytössäsi, mutta ainakin 2003 versiosta alkaen on voinut käyttää eri kielisiä kielipaketteja ja voit käyttää esim suomi tai enkkuversiota mielihalujesi mukaan
  17. moduuliin...

    Sub MuutaMuotoiluTekstiksi()
    For Each solu In Cells.SpecialCells(xlCellTypeConstants)
    solu.NumberFormat = "@"
    If IsNumeric(solu) Then
    solu.Value = "0" & solu.Value
    End If
    Next
    End Sub
  18. ... koodia
    MsgBox Application.WorksheetFunction.CountA(Range("B12:B61"))
    End Sub
  19. jos taulukossa on omat otsikkorivit (ei pelkät kirjaimet A,B,C...) ylhäällä tai alhaalla ja omat riviotsikot ( ei pelkät mumerot 1,2,3...) vasemmalla tai oikealla niin kaikkein helpoin tapa on käyttää Excelin omaa NATIVE LANGUAGEta

    Eli valikosta LISÄÄ/ NIMI/ LUO ja avautuvasta lomakkeesta valitset sopivat vaihtoehdot taulukon luomiseen .
    Sitten soluun mihin haluat tuloksen teet kaavan = RIVIOTSIKKO (VÄLILYÖNTI )SARAKEOTSIKKO

    eli jos myyntitaulukossa sarakkeina esim tammi,helmi,maalis... ja riviotsikkoina esi. Pohjoinen, Etelä, Itä, Länsi

    ja haluat saada selville helmikuun Etelän myynnin niin soluun kaava =helmikuu Etelä tai =Etelä helmikuu
  20. Ruokahalu kasvaa syödessä näköjään...
    nyt ei väliä montako samaa aluetta löytyy...

    Function Etsi(Hakuehto As Variant) As Range
    'etsii Sheet1 sarakkeesta A ja siirtää Sheet2 sarakkeeseen O
    'oletuksena, että haettavat tiedot vain sarakkeessa A
    Dim solu As Range
    Dim EkaOsoite As String
    Worksheets("Taul1").Activate
    With Range("A:A")
    Set solu = .Find( _
    What:=Hakuehto, _
    LookIn:=xlValues, _
    LookAt:=xlPart, _
    SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, _
    MatchCase:=False, _
    SearchFormat:=False)
    If Not solu Is Nothing Then
    Set Etsi = solu
    EkaOsoite = solu.Address
    Do
    Set Etsi = Union(Etsi, solu)
    Set solu = .FindNext(solu)
    Loop While Not solu Is Nothing And solu.Address EkaOsoite
    End If
    End With
    End Function

    Sub HakuEhdoilla()
    On Error Resume Next
    Dim Löydetty As Range
    Dim Löydetty2 As Range
    Dim solu As Range
    Dim vika As Long
    Set Löydetty = Etsi(Chr(126) & Range("E1"))
    Set Löydetty2 = Etsi(Chr(126) & Range("E2"))
    If Löydetty.Areas.Count = Löydetty2.Areas.Count Then
    For i = 1 To Löydetty.Areas.Count
    Range(Löydetty.Areas(i).Cells(1, 1).Offset(1, 0).Address & ":" & Löydetty2.Areas(i).Cells(1, 1).Address).Copy Worksheets("Taul2").Range("A65536").End(xlUp).Offset(1, 0)
    vika = Worksheets("Taul2").Range("A65536").End(xlUp).Row
    Worksheets("Taul2").Range("A" & vika) = Left(Worksheets("Taul2").Range("A" & vika), InStr(1, Worksheets("Taul2").Range("A" & vika), "~", 1) - 1)
    Next
    Else
    MsgBox "Ristiriita alueiden kanssa"
    End If
    End Sub

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