< návrat zpět
MS Excel
Téma: práce s adresou bunky ve vba 
Zaslal/a lopi007 9.3.2015 21:33
achoj kucí a holký potřeboval bych poradit, v příloze mám plánovací kalendář. Potřeboval bych zajistit, když člověk klikne v kalendáři a označí pole buněk, aby se mi vybral - vrátilo mi to hodnotu čas od kdy, do kdy jsou buňky označeny (hodinu). Poradí mi někdo?
Příloha: 
24039_planovaci_kalendar.zip (18kB, staženo 36x)
kp57(10.3.2015 18:19)#024053 
třeba:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rdX As Long, rdY As Long, MyStr As String
rdX = Target.Rows(1).Row: rdY = Target.Rows.Count
If rdY > 1 Then
rdY = rdX + rdY - 1
MyStr = "od: " & Format(Cells(rdX, 1), "h:mm") & " do: " & Format(Cells(rdY, 1), "h:mm")
Else
MyStr = "výbìr: " & Format(Cells(rdX, 1), "h:mm")
End If
MsgBox "oblast: " & Target.Address & vbCrLf & MyStr
End Sub
citovatlopi007(10.3.2015 20:32)#024055 kp57 napsal/a:
třeba:Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rdX As Long, rdY As Long, MyStr As String
rdX = Target.Rows(1).Row: rdY = Target.Rows.Count
If rdY > 1 Then
rdY = rdX + rdY - 1
MyStr = "od: " & Format(Cells(rdX, 1), "h:mm") & " do: " & Format(Cells(rdY, 1), "h:mm")
Else
MyStr = "výbìr: " & Format(Cells(rdX, 1), "h:mm")
End If
MsgBox "oblast: " & Target.Address & vbCrLf & MyStr
End Sub
Děkuji a otestuji
citovatlopi007(11.3.2015 20:53)#024073 kp57 napsal/a:
třeba:Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rdX As Long, rdY As Long, MyStr As String
rdX = Target.Rows(1).Row: rdY = Target.Rows.Count
If rdY > 1 Then
rdY = rdX + rdY - 1
MyStr = "od: " & Format(Cells(rdX, 1), "h:mm") & " do: " & Format(Cells(rdY, 1), "h:mm")
Else
MyStr = "výbìr: " & Format(Cells(rdX, 1), "h:mm")
End If
MsgBox "oblast: " & Target.Address & vbCrLf & MyStr
End Sub
mohl bych poprosit ještě o jednu radu? jak získat adrasu dne v kterém jsem si vybral oblast buňek?
citovatlopi007(11.3.2015 22:37)#024074 Hm tak nic již vyřešeno
citovat
RSS nejnovější články