Xin sửa giúp để gán công thức cho ô

[phamvandunghp84]

Mình muốn gán công thức này vào ô G theo biến i thì phải viết như nào mới đúng ?

Sheets("DS").Range("G" & i).Value = "=IF(AND(COUNTIF(C:C;F3)=0;F3<>"");"oc vit";COUNTIF(C:C;F3))"

Mình đã thử viết như này nhưng báo lỗi
Sheets("DS").Range("G" & i).Value = "=IF(AND(COUNTIF(C:C;F&i)=0;F&i<>"""");""oc vi"";COUNTIF(C:C;F&i))"

 

[Bluestar092011]

Mình muốn gán công thức này vào ô G theo biến i thì phải viết như nào mới đúng ?

Sheets("DS").Range("G" & i).Value = "=IF(AND(COUNTIF(C:C;F3)=0;F3<>"");"oc vit";COUNTIF(C:C;F3))"

Mình đã thử viết như này nhưng báo lỗi
Sheets("DS").Range("G" & i).Value = "=IF(AND(COUNTIF(C:C;F&i)=0;F&i<>"""");""oc vi"";COUNTIF(C:C;F&i))"

Thử thế này.

Sheets("DS").Range("G" & i).Formula = "=IF(AND(COUNTIF(C:C;F3)=0;F3<>"""");""oc vit"";COUNTIF(C:C;F3))"

 

[Cá ngừ F1]

Bạn viết cũng khá nhiều bài rồi
Theo tôi:
- Tiêu đề của topic cần dễ hiểu, không cần phải xin cho gì đâu
- Bạn muốn viết trong VBA thì phải đưa vào mục lập trình
- Tốt nhất là nên có file, chứ đọc thế kia mọi người không hiểu í bạn cần kết quả thế nào đâu.
Bạn chỉnh lại nhé, chắc chắn sẽ nhiều người giúp bạn

 

[phamvandunghp84]

Thử thế này.

Sheets("DS").Range("G" & i).Formula = "=IF(AND(COUNTIF(C:C;F3)=0;F3<>"""");""oc vit"";COUNTIF(C:C;F3))"

bạn ơi như này thì F&i nó nhảy theo biến i như nào bạn? F3, F4, F5.. ?

Bài đã được tự động gộp: 27/8/20

Bạn viết cũng khá nhiều bài rồi
Theo tôi:
- Tiêu đề của topic cần dễ hiểu, không cần phải xin cho gì đâu
- Bạn muốn viết trong VBA thì phải đưa vào mục lập trình
- Tốt nhất là nên có file, chứ đọc thế kia mọi người không hiểu í bạn cần kết quả thế nào đâu.
Bạn chỉnh lại nhé, chắc chắn sẽ nhiều người giúp bạn

Cảm ơn bạn mình sẽ giúp kinh nghiệm, tại cũng lớn tuổi lên nhiều cái khó.. bạn thông cảm!

Bài đã được tự động gộp: 27/8/20

Bạn viết cũng khá nhiều bài rồi
Theo tôi:
- Tiêu đề của topic cần dễ hiểu, không cần phải xin cho gì đâu
- Bạn muốn viết trong VBA thì phải đưa vào mục lập trình
- Tốt nhất là nên có file, chứ đọc thế kia mọi người không hiểu í bạn cần kết quả thế nào đâu.
Bạn chỉnh lại nhé, chắc chắn sẽ nhiều người giúp bạn

Mình gửi file bạn xem sửa giúp mình !. Cảm ơn bạn !

 

[phamvandunghp84]

bạn ơi như này thì F&i nó nhảy theo biến i như nào bạn? F3, F4, F5.. ?

Bài đã được tự động gộp: 27/8/20

Cảm ơn bạn mình sẽ giúp kinh nghiệm, tại cũng lớn tuổi lên nhiều cái khó.. bạn thông cảm!

Bài đã được tự động gộp: 27/8/20

Mình gửi file bạn xem sửa giúp mình !. Cảm ơn bạn !

Sub thay_dau_bang()
Dim i As Integer
Sheets("DS").Select
For i = 3 To 5
Sheets("DS").Range("G" & i).Value = "=IF(AND(COUNTIF(C:C;F" & i & ")=0;F" & i & "<>"""");""oc vit"";COUNTIF(C:C;F" & i & "))"
Next i
End Sub

Mong muốn của mình là làm sao tạo ra các công thức ở các ô G3, G4, G5 như này:
IF(AND(COUNTIF(C:C;F3)=0;F3<>"");"oc vit";COUNTIF(C:C;F3))
IF(AND(COUNTIF(C:C;F4)=0;F4<>"");"oc vit";COUNTIF(C:C;F4))
IF(AND(COUNTIF(C:C;F5)=0;F5<>"");"oc vit";COUNTIF(C:C;F5))

 

[Bluestar092011]

Sub thay_dau_bang()
Dim i As Integer
Sheets("DS").Select
For i = 3 To 5
Sheets("DS").Range("G" & i).Value = "=IF(AND(COUNTIF(C:C;F" & i & ")=0;F" & i & "<>"""");""oc vit"";COUNTIF(C:C;F" & i & "))"
Next i
End Sub

Mong muốn của mình là làm sao tạo ra các công thức ở các ô G3, G4, G5 như này:
IF(AND(COUNTIF(C:C;F3)=0;F3<>"");"oc vit";COUNTIF(C:C;F3))
IF(AND(COUNTIF(C:C;F4)=0;F4<>"");"oc vit";COUNTIF(C:C;F4))
IF(AND(COUNTIF(C:C;F5)=0;F5<>"");"oc vit";COUNTIF(C:C;F5))

Trong file của bạn làm gì có sheet DS mà chọn. Sửa lại thế này.

Sub thay_dau_bang()
Dim i As Integer
For i = 3 To 30
   Sheets(1).Range("G" & i).Formula = "=IF(AND(COUNTIF(C:C;F" & i & ")=0;F" & i & "<>"""");""oc vit"";COUNTIF(C:C;F" & i & "))"
Next i
End Sub

 

[Cá ngừ F1]

bạn ơi như này thì F&i nó nhảy theo biến i như nào bạn? F3, F4, F5.. ?

Bài đã được tự động gộp: 27/8/20

Cảm ơn bạn mình sẽ giúp kinh nghiệm, tại cũng lớn tuổi lên nhiều cái khó.. bạn thông cảm!

Bài đã được tự động gộp: 27/8/20

Mình gửi file bạn xem sửa giúp mình !. Cảm ơn bạn !

Không hiểu File là gì luôn ạ, File trắng, kết quả cần thế nào cũng không biết.

 

[be_09]

........................tại cũng lớn tuổi lên nhiều cái khó.. bạn thông cảm!.......................

Mới có 37 tuổi mà lớn cái gì. Trên diễn đàn này có một số thành viên gấp đôi tuổi của bạn nhưng họ có bao giờ nêu lớn tuổi đâu, thậm chí họ còn hăng hái giúp đỡ cho nhiều thành viên là đằng khác.

 

[phamvandunghp84]

Trong file của bạn làm gì có sheet DS mà chọn. Sửa lại thế này.

Sub thay_dau_bang()
Dim i As Integer
For i = 3 To 30
   Sheets(1).Range("G" & i).Formula = "=IF(AND(COUNTIF(C:C;F" & i & ")=0;F" & i & "<>"""");""oc vit"";COUNTIF(C:C;F" & i & "))"
Next i
End Sub

Bạn ơi cách viết này mình cũng nghĩ là đúng nhưng sao vẫn không đúng bạn ạ? uh bị nhầm sheets DS mình đã hiểu. nhưng thử sửa công thức VBA đủ kiểu mà vẫn k được ?

Sheets("DS").Range("G" & i).FormulaR1C1= "=IF(AND(COUNTIF(C:C;F" & i & ")=0;F" & i & "<>"""");""oc vit"";COUNTIF(C:C;F" & i & "))"

Sheets("DS").Range("G" & i).Value= "=IF(AND(COUNTIF(C:C;F" & i & ")=0;F" & i & "<>"""");""oc vit"";COUNTIF(C:C;F" & i & "))"

Bài đã được tự động gộp: 28/8/20

Mới có 37 tuổi mà lớn cái gì. Trên diễn đàn này có một số thành viên gấp đôi tuổi của bạn nhưng họ có bao giờ nêu lớn tuổi đâu, thậm chí họ còn hăng hái giúp đỡ cho nhiều thành viên là đằng khác.

Cảm ơn bạn đã động viên.
bạn thấy đó thật là khó tuổi càng lớn càng kém.. ngay một công thức tưởng chừng đơn giản nhất và loay hoay mãi vẫn không học được...không viết được cho đúng nữa. Cảm giác lập trình mà như kiểu đang dò mật khẩu vậy. hic