chèn dấu nháy trước số 0 (1 người xem)

[daodaivu2014tb]

Em có ít dữ liệu kết quả xổ số ..Em cần chạy một số công thức thì hay gặp lỗi..và sai kết quả..vì một số Ô có giá trị đầu là số không thì không được Do đó em phải tạo thêm dấu nháy đứng trước số 0 thủ công từng Ô 1...nhiều lúc buồn ngủ. hay đánh nhầm lắm ạ....Các Anh Chị xem có code nào giúp em cho nhanh và chính xác không..Em xin cảm ơn rất nhiều

 

[giangleloi]

Em có ít dữ liệu kết quả xổ số ..Em cần chạy một số công thức thì hay gặp lỗi..và sai kết quả..vì một số Ô có giá trị đầu là số không thì không được Do đó em phải tạo thêm dấu nháy đứng trước số 0 thủ công từng Ô 1...nhiều lúc buồn ngủ. hay đánh nhầm lắm ạ....Các Anh Chị xem có code nào giúp em cho nhanh và chính xác không..Em xin cảm ơn rất nhiều

Bạn định dạng cho cái vùng cần nhập kiểu Text là khỏi cần đánh dấu nháy. Ctrl +1 => Text

 

[daodaivu2014tb]

Bạn định dạng cho cái vùng cần nhập kiểu Text là khỏi cần đánh dấu nháy. Ctrl +1 => Text

Cám ơn bạn nhiều..mình làm mà không được bạn à...nếu có thể bạn sửa giúp mình được không..mình chuyển thì lại mất hết số 0 đứng đầu...xin cảm ơn nhiều

 

[ndu96081631]

Em có ít dữ liệu kết quả xổ số ..Em cần chạy một số công thức thì hay gặp lỗi..và sai kết quả..vì một số Ô có giá trị đầu là số không thì không được Do đó em phải tạo thêm dấu nháy đứng trước số 0 thủ công từng Ô 1...nhiều lúc buồn ngủ. hay đánh nhầm lắm ạ....Các Anh Chị xem có code nào giúp em cho nhanh và chính xác không..Em xin cảm ơn rất nhiều

Chạy code này thử xem

Sub Test()
  Dim cel As Range
  For Each cel In Range("A1:G370").SpecialCells(xlCellTypeConstants)
    If Left(cel.Text, 1) = "0" Then cel.Value = "'" & cel.Text
  Next
End Sub

 

[daodaivu2014tb]

Chạy code này thử xem

Sub Test()
  Dim cel As Range
  For Each cel In Range("A1:G370").SpecialCells(xlCellTypeConstants)
    If Left(cel.Text, 1) = "0" Then cel.Value = "'" & cel.Text
  Next
End Sub

Dạ OK rồi bác ơi..Em xin cảm ơn Bác và GPE nhiều..

 

[phulien1902]

Chạy code này thử xem

Sub Test()
  Dim cel As Range
  For Each cel In Range("A1:G370").SpecialCells(xlCellTypeConstants)
    If Left(cel.Text, 1) = "0" Then cel.Value = "'" & cel.Text
  Next
End Sub

Hay quá, bác ndu trúng giải đặc biệt rồi, hiii

 

[daodaivu2014tb]

Chạy code này thử xem

Sub Test()
  Dim cel As Range
  For Each cel In Range("A1:G370").SpecialCells(xlCellTypeConstants)
    If Left(cel.Text, 1) = "0" Then cel.Value = "'" & cel.Text
  Next
End Sub

Bác ndu96081631 ơi..có cách nào để code này tự động chạy mỗi khi Em up thêm kết quả dữ liệu không ạ...em xin cảm ơn nhiều

 

[sealand]

Tôi thấy vẫn không hợp lý xuất phát từ yêu cầu của chính chủ. Ngoài việc thêm dấu nháy vào còn phải thêm vào số lượng con số 0 tương ứng nữa. Ví dụ giải 5 có 4 chữ số, số trúng là 12 chẳng hạn thì giá trị trong ô phải là: '0012.
Vậy nên tôi tham gia thêm 1 chút :

Sub Macro1()
Dim Cl As Range, Lg()
Lg = Array(5, 5, 5, 5, 5, 4, 4, 4, 4, 3, 2)
For Each Cl In Selection.SpecialCells(xlCellTypeConstants, 1).Cells
    Cl = "'" & Right("00000" & Val(Cl), Lg((Cl.Row Mod 12) - 1))
    Next
End Sub

Nếu muốn tự động điều chỉnh thì đưa vào code của Sheet như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim  Lg()
Lg = Array(5, 5, 5, 5, 5, 4, 4, 4, 4, 3, 2)
If IsNumeric(Target.Value) Then
   Target.Value = "'" & Right("00000" & Val(Target.Value), Lg((Target.Row Mod 12) - 1))
End If
End Sub

 

[phulien1902]

Đây là 1 cách:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call test
End Sub

Lưu ý: Bạn thay đổi vùng chọn "A1:G370" bằng 1 vùng dữ liệu của bạn.

 

[phulien1902]

Tôi thấy vẫn không hợp lý xuất phát từ yêu cầu của chính chủ. Ngoài việc thêm dấu nháy vào còn phải thêm vào số lượng con số 0 tương ứng nữa. Ví dụ giải 5 có 4 chữ số, số trúng là 12 chẳng hạn thì giá trị trong ô phải là: '0012.
Vậy nên tôi tham gia thêm 1 chút :

Sub Macro1()
Dim Cl As Range, Lg()
Lg = Array(5, 5, 5, 5, 5, 4, 4, 4, 4, 3, 2)
For Each Cl In Selection.SpecialCells(xlCellTypeConstants, 1).Cells
    Cl = "'" & Right("00000" & Val(Cl), Lg((Cl.Row Mod 12) - 1))
    Next
End Sub

Bác không thấy người ta nói:Kết quả sổ số Miền Băc quay....
- Giải 5 số
- Giải 4 số
- Giải 3 số ?

 

[sealand]

Bác không thấy người ta nói:Kết quả sổ số Miền Băc quay....
- Giải 5 số
- Giải 4 số
- Giải 3 số ?

Thế giải 5 số ghi kết quả thế nào: 012 hay 00012. Mục đích của người ta muốn thêm đủ số tiện cho việc tìm kiếm và tính toán.

 

[phulien1902]

Thế giải 5 số ghi kết quả thế nào: 012 hay 00012. Mục đích của người ta muốn thêm đủ số tiện cho việc tìm kiếm và tính toán.

Bác nói không sai, có điều việc đánh thêm số "0" đằng trước trong trường hợp này có lẽ phù hợp với Hóa đơn, chứng từ, số văn bản, quyết định ......Còn có hợp với ngành nghề Xổ số hay không thì chỉ có chủ topic mới rõ.