kunde
Vapaa kuvaus
Käyttäjän kirjoittamat viestit
25.05.2022
Kommentoi keskusteluun: Rivien piilotus
"Allaoleva koodi ko. moduuliin..." eli koodi pitää olla ko taulukon moduulissa eikä tavallisessa moduulissa....
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel
25.05.2022
Kommentoi keskusteluun: Rivien piilotus
höpö höpö... katso koodini, ja siinä voit lisätä ja poistella soluja alueelta ja toimii ;-) Keep EXCEling @Kunde
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel
25.05.2022
Kommentoi keskusteluun: Rivien piilotus
Unohdin mainita, että näytä/piilotus toimii klikkaamalla alueen vasemmanpuoleista solua alueen otsikkorivillä keep EXCELing @Kunde
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel
25.05.2022
Vastasi keskusteluun: Rivien piilotus
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
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel
23.05.2022
Kommentoi keskusteluun: perus yhteenlaskua
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")
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel
12.04.2022
Kommentoi keskusteluun: perus yhteenlaskua
Sub 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 = True End If End Sub Tämä alkuperäinen koodi tyhjentää K sarakkeen
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel
11.04.2022
Kommentoi keskusteluun: perus yhteenlaskua
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 Then If Not Application.Intersect(Target,
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel
10.04.2022
Vastasi keskusteluun: perus yhteenlaskua
En taatusti ole turpojuntiksi haukkunut. Luepas tarkemmin kommentit... Anonyymi 07.04.2022 16:02 Ilmeisesti 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,
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel
10.04.2022
Kommentoi keskusteluun: perus yhteenlaskua
Sama härikkö jo pitemmän aikaa ollut asialla
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel
10.04.2022
Kommentoi keskusteluun: perus yhteenlaskua
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 Then If Not Application.Intersect(Target, Range("B5:B50"))
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel
07.04.2022
Kommentoi keskusteluun: Etsi oikealta
" 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 Integer EtsiOikealta2 = InStrRev(solu, Merkki) End Function
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel
07.04.2022
Kommentoi keskusteluun: Etsi oikealta
" 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 vittuilua Esitä jotain kaavoja /kaavoja ratkaisuksi, äläkä vaan
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel
07.04.2022
Kommentoi keskusteluun: Etsi oikealta
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 postauksia Nykyäänhän täällä viime vuosina
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel
06.04.2022
Kommentoi keskusteluun: Etsi oikealta
Aloittaja kysyi /moi/terve ja vastasin siihen... tossa VBA käyttäjän funktioita soluun kaavat =EtsiOikealta(A1;"/") =EtsiOikealta2(A1;"/") =EtsiOikealta3(A1;"/") Function EtsiOikealta(solu As Range, Merkki As String) As Integer EtsiOikealta = Len(solu) - InStr(1, StrReverse(solu), Merkki)
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel
06.04.2022
Kommentoi keskusteluun: Etsi oikealta
Turhan monimutkaista... soluun kaava =ETSI("/";A1;2) monimutkaisempiin sitten VBA ja iellä esim . SPLIT, LIKE jne Keep EXCELing @Kunde
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel
31.03.2022
Kommentoi keskusteluun: perus yhteenlaskua
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 If End Sub Private Sub Worksheet_BeforeRightClick(ByVal
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel
10.03.2022
Vastasi keskusteluun: Numeroiden lukumuotoilu
Esim solussa -100,11 ja solumuotiluina # ##0;-€ # ##0 näytetään -€ 100 # ##0,00;-€ # ##0,00 näytetään -€ 100,11 keep EXCELing Kunde
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel
10.03.2022
Vastasi keskusteluun: Numeroiden lukumuotoilu
Esim solussa -100,11 ja solumuotiluina # ##0;-€ # ##0 näytetään -€ 100 # ##0,00;-€ # ##0,00 näytetään -€ 100 keep EXCELing Kunde
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel
25.02.2022
Kommentoi keskusteluun: Käsittämätön ongelma excelissä
räätälöity suojaus "3 ~ s ä h k ö" taulukkoon ThisWorkbook moduuliin... Private Sub Workbook_BeforeClose(Cancel As Boolean) Worksheets("3 ~ s ä h k ö").Unprotect Password:="Kunde" End Sub Private Sub Workbook_Open() Worksheets("3 ~ s ä h k ö").Protect Password:="Kunde", DrawingObjects:=False, Contents:=True,
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel
22.02.2022
Vastasi keskusteluun: Käsittämätön ongelma excelissä
"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...
Tiede ja teknologia > Tietotekniikka > Ohjelmat ja sovellukset > Office-ohjelmat > Excel