Privata underWorksheet_BeforeDoubleClick (ByVal uppsätta som mål som spänner, avbryter som Boolean),
Om Target.Cells.Count > 1 går ut därefter suben
Om att inte skära (uppsätta som mål, spänna (”E18: E328”)) Är ingenting därefter
Target.Font.Name = ”Marlett”,
Om uppsätta som mål = vbNullString därefter
Uppsätta som mål = ”r”,
Annars
Uppsätta som mål = vbNullString
Om att inte skära (uppsätta som mål, spänna (”E46: E48”)) Är ingenting därefter
Om Application.CountA (spänna (”E46: E48”)) = 0 därefter
Spänna (”F46”) = ”riktigt”,
Annars
Spänna (”F46”) = ”falskt”,
Avsluta om
Avsluta om
Avsluta om
Annulleringen = True
Avsluta om
Avsluta suben
|