Cần giúp viết Code thể hiện một ô là ô ký tự hay là ô số (2 người xem)

[hung2412]

Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Có Code nào mà khi gõ vào ô B3 chữ Thuế thì ô D3 ghi là Ô này là ô ký tự?. Kết quả như hình vẽ sau:

Có Code nào mà khi gõ vào ô B3 số 3.323 thì ô D3 ghi là Ô này là ô số?. Kết quả như hình vẽ sau:

Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

 

[SA_DQ]

Các thô thiển nhất bạn có thể thực hiện là:

Bạn lấy 3 ô ở miền cực lạc nào đó, như 3 ô đầu của cột cuối trang tính;

Ô đầu bạn gán cho nó cái tên là 'ONLO' & nhập vô nó cụm từ "Ô này là ô "
Tiếp theo tương ứng sẽ là 'KT' & "Kí tự."
& cuối cùng tương ứng là 'So' & chỉ là từ "số'

Sau rốt là xài macro sự kiện sau:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim Ten&
 
 If Not Intersect(Target, Range("B2:B99")) Is Nothing Then
    Ten = Range("ONLO").Value
    If IsNumeric(Target.Value) Then
        Target.Offset(, 2).Value = Ten & Range("So").Value
    Else
        Target.Offset(, 2).Value = Ten & Range("KT").Value
    End If
 End If
End Sub

 

[TrungChinhs]

Bạn xem thêm code này. Nếu số viết dưới dạng Text (có thêm dấu nháy hoặc ký tự trắng ở đầu thì vẫn coi là số).

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("B2:B10000")) Is Nothing And Target > 0 Then
        If Target > 1E+100 Then
            Target(1, 3) = "Ky tu"
        Else
            Target(1, 3) = "So"
        End If
    End If
End Sub

 

[phihndhsp]

Cần chi cao siêu mình chỉ dùng hàm kiểm tra isnumber thì nó sẽ cho ra số hay chuỗi rồi

 

[hung2412]

Bạn lấy 3 ô ở miền cực lạc nào đó, như 3 ô đầu của cột cuối trang tính;

Ô đầu bạn gán cho nó cái tên là 'ONLO' & nhập vô nó cụm từ "Ô này là ô "
Tiếp theo tương ứng sẽ là 'KT' & "Kí tự."
& cuối cùng tương ứng là 'So' & chỉ là từ "số'

Sau rốt là xài macro sự kiện sau:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim Ten&
 
 If Not Intersect(Target, Range("B2:B99")) Is Nothing Then
    Ten = Range("ONLO").Value
    If IsNumeric(Target.Value) Then
        Target.Offset(, 2).Value = Ten & Range("So").Value
    Else
        Target.Offset(, 2).Value = Ten & Range("KT").Value
    End If
 End If
End Sub

Dòng lệnh:

    If IsNumeric(Target.Value) Then

=> Em muốn đổi sang lệnh:

    If Is...(Target.Value) Then

Chỗ ... điền bằng lệnh gì để thể hiện là "Nếu ô tác động là ô ký tự thì" ạ?

 

[Ba Tê]

Cần chi cao siêu mình chỉ dùng hàm kiểm tra isnumber thì nó sẽ cho ra số hay chuỗi rồi

Thử thế này xem thằng ISNUMERIC() giải quyết ra sao
A2='1234 (có dấu nháy đơn trước - kiểu Text)
Code:

Public Sub Bate()
If IsNumeric([A2]) Then
    [B2].Value = "NUMBER"
Else
    [B2].Value = "TEXT"
End If
End Sub

--------------------------
Ý...........Câu này là Hàm Excel, xài code là dzô diêngziêng

 

[phihndhsp]

Thử thế này xem thằng ISNUMERIC() giải quyết ra sao
A2='1234 (có dấu nháy đơn trước - kiểu Text)
Code:

Public Sub Bate()
If IsNumeric([A2]) Then
    [B2].Value = "NUMBER"
Else
    [B2].Value = "TEXT"
End If
End Sub

--------------------------
Ý...........Câu này là Hàm Excel, xài code là dzô diêngziêng

tại sao vấn đề này dùm hàm excel rất đơn giản mà không làm? Nếu có trường hợp '1234 tại sao không biết chế biến?

 

[ndu96081631]

tại sao vấn đề này dùm hàm excel rất đơn giản mà không làm? Nếu có trường hợp '1234 tại sao không biết chế biến?

"Chế" vầy được không:

=IF(COUNT(--A1),"Số","Chuỗi")

Ẹc... Ẹc...

 

[SA_DQ]

Dòng lệnh:

    If IsNumeric(Target.Value) Then

=> Em muốn đổi sang lệnh:

    If Is...(Target.Value) Then

Chỗ ... điền bằng lệnh gì để thể hiện là "Nếu ô tác động là ô ký tự thì" ạ?

Đường thẳng & fẳng không đi mà cứ muốn lao vô đường sống trâu là sao?

 

[hung2412]

Đường thẳng & fẳng không đi mà cứ muốn lao vô đường sống trâu là sao?

Dạ không, em chỉ muốn biết thêm lệnh để học thêm ạ.