< 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

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52

excell uprava riadku vzorca

veny • 14.6. 7:52

excell uprava riadku vzorca

orangezradca • 13.6. 20:37

pomala tlac s exelu

jano5 • 12.6. 9:44

GRAF teploty

JoKe • 12.6. 9:22

Filtrování dat

Imh0tep • 12.6. 8:35