< návrat zpět

MS Excel

Téma: zistenie farby pozadia v bunke rss

Zaslal/a DAveDO 23.2.2012 17:37

Caute
Ak zmenim farbu pozadia z modrej na cervenu tak chcem aby sa zobrazil msgbox s napisom cervena.
Dik za rady. :D

Zaslat odpověď >
DAveDO(23.2.2012 17:46)#007409
avatar
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
MsgBox Excel.Selection.Interior.Color
End Sub

takto dosiahnem cislo farby pozadia vyberu ktory bol pred zmenenim a ja potrebujem zmenit farbu a dostat cislo tej zmenenej farby. aku udalost mam pouzit? da sa to? skusam to na ms excel 97. este raz dik za radycitovat
icon AL(23.2.2012 19:50)#007410
avatar
Nie je mi úplne zrejmé, čo chceš dosiahnuť, Tvoje pôvodné zadanie je možné riešiť nasledovne:Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Excel.Selection.Interior.Color = 12611584 Then
Excel.Selection.Interior.Color = 255
MsgBox "Červená - 255"
End If
End SubAkurát si tým svojim pôvodným kódom prekontroluj hodnotu tej modrej, mne to ukazuje hodnotu 12611584, ale možno Ti ide o to, zmeniť na červenú iný odtieň modrejcitovat
DAveDO(23.2.2012 21:42)#007413
avatar
ide mi o to aby sa dali pouzivat v zosie iba urcite farby. napriklad zmenim pozadie bunky na modru a chcem aby vyskocilo okno so pravou ze modra farba sa nemoze pouzit a ani sa nepouzije.citovat
icon AL(23.2.2012 23:50)#007417
avatar
Nechcem byť zbytočne uštipačný, ale toto je už tretie iné zadanie 7. Tu je pokus, budeš si to musieť dorobiť, zatiaľ to mení na červenú tú bunku, ktorú zafarbíš na modro:Option Explicit
Dim LastSelection As Range
Dim LastColor As Double

Private Sub Workbook_Open()
Set LastSelection = Selection
LastColor = Selection.Interior.Color
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
LastColor = LastSelection.Interior.Color
If LastColor = 12611584 Then
LastSelection.Select
Selection.Interior.Color = 255
Else: Set LastSelection = Selection
End If
End Sub
Ďalšie farby si môžeš dodať cez Select Case, môžeš si to upraviť tak, že na Teba bude vyskakovať MsgBox v prípade, že farba použitá vo výbere nie je medzi povolenými v rámci Select Case a odstrániť to prefarbovanie na červenú. Idea tu je, je na Tebe, aby si si to dotvoril. Aby si zistil, ako to funguje, musíš nejakú bunku zafarbiť na modro a odskočiť z nej, počas dobu, v ktorej budeš v danej bunke stáť, sa neudeje nič.citovat
DAveDO(24.2.2012 19:50)#007429
avatar
tvoja ustipacnost je na mieste :D precital som si postupne kazde zadanie a iny chaos. proste napisat spravnu otazku na to moc nie som :D aj ked ono to ma trochu logiku podla toho ako som to riesil tak som sa aj pytal. 5 Tento priklad funguje tak ako som chcel pochopil si ma 5 AL dakujem za helpcitovat
icon AL(24.2.2012 20:34)#007430
avatar
No, meneným zadaním si ma síce potrápil, ale nakoniec Ti to snáď k niečomu bude, to ma teší.citovat

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