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.

Anonyymi00004 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!

Anonyymi00002 kirjoitti:

Onhan niitä muotoilukoodeja, mutta taitavat toimia vain makroissa.

HÄIRIKKÖ VAPUNEN TAAS AVAAJANA!

🍑🍑🍑🍑🍑🍑🍑🍑🍑🍑🍑🍑

🍒 ­­N­y­m­f­­­o­­m­a­a­­n­­i -> https://ye.pe/finngirl21#17783150z

🔞💋❤️💋❤️💋🔞💋❤️💋❤️💋🔞

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

Anonyymi00007 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

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

Anonyymi00009 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

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

Anonyymi00010 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.

Anonyymi00010 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

Anonyymi00011 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.

Anonyymi00012 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

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

Anonyymi00014 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ä.

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

Anonyymi00015 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

Anonyymi00016 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

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...

Anonyymi00017 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...

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.

Anonyymi00018 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.

😁😂🤣🤣

Anonyymi00017 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...

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

Anonyymi00021 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

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

Anonyymi00017 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...

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

Anonyymi00024 kirjoitti:

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

Miten sinä sen teit?

Anonyymi00025 kirjoitti:

Miten sinä sen teit?

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

Anonyymi00026 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.

Anonyymi00027 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.

Anonyymi00007 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

Haittakoodin levitystä!

Anonyymi00009 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

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.

Anonyymi00016 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

Haittakoodia.

Anonyymi00007 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

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.

Anonyymi00009 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

Google Copy/paste...

Sellaisia ne sämppärit ovat.

Kiva yksinpuhelu!

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

Anonyymi00032 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.

Anonyymi00033 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.

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.

Anonyymi00033 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.

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

Anonyymi00034 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.

Mene hoitoon!

Anonyymi00035 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.

Anonyymi00044 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."

Anonyymi00045 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."

++++

Anonyymi00046 kirjoitti:

++++

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

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

Anonyymi00054 kirjoitti:

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

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

𝑯𝑼𝑰𝑱𝑨𝑹𝑰

Anonyymi00055 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.

Anonyymi00055 kirjoitti:

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

𝑯𝑼𝑰𝑱𝑨𝑹𝑰

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

Anonyymi00057 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.