Hỏi về ghi ký tự " trong công thức VBA (1 người xem)

[NguyenNgocSon]

Chào các bác em đang làm ghi công thức hàm SUMIF bằng VBA nhưng đang bị lỗi sau

Sub Auto_Sum()
Dim cotghi As Stringcotghi = Application.InputBox("Nhap ten cot theo thu tu sau: Tenshets-CotDK-DK-Cotsum", "Nguyen Ngoc Son")
Dim tach As Varianttach = Split(cotghi, ",")
ActiveCell.Formula = "=Sumif(" & "'" & tach(0) & "'" & "!" & tach(1) & ":" & tach(1) & "," & tach(2) & "," & "'" & tach(0) & "'" & "!" & tach(3) & ":" & tach(3) & ")"
End Sub

Vơi ô chọn cột ghi có giá trị: [TABLE="width: 85"]
[TR]
[TD]Mo,V,bt,N[/TD]
[/TR]
[/TABLE]
Kết quả trả về là: =SUMIF(Mo!V:V,bt,Mo!N:N)
[TABLE="width: 116"]
[TR]
[TD][TABLE="width: 340"]
[TR]
[TD]Như vậy excel không tính đúng mà đúng phải là:
Kết quả trả về là: =SUMIF(Mo!V:V,"bt",Mo!N:N)[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]
Nhu vay em muon hoi ghi cai ky tu " giua bt bang VBA
Cám ơn !

 

[SA_DQ]

Trường hợp như vậy, mình sẽ mở bộ thu macro lên xem nó ghi làm sao?

 

[NguyenNgocSon]

Trường hợp như vậy, mình sẽ mở bộ thu macro lên xem nó ghi làm sao?

Cám ơn bạn. Đã thư nhưng không được

 

[vu_tuan_manh_linh]

Chào các bác em đang làm ghi công thức hàm SUMIF bằng VBA nhưng đang bị lỗi sau

Sub Auto_Sum()
Dim cotghi As Stringcotghi = Application.InputBox("Nhap ten cot theo thu tu sau: Tenshets-CotDK-DK-Cotsum", "Nguyen Ngoc Son")
Dim tach As Varianttach = Split(cotghi, ",")
ActiveCell.Formula = "=Sumif(" & "'" & tach(0) & "'" & "!" & tach(1) & ":" & tach(1) & "," & tach(2) & "," & "'" & tach(0) & "'" & "!" & tach(3) & ":" & tach(3) & ")"
End Sub

Vơi ô chọn cột ghi có giá trị: [TABLE="width: 85"]
[TR]
[TD]Mo,V,bt,N[/TD]
[/TR]
[/TABLE]
Kết quả trả về là: =SUMIF(Mo!V:V,bt,Mo!N:N)
[TABLE="width: 116"]
[TR]
[TD][TABLE="width: 340"]
[TR]
[TD]Như vậy excel không tính đúng mà đúng phải là:
Kết quả trả về là: =SUMIF(Mo!V:V,"bt",Mo!N:N)[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]
Nhu vay em muon hoi ghi cai ky tu " giua bt bang VBA
Cám ơn !

Trường hợp này bạn dùng hàm Chr(34) để trả về ký tự " trong hàm excel nhé!

 

[VetMini]

Gấp đôi cái ký tự ấy lên

... & ",""" & tach(2) & """," & ...