如何使用VBA替换ASCII字符

Question

我正在尝试用字符110替换ASCII字符164（即ñ）。这是我的代码：Private Sub CB_Kontynuuj_Click（）

'sprawdzanie czy podane słówko zgadza sie z tłumaczeniem w bazie
If Replace(pobierzTlumaczenieZBazySlowek(lblJezykZrodlowy.Caption), Asc(164), Asc(110)) = tbJezykDocelowy.Text Then

    'jeśli tak, to zaliczamy słówko na plus
    Call zaliczJako(lblJezykZrodlowy.Caption, DOBRZE)

Else

    'jeśli nie, to zaliczamy słówko na minus
    Call zaliczJako(lblJezykZrodlowy.Caption, ZLE)

End If

zmienCzcionkeNaCzarna

'od razu pbieramy kolejne słówko
pobierzKolejneSlowko

End Sub

我没有收到错误但是没有用。

Answer 1

第一个问题是你正在使用Asc()函数，该函数根据第一个字符（在这种情况下为数字）返回整数值：

https://msdn.microsoft.com/en-us/vba/language-reference-vba/articles/asc-function

您应该使用ChrW()功能：

https://msdn.microsoft.com/en-us/vba/language-reference-vba/articles/chr-function

您可以创建一个循环，使用此函数返回的字符填充工作表，然后找到所需的字符。

尝试使用ChrW(241)代替Asc(164)和ChrW(110)代替Asc(110)。