Cần giúp đỡ về sự chuyển đổi dữ liệu sạng văn bản sang dạng giá trị? (1 người xem)

quykiemsau · 14/3/13

Xin chào GPE!
Tôi đang vướng mắc một vấn đề sau:
Hiện tại phần mềm chấm công của công ty tôi lhi xuất dữ liệu sang file excel nó toàn dữ liệu dạng text không thể tính toán được.
Xin hỏi có cách nào chuyển nó thành giá trị để có thể tính toán được không ạ?

Cụ thể như file đính kèm.

Rất mong nhận được giúp đỡ của GPE! Xin cảm ơn rất nhiều!

viehoai · 14/3/13

QuỷKiếmSầu đã viết:
Xin chào GPE!
Tôi đang vướng mắc một vấn đề sau:
Hiện tại phần mềm chấm công của công ty tôi lhi xuất dữ liệu sang file excel nó toàn dữ liệu dạng text không thể tính toán được.
Xin hỏi có cách nào chuyển nó thành giá trị để có thể tính toán được không ạ?
Cụ thể như file đính kèm.
Rất mong nhận được giúp đỡ của GPE! Xin cảm ơn rất nhiều!

Bạn chọn toàn bộ bảng tính, chuyển sang định dạng "General" sau đó tính toán bình thường

quykiemsau · 14/3/13

viehoai đã viết:
Bạn chọn toàn bộ bảng tính, chuyển sang định dạng "General" sau đó tính toán bình thường

Tks Bạn rất nhiều! Cái này mình cũng biết là như vậy. Nhưng thực ra giá trị của nó cũng không phải là giá ttrij thực bạn à! MÀ nó vẫn là dạng Text.
Trừ khi ta kích vào từng ô 1 sau đó bấm Enter. Như vậy quá lâu.. hix!

be_09 · 14/3/13

Click vào D10 cho thấy hình vuông có dấu chấm than màu đen xuất hiện bên trái và chọn vùng D10 đến AA52 giữ phím Shift, xong rê chuột vào hình vuông có dấu chấm than nó sẽ xuất hiện mũi tên màu đen, click chuột vào mũi tên màu đen sẽ có danh sách xổ xuống, click chọn Convert to number thử xem.

quykiemsau · 14/3/13

Rất Chuẩn! Cảm ơn GPE nhiều!

quykiemsau · 14/3/13

Ôi! Nhầm quên không kiểm tra lại! Bạn ơi vẫn chưa được bạn à! Các giá trị thời gian vẫn là dạng text.. hix! ^^

KUMI · 14/3/13

Em không rành về VBA lắm!
Anh thử bôi đen từng cột thời gian đó xong rồi thử cách này xem:
Data > Text to columns...
Trong cửa sổ hiện ra, chọn Fixed with trong phần Separator Options > Finish
Nhưng mà hình như anh phải làm từng cột hay sao ý. hì hì

KUMI · 14/3/13

Lần đầu Em đưa code của mình lên diễn đàn .. hix hix

ĐÂY! CODE CỦA EM ĐÂY! --=0

HTML:

Sub hihihoho()
    Range("E7:E52").Select
    Selection.TextToColumns Destination:=Range("E7:E52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("F7:F52").Select
    Selection.TextToColumns Destination:=Range("F7:F52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("H7:H52").Select
    Selection.TextToColumns Destination:=Range("H7:H52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("I7:I52").Select
    Selection.TextToColumns Destination:=Range("I7:I52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("K7:K52").Select
    Selection.TextToColumns Destination:=Range("K7:K52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("L7:L52").Select
    Selection.TextToColumns Destination:=Range("L7:L52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("N7:N52").Select
    Selection.TextToColumns Destination:=Range("N7:N52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("O7:O52").Select
    Selection.TextToColumns Destination:=Range("O7:O52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("Q7:Q52").Select
    Selection.TextToColumns Destination:=Range("Q7:Q52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("R7:R52").Select
    Selection.TextToColumns Destination:=Range("R7:R52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("T7:T52").Select
    Selection.TextToColumns Destination:=Range("T7:T52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("U7:U52").Select
    Selection.TextToColumns Destination:=Range("U7:U52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("W7:W52").Select
    Selection.TextToColumns Destination:=Range("W7:W52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("X7:X52").Select
    Selection.TextToColumns Destination:=Range("X7:X52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("Z7:Z52").Select
    Selection.TextToColumns Destination:=Range("Z7:Z52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("AA7:AA52").Select
    Selection.TextToColumns Destination:=Range("AA7:AA52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
End Sub

XẤU HỔ QUÁ MẤT THÔI ! )

gakon_Office · 14/3/13

^^
Chưa xét đến code của bạn thế nào nhưng tinh thần của bạn thật tuyệt vời.
Nếu bạn mà gửi code ghi không thì có thể rút gọn thêm tí xíu để nhìn cho đỡ ghê,

ví dụ:

HTML:

Sub hihihoho()
    Range("E7:E52").TextToColumns Destination:=Range("E7:E52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("F7:F52").TextToColumns Destination:=Range("F7:F52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("H7:H52").TextToColumns Destination:=Range("H7:H52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("I7:I52").TextToColumns Destination:=Range("I7:I52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("K7:K52").TextToColumns Destination:=Range("K7:K52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("L7:L52").TextToColumns Destination:=Range("L7:L52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("N7:N52").TextToColumns Destination:=Range("N7:N52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("O7:O52").TextToColumns Destination:=Range("O7:O52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("Q7:Q52").TextToColumns Destination:=Range("Q7:Q52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("R7:R52").TextToColumns Destination:=Range("R7:R52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("T7:T52").TextToColumns Destination:=Range("T7:T52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("U7:U52").TextToColumns Destination:=Range("U7:U52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("W7:W52").TextToColumns Destination:=Range("W7:W52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("X7:X52").TextToColumns Destination:=Range("X7:X52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("Z7:Z52").TextToColumns Destination:=Range("Z7:Z52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    Range("AA7:AA52").TextToColumns Destination:=Range("AA7:AA52"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
End Sub

VetMini · 14/3/13

Mở file ra. Save As file CSV (comma separated values). Mở file CVS ra, copy vào trở lại file ban đầu. Chỉnh sửa màu mè phông phiếc.

thanhlanh · 14/3/13

QuỷKiếmSầu đã viết:
Xin chào GPE!
Tôi đang vướng mắc một vấn đề sau:
Hiện tại phần mềm chấm công của công ty tôi lhi xuất dữ liệu sang file excel nó toàn dữ liệu dạng text không thể tính toán được.
Xin hỏi có cách nào chuyển nó thành giá trị để có thể tính toán được không ạ?

Cụ thể như file đính kèm.

Rất mong nhận được giúp đỡ của GPE! Xin cảm ơn rất nhiều!

Chạy code này:

Mã:

Sub test()
    With Sheets("Sheet1").UsedRange
        .NumberFormat = "General"
        .Value = .Value
    End With
End Sub

Cần giúp đỡ về sự chuyển đổi dữ liệu sạng văn bản sang dạng giá trị? (1 người xem)

Người dùng đang xem chủ đề này

quykiemsau

Thành viên chính thức

File đính kèm

viehoai

Thành viên gắn bó

quykiemsau

Thành viên chính thức

be_09

Biên Hòa, Đồng Nai

quykiemsau

Thành viên chính thức

quykiemsau

Thành viên chính thức

KUMI

Bụi phấn

KUMI

Bụi phấn

File đính kèm

gakon_Office

Nguyễn Hoàng Nhi

VetMini

Đang đi tìm hòn đá

thanhlanh

Thành viên tích cực

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.