Khó khăn về ngôn ngữ Excel VBA

Question

Tôi có mã này và câu hỏi của tôi là, nó có hoạt động trên phiên bản tiếng Anh của excel không? Tôi có nghĩa là công thức địa phương sẽ làm việc trên phiên bản tiếng Anh của excel? (ORAZ có nghĩa là VÀ trong ngôn ngữ của tôi).

Khi tôi đặt ORAZ nó chỉ hoạt động trên PC của tôi, nhưng trên máy tính tiếng Anh thì không, khi tôi đặt VÀ nó không đưa ra lỗi nhưng nó không hoạt động, bất kỳ ý tưởng nào giúp tôi?

With Range("$H$6:$FH$50").FormatConditions _ 
.Add(xlExpression, xlFormula, "=ORAZ(H$7<=$G$7,(H$7+7)>$G$7)") 
With .Interior 
    .PatternColorIndex = xlAutomatic 
    .ThemeColor = xlThemeColorLight2 
    .TintAndShade = 0.799981688894314 
End With 
End With 

Answer 1

Tôi đã thử nghiệm trong tôi (Bồ Đào Nha) Excel 2013 và phát hiện ra rằng, trên thực tế, FormatConditions.Add() hy vọng công thức của nó trong cục bộ phiên bản. Nó không hiểu "công thức kinh điển" như Range.Formula.

Sau đây nên làm việc, mặc dù phương pháp sử dụng để dịch công thức không phải là thích hợp nhất bao giờ hết:

Dim temp As Range 

' The temp cell is just for translating our formula. 
' Set it to some cell your sheet will never use. 
Set temp = ActiveSheet.Range("Z1000") 
temp.Formula = "=AND(E$1<=$E$2,(E$1+2)>$E$2)" ' use English formula here 

With Range("$A$1:$D$4").FormatConditions _ 
    .Add(Type:=xlExpression, Formula1:=temp.FormulaLocal) 

    With .Interior 
     .PatternColorIndex = xlAutomatic 
     .ThemeColor = xlThemeColorLight2 
     .TintAndShade = 0.799981688894314 
    End With 
End With 

Call temp.Clear ' do away with the temp cell 

Lưu ý rằng tôi cũng loại bỏ các vô dụng xlFormula lập luận của .Add() cuộc gọi, và explicited sự tên thông số tùy chọn.

Ngoài ra, sau khi thực tế tôi phát hiện ra rằng câu hỏi này trùng lặp với this và this.

Answer 2

Vấn đề là bạn chỉ đang chèn văn bản trong một ô, vì vậy nó sẽ chỉ hoạt động nếu excel được thiết lập cho ngôn ngữ đó. Thay vào đó, bạn có thể gán hàm trang tính từ mã VBA như sau:

ActiveCell = WorksheetFunction.And(H$7<=$G$7,(H$7+7)>$G$7) 

Bằng cách này Excel sẽ dịch công thức sang ngôn ngữ hiện tại mà người dùng đã thiết lập.