Gán công thức vào ô của sheet từ code VBA

[nhatchidao]

Chào các anh,

Em có đoạn code sau:

Sub TotalSlack()
Dim VUNG1 As Range
Dim cell As Range
For Each cell In VUNG1
   ......
   cell.offset(,14).formula="=minlookup(data1,"&cell.address&","SS",11)"
   ....
Next
End sub

Lỗi báo là "Expected: lỉst separator or ) " và bôi đen ngay vị trí "," (nằm giữa & và SS)
công thức em muốn gán vào cell.offset(,14) là =minlookup(data1,A12,"SS",11) trong đó A12 được thay bằng cell.address
Các anh chỉ giúp em cách sửa với.
Thanks

 

[ndu96081631]

Chào các anh,

Em có đoạn code sau:

Sub TotalSlack()
Dim VUNG1 As Range
Dim cell As Range
For Each cell In VUNG1
   ......
   cell.offset(,14).formula="=minlookup(data1,"&cell.address&","SS",11)"
   ....
Next
End sub

Lỗi báo là "Expected: lỉst separator or ) " và bôi đen ngay vị trí "," (nằm giữa & và SS)
công thức em muốn gán vào cell.offset(,14) là =minlookup(data1,A12,"SS",11) trong đó A12 được thay bằng cell.address
Các anh chỉ giúp em cách sửa với.
Thanks

Viết vậy sai quá rồi còn gì (chú ý những nơi trong công thức có dấu ")
Sửa:

cell.offset(,14).formula="=minlookup(data1,"&cell.address&","SS",11)"

thành:

cell.Offset(, 14).Formula = "=minlookup(data1," & cell.Address & ",""SS"",11)"

Hoặc:
Nơi nào trong công thức có dấu " thì thay nó = Chr(34)

 

[nhatchidao]

c960m ơn anh giúp đỡ nhưng em sử rồi nó cũng báo lỗi như vậy ạ.
P/s: à em biêt rồi. Do mấy cái khoảng trắng trong công thức bị thiếu. Bây giờ sửa như anh ndu96081631 là ok rồi.

 

[ndu96081631]

c960m ơn anh giúp đỡ nhưng em sử rồi nó cũng báo lỗi như vậy ạ.
P/s: à em biêt rồi. Do mấy cái khoảng trắng trong công thức bị thiếu. Bây giờ sửa như anh ndu96081631 là ok rồi.

Trong 1 số trường hợp, dấu nháy (") trong công thức nhiều quá, và bạn không nhớ nổi chổ nào 1 dấu " , chổ nào 2 dấu thì có thể dùng hàm Chr(34) để thay thế! Như vậy sẽ dể nhìn hơn (nhưng code sẽ dài hơn)
(Chr(34) chính là dấu ")