praegune kellaaeg 16.06.2024 16:15:01
|
Hinnavaatlus
:: Foorum
:: Uudised
:: Ärifoorumid
:: HV F1 ennustusvõistlus
:: Pangalink
:: Telekavad
:: HV toote otsing
|
|
autor |
sõnum |
|
Sold OUT
Aeg maha 1p
liitunud: 30.07.2002
|
17.09.2017 14:52:10
Exceli vba küsimus |
|
|
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 |
|
|
alfreedo
HV vaatleja
liitunud: 20.06.2010
|
18.09.2017 22:52:23
|
|
|
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 22:53:11, muudetud 1 kord |
|
Kommentaarid: 2 loe/lisa |
Kasutajad arvavad: |
|
:: |
0 :: |
0 :: |
2 |
|
tagasi üles |
|
|
Sold OUT
Aeg maha 1p
liitunud: 30.07.2002
|
18.09.2017 22:54:11
|
|
|
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 |
|
|
alfreedo
HV vaatleja
liitunud: 20.06.2010
|
19.09.2017 22:16:45
|
|
|
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 |
|
|
|
lisa lemmikuks |
|
|
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.
|