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. losää+rivi+koodiinPrivate+Sub+Worksheet_SelectionChange(ByVal+Target+As+Range)+proseduurissa...Target.Offset(0,+1)+=+""Target.Offset(0,+2)+=+""Target.Offset(0,+2).Comment.Delete....Keep+EXCEing@Kunde
  2. https://www.dropbox.com/s/sote12qsp1615yj/Kelpoisuusehto+oikea+valikko.xlsm?dl=0Keep+EXCELing@Kunde
  3. tossa+malli,+jota+helppo+fiksata+lisäähttps://www.dropbox.com/s/82z2i3lt80iqamm/Kelpoisuusehto+oikea+valikko.xlsm?dl=0Keep+EXCELing@Kunde
  4. Noi+lisätiedothan+vosii+laittaa+vaikka+siihen+kalorisolun+kommenttiin...Vähän+aikaa+sitten+postasin+tänne+koodin+kommenttiin++kirjoittamisesta+ja+se+pitää+lisätä+tohon+Worksheet_Change+tapahtumaan+Set+Löydetty+=+EtsiJaSiirrä(Target.Offset(0,+-1))+Target.Offset(0,+1)+=+Round(Target+*+Löydetty+/+100,+0).....tähän+kommnetti+koodi......+lisäät+vaan+Taul2++kalorisolujen+jatkeeksi+nuo+tiedot+ja+sieltä+siirrät+offsetilla+kommenttiin
  5. Hyvää+kandee+aina+odotella...+;-)Oli+hiukan+kiireitä,+mutta+tossa+nyt+aakkostettu+ruokalista+menu.+Helppohan+se+olisi+ollut+jakaa+osiin,++mutta+vaikea+sitten+tietää+missä+osassa+annos+olisi...Useammalle+"sarakkeelle+"+ei+voi+tehdä.+Toki+lomake+olisi+ollut+vaihtoehtona,+mutta+mielestäni+tämä+kätevin+tapa?Nyt+annokset+lajiteltu++alkukirjainten+mukaan+ryhmiinMeinasin+tehdä+koko+jututn+ribboniin,+mutta+se+liian+vaikeata++kokemattoman+fiksailla+sitä...Päädyin+siis++aakkostavaan+menuun+ja+fiksaus+helppoa+siihen+keltaiseeen+maalattuun+alueeseen+Taul2:ssa.+Sarakkeessa+voi+olla+enemmänkin+rivejä+ja+jos+ei+ryhmät++riitä+ota+uusi+sarake+käyttöön+ja+lisää+koodissa+sarakehttps://www.dropbox.com/s/yn4q1sj3bc8ovdv/Kelpoisuusehto+oikea+valikko.xlsm?dl=0Keep++EXCELing@Kunde
  6. Huomenna+parit++eri+vaihtoehdot+asian+tiimoilta
  7. Hyvä+havainto!Olen+reilut+20+v+Exceliä+ohjelmoinut+ja+en+ole+ikinä+törmännyt+tohon+ja+en+ole+myöskään+keskustelupalstoilta+havainnut+tuota+ihmeteltävän.Asiahan+on+tosin+ihan+looginen,+mutta+eipä+ole+ole+tullut+mieleenkään,että+näin+voi+käydä...tossa+fiksattuna+nytPrivate+Sub+Worksheet_SelectionChange(ByVal+Target+As+Range)On+Error+Resume+NextApplication.EnableEvents+=+False'solualue+mihin+haluat+kelpoisuusehdon,+nyt'+"B3:B53",+"E3:E53",+"H3:H53",+"K3:K53",+"N3:N53"'lisää+Rangeja+union+funktion+sisään+pilkulla+eroteltunaIf+Not+Intersect(Target,+Union(Range("B3:B53"),+Range("E3:E53"),+Range("H3:H53"),+Range("K3:K53"),+Range("N3:N53")))+Is+Nothing+Then'+jos+solu+ei+ole+tyhjä,+niin+tyhjentää+ja+B,C+ja+D+ja+vastaavat+solut+muissa+ryhmissä'varmistetaan,+että+vain+1+solu+on+valittuna...++++If+Selection.Count+=+1+Then++++++++If+Not+Target+=+""+Then++++++++++++Target+=+""++++++++++++Target.Offset(0,+1)+=+""++++++++++++Target.Offset(0,+2)+=+""++++++++++++Target.Offset(0,+1).Select++++++++++++Target.Select++++++++++++TeeValikko++++++++++++Application.CommandBars("Cell").ShowPopup++++++++++++Target.Offset(0,+1).Select++++'++++jos+solu+tyhjä++++++++Else++++++++++++TeeValikko++++++++++++Application.CommandBars("Cell").ShowPopup++++++++++++Target.Offset(0,+1).Select++++++++End+If++++End+IfEnd+IfResetoiApplication.EnableEvents+=+TrueEnd+SubKeep+EXCELing@Kunde.
  8. Pikku+viilaus+korjaa+juurikin+tuon+edellisen+postauksesi+kummitusongelman+.+..Keep+EXCEling@Kunde
  9. pikku+viilaus+vielä+lisätty...https://www.dropbox.com/s/zq7bqz1o7upbxdt/Kelpoisuusehto+oikea+valikko.xlsm?dl=0Keep+EXCELing@Kunde
  10. https://www.dropbox.com/s/2ufatfv8c36uy3r/Kelpoisuusehto+oikea+valikko.xlsm?dl=0Keep+EXCELing@Kunde
  11. jotain+varmaan++olet+tehnyt+väärin...testaa+tolla+ja+lisäsisn+siihen+grammat+ja+kokonaiskalorit+kanssahttps://www.dropbox.com/s/qxy285hwbikwvy0/Kelpoisuusehto+oikea+valikko.xlsm?dl=0+Keep+EXCELing@Kunde
  12. "Lisäsin+taulukkoon+alueelle+A30-A70+nimilistan+ja+tein+soluun+E6+kelpoisuusehdon+em.+nimilistasta.+Avaan+hiirellä+nuolenkärkivalikon+auki+ja+siellä+lista+näkyy."koodiohjessani+lukee..."tavalliseen+moduuliin...TeeValikko+()tekee+uuden+hiiren+oikean+valikonvoit+lisätä+uusi+kelpoisuusehtoja+B+sarakkeeseen+nyt+B39+alkaen."eli+ei+voi+näkyä+mitään+koska+listasi+A30-A70++eikä+B39:BxxxJa+toisekseen+ei+tarvitse+lisätä+mitään+kelpoisuusehtoja+manuaalisesti+,+koska+lista+tehdään+lennossa+hiiren+oikeaan+valikoon.+Muuta+listan+paikkaa+koodissa+eli+nyt+sun+testitapauksessa+siinä+pitäisi+olla'voi+lisätä+uusia+kelpoisussehtoja+ja+koodi+päivyttyy+automaatisestiVika+=+Range("A65536").End(xlUp).RowFor+Each+Solu+In+Range("A30:A"+&+Vika)+Keep++EXCELing@Kunde
  13. Tuostahan+on+helppo+fiksata+mitä+tahansa...+;-)
  14. nyt+lisää+kaavasolun+10+viimeisintä+arvoa+kommenttiin+ja+poistaa+aina+vanhimman+sen+jälkeenjos+tarttee+fiksata+niin++kerroko+taulukon+moduuliin...Public+Vanha+As+StringDim+bPrivate+Sub+Worksheet_Change(ByVal+Target+As+Range)'solu+minkä+arvoa+muutetaanIf+Target.Address+=+Range("B1").Address+Then++++'kaavan+tulos+solu++++With+Range("C1")++++++++If+.Comment+Is+Nothing+And+.Value+<>+""+Then+++++++++++.AddComment.Text+""+++++++++++.Comment.Text+"Kaavan+tulokset:"+&+vbNewLine+&+.Value+++++++++++Vanha+=+.Value++++++++Else++++++++++++b+=+Split(.Comment.Text,+vbNewLine)++++++++++++If+UBound(b)+<+10+Then++++++++++++++++.Comment.Text+"Kaavan+tulokset:"+&+vbNewLine+&+.Value+&+vbNewLine+&+Vanha++++++++++++++++Vanha+=+.Value+&+vbNewLine+&+Vanha+++++++++++Else++++++++++++++++Vanha+=+.Value+&+vbNewLine+&+_++++++++++++++++b(1)+&+vbNewLine+&+_++++++++++++++++b(2)+&+vbNewLine+&+_++++++++++++++++b(3)+&+vbNewLine+&+_++++++++++++++++b(4)+&+vbNewLine+&+_++++++++++++++++b(5)+&+vbNewLine+&+_++++++++++++++++b(6)+&+vbNewLine+&+_++++++++++++++++b(7)+&+vbNewLine+&+_++++++++++++++++b(8)+&+vbNewLine+&+_++++++++++++++++b(9)+&+vbNewLine++++++++++++++++.Comment.Text+"Kaavan+tulokset:"+&+vbNewLine+&+Vanha+++++++++++End+If+++++++++++.Comment.Shape.TextFrame.AutoSize+=+True++++++++End+If++++End+WithEnd+IfEnd+SubKeep+EXCELing@Kunde
  15. ko+taulukon+moduulin+...tarkoittaa+sen+taulukon+moduulia+missä+haluat+koodia+suorittaa,+eli+jos+haluat+Taul1+suorittaa+makron+,+niin+kopioi+koodit+sen+moduuliinVasemmalla+Project+ikkunassa+on+Microsoft+excel+Objects+ja+siellä+kaikki+taulukon+moduulit+ja+tuplaklikkaa+haluamasi+taulukon+nimeä+ja+liitä+oikealle++valkealle++ko+taulukkoon...+koodittavalliseen+moduuliinylhäältä+valikosta++klikkaa+INSERT/MODULE+ja+liitä+oikealle+valkealle+alueelle++tavalliseen+moduuliin...++kooditKOODI+TOIMII+ILMAN+ILMAN+HIIREN+OIKEAN+NAPIN+KLIKKAUSTA,+eli+kun+menet+soluun+E6+aukeaa+muokattu+hiiren+oikea+valikko+ja+siinä+kelpoisuusehdot.+Klikkaat+arvoja+ja+se+liitetään+soluun+.+Kun+solusta+poistutaan+palutuu+originaali+hiiren+valikko+käyttööönToivottavasti+nyt+selkeni...ko+taulukon+moduulin+...Private+Sub+Worksheet_SelectionChange(ByVal+Target+As+Range)'solualue+mihin+haluat+kelpoisuusehdon,+nyt+E6If+Not+Intersect(Target,+Range("E6"))+Is+Nothing+ThenTeeValikkoApplication.CommandBars("Cell").ShowPopupTarget.Offset(0,+1).SelectElseResetoiEnd+IfEnd+Subtavalliseen+moduuliin...TeeValikko+()+tekee+uuden+hiiren+oikean+valikonvoit+lisätä+uusi+kelpoisuusehtoja+B+sarakkeeseen+nyt+B39+alkaen.LisääKelpoisuusehto()+lisää+valikosta+valitun+tiedon+aktiiviseen+soluunPoistaMenu()+tyhjentää+originaali+hiiren+oikean+valikonResetoi()palauttaa+orininaali+hirren+oikean+valikonSub+TeeValikko()Dim+ctrl+As+CommandBarControlDim+btn+As+CommandBarControlDim+i+As+LongDim+Vika+As+LongDim+Solu+As+RangePoistaMenuSet+ctrl+=+Application.CommandBars("Cell").Controls.Add(Type:=msoControlPopup,+before:=1)'muuta+otsikko+sopivaksictrl.Caption+=+"Lisää+tekstit..."'voi+lisätä+uusia+kelpoisussehtoja+ja+koodi+päivyttyy+automaatisestiVika+=+Range("B65536").End(xlUp).RowFor+Each+Solu+In+Range("B39:B"+&+Vika)Set+btn+=+ctrl.Controls.Addbtn.Caption+=+Solubtn.OnAction+=+"LisääKelpoisuusehto"NextEnd+SubPrivate+Sub+LisääKelpoisuusehto()ActiveCell+=+Application.CommandBars.ActionControl.CaptionEnd+Sub'poistaa+kaikki+jutut+hiiren+oikeasta+valikostaSub+PoistaMenu()Dim+ctrl+As+CommandBarControlFor+Each+ctrl+In+Application.CommandBars("Cell").Controlsctrl.DeleteNextEnd+Sub'palauttaa+originaali+hiiren+oikean+valikonSub+Resetoi()Application.CommandBars("Cell").ResetEnd+SubKeep+EXCELing@Kunde
  16. Sun+olisi+pitänyt+suorittaa+PoistaMenu()+makro...+;-)
  17. ko+taulukon+moduulin+...nyt+kelpoisuusehto+soluissa+A1:A10,+jos+haluat+vain+yksittäiseen+soluu+esim+C1,+niin+muuta++Intersect(Target,+Range("C1"))Private+Sub+Worksheet_SelectionChange(ByVal+Target+As+Range)'solualue+mihin+haluat+kelpoisuusehdon,+nyt+A1:A10If+Not+Intersect(Target,+Range("A1:A10"))+Is+Nothing+Then++++TeeValikko++++Application.CommandBars("Cell").ShowPopup++++Target.Offset(0,+1).SelectElse++++ResetoiEnd+IfEnd+Subtavalliseen+moduuliin...TeeValikko+()+tekee+uuden+hiiren+oikean+valikonvoit+lisätä+uusi+kelpoisuusehtoja+B+sarakkeeseen+nyt++B39+alkaen.+LisääKelpoisuusehto()+lisää+valikosta+valitun+tiedon+aktiiviseen+soluun++PoistaMenu()+tyhjentää++originaali+hiiren+oikean+valikonSub+TeeValikko()Dim+ctrl+++As+CommandBarControlDim+btn++++As+CommandBarControlDim+i++++++As+LongDim+Vika+As+LongDim+Solu+As+RangePoistaMenuSet+ctrl+=+Application.CommandBars("Cell").Controls.Add(Type:=msoControlPopup,+before:=1)'muuta+otsikko+sopivaksictrl.Caption+=+"Lisää+tekstit..."'voi+lisätä+uusia+kelpoisussehtoja+ja+koodi+päivyttyy+automaatisestiVika+=+Range("B65536").End(xlUp).RowFor+Each+Solu+In+Range("B39:B"+&+Vika)++++Set+btn+=+ctrl.Controls.Add++++btn.Caption+=+Solu++++btn.OnAction+=+"LisääKelpoisuusehto"NextEnd+SubPrivate+Sub+LisääKelpoisuusehto()ActiveCell+=+Application.CommandBars.ActionControl.CaptionEnd+Sub'poistaa+kaikki++jutut++hiiren+oikeasta+valikostaSub+PoistaMenu()Dim+ctrl+++As+CommandBarControlFor+Each+ctrl+In+Application.CommandBars("Cell").Controls+++++ctrl.DeleteNextEnd+Sub'palauttaa+originaali+hiiren+oikean+valikonSub+Resetoi()Application.CommandBars("Cell").ResetEnd+SubKeep+EXCELing@Kunde
  18. hiiren+oikeaan+valikkoon+kelpoisuusehtomoduuliin...Sub+TeeValikko()Dim+ctrl+++As+CommandBarControlDim+btn++++As+CommandBarControlDim+i++++++As+LongDim+Vika+As+LongPoistaMenuSet+ctrl+=+Application.CommandBars("Cell").Controls.Add(Type:=msoControlPopup,+before:=1)'muuta+otsikko+sopivaksictrl.Caption+=+"Kelpoisuusehdot..."Vika+=+Range("H65536").End(xlUp).Rowi+=+1'kelpoisuusehto+alue+,+muuta+sopivaksiFor+Each+solu+In+Range("H1:H"+&+Vika)++++Set+btn+=+ctrl.Controls.Add++++btn.Caption+=+solu++++btn.Tag+=+i++++btn.OnAction+=+"LisääKelpoisuusehto"++++i+=+i+++1NextEnd+SubPrivate+Sub+LisääKelpoisuusehto()ActiveCell+=+Application.CommandBars.ActionControl.CaptionEnd+Sub'poistaa+tiedot+hiiren+okeasta+valikosta+Sub+PoistaMenu()++++Dim+ctrl+++As+CommandBarControl++++For+Each+ctrl+In+Application.CommandBars("Cell").Controls++++++++If+ctrl.Caption+=+"Lisää+tekstit..."+Then+ctrl.Delete++++NextEnd+SubKeep+EXCEling@Kunde
  19. =OR(J1<=8;J1=25)*3+AND(J1<=11;J1>=9)*1+AND(J1<=24;J1>=21)*2Keep+EXCELing@Kunde
  20. lähetä+taulukko++hmetso(at)hotmail.com+ja+mallia+mitä+haluat,+niin+voin+vilkaista+ja+kertoa+tarkemmin
    21. 6 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt