MS Excel

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

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

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

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: zip

5915_funkce.zip (11kB, staženo 54x)

citovat

george(5.9.2011 21:22)#005920

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

nemáš zač

citovat

Uživatelské menu

Nejste přihlášen(a)

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.