Wertis rašė: Atsidarai VBA langą (kuriame rašai macros), kairėje turėtų būtų langelis su išvardintomis lentelėmis bei moduliais. Dukart paspausk pele ant norimos lentelės pavadinimo. Atsidariusiame naujame lange suvedi sekantį kodą:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case Target
Case 1: MacrosA
Case 2: MacrosB
Case 3: MacrosC
End Select
End If
End Sub
Sub MacrosA()
End Sub
Sub MacrosB()
End Sub
Sub MacrosC()
End Sub
Vietoje $A$1 įvesk reikiamos ląstelės adresą, pakoreguok galimas tos ląstelės reikšmes 1, 2, 3, vietoje MacrosA, MacrosB, MacrosC patalpink savuosius makrosus.
Ideja gal tikrai nebloga, bet yra sioks toks bet. Niekada nera teke rasyti VBA naujo macroso juos esu dares n kartu tik auto irasymo budu bei nereikalingus fragmentus paredaguodavau tame VBA - fontu, size, sriftu isvalymas po auto iraso. Taigi jei gali pakuoreguok ta savo pasiulyma. Dekui