< návrat zpět

MS Excel

Téma: makro spouštěné myší rss

Zaslal/a george 3.9.2011 22:36

dobrý den,
Zkouším udělat editační tabulku pro rozmístění lidí na jednotlivé akce v jednom týdnu. |||Líbilo by se mi, kdyby jsem dokázal kliknutím myši na buňku spustit makro. Tím bych jedním kliknutím vyjmul do "schránky" a dalším kliknutím uložil do jiné buňky. S makrem bych mít problém nemusel, ale lze jej spustit myší? Zkoušel jsem a hledal, zatím marně. Děkuji za jakoukoliv pomoc.

Zaslat odpověď >
Gorgy(4.9.2011 1:05)#005914
avatar
Napadlo mne napsat do listu tohle:

Private kopie As String
Private a As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If a = 0 Then
kopie = ActiveCell
a = 1
Exit Sub
End If

If a = 1 Then
ActiveCell = kopie
a = 0
Exit Sub
End If
End Sub

ale ještě si to bude chtít vložit nějaké upozornění zda kopíruješ nebo vkládášcitovat
Gorgy(4.9.2011 3:07)#005915
avatar
Ještě jsem ti to trochu pozměnil, aby jsi to mohl vypnout a aby jsi poznal zda vkládáš, nebo kopíruješ.
Možná že ti to někdo vymyslí lépe, nemám moc velké zkušenosti...
Kdybys potřeboval, tak by šla vložit ještě jedna podmínka - když bude buňka prázdná tak vloží hodnotu z paměti. Bylo by to pro to, kdyby jsi potřeboval vložit stejnou hodnotu do více buněk, ale musela by být prázdná.
Příloha: zip5915_funkce.zip (11kB, staženo 54x)
citovat
george(5.9.2011 21:22)#005920
avatar
díky moc, je to skvělé. Ne že bych všemu porozuměl, ale toto mi asi bude stačit. MOOOc děkuji.citovat
Gorgy(7.9.2011 18:43)#005942
avatar
nemáš zač 4citovat

Uživatelské menu

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

Menu

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.

On-line nástroje