• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

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

Zaslal/a zenonhhh 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ěď >

---

Pavlus(9.10.2016 13:54)#033022

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 Subcitovat

syd(9.10.2016 15:39)#033025

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

zenonhh(10.10.2016 14:28)#033038

Tak vám ďakujem, veľmi mi to pomohlo citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse