Angka yang diformat untuk menampilkan teks [tertutup]

Bagaimana cara mendapatkan teks alih-alih angka dengan memformat? misalkan rumus dalam sel memberikan angka dan saya ingin itu dalam teks seperti

1 memberi Excellent

2 memberi Baik

3 memberi rata-rata

nomor lainnya memberi terima kasih Buruk!

Anda membutuhkan suatu VLOOKUPfungsi.

Buat tabel / rentang sel kedua di lembar Excel Anda yang memiliki nomor dalam satu kolom dan teks yang Anda inginkan di kolom berikutnya berakhir. Kemudian referensi tabel "pencarian" itu dalam fungsi:

VLOOKUP (nilai, tabel, index_number, [not_exact_match])

value adalah nilai yang ingin Anda terjemahkan ke dalam teks, jadi Anda harus mereferensikan sel yang memiliki nomor tersebut. Anda dapat menyembunyikan kolom ini jika mau.

Lihat tautan ini untuk detail lebih lanjut dan contoh:

http://www.techonthenet.com/excel/formulas/vlookup.php

Kode VBA ini menggantikan nomor untuk teks dan menyimpan nomor asli pada komentar sel :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks As Worksheet
Set wks = ActiveSheet
targetcolumn = Target.Column
If targetcolumn = 1 Then
    numericvalue = Target.Value
    Select Case numericvalue
        Case 1
            stringvalue = "Excellent"
            Target.ClearComments
            Target.AddComment Str(numericvalue)
            Target = stringvalue
        Case 2
            stringvalue = "Good"
            Target = stringvalue
            Target.ClearComments
            Target.AddComment Str(numericvalue)

        Case 3
            stringvalue = "Average"
            Target = stringvalue
            Target.ClearComments
            Target.AddComment Str(numericvalue)

        Case "Excellent", "Good", "Average", "Bad"
            fictionvalue = 1

        Case Else
            stringvalue = "Bad"
            Target = stringvalue
            Target.ClearComments
            Target.AddComment Str(numericvalue)

    End Select

End If
End Sub

Diasumsikan bahwa kolom untuk diperiksa adalah column A.

Untuk menggunakannya Anda harus membuka Makro, klik dua kali lembar kerja di bilah kiri dan tempel kode di sebelah kanan.

Pilih sel yang ingin Anda proses dan jalankan makro kecil ini:

Sub FakeFormat2()
    Dim DQ As String, mesage As String
    Dim r As Range
    DQ = Chr(34)
    For Each r In Selection
        v = r.Value
        mesage = DQ & "Bad" & DQ
        If v = 1 Then mesage = DQ & "Excellent" & DQ
        If v = 2 Then mesage = DQ & "Good" & DQ
        If v = 3 Then mesage = DQ & "Average" & DQ
        r.NumberFormat = mesage & ";" & mesage & ";" & mesage & ";"
    Next r
End Sub

The nilai-nilai dalam sel akan berubah, tetapi format tampilan akan menjadi kata-kata yang Anda butuhkan.