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. Unohdin+mainita,+että+näytä/piilotus+toimii+klikkaamalla+alueen+vasemmanpuoleista+solua+alueen+otsikkorivilläkeep+EXCELing@Kunde
  2. Tietenkin...maalaa+dataa+sisältävä+alue++otsikkorivineen+ja+nimeä+se+(+kirjoittamalla+valinnan+nimi+vasemmalla+ylhäällä+kaavarivillä+olevaan+nimiruutuun+(nimi+koodissa)+ja++ENTER+tai++menun+kautta+)Allaoleva+koodi+ko.+moduuliin...Private+Sub+Worksheet_SelectionChange(ByVal+Target+As+Range)If+Not+Intersect(Target,+Range("nimi").Cells(1))+Is+Nothing+Then++++If+Selection.Count+=+1+Then++++++++If+Range("nimi").Cells(2,+1).EntireRow.Hidden+=+True+Then++++++++++++Range("nimi").Offset(1).Resize(Range("nimi").Rows.Count+-+1).EntireRow.Hidden+=+False++++++++Else++++++++++++Range("nimi").Offset(1).Resize(Range("nimi").Rows.Count+-+1).EntireRow.Hidden+=+True++++++++End+If++++++++Target.Offset(0,+1).Select++++End+IfEnd+IfEnd+SubKeep+EXCELing@Kunde
  3. Private+Sub+Worksheet_BeforeRightClick(ByVal+Target+As+Range,+Cancel+As+Boolean)'nollaa+solut+A5+ja+B5+klikkaamalla+hiiren+oikealla+solussa+A5,+ei+pakollinen+proseduuri'helpottaa+vaan+resetointia+,-)If+Not+Application.Intersect(Target,+Range("K7:K59"))+Is+Nothing+Then++++For+Each+Cell+In+Range("K7:K59")++++++++If+Cell.Row+=+Selection.Row+And+Selection.Count+>=+256+Then+GoTo+virhe++++Next++++Application.EnableEvents+=+False++++Target+=+""++++Target.Offset(0,+1)+=+""++++Target.Offset(0,+1).Activate++++Application.EnableEvents+=+True++++Cancel+=+TrueEnd+IfExit+Subvirhe:Application.EnableEvents+=+TrueCancel+=+FalseEnd+SubKeep+EXCELing@Kunde
  4. Sub+CtrlShiftA()If+Not+Application.Intersect(ActiveCell,+Range("K7:K59"))+Is+Nothing+ThenApplication.EnableEvents+=+FalseActiveCell+=+""ActiveCell.Offset(0,+1)+=+""ActiveCell.Offset(0,+1).ActivateApplication.EnableEvents+=+TrueCancel+=+TrueEnd+IfEnd+SubTämä+alkuperäinen+koodi+tyhjentää+K+sarakkeen+aktiivisen+solun+ja+sen+oikeanpuoleisen+solun+L-+sarakeesta.Miten+haluat+sen+toimivan?+Nyt+ilmoitit+koodissa+kohdistaneesi+sen+L-+sarakkeeseen,+joten+luonnollisesti+se++poistaa+sillon+kaavan+M-+sarakkeen+solusta...1.++Haluatko+syötön+jälkeen+L-+sarakkeessa+tyhjennyksen+pelkästään++L-+sarakkeen+aktiivisesta+solusta+automaattisesti+ilman+pikanäppäilyä?2.+Tyhjentää+pikanäppäilyllä+K-+sarakkeessa+olemmista+ssarakkeista+(K+ja+L)++rivin+solut+(resetointi)?3.+Jotai+muuta?Keep+EXCELing@Kunde
  5. ko+taulukon+moduuliin...Private+Sub+Worksheet_Change(ByVal+Target+As+Range)'voi+lisätä+useampiakin+solualueita'muista+lisätä+resetointi+kanssa+hiiren+oikean+koodiin'If+Not+Application.Intersect(Target,+Union(Range("B5:B50"),+Range("D6:D10"),+Range("F6:F15")))+Is+Nothing+ThenIf+Not+Application.Intersect(Target,+Range("L7:L59"))+Is+Nothing+Then++++If+IsNumeric(Target)+Then++++Application.EnableEvents+=+False++++Target.Offset(0,+-1)+=+Target+++Target.Offset(0,+-1)++++Application.EnableEvents+=+True++++End+IfEnd+IfEnd+SubPrivate+Sub+Worksheet_BeforeRightClick(ByVal+Target+As+Range,+Cancel+As+Boolean)'nollaa+solut+A5+ja+B5+klikkaamalla+hiiren+oikealla+solussa+A5,+ei+pakollinen+proseduuri'helpottaa+vaan+resetointia+,-)If+Not+Application.Intersect(Target,+Range("K7:K59"))+Is+Nothing+Then++++Application.EnableEvents+=+False++++Target+=+""++++Target.Offset(0,+1)+=+""++++Target.Offset(0,+1).Activate++++Application.EnableEvents+=+True++++Cancel+=+TrueEnd+IfEnd+SubPrivate+Sub+Worksheet_BeforeDoubleClick(ByVal+Target+As+Range,+Cancel+As+Boolean)'nollaa+solut+A5+ja+B5+klikkaamalla+hiiren+oikealla+solussa+A5,+ei+pakollinen+proseduuri'helpottaa+vaan+resetointia+,-)If+Not+Application.Intersect(Target,+Range("K7:K59"))+Is+Nothing+Then'Application.EnableEvents+=+False'Target+=+""'Target.Offset(0,+1)+=+""'Target.Offset(0,+1).Activate'Application.EnableEvents+=+True'Cancel+=+TrueEnd+IfEnd+Subtavalliseen+moduuliin...Fiksaa+näppäinyhditelmä+sopivaksi+Sub+TeePikanäppäinMakrolle()'tekee+pikanäppäimen+makrolle+CtrlShiftA'ohje+https://docs.microsoft.com/en-us/office/vba/api/excel.application.onkey?f1url=?appId=Dev11IDEF1&l=en-US&k=k(vbaxl10.chm133180);k(TargetFrameworkMoniker-Office.Version=v16)&rd=true'+nyt+Ctr+Shift+A+("^+A"),+tee+haluamasi++yhdistelmäApplication.OnKey+"^+A",+"CtrlShiftA"End+SubSub+CtrlShiftA()If+Not+Application.Intersect(ActiveCell,+Range("K7:K59"))+Is+Nothing+Then++++Application.EnableEvents+=+False++++ActiveCell+=+""++++ActiveCell.Offset(0,+1)+=+""++++ActiveCell.Offset(0,+1).Activate++++Application.EnableEvents+=+True++++Cancel+=+TrueEnd+IfEnd+SubKeep+EXCELing@Kunde
  6. En+taatusti+ole+turpojuntiksi+haukkunut.Luepas+tarkemmin+kommentit...Anonyymi07.04.2022+16:02Ilmeisesti+et+ole+koskaan+tehnyt+Exelillä+mitään+järkevää,+etkä+osaa+ratkaista+ongelmia+yleisellä+tasolla.Minäkin+ratkaisin+ongelman+näin,+joku+toinen+oli+nopeampi.soluun+=Rfind(A1,"/")Function+Rfind(Teksti,+Merkki)+As+IntegerRfind+=+InStrRev(Teksti,+Merkki)End+FunctionItse_opiskellut_amatööritoinen+anonyymi+vastasi...Älä+nyt+enempää+itseäsi+tee+pelleksi,+turpojuntti.+Mokasit+heti+alkumetreillä,+eikä+se+moka+selittämällä+enää+korjaudu.Itse+postaan+omalla+tunnarillani+Kunde.P.S.++lähti+anonyyminä+toi+edellinen+postaus+vahingossa
  7. Sama+härikkö+jo+pitemmän+aikaa+ollut+asialla
  8. Private+Sub+Worksheet_Change(ByVal+Target+As+Range)'voi+lisätä+useampiakin+solualueita'muista+lisätä+resetointi+kanssa+hiiren+oikean+koodiin'If+Not+Application.Intersect(Target,+Union(Range("B5:B50"),+Range("D6:D10"),+Range("F6:F15")))+Is+Nothing+ThenIf+Not+Application.Intersect(Target,+Range("B5:B50"))+Is+Nothing+Then++++If+IsNumeric(Target)+Then++++++++Application.EnableEvents+=+False++++++++Target.Offset(0,+-1)+=+Target+++Target.Offset(0,+-1)++++++++Application.EnableEvents+=+True++++End+IfEnd+IfEnd+SubPrivate+Sub+Worksheet_BeforeRightClick(ByVal+Target+As+Range,+Cancel+As+Boolean)'nollaa+solut+A5+ja+B5+klikkaamalla+hiiren+oikealla+solussa+A5,+ei+pakollinen+proseduuri'helpottaa+vaan+resetointia+,-)If+Not+Application.Intersect(Target,+Range("A5:A50"))+Is+Nothing+Then++++Application.EnableEvents+=+False++++Target+=+""++++Target.Offset(0,+1)+=+""++++Target.Offset(0,+1).Activate++++Application.EnableEvents+=+True++++Cancel+=+TrueEnd+IfEnd+SubKeep+EXCELing@Kunde
  9. "+etsisi+solun+oikealta+vasemmalle"Etkä+osaa+lukeakaan+enää?Esitä+nyt+ihmeessä+fiksumpi+kaava+soluun+kuin+=EtsiOikealta2(A1;"/")Function+EtsiOikealta2(solu+As+Range,+Merkki+As+String)+As+IntegerEtsiOikealta2+=+InStrRev(solu,+Merkki)End+Function
  10. "+etsisi+solun+oikealta+vasemmalle"Taidat+olla+itse++lukihäiriöinen+häirikkö.Säälittävää,+että+ennen+tämäkin+oli+asialinen+ketju,+mutta+nykyään+kaltaistesi+osaamattomien+naljailu+ja+vittuilu+ketju+ja+et+pysty+muuta+apua+antamaan+kuin+vittuiluaEsitä++jotain+kaavoja+/kaavoja++ratkaisuksi,+äläkä+vaan+vittuile.Mikä+on+pointtisi+vittuilulle(eli+et+osaakaan+EXCELiä)?+Alla+oleva+etsii+OIKEALTA+VASEMMALLE+ja+yritäpäs+tehdä+se+fiksummin+(toki+kun+et+ymmärrä+koodista+mitään,+tehtävä+mahdoton+ja+vittuillet+lisää+sitten)...Function+EtsiOikealta2(solu+As+Range,+Merkki+As+String)+As+IntegerEtsiOikealta2+=+InStrRev(solu,+Merkki)End+Function
  11. Pistä+minun++amatöörin++VBA+koodit+paremmaksi+jos+osaat+ja+nuo+3+antaa+täsmälliset+vastaukset+.Luulen,+että++vajaat+20+v+tänne+ratkaisuja+postanneena+olen+amatööriä++paremmin+perillä+asioista.Ennen+ei+ollut++tommosia+tyhjän+paskan+jauhajia+vaan+asiallisia+postauksiaNykyäänhän+täällä+viime+vuosina+on+vain+näitä+anonyymi++trollaajia,+jotka+eivät+pysty++muuhun+kuin+vittuilemaan+eikä+vastaamaan+kyssäreihin+ja+sepeävät+muihin+ohjelmiin+jne..
  12. Aloittaja+kysyi+++/moi/terve+ja+vastasin+siihen...tossa++VBA+käyttäjän+funktioitasoluun+kaavat+=EtsiOikealta(A1;"/")+=EtsiOikealta2(A1;"/")+=EtsiOikealta3(A1;"/")Function+EtsiOikealta(solu+As+Range,+Merkki+As+String)+As+IntegerEtsiOikealta+=+Len(solu)+-+InStr(1,+StrReverse(solu),+Merkki)+++1End+FunctionFunction+EtsiOikealta2(solu+As+Range,+Merkki+As+String)+As+IntegerEtsiOikealta2+=+InStrRev(solu,+Merkki)End+FunctionFunction+EtsiOikealta3(solu+As+Range,+Merkki+As+String)+As+Integer'helposti+vaikkapa+toka+vika+esiintymä...x+=+InStrRev(solu,+Merkki)EtsiOikealta3+=+InStrRev(solu,+Merkki,+x+-+1)End+FunctionKeep++EXCELing@Kunde
  13. Turhan+monimutkaista...soluun+kaava=ETSI("/";A1;2)monimutkaisempiin+sitten+VBAja+iellä+esim+.+SPLIT,+LIKE+jneKeep+EXCELing@Kunde
  14. Ko+taulukon+moduuliin...Private+Sub+Worksheet_Change(ByVal+Target+As+Range)++++If+Not+Intersect(Target,+Range("B5"))+Is+Nothing+Then++++++++If+IsNumeric(Range("B5"))+Then++++++++++++Range("A5")+=+Range("A5")+++Range("B5")++++++++End+If++++End+IfEnd+SubPrivate+Sub+Worksheet_BeforeRightClick(ByVal+Target+As+Range,+Cancel+As+Boolean)'nollaa+solut+A5+ja+B5+klikkaamalla+hiiren+oikealla+solussa+A5,+ei+pakollinen+proseduuri'helpottaa+vaan+resetointia+,-)++++If+Not+Intersect(Target,+Range("A5"))+Is+Nothing+Then++++Range("B5")+=+""++++Range("A5")+=+""++++Range("B5").Activate++++Cancel+=+True++++End+If+End+SubKeep+EXCELing@Kunde
  15. Esim+solussa+-100,11+ja+solumuotiluina#+##0;-€+#+##0+näytetään+-€+100#+##0,00;-€+#+##0,00+näytetään+-€+100,11keep+EXCELingKunde
  16. Esim+solussa+-100,11+ja+solumuotiluina+#+##0;-€+#+##0++++++++++++++++näytetään++-€+100#+##0,00;-€+#+##0,00++näytetään++-€+100keep+EXCELingKunde
  17. räätälöity+suojaus++"3+~+s+ä+h+k+ö"+taulukkoonThisWorkbook+moduuliin...Private+Sub+Workbook_BeforeClose(Cancel+As+Boolean)Worksheets("3+~+s+ä+h+k+ö").Unprotect+Password:="Kunde"End+SubPrivate+Sub+Workbook_Open()Worksheets("3+~+s+ä+h+k+ö").Protect+Password:="Kunde",+DrawingObjects:=False,+Contents:=True,+Scenarios:=TrueWorksheets("3+~+s+ä+h+k+ö").EnableSelection+=+xlUnlockedCellsEnd+SubKeep+EXCELing@Kunde
  18. "Taulukossa+on+makro+joka+tuottaa+räätälöityä+tekstiä+solun+kommenttiin.Deggaus+osoittaa+koodiriviin:.Comment.Shape.TextFrame.AutoSize+=+True"Ei+tommosen++perusteella+voi+mitään+ohjeita+antaa+tai+korjata+koodia.Mikä+excel+versio?laita+koodi+kokonaisuudessaan+niin+sitten+voi++yrittää+korjata...
  19. Esim.+A1:A63,41,54725,67,5102,5soluun+mihin+haluat+tuloksen+kaava=MontakoTämmöstä(A1:A6;"*,5*")funktio+palauttaa+arvon+3moduuliin...Function+MontakoTämmöstä(alue+As+Range,+malli+As+String)+As+IntegerDim+solu+As+RangeMontakoTämmöstä+=+0For+Each+solu+In+alue++++If+solu+Like+malli+Then+MontakoTämmöstä+=+MontakoTämmöstä+++1Next+soluEnd+Function
  20. moduuliin...Sub+Sorttaa()Dim+Rng+As+RangeDim+Vika+As+IntegerDim+Solu+As+RangeDim+Numero+As+StringDim+Teksti+As+StringDim+a+As+VariantApplication.DisplayAlerts+=+FalseOn+Error+Resume+Next'Type:=8+sallii+vain+solualueenSet+Rng+=+Application.InputBox(+_++++Title:="Lajittelu",+_++++Prompt:="Valitse+lajiteltava+alue+sarakkeesta",+_++++Type:=8)On+Error+GoTo+0If+Rng+Is+Nothing+Then+Exit+SubRng.NumberFormat+=+"@"Sheets.Add.Name+=+"Huuhaa"Rng.Copy+Worksheets("Huuhaa").Range("A1")'pilkotaan+solu+numero+ja+tekstiosaanFor+Each+Solu+In+Worksheets("Huuhaa").Range("A1").Resize(Rng.Count)'++++numero-osa(toimii+vain,+jos+numero-osa+on+alussa++++Numero+=+Val(Solu)++++Solu.Offset(0,+1)+=+Numero'++++tekstiosa++++Teksti+=+Application.WorksheetFunction.Replace(Solu,+1,+Len(Numero),+"@")++++a+=+Split(Teksti,+"@")'++++lisätään+esim.+a-kirjain,+jotta+saadaan+lajiteltua+pelkän+luvun++sisältävät+solut+oikein++++Solu.Offset(0,+2)+=+"a"+&+a(1)Next'++++lajitellaan+numero-osan+ja+sitten+kirjainten+mukaan++++Worksheets("Huuhaa").Columns("A:C").Select++++ActiveWorkbook.Worksheets("Huuhaa").Sort.SortFields.Clear++++ActiveWorkbook.Worksheets("Huuhaa").Sort.SortFields.Add2+Key:=Range("B1:B8")+_++++++++,+SortOn:=xlSortOnValues,+Order:=xlAscending,+DataOption:=xlSortNormal++++ActiveWorkbook.Worksheets("Huuhaa").Sort.SortFields.Add2+Key:=Range("C1:C8")+_++++++++,+SortOn:=xlSortOnValues,+Order:=xlAscending,+DataOption:=xlSortNormal++++With+ActiveWorkbook.Worksheets("Huuhaa").Sort++++++++.SetRange+Range("A1:C8")++++++++.Header+=+xlGuess++++++++.MatchCase+=+False++++++++.Orientation+=+xlTopToBottom++++++++.SortMethod+=+xlPinYin++++++++.Apply++++End+With'muuta+taulukon+nimi+sopivaksiWorksheets("Huuhaa").Range("A1:A"+&+Rng.Count).Copy+Worksheets("Taul1").Range(Rng.Address)Worksheets("Huuhaa").DeleteApplication.DisplayAlerts+=+TrueEnd+SubKeep+EXCELing@Kunde
    21. 3 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt