tämmönen hakusessa
kun excelissä kopiodaan solu niin väri muuttuisi vihreäksi
kiitokset etukäteen
kopio solu väri
14
1122
Vastaukset
- balckonblack
Mitä tarkoitat? Pitäisikö kopioitavan solun värin muuttua, tai sen solun, mihin kopioidaan, vai jotain muuta? Voi olla vaikeaa. Mihin sitä tarvitaan?
- väriäexceliin
Pitäisikö kopioitavan solun värin muuttua?
kyllä - väriäexceliin
oisko tähän saatavissa mitään makroa?
- Tämmöinen
väriäexceliin kirjoitti:
oisko tähän saatavissa mitään makroa?
Solun sisältö luetaan muuttujaan ilman muotoiluja. Toinen makro kopioi sisällön aktiiviseen soluun. Kopioimiseen ei käytetä leikepöytää. Makrot voi liittää näppäinyhdistelmiin Ctrl c ja Ctrl v.
==========
Public kaava As String
Sub kopioi()
With Selection
kaava = .FormulaR1C1
.Interior.Color = RGB(0, 255, 0)
End With
End Sub
Sub liimaa()
With Selection
.FormulaR1C1 = kaava
End With
End Sub - väriäexceliin
kiitos
ko. taulukon moduuliin...
Dim UndoLista As String
Private Sub Worksheet_Activate()
If Not Edellinen(1) Is Nothing Then
Set Edellinen(0) = Edellinen(1)
End If
Set Edellinen(1) = ActiveCell
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Edellinen(1) Is Nothing Then
Set Edellinen(0) = Edellinen(1)
End If
Set Edellinen(1) = Target
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
UndoLista = Application.CommandBars("Standard").Controls("&Undo").List(1)
If Left(UndoLista, 5) = "Paste" Then
Edellinen(0).Interior.Color = RGB(0, 255, 0)
Application.CutCopyMode = False
End If
End Sub
ja tavalliseen moduuliin...
Public Edellinen(1) As Range
Keep EXCELing
@Kundejos suomenkielinen versio niin korvaa Worksheet_Change makro tällä...
Private Sub Worksheet_Change(ByVal Target As Range)
UndoLista = Application.CommandBars("Standard").Controls("&Kumoa").List(1)
If Left(UndoLista, 5) = "Liitä" Then
Edellinen(0).Interior.Color = RGB(0, 255, 0)
Application.CutCopyMode = False
End If
End Sub- väriäexceliin
kiitos
- väriäexceliin
kiitos
- väriäexceliin
tarkennus
kopioinnin jälkeen liittäminen tapahtuu toiseen sovellukseen - Kundepuu
Taitaa olla aika mahdotonta toteuttaa ilman kopion jälkeistä klikkausta johonkin soluun Excelissä...
mutta jos se kelpaa niin tossa koodi siihen sitten ;-)
Private Sub Worksheet_Activate()
If Not Edellinen(1) Is Nothing Then
Set Edellinen(0) = Edellinen(1)
End If
Set Edellinen(1) = ActiveCell
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Edellinen(1) Is Nothing Then
Set Edellinen(0) = Edellinen(1)
End If
Set Edellinen(1) = Target
Worksheet_Change Edellinen(0)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CutCopyMode = xlCopy Then
Edellinen(0).Interior.Color = RGB(0, 255, 0)
End If
End Sub
ja tavalliseen moduuliin...
Public Edellinen(1) As Range
Keep EXCELing
@Kunde - väriäexceliin
onko sellaista mahdolista toteuttaa kun excelissä on kopioitu solun sisällä oleva teksti tai solu niin väri muuttuu
- Kundepuu
väriäexceliin kirjoitti:
onko sellaista mahdolista toteuttaa kun excelissä on kopioitu solun sisällä oleva teksti tai solu niin väri muuttuu
Ei tietääkseni. Vaatii aina jonkun muun solun aktivointia, jolloin edellisessä solussa tehdyt "toimenpiteet" voidaan havaita.
Keep EXCELing
@Kunde - väriäexceliin
kiitos
Ketjusta on poistettu 6 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.1272366En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois1081403Peräti 95 % persujen kannattajista rasisteja
Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää3361148- 1111114
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1041087Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.99985On minulla suunitelma
Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s44710Palstan ylivoimaisesti suosituin keskustelunaihe
Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks252699Ei koskaan saatu tuntea
Mitä olisi ollut painautua toisiimme vasten. Hengittää syvään, hyväillä ja rakastella vailla kiirettä. Tai repiä vaattee33690- 50674