Pystyykö jollain koodilla, vb:llä ym. siirtämään esimerkiksi Taul2 A1-10 - F1-10 eli 7 sarakkeen tiedot Taul1 A1 kommenttikenttään omiksi sarakkeiksi painonapilla tai enteriä painamalla? Kommenttikenttään tulisi voida siirtää tietoa vapaasti haluamassaan järjestyksessä vaikka vain rivi kerrallaan.
Taulujärjestys voi olla myös Taul1 =>Taul2.
tiedot kommenttikenttään omille "sarakkeille"
kommenttikikkailija
4
159
Vastaukset
- Tämmöinen
Tarkoitatko mahdollisesti jotain tällaista:
Sub kommentti()
On Error Resume Next
Set alue = Worksheets("Sheet1").Range("A1:F10") Set komm = Worksheets("Sheet2").Range("A1")
If Intersect(Selection, alue) Is Nothing Then komm.Comment.Delete Else nC = alue.Columns.Count r1 = WorksheetFunction.Max(alue.Row, Selection.Row) r2 = WorksheetFunction.Min(alue.Row alue.Rows.Count - 1, _ Selection.Row Selection.Rows.Count - 1) l = 0 For Each s In alue l = WorksheetFunction.Max(l, Len(s) 2) Next s
rivit = komm.Comment.Text If Len(rivit) > 0 Then rivit = rivit & Chr(10) For R = r1 To r2 For C = 1 To nC rivit = rivit & Left(alue(R, C) & Space(l), l) Next C If R < r2 Then rivit = rivit & Chr(10) Next R
With komm .AddComment With .Comment .Visible = False .Text Text:=rivit With .Shape.TextFrame .Characters.Font.Name = "Courier New" .Characters.Font.Size = 8 .AutoSize = True End With End With End With End If End Sub - kommenttikikkailija
Kiitos Tämmönen vb-koodista.
Hieman repeillyt tuo koodi näyttää olevan, mutta varmaankin toimiva.
Pitääkö tämä tulla johonkin tiettyyn paikkaan eli moduuliin, tiettyyn Tauluun vaiko Tähän työkirjaan ja onko tuo sellainen, että se on jatkuvasti aktiivinen -huono ilmaisu- vai pitääkö se "käynnistää" jotenkin että tekee jotain? - Tämmöinen
Tulee moduliin ja sitä pitää kutsua erikseen. Sen voi linkittää vaikka nappiin. Makro liittää muuttujassa komm määrätyn solun kommenttiin tiedot alueen A1:F10 niiltä riveiltä, jotka ovat maalattuna. Kommentti poistetaan, jos aktiivinen solu on tuon alueen ulkopuolella. Makro ei tarkista rivien järjestystä tai sitä tuleeko sama rivi useaan kertaan. Alla sama makro ilman yritystä muotoilla sitä luettavammaksi.
Sub kommentti()
On Error Resume Next
Set alue = Worksheets("Sheet1").Range("A1:F10")
Set komm = Worksheets("Sheet2").Range("A1")
If Intersect(Selection, alue) Is Nothing Then
komm.Comment.Delete
Else
nC = alue.Columns.Count
r1 = WorksheetFunction.Max(alue.Row, Selection.Row)
r2 = WorksheetFunction.Min(alue.Row alue.Rows.Count - 1, Selection.Row Selection.Rows.Count - 1)
l = 0
For Each s In alue
l = WorksheetFunction.Max(l, Len(s) 2)
Next s
rivit = komm.Comment.Text
If Len(rivit) > 0 Then rivit = rivit & Chr(10)
For R = r1 To r2
For C = 1 To nC
rivit = rivit & Left(alue(R, C) & Space(l), l)
Next C
If R < r2 Then rivit = rivit & Chr(10)
Next R
With komm
.AddComment
With .Comment
.Visible = False
.Text Text:=rivit
With .Shape.TextFrame
.Characters.Font.Name = "Courier New"
.Characters.Font.Size = 8
.AutoSize = True
End With
End With
End With
End If
End Sub - kommenttikikkailija
Kiitos Tämmönen, sain tämän toimimaan varmaan niin kuin sen pitääkin toimia.
Hieman pitikin tosiaan testailla miten tämä lopulta toimi.
Paljon olisi kysymyksiä, mutta koitan ensin viilailla tätä jos se taipuisi kokeiluihini. :)
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Persujen mukaan rasismi on huumoria
Vaan kun koomikko kutsui Halla-ahoa fasistiksi, niin piti haastaa oikeuteen. Mihin se huumorinitaju yhtäkkiä hävisi? ⠀3327017Rasismia kaikkialla näkevät ovat Suomen tyhmimpiä ihmisiä
ja monillahan kuluu myös mielialalääkkeitä, eli päässä on ongelmia. Mutta he eivät tajua kuinka paljon ja ihan todellis2836515Ei kahta sanaa etteikö Petteri Orpo hyväksy rasismia
Koska jatkaa hallituksessa rasistisen perussuomalaisiksi itseään kutsuvan puolueen kanssa. Se on Petteri Orpon arvomaai495766Mitkäs nuorisoporukat ovat toisia nuoria ryöstelleet (selvää rassismia)
No poliisi kertoo, että maahanmuuttajataustaisia ovat, ja isot porukat sillä yhden suomalaisen uhrin kimpussa on ollut j1645157Pitkän linjan yritysjohtaja: Suomen tapahtumat eivät ole Aasian kärkiuutinen
Viimeaikaista kohua on käytetty sisäpoliittisena lyömäaseena, Thomas Zilliacus sanoo. – Koska asiaa kuitenkin kommentoi614003Hallitus on kaadettava ja Orpon on erottava
Mikään muu hallitus ei ole oman elämäni aikana tuhonnut näin paljon tämän maan taloutta ja työllisyyttä sekä suomen main2823977Lasse Lehtonen vaatii persuja pyytämään anteeksi aasialaisilta
Persut ova romahduttaneet Suomen maakuvan parissa päivässä negatiiviseksi rasismillaan ja se alkaa vaikuttamaan jo Suome1433569Demarit ovat oikeasti törppöjä eli heikkoälyisiä
ja todistavat sitä päivittäin täällä lapsellisilla jutuillaan. Kauheasti on hehkuttaneet kuinka demarien kannatus vaan343296Perussuomalaiset eivät harrasta maalittamista kuten vasemmisto
Huomaa tässä keinotekoisessa "rasismi"-kohussakin kuinka vasemmistolaiset maalittavat Perussuomalaisia. Me emme vastaava33280HS 12/25 kysely: persut romahti, demarit raketoi
Kyyti on kylmää persuleirissä, saattaa vetää siellä silmätkin viirulleen. Sen sijaan SDP:n puoluetoimistolla voidaan pok503211