Chuyển công thức thành vba

[maiban1986]

nhờ anh chị chuyển dùm công thức thành vba. em xin cảm ơn

 

[SA_DQ]

Bạn thử xài cái ni xem sao:

Sub VBACopyThayCongThuc()
 Const Dg As Integer = 9
 Dim Col As Integer, Rw As Long
 Dim Cls As Range
 
 For Each Cls In Range([B4], [B4].End(xlDown))
    If Left(Cls.Value, 2) = "HI" And Right(Cls.Value, 1) = "N" Then
        Rw = Cls.Row
        Col = Switch(Rw = 4, 18, Rw = 5, 55, Rw = 6, 137, Rw = 7, 176, Rw = 8, 186, Rw = 9, 189)
        Cells(Dg, Col).Value = "Hello":                 Cells(Dg + 1, Col).Value = "Xin Chào!"
    End If
 Next Cls
End Sub

 

[maiban1986]

Bạn thử xài cái ni xem sao:

Sub VBACopyThayCongThuc()
Const Dg As Integer = 9
Dim Col As Integer, Rw As Long
Dim Cls As Range

For Each Cls In Range([B4], [B4].End(xlDown))
    If Left(Cls.Value, 2) = "HI" And Right(Cls.Value, 1) = "N" Then
        Rw = Cls.Row
        Col = Switch(Rw = 4, 18, Rw = 5, 55, Rw = 6, 137, Rw = 7, 176, Rw = 8, 186, Rw = 9, 189)
        Cells(Dg, Col).Value = "Hello":                 Cells(Dg + 1, Col).Value = "Xin Chào!"
    End If
Next Cls
End Sub

xin cám ơn nhiều. cho hỏi sao thay đổi ô B4:B8 nhưng nó ko thanh đổi

 

[VetMini]

Bạn thử xài cái ni xem sao:
...

Han ha, bỏ công nấu cơm mà còn tiếc chút công dọn ra mâm.

 

[maiban1986]

Han ha, bỏ công nấu cơm mà còn tiếc chút công dọn ra mâm.

Dạ ko hiểu ý

 

[SA_DQ]

xin cám ơn nhiều. cho hỏi sao thay đổi ô B4:B8 nhưng nó ko thanh đổi

Bạn 'thay đổi' chúng như thế nào:
? Thay nhóm hay từ khác
? Thay tại 1 vài vị trí trong vùng đó?

Đúng là chương trình chưa xóa dữ liệu lần chạy trước; Cho nên điều kiện không thỏa vẫn để nguyên kết quả lần chạy nào đó trước đấy.
- - - - - - - -

Han ha, bỏ công nấu cơm mà còn tiếc chút công dọn ra mâm.

Để câu bài cho đủ sở hụi mà, thông cảm đi bạn!

 

[maiban1986]

Bạn 'thay đổi' chúng như thế nào:
? Thay nhóm hay từ khác
? Thay tại 1 vài vị trí trong vùng đó?

Đúng là chương trình chưa xóa dữ liệu lần chạy trước; Cho nên điều kiện không thỏa vẫn để nguyên kết quả lần chạy nào đó trước đấy.
- - - - - - - -

Để câu bài cho đủ sở hụi mà, thông cảm đi bạn!

dạ thay đổi vùng nào thi nó ẩn hiện vùng đó. mong anh hướng dẫn

 

[SA_DQ]

dạ thay đổi vùng nào thi nó ẩn hiện vùng đó. mong anh hướng dẫn

Mình không thể hiểu nổi, vì sao:
Đầu câu không viết bông?
Vùng nào thay đổi vậy, nó hay chúng nó có địa chỉ không?

Nhưng dù sao thì mình chào thua từ đây!

 

[maiban1986]

Mình không thể hiểu nổi, vì sao:
Đầu câu không viết bông?
Vùng nào thay đổi vậy, nó hay chúng nó có địa chỉ không?

Nhưng dù sao thì mình chào thua từ đây!

dù sao cũng cảm ơn anh đã hỗ trợ. xin cảm ơn

 

[maiban1986]

Có bác nào hỗ trợ không ạ

 

[VetMini]

Bạn khong chịu bỏ công nghe theo lời ngừoi đã sẵn sàng giúp còn bảo ai giúp gì nữa?

Tôi nghĩ nếu có ai làm tiếp là một sự xỉ vả cho tác giả bài #6 & #8.

 

[maiban1986]

Bạn khong chịu bỏ công nghe theo lời ngừoi đã sẵn sàng giúp còn bảo ai giúp gì nữa?

Tôi nghĩ nếu có ai làm tiếp là một sự xỉ vả cho tác giả bài #6 & #8.

Thật buồn cười

 

[VetMini]

Thật buồn cười

Thì cứ ngồi đó mà cười.
Bạn là người cần giúp chứ phải tôi đâu.

 

[maiban1986]

Thì cứ ngồi đó mà cười.
Bạn là người cần giúp chứ phải tôi đâu.

cảm ơn bạn. Tôi có người giúp rồi. cảm ơn mọi người ạ