Gõ 1M thành 1000000? (2 người xem)

[cocacola90]

Xin chào các anh chị và các bạn, nay em có 1 vấn đề muốn nhờ anh chị gỡ rối.
Khi ta gõ tắt vào ô bất kì ô nào trong bảng tính thì:
+ 2T = 2000 (2 ngàn)
+ 2M = 2000000 (2 triệu)
+ 2B = 2000000000 (2 tỷ)
và tất cả đều là giá trị số, có thể cộng trừ nhân chia với một số khác.
Cám ơn rất nhiều!

 

[nhat chi mai]

Xin chào các anh chị và các bạn, nay em có 1 vấn đề muốn nhờ anh chị gỡ rối.
Khi ta gõ tắt vào ô bất kì ô nào trong bảng tính thì:
+ 2T = 2000 (2 ngàn)
+ 2M = 2000000 (2 triệu)
+ 2B = 2000000000 (2 tỷ)
và tất cả đều là giá trị số, có thể cộng trừ nhân chia với một số khác.
Cám ơn rất nhiều!

Bài của bạn chỉ dùng name thôi
p/s Hiểu nhầm đề ẹc ẹc

 

[Quang_Hải]

Xin chào các anh chị và các bạn, nay em có 1 vấn đề muốn nhờ anh chị gỡ rối.
Khi ta gõ tắt vào ô bất kì ô nào trong bảng tính thì:
+ 2T = 2000 (2 ngàn)
+ 2M = 2000000 (2 triệu)
+ 2B = 2000000000 (2 tỷ)
và tất cả đều là giá trị số, có thể cộng trừ nhân chia với một số khác.
Cám ơn rất nhiều!

Bài này phải dùng VBA thôi

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DK As String
DK = UCase(Right(Target, 1))
If DK = "T" Then
    Target = (Left(Target, Len(Target) - 1)) * 1000
ElseIf DK = "M" Then
    Target = (Left(Target, Len(Target) - 1)) * 1000000
ElseIf DK = "B" Then
    Target = (Left(Target, Len(Target) - 1)) * 1000000000
End If
End Sub

 

[cocacola90]

Bài này phải dùng VBA thôi

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DK As String
DK = UCase(Right(Target, 1))
If DK = "T" Then
    Target = (Left(Target, Len(Target) - 1)) * 1000
ElseIf DK = "M" Then
    Target = (Left(Target, Len(Target) - 1)) * 1000000
ElseIf DK = "B" Then
    Target = (Left(Target, Len(Target) - 1)) * 1000000000
End If
End Sub

em có copy vào module nhưng... không được! 1M nó vẫn thành 1M thôi anh ơi...

 

[Quang_Hải]

em có copy vào module nhưng... không được! 1M nó vẫn thành 1M thôi anh ơi...

Phải cho vào sheet chứ.

 

[Ngoai Thanh]

em có copy vào module nhưng... không được! 1M nó vẫn thành 1M thôi anh ơi...

sao lại không được, file của bạn đây ( mình chỉ ráp hộ code thôi !). úi cha, chậm rồi! cám ơn Quang Hải .

 

[cocacola90]

Cám ơn mấy anh rất nhiều!

 

[tanokrsti]

Xin chào bạn,
Bạn có thể dùng AutoCorrect Options... trong menu Tools như sau:
Tools\AutoCorrect Options...\Chọn tab AutoCorrect\trong phần Repace bạn gõ ký tự đại diện cho số bạn muốn thay thế\trong phần With bạn gõ số bạn cần vào\Ok. Thế là xong.
Khi không cần dùng nữa bạn nhớ xóa đi để người khác không bị nhầm.
Chúc bạn vui

 

[nhanvvGPE]

Xin chào bạn,
Bạn có thể dùng AutoCorrect Options... trong menu Tools như sau:
Tools\AutoCorrect Options...\Chọn tab AutoCorrect\trong phần Repace bạn gõ ký tự đại diện cho số bạn muốn thay thế\trong phần With bạn gõ số bạn cần vào\Ok. Thế là xong.
Khi không cần dùng nữa bạn nhớ xóa đi để người khác không bị nhầm.
Chúc bạn vui

Hi Bạn

Cách này mà dùng thì dễ nhầm lắm khi bạn gõ chữ M vào bản tính.
Cách viết code ở trên tốt hơn nhưng mình nghĩ cần thêm vào điều kiện là các ký tự bên trái của M phải là số thì mới chuyển đổi để tránh nhầm lẫn khi bạn chỉ gõ chuỗi kí tự có kết thúc bằng M.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DK As String
DK = UCase(Right(Target, 1))
If IsNumeric(Left(Target,Len(Target)-1)) Then
If DK = "T" Then
Target = (Left(Target, Len(Target) - 1)) * 1000
ElseIf DK = "M" Then
Target = (Left(Target, Len(Target) - 1)) * 1000000
ElseIf DK = "B" Then
Target = (Left(Target, Len(Target) - 1)) * 1000000000
End If
End If
End Sub

Thân