< návrat zpět

MS Excel


Téma: práce s adresou bunky ve vba rss

Zaslal/a 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: zip24039_planovaci_kalendar.zip (18kB, staženo 35x)
Zaslat odpověď >

#024053
avatar
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
citovat
#024055
avatar

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 9citovat
#024073
avatar

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? 6citovat
#024074
avatar
Hm tak nic již vyřešeno 10citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09