Dùng VBA để lập bảng tiên lượng trong excel

minhcong.tckt · 15/9/18

Giả sử tại
ô E1, trong excel em có công hàm sau:
2*10,35*3,3
Và cột E2 em có chuỗi sau:
Tam cấp: 10,35*0,15*0,3*3

Nhờ anh chị viết đoạn code VBA để sau khi em để dấu bằng đằng sau hàm và chuỗi trên thì có kết quả tại ô e1, e2 tương ứng như sau:
2*10,35*3,3 = 68,31
Tam cấp: 10,35*0,15*0,3*3 = 1,3973
Và cột F1, F2 chỉ có kết quả tương ứng như sau
68,31
1,3973

♫ђöล♥ßล†♥†µ♫ · 15/9/18

minhcong.tckt đã viết:
Giả sử tại
ô E1, trong excel em có công hàm sau:
2*10,35*3,3
Và cột E2 em có chuỗi sau:
Tam cấp: 10,35*0,15*0,3*3

Nhờ anh chị viết đoạn code VBA để sau khi em để dấu bằng đằng sau hàm và chuỗi trên thì có kết quả tại ô e1, e2 tương ứng như sau:
2*10,35*3,3 = 68,31
Tam cấp: 10,35*0,15*0,3*3 = 1,3973
Và cột F1, F2 chỉ có kết quả tương ứng như sau
68,31
1,3973

Anh tự viết đi chứ 1 cây VBA rồi còn nhờ vả gì nữa

minhcong.tckt · 15/9/18

Mình viết không nổi nên mới nhờ anh chị trên diễn đàn giúp sức
bạn giúp được thì giúp mình luôn đi

♫ђöล♥ßล†♥†µ♫ · 15/9/18

minhcong.tckt đã viết:
Mình viết không nổi nên mới nhờ anh chị trên diễn đàn giúp sức
bạn giúp được thì giúp mình luôn đi

Vậy thì có liềng hi hi
(Sửa: Đính kèm lại file)

minhcong.tckt · 15/9/18

Cảm ơn bạn nhiều nha, đúng ý của mình rồi

anhsaodem245 · 16/9/18

♫ђöล♥ßล†♥†µ♫ đã viết:
Vậy thì có liềng hi hi
(Sửa: Đính kèm lại file)

File này hình như kết quả của cột F được nhân thêm với 1000 rồi hả bạn

♫ђöล♥ßล†♥†µ♫ · 16/9/18

anhsaodem245 đã viết:
File này hình như kết quả của cột F được nhân thêm với 1000 rồi hả bạn

Máy mình chạy vẫn đúng. Bạn đính kèm file lỗi mình xem với nha

anhsaodem245 · 16/9/18

♫ђöล♥ßล†♥†µ♫ đã viết:
Máy mình chạy vẫn đúng. Bạn đính kèm file lỗi mình xem với nha

Vẫn file này mình tải về và kiểm tra dòng trên thì sai mà dòng dưới thì đúng. bạn chỉ mình cách là giờ mình thay cột D, F bằng cột khác thì chỉnh ở đâu vậy.

♫ђöล♥ßล†♥†µ♫ · 16/9/18

anhsaodem245 đã viết:
Vẫn file này mình tải về và kiểm tra dòng trên thì sai mà dòng dưới thì đúng. bạn chỉ mình cách là giờ mình thay cột D, F bằng cột khác thì chỉnh ở đâu vậy.

Cái Code nó vầy nha

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Str1 As String, Str As String, Numb As Double
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E6:E65500")) Is Nothing Then
    If InStr(Target, "=") > 0 Then
        Str1 = " " & Trim(Split(Target.Value, "=")(0))
    Else
        Str1 = " " & Trim(Target.Value)
    End If
    If InStr(Str1, ":") > 0 Then
        Str = Trim(Split(Str1, ":")(1))
    Else
        Str = Trim(Str1)
    End If
    Application.EnableEvents = False
    On Error GoTo Thoat
    Numb = Khoiluong(Str)
    Target.Value = Str1 & " = " & Format(Numb, "0.000")
    Target.Offset(, 1).Value = Format(Numb, "0.000")
    With Target.Characters(InStr(Target, "=") + 1).Font
        .FontStyle = "Bold Italic"
        .ColorIndex = 5
    End With
End If
Thoat:
Application.EnableEvents = True
End Sub

Cái vùng Range("E6:E65500") là vùng chạy sự kiện. Bạn thích nó chạy trên cột nào thì thay vào
Còn cái kết quả Target.Offset(, 1) là dòng đang đứng lấy sang bên phải 1 dòng. Bạn muốn ghi ở dòng nào thì đếm từ ô diễn giải sang phải mấy ô thi thay vào (Trái âm, phải dương nha Bạn)

anhsaodem245 · 16/9/18

♫ђöล♥ßล†♥†µ♫ đã viết:
Cái Code nó vầy nha

PHP:

Private Sub Worksheet_Change(ByVal Target As Range) Dim Str1 As String, Str As String, Numb As Double If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("E6:E65500")) Is Nothing Then If InStr(Target, "=") > 0 Then Str1 = " " & Trim(Split(Target.Value, "=")(0)) Else Str1 = " " & Trim(Target.Value) End If If InStr(Str1, ":") > 0 Then Str = Trim(Split(Str1, ":")(1)) Else Str = Trim(Str1) End If Application.EnableEvents = False On Error GoTo Thoat Numb = Khoiluong(Str) Target.Value = Str1 & " = " & Format(Numb, "0.000") Target.Offset(, 1).Value = Format(Numb, "0.000") With Target.Characters(InStr(Target, "=") + 1).Font .FontStyle = "Bold Italic" .ColorIndex = 5 End With End If Thoat: Application.EnableEvents = True End Sub

Cái vùng Range("E6:E65500") là vùng chạy sự kiện. Bạn thích nó chạy trên cột nào thì thay vào
Còn cái kết quả Target.Offset(, 1) là dòng đang đứng lấy sang bên phải 1 dòng. Bạn muốn ghi ở dòng nào thì đếm từ ô diễn giải sang phải mấy ô thi thay vào (Trái âm, phải dương nha Bạn)

Cảm ơn bạn nhiều nhé!.

anhsaodem245 · 16/9/18

♫ђöล♥ßล†♥†µ♫ đã viết:
Cái Code nó vầy nha

PHP:

Private Sub Worksheet_Change(ByVal Target As Range) Dim Str1 As String, Str As String, Numb As Double If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("E6:E65500")) Is Nothing Then If InStr(Target, "=") > 0 Then Str1 = " " & Trim(Split(Target.Value, "=")(0)) Else Str1 = " " & Trim(Target.Value) End If If InStr(Str1, ":") > 0 Then Str = Trim(Split(Str1, ":")(1)) Else Str = Trim(Str1) End If Application.EnableEvents = False On Error GoTo Thoat Numb = Khoiluong(Str) Target.Value = Str1 & " = " & Format(Numb, "0.000") Target.Offset(, 1).Value = Format(Numb, "0.000") With Target.Characters(InStr(Target, "=") + 1).Font .FontStyle = "Bold Italic" .ColorIndex = 5 End With End If Thoat: Application.EnableEvents = True End Sub

Cái vùng Range("E6:E65500") là vùng chạy sự kiện. Bạn thích nó chạy trên cột nào thì thay vào
Còn cái kết quả Target.Offset(, 1) là dòng đang đứng lấy sang bên phải 1 dòng. Bạn muốn ghi ở dòng nào thì đếm từ ô diễn giải sang phải mấy ô thi thay vào (Trái âm, phải dương nha Bạn)

Mình chạy thử thì thấy sao cột F lại cho dấu "." và "," sai bạn nhỉ.

♫ђöล♥ßล†♥†µ♫ · 16/9/18

anhsaodem245 đã viết:
Mình chạy thử thì thấy sao cột F lại cho dấu "." và "," sai bạn nhỉ.

À do máy của bạn định dạng dấu ngăn cách thập phân là dấu "." còn máy của mình là dấu ","

anhsaodem245 · 16/9/18

♫ђöล♥ßล†♥†µ♫ đã viết:
À do máy của bạn định dạng dấu ngăn cách thập phân là dấu "." còn máy của mình là dấu ","

Nhưng cùng cột F lại có 2 dấu mà

♫ђöล♥ßล†♥†µ♫ · 16/9/18

anhsaodem245 đã viết:
Nhưng cùng cột F lại có 2 dấu mà

Bạn kích đúp vào ô cột E xong Enter cho nó 1 phát xem có bị như cũ nữa không nhé

anhsaodem245 · 16/9/18

♫ђöล♥ßล†♥†µ♫ đã viết:
Bạn kích đúp vào ô cột E xong Enter cho nó 1 phát xem có bị như cũ nữa không nhé

Mình làm thử mấy lần vẫn thế

♫ђöล♥ßล†♥†µ♫ · 16/9/18

anhsaodem245 đã viết:
Mình làm thử mấy lần vẫn thếView attachment 204007

À không để ý. Nhớ hôm trước có 1 Topic nói cái dấu "." và dấu "," này rồi. Hôm nào rảnh tìm đọc rồi mình sửa lại
Máy mình nó lại như rứa

batman1 · 17/9/18

minhcong.tckt đã viết:
Giả sử tại
ô E1, trong excel em có công hàm sau:
2*10,35*3,3
Và cột E2 em có chuỗi sau:
Tam cấp: 10,35*0,15*0,3*3

Nhờ anh chị viết đoạn code VBA để sau khi em để dấu bằng đằng sau hàm và chuỗi trên thì có kết quả tại ô e1, e2 tương ứng như sau:
2*10,35*3,3 = 68,31
Tam cấp: 10,35*0,15*0,3*3 = 1,3973
Và cột F1, F2 chỉ có kết quả tương ứng như sau
68,31
1,3973

Giả thiết:
1. giữa ":" và "=" chỉ có biểu thức, không có gì khác. Nếu không có : thì trước biểu thức chỉ cho phép ký tự space. Nếu không có = thì sau biểu thức chỉ cho phép space.

2. Trong biểu thức cho phép space nhưng không cho phép bất cứ ký tự nào ngoài: chữ số, dấu chấm, dấu phẩy, +, -, *, :, (, ). vd. không cho phép m, m². Bởi nếu chấp nhận chúng thì sẽ phải chấp nhận các chuỗi bất kỳ, thậm chí đan xen nhau, kiểu như sáng kiến: m³, lọ, thùng, hộp, gói, kg, tấn, thửa, cây ... Thôi thì đủ loại bất kỳ.

Nếu chấp nhận giả thiết thì đọc tiếp. Không chấp nhận thì dừng tại đây.

Trong biểu thức có thể dùng dấu phẩy hoặc chấm làm dấu thập phân. Thậm chí trong cùng biểu thức số này có dấu chấm, số kia có dấu phẩy. Nhưng kết quả luôn có dấu thập phân được thiết lập trong CP của system.

Mã:

Function TinhBT(ByVal bieu_thuc As String) As Double
Dim k As Long
    Application.Volatile
    bieu_thuc = Mid(bieu_thuc, InStr(1, bieu_thuc, ":") + 1)
    k = InStr(1, bieu_thuc, "=")
    If k Then bieu_thuc = Left(bieu_thuc, k - 1)
    bieu_thuc = Replace(bieu_thuc, ",", ".")
    TinhBT = Evaluate(bieu_thuc)
End Function

vd. cách dùng

Mã:

=tinhbt(E7)

Hau151978 · 17/9/18

Hình như lệnh volatile trong hàm này thừa phải không bác @batman1. Em nghĩ có thể bỏ đi cho nhẹ.

anhsaodem245 · 17/9/18

♫ђöล♥ßล†♥†µ♫ đã viết:
À không để ý. Nhớ hôm trước có 1 Topic nói cái dấu "." và dấu "," này rồi. Hôm nào rảnh tìm đọc rồi mình sửa lại
Máy mình nó lại như rứa
View attachment 204008

Bạn tìm cho mình bài đấy đi

♫ђöล♥ßล†♥†µ♫ · 18/9/18

anhsaodem245 đã viết:
Bạn tìm cho mình bài đấy đi

Cái Code nó thế này Bạn ạ

PHP:

Sub Timdauthapphan()
    Dim Str As String, Str1 As String
    Str = Application.DecimalSeparator
    Str1 = Application.ThousandsSeparator
    MsgBox "ThousandsSeparator: " & Str1 & Chr(10) & "DecimalSeparator: " & Str
End Sub

Link: https://stackoverflow.com/questions...h-decimal-sign-the-computer-is-using/20652521

Dùng VBA để lập bảng tiên lượng trong excel

Thành viên thường trực

File đính kèm

Thành viên tiêu biểu

Thành viên thường trực

Thành viên tiêu biểu

File đính kèm

Thành viên thường trực

Thành viên hoạt động

Thành viên tiêu biểu

Thành viên hoạt động

Thành viên tiêu biểu

Thành viên hoạt động

Thành viên hoạt động

File đính kèm

Thành viên tiêu biểu

Thành viên hoạt động

Thành viên tiêu biểu

Thành viên hoạt động

Thành viên tiêu biểu

Thành viên gạo cội

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

Thành viên hoạt động

Thành viên tiêu biểu

Facebook

Group