Tekstin osan muotoilu erikseen

Onhan niitä muotoilukoodeja, mutta taitavat toimia vain makroissa.

Ei tunne Excel eikä tunne mikään muukaan taulukkolaskenta, avauksen tekijä puhuu paskaa.

Anonyymi kirjoitti:

Ei tunne Excel eikä tunne mikään muukaan taulukkolaskenta, avauksen tekijä puhuu paskaa.

Jäitä hattuun, avauksen tekijä vain kysyi asiaa.

Ota kauhasessio välillä!

Miksi kukaan tekisi asiat noin vaikeesti!

Anonyymi kirjoitti:

Onhan niitä muotoilukoodeja, mutta taitavat toimia vain makroissa.

HÄIRIKKÖ VAPUNEN TAAS AVAAJANA!

Tällä tekstin saa näkymään tasavälisenä, jos ei haittaa, että se on kovin harvaa

Function Tasa(teksti) As String
Tasa = ""
With WorksheetFunction
For i = 1 To Len(teksti)
Tasa = Tasa & .Unichar(.Unicode(Mid(teksti, i, 1)) + 65248)
Next i
End With
End Function

https://lingojam.com/ItalicTextGenerator

Anonyymi kirjoitti:

Tällä tekstin saa näkymään tasavälisenä, jos ei haittaa, että se on kovin harvaa

Function Tasa(teksti) As String
Tasa = ""
With WorksheetFunction
For i = 1 To Len(teksti)
Tasa = Tasa & .Unichar(.Unicode(Mid(teksti, i, 1)) 65248)
Next i
End With
End Function

https://lingojam.com/ItalicTextGenerator

Lue lisää

65248 eteen tulee plus-merkki. Suomi24 näköjään poistaa ne.
Semmoinen rajoitus tuossa on, ettei se toimi erikoismerkeillä tai ääkkösiläkään .

Avainsolun muuttuessa valinnan voi tehdä funktion sijaan myös ko. sivun modulissa, jossa noille riveille kirjoitetaan haluttu sisältö ja muotoilut:

Private Sub Worksheet_Change(ByVal Target As Range)
Avainsolu = "A4"
If Not Intersect(Target, Range(Avainsolu)) Is Nothing Then
Application.EnableEvents = False
Select Case Range(Avainsolu)
Case "huu":
Range("A1") = "huhhuh"
Range("A2") = "huhhuh"
Range("A3") = "huhhuh"
Case "haa":
Range("A1") = "hahhah"
Range("A2") = "hahhah"
Range("A3") = "hahhah"
End Select
For r = 1 To 3
Cells(r, "A").Characters(1, 3).Font.Name = "Courier New"
Cells(r, "A").Characters(1, 3).Font.Bold = True
Cells(r, "A").Characters(4).Font.Name = "Calibri"
Cells(r, "A").Characters(4).Font.Bold = False
Next r
Application.EnableEvents = True
End If
End Sub

Anonyymi kirjoitti:

Avainsolun muuttuessa valinnan voi tehdä funktion sijaan myös ko. sivun modulissa, jossa noille riveille kirjoitetaan haluttu sisältö ja muotoilut:

Private Sub Worksheet_Change(ByVal Target As Range)
Avainsolu = "A4"
If Not Intersect(Target, Range(Avainsolu)) Is Nothing Then
Application.EnableEvents = False
Select Case Range(Avainsolu)
Case "huu":
Range("A1") = "huhhuh"
Range("A2") = "huhhuh"
Range("A3") = "huhhuh"
Case "haa":
Range("A1") = "hahhah"
Range("A2") = "hahhah"
Range("A3") = "hahhah"
End Select
For r = 1 To 3
Cells(r, "A").Characters(1, 3).Font.Name = "Courier New"
Cells(r, "A").Characters(1, 3).Font.Bold = True
Cells(r, "A").Characters(4).Font.Name = "Calibri"
Cells(r, "A").Characters(4).Font.Bold = False
Next r
Application.EnableEvents = True
End If
End Sub

Lue lisää

Muuten hyvä, mutta ei toimi kaavan tuottamalla arvon muutoksella avainsolussa, vaatii arvon syöttöä suoraan avainsoluun.

Anonyymi kirjoitti:

Muuten hyvä, mutta ei toimi kaavan tuottamalla arvon muutoksella avainsolussa, vaatii arvon syöttöä suoraan avainsoluun.

Muuta makroa siten, että se tarkkailee avainsolun sijaan niitä soluja, joita muutat itse ja jotka vaikuttavat sen sisältöön.

Anonyymi kirjoitti:

Muuten hyvä, mutta ei toimi kaavan tuottamalla arvon muutoksella avainsolussa, vaatii arvon syöttöä suoraan avainsoluun.

Tai sitten näin:


Public PrevVal As Variant
Const Avainsolu = "C4"

Private Sub Worksheet_Calculate()
If Range(Avainsolu).Value <> PrevVal Then
Application.EnableEvents = False
Select Case Range(Avainsolu)
Case "huu":
Range("B1") = "111huh"
Range("B2") = "mmmhuh"
Range("B3") = "666huh"
Case "haa":
Range("B1") = "888hah"
Range("B2") = "iiihah"
Range("B3") = "000hah"
End Select
For r = 1 To 4
Cells(r, "B").Characters(1, 3).Font.Name = "Courier New"
Cells(r, "B").Characters(1, 3).Font.Bold = True
Cells(r, "B").Characters(4).Font.Name = "Calibri"
Cells(r, "B").Characters(4).Font.Bold = False
Next r
Application.EnableEvents = True
PrevVal = Range(Avainsolu).Value
End If
End Sub

Anonyymi kirjoitti:

Muuta makroa siten, että se tarkkailee avainsolun sijaan niitä soluja, joita muutat itse ja jotka vaikuttavat sen sisältöön.

Ei onnistu, kun kaavaan vaikuttaa osaltaan myös "Lomakkeen ohjausobjektilta" tuleva lukuarvo.

Anonyymi kirjoitti:

Tai sitten näin:


Public PrevVal As Variant
Const Avainsolu = "C4"

Private Sub Worksheet_Calculate()
If Range(Avainsolu).Value <> PrevVal Then
Application.EnableEvents = False
Select Case Range(Avainsolu)
Case "huu":
Range("B1") = "111huh"
Range("B2") = "mmmhuh"
Range("B3") = "666huh"
Case "haa":
Range("B1") = "888hah"
Range("B2") = "iiihah"
Range("B3") = "000hah"
End Select
For r = 1 To 4
Cells(r, "B").Characters(1, 3).Font.Name = "Courier New"
Cells(r, "B").Characters(1, 3).Font.Bold = True
Cells(r, "B").Characters(4).Font.Name = "Calibri"
Cells(r, "B").Characters(4).Font.Bold = False
Next r
Application.EnableEvents = True
PrevVal = Range(Avainsolu).Value
End If
End Sub

Lue lisää

No nyt toimii!
Tuli tosin toinen ongelma, soluihin voi kirjoittaa perinteisiä viivamerkkejä ALT179-218 väliltä, mutta koodiin tuleekin noilla numeroilla ihan eri merkkejä.

Anonyymi kirjoitti:

No nyt toimii!
Tuli tosin toinen ongelma, soluihin voi kirjoittaa perinteisiä viivamerkkejä ALT179-218 väliltä, mutta koodiin tuleekin noilla numeroilla ihan eri merkkejä.

Lue lisää

Tosin ei sen merkin tarvitse näkyä koodirivillä oikein, soluun se kirjoitus tulee. Miten koodin tekstin 'sekaan' sisällytetään merkkin ASCII-koodi?

Anonyymi kirjoitti:

Tosin ei sen merkin tarvitse näkyä koodirivillä oikein, soluun se kirjoitus tulee. Miten koodin tekstin 'sekaan' sisällytetään merkkin ASCII-koodi?

Tarkoitatko jotain tällaista?

txt("ty#246") --> työ

Function txt(tx As String) As String
i = 1
txt = ""
Do
If Mid(tx, i, 1) = "#" Then
txt = txt & Chr(Mid(tx, i + 1, 3))
i = i + 4
Else
txt = txt & Mid(tx, i, 1)
i = i + 1
End If
Loop While i <= Len(tx)
End Function

Anonyymi kirjoitti:

Tarkoitatko jotain tällaista?

txt("ty#246") --> työ

Function txt(tx As String) As String
i = 1
txt = ""
Do
If Mid(tx, i, 1) = "#" Then
txt = txt & Chr(Mid(tx, i 1, 3))
i = i 4
Else
txt = txt & Mid(tx, i, 1)
i = i 1
End If
Loop While i <= Len(tx)
End Function

Lue lisää

Ongelma näyttää olevan se ettei nykymerkistö tunne noita vanhoja ascii-merkkejä.
Kun kirjoitan soluun ALT pohjassa 196, niin siihen tulee kuitenkin vaakasuora viiva merkki.
Kun makro suorittaa Chr (196) komennon, tuleekin soluun Ä merkki.
Olisiko sittenkin käytettävä kahta kuvaa joita makro vaihtelisi tekstin alkuun...

Anonyymi kirjoitti:

Ongelma näyttää olevan se ettei nykymerkistö tunne noita vanhoja ascii-merkkejä.
Kun kirjoitan soluun ALT pohjassa 196, niin siihen tulee kuitenkin vaakasuora viiva merkki.
Kun makro suorittaa Chr (196) komennon, tuleekin soluun Ä merkki.
Olisiko sittenkin käytettävä kahta kuvaa joita makro vaihtelisi tekstin alkuun...

Lue lisää

Siinäpä se, kun kirjoitat soluun ALT pohjassa 196, tulee RANDOM Char, mutta sinun pitääkin painaa samalla vaihtonäppäintä pohjassa, ja nyt kone kirjoittaa mitä käsketään. Vaihtonäppäin on se alarivin pisin näppäin.

Anonyymi kirjoitti:

Siinäpä se, kun kirjoitat soluun ALT pohjassa 196, tulee RANDOM Char, mutta sinun pitääkin painaa samalla vaihtonäppäintä pohjassa, ja nyt kone kirjoittaa mitä käsketään. Vaihtonäppäin on se alarivin pisin näppäin.

Lue lisää

😁😂🤣🤣

Anonyymi kirjoitti:

Ongelma näyttää olevan se ettei nykymerkistö tunne noita vanhoja ascii-merkkejä.
Kun kirjoitan soluun ALT pohjassa 196, niin siihen tulee kuitenkin vaakasuora viiva merkki.
Kun makro suorittaa Chr (196) komennon, tuleekin soluun Ä merkki.
Olisiko sittenkin käytettävä kahta kuvaa joita makro vaihtelisi tekstin alkuun...

Lue lisää

Merkkiä ─ vastaava koodi on 9472, mikä on ASCII-alueen ulkopuolella. On käytettävä Unicode-merkistöä.

Etunolla on sen takia, että merkin koodi merkitään varmuudeksi viidellä numerolla.

txt("#09472#09474") --> ─│

Function txt(tx As String) As String
i = 1
txt = ""
Do
If Mid(tx, i, 1) = "#" Then
txt = txt & WorksheetFunction.Unichar(Mid(tx, i + 1, 5))
i = i + 6
Else
txt = txt & Mid(tx, i, 1)
i = i + 1
End If
Loop While i <= Len(tx)
End Function

Anonyymi kirjoitti:

Merkkiä ─ vastaava koodi on 9472, mikä on ASCII-alueen ulkopuolella. On käytettävä Unicode-merkistöä.

Etunolla on sen takia, että merkin koodi merkitään varmuudeksi viidellä numerolla.

txt("#09472#09474") --> ─│

Function txt(tx As String) As String
i = 1
txt = ""
Do
If Mid(tx, i, 1) = "#" Then
txt = txt & WorksheetFunction.Unichar(Mid(tx, i 1, 5))
i = i 6
Else
txt = txt & Mid(tx, i, 1)
i = i 1
End If
Loop While i <= Len(tx)
End Function

Lue lisää

Hei, mutta, tämähän on hurjan hyvä, olet selvästi Gurujen Guru.

Anonyymi kirjoitti:

Ongelma näyttää olevan se ettei nykymerkistö tunne noita vanhoja ascii-merkkejä.
Kun kirjoitan soluun ALT pohjassa 196, niin siihen tulee kuitenkin vaakasuora viiva merkki.
Kun makro suorittaa Chr (196) komennon, tuleekin soluun Ä merkki.
Olisiko sittenkin käytettävä kahta kuvaa joita makro vaihtelisi tekstin alkuun...

Lue lisää

Merkistöongelma on selätetty/kierretty. 😎
https://ibb.co/JCshrqj

Anonyymi kirjoitti:

Merkistöongelma on selätetty/kierretty. 😎
https://ibb.co/JCshrqj

Miten sinä sen teit?

Anonyymi kirjoitti:

Miten sinä sen teit?

En laittanut koodia kirjoittamaan tekstiä, vaan kopioimaan taulukkoon jemmatuista kahdesta tekstiversiosta toisen tekstin paikoilleen, aina kun solun arvo muuttuu.

Anonyymi kirjoitti:

En laittanut koodia kirjoittamaan tekstiä, vaan kopioimaan taulukkoon jemmatuista kahdesta tekstiversiosta toisen tekstin paikoilleen, aina kun solun arvo muuttuu.

Hei, mutta sehän on hyvä idea, täytyy nyt testata tuo esimerkkisi, sehän saattaa toimia loistavasti.

Anonyymi kirjoitti:

Hei, mutta sehän on hyvä idea, täytyy nyt testata tuo esimerkkisi, sehän saattaa toimia loistavasti.

Testasin, ja toimihan se, hieno homma.

Anonyymi kirjoitti:

Tällä tekstin saa näkymään tasavälisenä, jos ei haittaa, että se on kovin harvaa

Function Tasa(teksti) As String
Tasa = ""
With WorksheetFunction
For i = 1 To Len(teksti)
Tasa = Tasa & .Unichar(.Unicode(Mid(teksti, i, 1)) 65248)
Next i
End With
End Function

https://lingojam.com/ItalicTextGenerator

Lue lisää

Haittakoodin levitystä!

Anonyymi kirjoitti:

Avainsolun muuttuessa valinnan voi tehdä funktion sijaan myös ko. sivun modulissa, jossa noille riveille kirjoitetaan haluttu sisältö ja muotoilut:

Private Sub Worksheet_Change(ByVal Target As Range)
Avainsolu = "A4"
If Not Intersect(Target, Range(Avainsolu)) Is Nothing Then
Application.EnableEvents = False
Select Case Range(Avainsolu)
Case "huu":
Range("A1") = "huhhuh"
Range("A2") = "huhhuh"
Range("A3") = "huhhuh"
Case "haa":
Range("A1") = "hahhah"
Range("A2") = "hahhah"
Range("A3") = "hahhah"
End Select
For r = 1 To 3
Cells(r, "A").Characters(1, 3).Font.Name = "Courier New"
Cells(r, "A").Characters(1, 3).Font.Bold = True
Cells(r, "A").Characters(4).Font.Name = "Calibri"
Cells(r, "A").Characters(4).Font.Bold = False
Next r
Application.EnableEvents = True
End If
End Sub

Lue lisää

Pyllymaja, se ihana windowsin rakkauspaikka
Oih kuinka kari ja seppo kietovat kätensä olilta yhteen, välissä toki on torni -00 luvulta täynnä windows sontaa.

Kauhaa auhteriin ja windowsongelmia.

Anonyymi kirjoitti:

Tarkoitatko jotain tällaista?

txt("ty#246") --> työ

Function txt(tx As String) As String
i = 1
txt = ""
Do
If Mid(tx, i, 1) = "#" Then
txt = txt & Chr(Mid(tx, i 1, 3))
i = i 4
Else
txt = txt & Mid(tx, i, 1)
i = i 1
End If
Loop While i <= Len(tx)
End Function

Lue lisää

Haittakoodia.

Anonyymi kirjoitti:

Tällä tekstin saa näkymään tasavälisenä, jos ei haittaa, että se on kovin harvaa

Function Tasa(teksti) As String
Tasa = ""
With WorksheetFunction
For i = 1 To Len(teksti)
Tasa = Tasa & .Unichar(.Unicode(Mid(teksti, i, 1)) 65248)
Next i
End With
End Function

https://lingojam.com/ItalicTextGenerator

Lue lisää

WINDOWS ON TODELLA KAMALA!

Windows 11 ääni ongelmat
Windows 11 Wlan ongelmat
Windows 11 tulostin ongelmat
Windows 11 näyttöresoluuttio ongelmat
Windows 11 levyasema ongelmat
Windows 11 päivitys ongelmat
Windows 11 vakoiluongelma
Windows 11 TV-mokkulaongemaa
Windows 11 Nettikku ongelmaa
Windows 11 laittaa bioksen päreiksi
Windows 11 Hitsaa prosessorin oikosulkuun
Windows 11 korruptoi kiintolevyt ja muistitikut
Windows 11 hajoittaa polttavat asemat.
Windows 11 saa tulostimet ylikuumiaan
Windows 11 yms ongelmat..... ne on kamalia ja ärsyttäviä!

Päivän Sanonta
-------------------
Missä windows, siellä toimimattomuus.

Anonyymi kirjoitti:

Avainsolun muuttuessa valinnan voi tehdä funktion sijaan myös ko. sivun modulissa, jossa noille riveille kirjoitetaan haluttu sisältö ja muotoilut:

Private Sub Worksheet_Change(ByVal Target As Range)
Avainsolu = "A4"
If Not Intersect(Target, Range(Avainsolu)) Is Nothing Then
Application.EnableEvents = False
Select Case Range(Avainsolu)
Case "huu":
Range("A1") = "huhhuh"
Range("A2") = "huhhuh"
Range("A3") = "huhhuh"
Case "haa":
Range("A1") = "hahhah"
Range("A2") = "hahhah"
Range("A3") = "hahhah"
End Select
For r = 1 To 3
Cells(r, "A").Characters(1, 3).Font.Name = "Courier New"
Cells(r, "A").Characters(1, 3).Font.Bold = True
Cells(r, "A").Characters(4).Font.Name = "Calibri"
Cells(r, "A").Characters(4).Font.Bold = False
Next r
Application.EnableEvents = True
End If
End Sub

Lue lisää

Google Copy/paste...

Sellaisia ne sämppärit ovat.

Kiva yksinpuhelu!

Miten sinä saat nuo (+++) merkit näkymään?

Anonyymi kirjoitti:

Miten sinä saat nuo ( ) merkit näkymään?

Onhan tuo nyt traagisen koomista:

https://i.ibb.co/mDK30x5/plussauskoppi.jpg

Ne plussat tallentuu viestien tietokantaan, mutta tämä viestien lukualusta poistaa ne.

Kirjoitin oman ohjelman, jolla voi lukea viestit sellaisena kuin ne on kirjoitettu ja vaikka tallentaa ne jälkipolville ihmeteltäväksi.

Anonyymi kirjoitti:

Onhan tuo nyt traagisen koomista:

https://i.ibb.co/mDK30x5/plussauskoppi.jpg

Ne plussat tallentuu viestien tietokantaan, mutta tämä viestien lukualusta poistaa ne.

Kirjoitin oman ohjelman, jolla voi lukea viestit sellaisena kuin ne on kirjoitettu ja vaikka tallentaa ne jälkipolville ihmeteltäväksi.

Lue lisää

Ohjelman koodi on vapaasti ladattavissa ja käytettävissä:

https://pastebin.com/06u4LMzc

Tarvitset PHP-tulkin selaimeesi jotta saat sen toimimaan.

Tuo syntyi kun aloin ihmettelemään tuota plus-merkkien outoa säätöä tällä alustalla.

Anonyymi kirjoitti:

Onhan tuo nyt traagisen koomista:

https://i.ibb.co/mDK30x5/plussauskoppi.jpg

Ne plussat tallentuu viestien tietokantaan, mutta tämä viestien lukualusta poistaa ne.

Kirjoitin oman ohjelman, jolla voi lukea viestit sellaisena kuin ne on kirjoitettu ja vaikka tallentaa ne jälkipolville ihmeteltäväksi.

Lue lisää

Opetellaan mieluummin kirjoittamaan sellaista koodia jossa ei tarvita ＋merkkejä.

Anonyymi kirjoitti:

Ohjelman koodi on vapaasti ladattavissa ja käytettävissä:

https://pastebin.com/06u4LMzc

Tarvitset PHP-tulkin selaimeesi jotta saat sen toimimaan.

Tuo syntyi kun aloin ihmettelemään tuota plus-merkkien outoa säätöä tällä alustalla.

Lue lisää

Mene hoitoon!

Anonyymi kirjoitti:

Opetellaan mieluummin kirjoittamaan sellaista koodia jossa ei tarvita ＋merkkejä.

Menee hankalaksi. Ei ole mitään järkeä tehdä hankalamman kautta, vain koska jossain keskustelupalsatalla on kökkö toteutus.

Anonyymi kirjoitti:

Menee hankalaksi. Ei ole mitään järkeä tehdä hankalamman kautta, vain koska jossain keskustelupalsatalla on kökkö toteutus.

Jospaan se tärkeän merkin käyttökielto pitää tulkita näin;

"Älkää laittako keskustelupalstalle ohjelmien lähdekoodia, maailmalla on pilvin pimein sitä varten avoimia palveluja."

Anonyymi kirjoitti:

Jospaan se tärkeän merkin käyttökielto pitää tulkita näin;

"Älkää laittako keskustelupalstalle ohjelmien lähdekoodia, maailmalla on pilvin pimein sitä varten avoimia palveluja."

Lue lisää

++++

Anonyymi kirjoitti:

Esim. tämä on hedelmällisempi tulkinta:
https://pastebin.com

Eikö tuo selvästi todistettu, ihan kuvinenkin avulla?

Anonyymi kirjoitti:

Eikö tuo selvästi todistettu, ihan kuvinenkin avulla?

Solussa ei pysty käyttämään useampaa muotoilua, ubuttajan on aina pakko olla valehtelemassa.

𝑯𝑼𝑰𝑱𝑨𝑹𝑰

Anonyymi kirjoitti:

Solussa ei pysty käyttämään useampaa muotoilua, ubuttajan on aina pakko olla valehtelemassa.

𝑯𝑼𝑰𝑱𝑨𝑹𝑰

Nyt joku ubuttaja kuvittelee että tossa viestissä on muotoiltua tekstiä, voin vakuuttaa ettei ole.

Anonyymi kirjoitti:

Solussa ei pysty käyttämään useampaa muotoilua, ubuttajan on aina pakko olla valehtelemassa.

𝑯𝑼𝑰𝑱𝑨𝑹𝑰

Solussa pystyy käyttämään useampaa muotoilua

Anonyymi kirjoitti:

Solussa pystyy käyttämään useampaa muotoilua

Luulosairautesi se vaan pahenee, levität ympärillesi pahaa mieltä ja eripuraa, menisit nyt vaan sinne hoitoon, ennen kuin sinut viedään vastoin tahtoasi.