Xin Macro thêm chuỗi vào cell theo điều kiện! (1 người xem)

[pbellh]

Mình có 1 file dữ liệu cọc ( theo cấu trúc nova ) như đính kèm, mình nhờ các bạn giúp 1 macro thêm chuỗi "TARGETL" hoặc "TARGETP" vào các cell cột A ứng với số âm hoặc dương bên cell cột B ( có ví dụ cọc C16 ). Xin cám ơn các bạn rất nhiều

 

[quocphuoc88]

Thử code này xem nhé bạn!

Sub GPE()
Dim i as Long
With Sheet1
    For i = 2 To .Range("B65500").End(xlUp).Row
        If IsNumeric(.Cells(i, 2)) Then
            If .Cells(i, 2) < 0 Then
                .Cells(i, 1) = "TARGETL"
            Else
                .Cells(i, 1) = "TARGETP"
            End If
        End If
    Next i
End With
End Sub

 

[Ba Tê]

Mình có 1 file dữ liệu cọc ( theo cấu trúc nova ) như đính kèm, mình nhờ các bạn giúp 1 macro thêm chuỗi "TARGETL" hoặc "TARGETP" vào các cell cột A ứng với số âm hoặc dương bên cell cột B ( có ví dụ cọc C16 ). Xin cám ơn các bạn rất nhiều

Chỉ nói dương hoặc âm, nếu cột B=0 thì sao? Tự chỉnh code nhé

Public Sub GPE()
Dim Arr(), I As Long
With Sheet1
    Arr = .Range(.[A1], .[B65536].End(xlUp)).Value
    For I = 1 To UBound(Arr, 1)
        If Arr(I, 1) = "" Then
            If Arr(I, 2) < 0 Then
                Arr(I, 1) = "TARGETL"
            Else
                Arr(I, 1) = "TARGETP"
            End If
        End If
    Next I
.[A1].Resize(I - 1) = Arr
End With
End Sub

 

[ndu96081631]

Mình có 1 file dữ liệu cọc ( theo cấu trúc nova ) như đính kèm, mình nhờ các bạn giúp 1 macro thêm chuỗi "TARGETL" hoặc "TARGETP" vào các cell cột A ứng với số âm hoặc dương bên cell cột B ( có ví dụ cọc C16 ). Xin cám ơn các bạn rất nhiều

Tôi thấy yêu cầu này mình làm bằng tay cũng nhanh mà:
- AutoFilter cột B theo điều kiện <0
- Quét chọn cột A (sau khi filter), gõ lên thanh Formula chuỗi TARGETL rồi Ctrl + Enter
- Tiếp tục AutoFilter cột B theo điều kiện >0
- Quét chọn cột A (sau khi filter), gõ lên thanh Formula chuỗi TARGETP rồi Ctrl + Enter
----------------
Muốn có code, bạn cứ Record macro quá trình làm bằng tay như đã hướng dẫn ở trên, sẽ có ngay code cho bạn
Suy nghĩ "xa xôi" quá, đôi khi bạn tưởng nó khó, thật ra là trong tầm tay bạn thôi

 

[pbellh]

Các bạn nhiệt tình quá, cám ơn các bạn rất nhiều lun
@quocphuoc88,Ba Tê: code của 2 bạn đều đáp ứng được, cột B=0 không xuất hiện trong bảng dữ liệu này Ba Tê ah.
@ndu: cách của bác cũng rất hay, làm tay cũng nhanh, nhưng record lại quá trình thì lần sau bảng dữ liệu thay đổi, nó đâu biết mình cần chọn bao nhiêu hàng bác?

 

[VetMini]

...
@ndu: cách của bác cũng rất hay, làm tay cũng nhanh, nhưng record lại quá trình thì lần sau bảng dữ liệu thay đổi, nó đâu biết mình cần chọn bao nhiêu hàng bác?

Nếu bạn làm đúng thì nó tự động biết bạn chọn bao nhiêu hàng.

 

[pbellh]

Nếu bạn làm đúng thì nó tự động biết bạn chọn bao nhiêu hàng.

Mình vừa test thử record xong, thêm 3 cọc, và nó ko tự điền 3 cọc thêm vào bạn ạ