hỏi code sau khi nhập xong sẽ nhận giá trị text (1 người xem)

[ST-Lu!]

Private Sub Worksheet_Change(ByVal Target As Range)
   With Range([H2], [H10000].End(xlUp))
    If Not Intersect(.Cells, Target) Is Nothing Then
              If Target <> "" Then
                   ' Em sẽ thêm code gì ở đây??? để sau dữ liệu được nhận là text sau khi nhập.
        
              End If
      End If
   End With

Em muốn sau khi nhập dữ liệu vào cột H thì được nhận là text, xin chỉ giúp

Cám ơn các Huynh

 

[ndu96081631]

Private Sub Worksheet_Change(ByVal Target As Range)
   With Range([H2], [H10000].End(xlUp))
    If Not Intersect(.Cells, Target) Is Nothing Then
              If Target <> "" Then
                   ' Em sẽ thêm code gì ở đây??? để sau dữ liệu được nhận là text sau khi nhập.
        
              End If
      End If
   End With

Em muốn sau khi nhập dữ liệu vào cột H thì được nhận là text, xin chỉ giúp

Cám ơn các Huynh

Không biết ý bạn có phải là: Sau khi nhập liệu, dù là dạng dử liệu nào cũng đều phải chuyển sang dạng TEXT?
Nếu đúng thế thì tạm dùng cái này:

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  With Range([H2], [H10000].End(xlUp))
    If Not Intersect(.Cells, Target) Is Nothing Then
      Target.NumberFormat = "@"
      Target = Format(Target, "@")
    End If
  End With
  Application.EnableEvents = True
End Sub

Cũng chưa chính xác lắm đâu... vì bài toán Convert Text to Number dể dàng bao nhiêu thì điều ngược lại trở nên khó khăn bấy nhiêu!

 

[ST-Lu!]

Không biết ý bạn có phải là: Sau khi nhập liệu, dù là dạng dử liệu nào cũng đều phải chuyển sang dạng TEXT?
Nếu đúng thế thì tạm dùng cái này:

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  With Range([H2], [H10000].End(xlUp))
    If Not Intersect(.Cells, Target) Is Nothing Then
      Target.NumberFormat = "@"
      Target = Format(Target, "@")
    End If
  End With
  Application.EnableEvents = True
End Sub

Cũng chưa chính xác lắm đâu... vì bài toán Convert Text to Number dể dàng bao nhiêu thì điều ngược lại trở nên khó khăn bấy nhiêu!

Thầy kiểm tra lại giúp, em nhập 001 --> nó hiện thị thành 1 (nhưng là text)
mục đích của em là
Ví dụ:
nhập 001 --> hiện thị là 001 (là text)

 

[ndu96081631]

Thầy kiểm tra lại giúp, em nhập 001 --> nó hiện thị thành 1 (nhưng là text)
mục đích của em là
Ví dụ:
nhập 001 --> hiện thị là 001 (là text)

Đúng rồi ---> Bởi vậy tôi mới nói chuyển Number sang Text là bài toán vô cùng khó ---> Excel làm sao biết được bạn muốn Format như thế nào... Thực chất khi gõ 001, Excel nó vẫn hiểu là số 1 mà thôi.. còn Format sau đó phải do ta quyết định
Trừ phi bạn biết trước là mình cần Format dạng "000" thì OK ---> Còn cái vụ nhập gì ra nấy chắc THUA... (nếu dùng code)
Chỉ có 1 cách duy nhất, dể nhất, đơn giản nhất và không cần dùng code gì cả.... Cứ định dạng trước cho cột H thuộc dạng TEXT là xong ---> Bạn nhập cái gì, đương nhiên nó sẽ ra thế nấy!