Bagaimana cara menerjemahkan bulan secara otomatis dari bahasa ke bahasa lain?

0

Saya ingin menerjemahkan laporan penagihan dari bahasa Portugis (Brasil) ke Bahasa Inggris. Ini akurat berdasarkan bulan dan itu adalah lembaran otomatis.
Sebuah kontrak dapat dimulai pada bulan Januari, tetapi umumnya dimulai dalam 11 bulan lainnya juga.

Jika saya menetapkan bulan pertama sebagai April, sebelas lainnya di sebelah kanan terus tumbuh (Mei, Juni, Juli ...) hingga Maret.

Saya telah membuat formula ini:

=PROPER(TEXT((B1&1)+31;"mmmm"))

untuk bulan kedua hingga kedua belas.

Namun saya menggunakannya dalam bahasa Portugis (Brasil), dan itu bekerja dengan sangat baik. Tetapi ketika mencapai bulan bahasa Inggris, itu tidak benar-benar berhasil.

Saya sudah mencoba [$-409]dan tidak berfungsi sebagaimana yang saya inginkan.

Jika saya menggunakan ini, sepertinya, Janeiro dan Februari, dan kesalahan pada bulan-bulan berikutnya.

Saya ingin menulis Januari dan menerima Februari, Maret dan seterusnya.

Mungkin berhasil di mesin Anda, silakan coba dengan bahasa lain juga.

Catatan: VBA tidak akan berfungsi, saya harus mengirimkannya ke pelanggan saya.

microsoft-excel microsoft-excel-2010 language

— Henrique Brisola
sumber

Saya pikir Anda perlu ini setelahnya. Saya pikir satu-satunya pilihan yang Anda miliki adalah VBa, di mana setelah halaman siap, Anda menjalankan VBa yang melakukan Find and Replace yang dimuliakan (Temukan "Januari" Ganti dengan "Janeiro") dll.

— Dave

1

Saya pikir apa yang Anda inginkan tidak mungkin seperti yang Anda inginkan.

Sesuai komentar Anda, Anda tidak dapat mengubah pengaturan lokal sistem karena dokumen ini dapat digunakan pada komputer lain di mana ini bukan pilihan

Satu-satunya solusi yang dapat saya pikirkan adalah menggunakan VBa

Dalam contoh ini, saya melihat seluruh lembar kerja dan mengganti kata-kata untuk yang setara

Pertama, ambil cadangan file. Anda tidak dapat membatalkan VBa

Sub ChangeTheNameMeHearties()

Dim cell As Range

For Each cell In ActiveSheet.UsedRange
    Dim s As String
    Select Case LCase(cell.Value)

        Case cell.Value = "january"
            cell.Value = "Janeiro"

        Case cell.Value = "february"
            cell.Value = "Fevereiro"

    End Select
Next

End Sub

Anda perlu menambahkan sisa bulan tetapi itu harus lurus ke depan, dan kemudian pikirkan bagaimana mereka 'menerjemahkan'

Lihat juga Bagaimana cara menambahkan VBA di MS Office?

Anda bahkan dapat menggunakan pernyataan kasus seperti

    Case cell.Value = "january"
        cell.Value = "Janeiro"

    Case cell.Value = "janeiro"
        cell.Value = "January"

    Case cell.Value = "february"
        cell.Value = "Fevereiro"

    Case cell.Value = "fevereiro"
        cell.Value = "February"

Ini berarti, setiap kali Anda menjalankannya, Anda akan beralih antar bahasa

— Dave
sumber

Hai @Dave, saya tidak boleh menggunakan VBA karena pelanggan mungkin tidak mengizinkan untuk bekerja pada mesin mereka. Namun saya sudah memperbaikinya dan saya akan memposting di sini.

— Henrique Brisola

0

Saya sudah memperbaiki, maaf atas keterlambatan.

Saya tetap menggunakan

=PROPER(TEXT((DATE(2014,B3,1)),"mmmm"))

di mana "B3" adalah angka bulan, yang berubah hanya sekali, diambil dari Pivot Table.

Bulan berikutnya menerima +1, sebagai gantinya "bulan depan".

=IF(B3<12,B3+1,1)

IF digunakan untuk memulai kembali dari 1 jika bulan sebelumnya sudah 12. "Tanpa jika, itu masih akan terus naik melampaui 13"

— Henrique Brisola
sumber