Giup ham chuyen doi so lieu từ chuổi sang số liệu đã tính toán

  • Thread starter Thread starter vu_ctn
  • Ngày gửi Ngày gửi
Liên hệ QC

vu_ctn

Thành viên chính thức
Tham gia
3/6/10
Bài viết
70
Được thích
2
số liệu mình nhập vào là 1 chuối, khi nhập liệu xong phải nhấn F2 rồi Enter mới ra đc kết quả. dữ liệu nhập vào từ 1 form, nhập xong phải vào data nhấn F2 túng dòng rất mất thời gian.
GPE có thể chỉ mình cách nào khi số liệu nhập vào tự đọng tính toán
File đính kèm
 

File đính kèm

số liệu mình nhập vào là 1 chuối, khi nhập liệu xong phải nhấn F2 rồi Enter mới ra đc kết quả. dữ liệu nhập vào từ 1 form, nhập xong phải vào data nhấn F2 túng dòng rất mất thời gian.
GPE có thể chỉ mình cách nào khi số liệu nhập vào tự đọng tính toán
File đính kèm
Theo mình thì tính ra kết quả trước đi sau đo dùng Funtion diễn giải công thức.
Funtion trên mình xem của một thành viên GPEX.
 
Upvote 0
số liệu mình nhập vào là 1 chuối, khi nhập liệu xong phải nhấn F2 rồi Enter mới ra đc kết quả. dữ liệu nhập vào từ 1 form, nhập xong phải vào data nhấn F2 túng dòng rất mất thời gian.
GPE có thể chỉ mình cách nào khi số liệu nhập vào tự đọng tính toán
File đính kèm

1. Bạn sửa lại tiêu đề có dấu, không bài này sẽ bị xóa
2. Nhấn Ctrl+F3 (tại Name: đặt 1 tên - ví dụ: tinh)
Tại Refers to: gõ công thức: =EVALUATE("="&SUBSTITUTE(Sheet1!$B5,",",".")) nếu dấu thập phân trong máy của bạn là dấu .
hoặc =EVALUATE("="&Sheet1!$B5) nếu dấu thập phân trong máy của bạn là dấu ,

Tại C5 gõ: =tinh
Rồi fill xuống
 
Upvote 0
số liệu mình nhập vào là 1 chuối, khi nhập liệu xong phải nhấn F2 rồi Enter mới ra đc kết quả. dữ liệu nhập vào từ 1 form, nhập xong phải vào data nhấn F2 túng dòng rất mất thời gian.
GPE có thể chỉ mình cách nào khi số liệu nhập vào tự đọng tính toán
File đính kèm
Chọn cột dữ liệu của bạn và chạy Code này:
PHP:
Sub TextToFormula()
Dim Str As String
If Selection.Count = 1 Then
    Selection.Formula = "=" & Replace(Selection.Formula, ",", ".")
    Exit Sub
End If
With Application.WorksheetFunction
    Str = "=" & Replace(Join(.Transpose(Selection), vbBack & "="), ",", ".")
    Selection.Formula = .Transpose(Split(Str, vbBack))
    Selection.Replace "=", "=", xlPart
End With
End Sub
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Chọn cột dữ liệu của bạn và chạy Code này:
PHP:
Sub TextToFormula()
Dim Str As String
If Selection.Count = 1 Then
MsgBox "=" & Selection.Formula
    Selection.Formula = "=" & Selection.Formula
    Exit Sub
End If
With Application.WorksheetFunction
    Str = "=" & Replace(Join(.Transpose(Selection), vbBack & "="), ",", ".")
    Selection.Formula = .Transpose(Split(Str, vbBack))
    Selection.Replace "=", "=", xlPart
End With
End Sub
- Đoạn dưới Replace dấu phẩy thành dấu chấm sao đoạn trên lại không Replace nhỉ?
- Phải lưu ý với tác giả rằng: Dấu nào là dấu phân cách ngàn, dấu nào là dấu thập phân đều tùy thuộc theo từng máy
 
Upvote 0
Web KT

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

Back
Top Bottom