Làm sao để nhập 98 thành 9.8.....?

[hinhthienma]

Cái này mình cũng không am hiểu lắm nhưng mình nghĩ là do định dạng trong phần option định dạng dữ liệu , bạn nên đổi nó thành dạng text! gửi bởi admin tai game.

 

[tientudung74]

Anh quanghai1969 ơi hôm vừa rồi em có hỏi anh về đoạn code nhập điểm nhanh, qua mấy đêm mầy mò em đã chỉnh được đoạn code (có thể nói là đáp ứng được 99,99% yêu cầu của em) nhưng khổ nỗi khi tes đi tes lại nó lại nảy sinh một vấn đề sau: khi nhấn nút Delete thì Cell đó lại xuất hiện số 0.0 và không xóa được, chỉ khi bôi đen Cell đó rồi nhấn nút Delete hoặc nhấn một Text bất kỳ thì nó mới rỗng. Vậy làm sao hả anh? Giúp em với nhé.
Code em đã chỉnh đây, có gì anh chỉ giáo. Cám ơn anh và mọi người rất nhiều.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Set isect = Application.Intersect(Target, Sheet1.Range("A1:A100"))
If Not isect Is Nothing And Target.Count = 1 Then
If InStr(Target, ",") > 1 Then Target = Replace(Target, ",", "")
If InStr(Target, ".") > 1 Then Target = Replace(Target, ".", "")
If IsNumeric(Target.Value) Then
If Len(Target) > 2 And Target <> 100 Then
Target.NumberFormat = "0.0"
Target = Application.Round((Left(Target, 3) / 100), 1)
ElseIf Len(Target) > 1 And Target <> 10 And Target <> 100 Then
Target.NumberFormat = "0.0"
Target.Value = Left(Target, 2) / 10
ElseIf Target = 100 Then
Target.NumberFormat = "0.0"
Target.Value = Target / 10
Else
Target.NumberFormat = "0.0"
Target.Value = Target * 1
End If
Else
Target = Empty
Target.Select
End If
End If
Application.EnableEvents = True
End Sub

Giúp em với các anh ơi!

 

[thuyenanh]

Mình có 1 vấn đề thế này.nhập điểm thành phần cho học sinh hệ số 1 hệ số 2.
Khi nhập vào các số từ 0 đến 10 thì hiển thị bình thường ví dụ 6.5 thì đúng rồi
Nhưng nếu mình nhập 65 thì làm sao để khi Enter nó tự chuyển thanh 6.5
Mình nghĩ chắc viết bằng vba phải không?
Ai rành vụ này chỉ mình với!

Bạn vào Menu:Tools ->options...Hộp thoại Options hiện ra. Bạn vào thẻ Edit, chọn vào hộp kiểm Fixed dicemal, phía dươi có mục Places bạn đánh vào đó giá trị là 1 sau đó nhấn OK. Trong ô bạn nhập vào định dạng có 1 số lẻ ở phần là 1 chữ số trong hộp thoại Format Cell->Number. Khi đó bạn nhập vào 65 sẽ hiển thị số 6,5.