Tìm kiếm sau dấu :

Liên hệ QC

kid1711

Thành viên mới
Tham gia
21/5/09
Bài viết
2
Được thích
0
Mình có 1 bản dự toán,nhưng thấy làm thủ công thì lâu quá.Mình có gửi kèm file,vi mình cũng không biết giải thích sao nữa,các bạn tải file và xem giúp mình với nha.Cảm ơn nhiều
 

File đính kèm

  • Book1.xls
    16.5 KB · Đọc: 25
Bạn tải file, nhấn Ctr+F3 để xem trong file đính kèm có được không nhé!
 

File đính kèm

  • Book12.xls
    30 KB · Đọc: 22
Mình có 1 bản dự toán,nhưng thấy làm thủ công thì lâu quá.Mình có gửi kèm file,vi mình cũng không biết giải thích sao nữa,các bạn tải file và xem giúp mình với nha.Cảm ơn nhiều
Trước tiên, bạn phải trích ra được cái chuỗi số sau lưng dấu hai chấm :)) bằng công thức sau đây:
=RIGHT(B6, LEN(B6) - FIND(":", B6) - 1)
Nếu đã hiểu được cái công thức trên đây, bạn chọn ô C6, nhấn Ctrl+F3 để mở hộp thoại Define Name, gõ một cái tên gì đó vào trong khung Names in Workbook (giả sử tôi gõ chữ TINH vào đó). Tại khung Refers to ở dưới, bạn nhập vào công thức này:
=EVALUATE(RIGHT(B6, LEN(B6) - FIND(":", B6) - 1))
(nghĩa là đem cái công thức tôi nói hồi nãy bỏ vào trong hàm EVALUATE)
Nhấn Add để thêm Name này và nhấn OK để đóng hộp thoại Define Name.

Bây giờ, tại ô C6, bạn hãy nhập vào: =TINH, bạn thấy nó ra 7.54 chứ? Nếu đúng như thế, bạn kéo luôn công thức ở C6 xuống tới C10.

Xong.
 
Lần chỉnh sửa cuối:
Mình đã hiểu cách làm rồi,thanks các bạn nhiều nhiều.
 
VBA tìm tính sau dấu :

Bạn copy đoạn code này rồi sử dụng nhé.
Chúc bạn làm được
Function tt(Mystr As String, Optional Dautp As String) As Double
Dim i As Integer
Dim s As String
i = InStr(1, Mystr, ":")
s = Right(Mystr, Len(Mystr) - i)
tt = Evaluate("=" & s)
End Function

Bạn xem file đính kèm
 

File đính kèm

  • Book2.xls
    29 KB · Đọc: 13
Web KT

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

Back
Top Bottom