Takto?
Příloha: 
21495_overit.zip (7kB, staženo 21x)
citovat21495_overit.zip (7kB, staženo 21x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: ombedzenie zadavania - EXCEL
MS Excel
Téma: ombedzenie zadavania - EXCEL 
Zaslal/a bekes14 8.9.2014 15:05
Ahojte,
potreboval by som pomoct: do bunky A2-J2 je mozne zadat znak "x" s max. poctom 5-krat. Pri zadani siesteho, siedmeho,... "x" sa zobrazi v bunke K2 informacia max.5. Je mozne zablokovat pri dosiahnuti limitu 5 ostatne bunky v ktorych sa znak "x" nenachadza, aby ho nebolo mozne zadat ? Dakujem
Příloha: 21494_1.rar (7kB, staženo 21x)
21494_1.rar (7kB, staženo 21x)alebo
Příloha: 21496_overit.zip (7kB, staženo 21x)
citovat21496_overit.zip (7kB, staženo 21x)(9.9.2014 9:09)#021500
Ještě by šlo použít makro, které by se umístilo do modulu příslušného listu
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cll As Range, Oblast As Range
Dim cX As Byte
Set Oblast = Range("A1:J1")
' zjistit kolik je vyplneno X
For Each Cll In Oblast
If Cll = "x" Then
cX = cX + 1
If cX > 5 Then
MsgBox "Nelze zadat více jak 5 X !!", vbCritical, "Chyba"
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
Exit For
End If
End If
Next Cll
Set Cll = Nothing
End Subcitovat
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cll As Range, Oblast As Range
Dim cX As Byte
Set Oblast = Range("A1:J1")
' zjistit kolik je vyplneno X
For Each Cll In Oblast
If Cll = "x" Then
cX = cX + 1
If cX > 5 Then
MsgBox "Nelze zadat více jak 5 X !!", vbCritical, "Chyba"
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
Exit For
End If
End If
Next Cll
Set Cll = Nothing
End Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články