< návrat zpět

MS Excel


Téma: Iba jedna aktívna bunka v rozsahu rss

Zaslal/a 9.10.2016 13:25

Dobrý deň, potrebujem poradiť s makrom.
Rád by som použil makro pre zadanie jednotky "1" v rozsahu A1:A20 tak, že ju zapíšm napr.: do bunky "A7", neskôr do bunky "A3" a tá zmaže jednotku z "A7" , keď do "A18" zmaže "A3" atď... vie mi niekto poradiť? Ďakujem

Zaslat odpověď >

#033022
avatar
Napadá mě řešení přes událost listu Worksheet_Change a pomocný sloupec, ve kterém budeš uchovávat minulé hodnoty (sloupec můžeš pak klidně skrýt, takže nebude mít vliv na design).
P.

Např. (pro pomocný sloupec "B"):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte
Dim radek As Byte
Dim hodnota_bunky As String

For i = 1 To 20
If (Cells(i, 1).Value <> "") And (Cells(i, 2).Value = "") Then
radek = i
hodnota_bunky = Cells(i, 1).Value
Range(Cells(1, 1), Cells(20, 2)).ClearContents
End If
Next i

On Error Resume Next
Cells(radek, 1).Value = hodnota_bunky
Cells(radek, 2).Value = hodnota_bunky

End Sub
citovat
#033025
avatar
Zkuste:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, s As String
Set rng = ThisWorkbook.Sheets(1).Range("A1:A20")
If Not Intersect(Target, rng) Is Nothing Then
If Target.Rows.Count = 1 Then
s = Target
Application.EnableEvents = 0
rng.ClearContents
Target = s
Application.EnableEvents = 1
End If
End If
End Sub


sydcitovat
#033038
avatar
Tak vám ďakujem, veľmi mi to pomohlo 1citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

fce když a data

simplynever • 27.6. 12:48

fce když a data

Anonym • 27.6. 12:43

text > číslo=PRAVDA

Rejpal • 27.6. 12:01

fce když a data

simplynever • 27.6. 10:46

vlookup

simplynever • 27.6. 10:43

text > číslo=PRAVDA

pavelo • 27.6. 8:46

text > číslo=PRAVDA

Rejpal • 26.6. 20:29