Avaleht
uus teema   vasta Tarkvara »  Tarkvara »  Exceli vba küsimus märgi kõik teemad loetuks
märgi mitteloetuks
vaata eelmist teemat :: vaata järgmist teemat
Hinnavaatlus :: Foorum :: Uudised :: Ärifoorumid :: HV F1 ennustusvõistlus :: Pangalink :: Telekavad :: HV toote otsing
autor
sõnum Saada viide sõbrale. Teata moderaatorile
otsing:  
Sold OUT
no credit
Sold OUT

liitunud: 29.07.2002




sõnum 17.09.2017 13:52:10 Exceli vba küsimus vasta tsitaadiga

Hei,

Mul on workseet, kus lahtrites B9-B60 on mingid numbrid, teksti kujul. Sooviksin teha nii, et iga kord kui sinna lahtritesse midagi lisandub, tuleb sekundiks popup, mis näitab antud vahemiku COUNT väärtust. On võimalik?

_________________
People have been calling for a month and we've been sold out for a week or so.
Kommentaarid: 92 loe/lisa Kasutajad arvavad:  :: 5 :: 1 :: 79
tagasi üles
vaata kasutaja infot saada privaatsõnum
alfreedo
HV vaatleja

liitunud: 20.06.2010




sõnum 18.09.2017 21:52:23 vasta tsitaadiga

Tere.
Ehk on abiks.
Pane see kood Töölehe moodulisse.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TargetRange As Range

Set TargetRange = Range("B9:B60")
   
    If Intersect(Target, TargetRange) Is Nothing Then
    Exit Sub
    End If
   
    CreateObject("WScript.Shell").Popup Target, 1, ""
   
Set TargetRange = Nothing
End Sub



tsitaat:
`
..kus lahtrites B9-B60 on mingid numbrid, teksti kujul...

...näitab antud vahemiku COUNT väärtust...


Need kohad võiks rohkem lahti seletada, mida selle ANTUD VAHEMIKU COUNT all mötled?
Tekstis (stringis) tähtede arvu count vm?


viimati muutis alfreedo 18.09.2017 21:53:11, muudetud 1 kord
Kommentaarid: 2 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 2
tagasi üles
vaata kasutaja infot saada privaatsõnum
Sold OUT
no credit
Sold OUT

liitunud: 29.07.2002




sõnum 18.09.2017 21:54:11 vasta tsitaadiga

counti all mõtlen seda, mis ta alla sinna status barile manab, ehk et kui kuskile lahtrisse on mingi info juba sisestatud, siis on see 1, tühi lahter on 0. lihtsalt tavaline COUNT()




_________________
People have been calling for a month and we've been sold out for a week or so.
Kommentaarid: 92 loe/lisa Kasutajad arvavad:  :: 5 :: 1 :: 79
tagasi üles
vaata kasutaja infot saada privaatsõnum
alfreedo
HV vaatleja

liitunud: 20.06.2010




sõnum 19.09.2017 21:16:45 vasta tsitaadiga

Proovi seda.



Private Sub Worksheet_Change(ByVal Target As Range)
Dim TargetRange As Range, Kasutuses As Integer

Set TargetRange = Range("B9:B60")
     
     If Intersect(Target, TargetRange) Is Nothing Then
     Exit Sub
     End If
     
     Kasutuses = Application.WorksheetFunction.CountA(TargetRange)
     
     
     CreateObject("WScript.Shell").Popup Kasutuses, 1, ""
     
Set TargetRange = Nothing
End Sub
Kommentaarid: 2 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 2
tagasi üles
vaata kasutaja infot saada privaatsõnum
näita postitusi alates eelmisest:   
uus teema   vasta Tarkvara »  Tarkvara »  Exceli vba küsimus
[vaata eelmist teemat] [vaata järgmist teemat]
 lisa lemmikuks
näita foorumit:  
 ignoreeri teemat 
sa ei või postitada uusi teemasid siia foorumisse
sa ei või vastata selle foorumi teemadele
sa ei või muuta oma postitusi selles foorumis
sa ei või kustutada oma postitusi selles foorumis
sa ei või vastata küsitlustele selles foorumis
sa ei saa lisada manuseid selles foorumis
sa võid manuseid alla laadida selles foorumis



Hinnavaatlus ei vastuta foorumis tehtud postituste eest.