Excel - dapatkah saya mengatur sel agar sama dengan nilai tertentu, apa pun yang diketik di dalamnya?

Ini untuk mempermainkan seseorang ... tidak yakin apakah mungkin melakukan apa yang saya inginkan. Kami sedang mendistribusikan file Excel di antara teman-teman untuk memilih pemain untuk turnamen golf. Saya ingin mengatur sel (sebut saja A1) untuk menampilkan nama tertentu (sebut saja Joe) tidak peduli apa yang diketik seseorang ke dalamnya.

A1 harus kosong sampai seseorang mencoba mengetik nama ke dalamnya. Ketika seseorang mengetik nama - nama apa pun - secara otomatis berubah menjadi Joe setelah mereka menekan enter.

Pemformatan bersyarat tidak berfungsi karena tampaknya hanya mengatasi tampilan nilai dalam sel A1.

Formula tidak berfungsi karena mereka akan melihat sesuatu di dalam sel.

Koreksi otomatis - walaupun akan memiliki efek persis yang saya cari - tidak berfungsi b / c yang disimpan di komputer saya dan tidak akan ditransfer dengan file.

Ada ide?

Sebagai alternatif kurang makro, ini tidak akan mengubah nilai sel, tetapi itu akan mengubah tampilan sel. Klik kanan pada sel yang dimaksud, lalu klik "Format Sel." Di tab angka, klik Kustom, lalu masukkan format angka kustom berikut

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

Penjelasan: Format angka Excel memiliki empat bagian, dipisahkan oleh titik koma. Nilai sel menentukan bagian mana dari format angka yang digunakan, dan formatnya terlihat seperti ini:

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

Karena setiap bagian adalah string yang dikodekan secara keras, "Joe" akan menampilkan apa pun inputnya, sekalipun sebuah formula adalah input (kecuali jika rumus itu mengembalikan kesalahan). Biasanya format angka digunakan untuk menampilkan angka negatif dalam warna merah, atau menyelaraskan nilai pada desimal, atau hal kosmetik lainnya. Tetapi mereka juga bisa digunakan untuk mengacaukan teman-teman Anda.

Masukkan makro acara berikut di area kode lembar kerja:

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