Excel - czy mogę ustawić komórkę na określoną wartość, bez względu na to, co jest w niej wpisane?

To jest żart z kimś ... nie jestem pewien, czy można zrobić to, co chcę. Rozpowszechniamy plik Excel wśród znajomych, aby wybrać graczy do turnieju golfowego. Chciałbym ustawić komórkę (nazwij ją A1), aby wyświetlała określoną nazwę (nazwij ją Joe) bez względu na to, co ktoś w nią wpisze.

A1 powinna być pusta, dopóki ktoś nie spróbuje wpisać w niej nazwy. Gdy ktoś wpisze imię - dowolne imię - automatycznie zmienia się na Joe po naciśnięciu klawisza Enter.

Formatowanie warunkowe nie działa, ponieważ wydaje się, że dotyczy tylko wyglądu wartości w komórce A1.

Formuła nie działa, ponieważ zobaczyliby coś w komórce.

Autokorekta - choć miałaby dokładnie taki efekt, jakiego szukam - nie działa czarno-biała, która jest przechowywana na moim komputerze i nie mogłaby zostać przesłana z plikiem.

Jakieś pomysły?

Jako alternatywa bez makr, nie zmieni to wartości komórki, ale zmieni sposób wyświetlania komórki. Kliknij komórkę prawym przyciskiem myszy, a następnie kliknij polecenie „Formatuj komórki”. Na karcie liczb kliknij opcję Niestandardowy, a następnie wprowadź następujący niestandardowy format liczb

"Joe";"Joe";"Joe";"Joe"

Objaśnienie: Formaty liczb Excela składają się z czterech części oddzielonych średnikami. Wartość komórki określa, która część formatu liczbowego jest używana, a format wygląda następująco:

[positive];[negative];[zero];[text] 

Ponieważ każda sekcja jest ciągiem zakodowanym na stałe, „Joe” wyświetla się bez względu na to, co jest wprowadzane, nawet jeśli formuła jest wprowadzana (chyba że formuła zwraca błąd). Zwykle formaty liczb są używane do wyświetlania liczb ujemnych na czerwono lub wyrównania wartości dziesiętnych lub innych rzeczy kosmetycznych. Ale mogą być również używane do robienia bałaganu ze znajomymi.

Umieść następujące makro zdarzenia w obszarze kodu arkusza roboczego:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub
   Application.EnableEvents = False
      Range("A1").Value = "Joe"
   Application.EnableEvents = True
End Sub