Haluaisin tehdä jäynän työkavereille perjantaina eli kun avaavat yhteisellä asemalla olevan tietyn taulukon, esim. hiiren kursori olisi joku muu kuin nuoli, tiettyjä soluja käsiteltäessä kuuluisi joku ääni tms. Onnistuukohan ?
Saako exceliin aprillipilaa ?
2
91
Vastaukset
Public i As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim viesti1 As String
Dim viesti2 As String
Dim viesti3 As String
Dim viesti4 As String
i = i 1
Select Case i
Case 1
viesti = "excel on suorittanut laittoman toiminnon ja se on suljettava"
Case 2
viesti = "excel on suorittanut laittoman toiminnon ja onko se suljettava"
Case 3
viesti = "excel on suorittanut laittoman toiminnon ja se ei sulkeudu-vai?"
Case 4
viesti = "APRILLIÄ APRILLIÄ !!!"
End Select
If Not Intersect(Target, Range("A:B")) Is Nothing Then
MsgBox viesti, vbCritical
Application.Cursor = xlWait
End If
If Not Intersect(Target, Range("C:D")) Is Nothing Then
MsgBox viesti, vbYesNo vbInformation
Application.Cursor = xlIBeam
End If
If Not Intersect(Target, Range("E:F")) Is Nothing Then
MsgBox viesti, vbYesNo vbInformation
Application.Cursor = xlNorthwestArrow
End If
If Not Intersect(Target, Range("G:H")) Is Nothing Then
Application.Cursor = xlDefault
End If
If i = 4 Then i = 0
End Sub
Sub Resetoi()
Application.EnableEvents = True
Application.Cursor = xlDefault
End Sub
Keep EXCELing
@Kunde- fsdfsdfdfds
Kyllähän sinne saa vaikka mitä piloja tehty, muuttelee vaan asetuksia.
Mutta mieti, millainen verkko teillä on töissä, ettei sitten ole jokaisen koneella se sama pila!
Riippuu tietysti työnantajasta, miten käsittää sun pilas, etenkin jos jotain hankaluutta saat aikaan, voit saada jopa potkut tai syytteen häirinnästä....
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet281738- 2271160
Koulu kielsi therianit - "tunneilla kontataan ja nau'utaan"
Oululainen koulu on kieltänyt eläin- ja rooliasujen käytön koulussa. Hyvä homma, sillä koulussa keskitytään muihin asioi101788- 180777
Onhan se myönnettävä
Että alkaa jo vähän puuduttamaan tämä. Aion silti ottaa tästä kaiken irti viimeisiä rippeitä myöden. Olenpa sitten suju51750Astuin tuntemattomaan
kun sinut tapasin, sieluni valo. Niin olen paljaaksi riisuttu kuin syksyiset puut.50742Rakastan sinua niin paljon
Kun ollaan tutustuttu lisää niin se rakkaus ei ole vähentynyt vaan muuttunut. Jännitys on vähentynyt ja tilalle on tullu40710Enemmistön diktatuuri Ähtärin valtuustossa
Salo ja Nortunen, ette saa keikuttaa venettä. Olette mätiä omenoita, jotka pitää poimia pois Ähtärin kaupunginhallitukse22710Mulla on ihan hirveä ikävä sua
Ja sitten kun me taas nähdään, tai jos, niin mua vaan pelottaa että sinä inhoat sitä että mulla on tunteita sinuun.47679Taisit vähän aliarivoida minua ihmisenä
Et tajunnut että olenkin aika nokkela tyttö 🤭 Jutut ja ulkonäkö varmaan hämäs.35676