Hỏi về tối ưu code vba (1 người xem)

Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
N

nhk007dn

Thành viên chính thức
Tham gia
12/11/12
Bài viết
74
Được thích
7
Em làm 1 user form để nhập số liệu vào các ô cụ thể. Tuy nhiên khi chạy code thấy hơi chậm. với lại nhìn code thấy dài quá. e nghĩ có thể rút ngắn lại hơn nhiều và có thể làm cho nhanh hơn. Nhờ các a trên diễn đàn có thể giúp e tối ưu lại code này để e có thể học hỏi thêm. e cảm ơn.

Mã: 
Private Sub UserForm_Initialize()
            Me.txtChungLoai = Range("AK2")
            Me.txt6 = Range("AK4")
            Me.txt8 = Range("AL4")
            Me.txt10 = Range("AM4")
            Me.txt12 = Range("AN4")
            Me.txt14 = Range("AO4")
            Me.txt16 = Range("AP4")
            Me.txt18 = Range("AQ4")
            Me.txt20 = Range("AR4")
            Me.txt22 = Range("AS4")
            Me.txt25 = Range("AT4")
            Me.txt28 = Range("AU4")
            Me.txt32 = Range("AV4")
            Me.txt36 = Range("AW4")
            Me.txt40 = Range("AX4")
            txt6.Value = Format(txt6.Value, "#,##0.000")
            txt8.Value = Format(txt8.Value, "#,##0.000")
            txt10.Value = Format(txt10.Value, "#,##0.000")
            txt12.Value = Format(txt12.Value, "#,##0.000")
            txt14.Value = Format(txt14.Value, "#,##0.000")
            txt16.Value = Format(txt16.Value, "#,##0.000")
            txt18.Value = Format(txt18.Value, "#,##0.000")
            txt20.Value = Format(txt20.Value, "#,##0.000")
            txt22.Value = Format(txt22.Value, "#,##0.000")
            txt25.Value = Format(txt25.Value, "#,##0.000")
            txt28.Value = Format(txt28.Value, "#,##0.000")
            txt32.Value = Format(txt32.Value, "#,##0.000")
            txt36.Value = Format(txt36.Value, "#,##0.000")
            txt40.Value = Format(txt40.Value, "#,##0.000")
End Sub


Private Sub cmdCapNhat_Click()
Application.ScreenUpdating = False
            Range("AK2") = txtChungLoai
            Range("AK4") = txt6
            Range("AL4") = txt8
            Range("AM4") = txt10
            Range("AN4") = txt12
            Range("AO4") = txt14
            Range("AP4") = txt16
            Range("AQ4") = txt18
            Range("AR4") = txt20
            Range("AS4") = txt22
            Range("AT4") = txt25
            Range("AU4") = txt28
            Range("AV4") = txt32
            Range("AW4") = txt36
            Range("AX4") = txt40
            Range("AK4:AX4").Select
            Selection.NumberFormat = "#,##0.000"
Application.ScreenUpdating = True
End
End Sub


Private Sub cmdThoat_Click()
End
End Sub
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
nhk007dn đã viết:
ngày mới may mắn!!!!!!!!!!!!!!!!
Nhấp chuột vào đây để mở rộng...
Bạn cần phải đặt tên textbox sao cho có thể dùng for next để duyêt nó.
Ví dụ bạn có TextBox1 đến TextBox14.
For i = 1 To 14
Me.Controls("TextBox" & i) = Format(Me.Controls("TextBox" & i), "#,##0.000")
Next

các cột trên sheet cũng cần phải sắp xếp có khoa học thì sẽ rút gọn được code.
 
Upvote 0
chucuoi92 đã viết:
Bạn cần phải đặt tên textbox sao cho có thể dùng for next để duyêt nó.
Ví dụ bạn có TextBox1 đến TextBox14.
For i = 1 To 14
Me.Controls("TextBox" & i) = Format(Me.Controls("TextBox" & i), "#,##0.000")
Next

các cột trên sheet cũng cần phải sắp xếp có khoa học thì sẽ rút gọn được code.
Nhấp chuột vào đây để mở rộng...

các ô xếp liên tiếp từ AK4 đến AX4 không "lủng" ô nào chưa đủ khoa học sao bạn ? --=0--=0
 
Upvote 0
Cảm ơn các a đã góp ý.
e sửa lại thế này, tuy nhiên các a cho e hỏi đoạn e tô màu đỏ có thể rút gọn lại bằng cách dùng for next được ko?
Mã: 
Private Sub UserForm_Initialize()
            Me.txtChungLoai = Range("AK2")
[COLOR=#ff0000]            Me.txt1 = Range("AK4")[/COLOR]
[COLOR=#ff0000]            Me.txt2 = Range("AL4")[/COLOR]
[COLOR=#ff0000]            Me.txt3 = Range("AM4")[/COLOR]
[COLOR=#ff0000]            Me.txt4 = Range("AN4")[/COLOR]
[COLOR=#ff0000]            Me.txt5 = Range("AO4")[/COLOR]
[COLOR=#ff0000]            Me.txt6 = Range("AP4")[/COLOR]
[COLOR=#ff0000]            Me.txt7 = Range("AQ4")[/COLOR]
[COLOR=#ff0000]            Me.txt8 = Range("AR4")[/COLOR]
[COLOR=#ff0000]            Me.txt9 = Range("AS4")[/COLOR]
[COLOR=#ff0000]            Me.txt10 = Range("AT4")[/COLOR]
[COLOR=#ff0000]            Me.txt11 = Range("AU4")[/COLOR]
[COLOR=#ff0000]            Me.txt12 = Range("AV4")[/COLOR]
[COLOR=#ff0000]            Me.txt13 = Range("AW4")[/COLOR]
[COLOR=#ff0000]            Me.txt14 = Range("AX4")[/COLOR]
        For i = 1 To 14
            Me.Controls("txt" & i) = Format(Me.Controls("txt" & i), "#,##0.000")
        Next
End Sub


Private Sub cmdCapNhat_Click()
Application.ScreenUpdating = False
            Range("AK2") = txtChungLoai
[COLOR=#ff0000]            Range("AK4") = txt1[/COLOR]
[COLOR=#ff0000]            Range("AL4") = txt2[/COLOR]
[COLOR=#ff0000]            Range("AM4") = txt3[/COLOR]
[COLOR=#ff0000]            Range("AN4") = txt4[/COLOR]
[COLOR=#ff0000]            Range("AO4") = txt5[/COLOR]
[COLOR=#ff0000]            Range("AP4") = txt6[/COLOR]
[COLOR=#ff0000]            Range("AQ4") = txt7[/COLOR]
[COLOR=#ff0000]            Range("AR4") = txt8[/COLOR]
[COLOR=#ff0000]            Range("AS4") = txt9[/COLOR]
[COLOR=#ff0000]            Range("AT4") = txt10[/COLOR]
[COLOR=#ff0000]            Range("AU4") = txt11[/COLOR]
[COLOR=#ff0000]            Range("AV4") = txt12[/COLOR]
[COLOR=#ff0000]            Range("AW4") = txt13[/COLOR]
[COLOR=#ff0000]            Range("AX4") = txt14[/COLOR]
       Range("AK4:AX4").Select
    Selection.NumberFormat = "#,##0.000"
Application.ScreenUpdating = True
End
End Sub


Private Sub cmdThoat_Click()
End
End Sub
 
Upvote 0
nhk007dn đã viết:
Cảm ơn các a đã góp ý.
e sửa lại thế này, tuy nhiên các a cho e hỏi đoạn e tô màu đỏ có thể rút gọn lại bằng cách dùng for next được ko?
Mã: 
Private Sub UserForm_Initialize()
            Me.txtChungLoai = Range("AK2")
[COLOR=#ff0000]            Me.txt1 = Range("AK4")[/COLOR]
[COLOR=#ff0000]            Me.txt2 = Range("AL4")[/COLOR]
[COLOR=#ff0000]            Me.txt3 = Range("AM4")[/COLOR]
[COLOR=#ff0000]            Me.txt4 = Range("AN4")[/COLOR]
[COLOR=#ff0000]            Me.txt5 = Range("AO4")[/COLOR]
[COLOR=#ff0000]            Me.txt6 = Range("AP4")[/COLOR]
[COLOR=#ff0000]            Me.txt7 = Range("AQ4")[/COLOR]
[COLOR=#ff0000]            Me.txt8 = Range("AR4")[/COLOR]
[COLOR=#ff0000]            Me.txt9 = Range("AS4")[/COLOR]
[COLOR=#ff0000]            Me.txt10 = Range("AT4")[/COLOR]
[COLOR=#ff0000]            Me.txt11 = Range("AU4")[/COLOR]
[COLOR=#ff0000]            Me.txt12 = Range("AV4")[/COLOR]
[COLOR=#ff0000]            Me.txt13 = Range("AW4")[/COLOR]
[COLOR=#ff0000]            Me.txt14 = Range("AX4")[/COLOR]
        For i = 1 To 14
            Me.Controls("txt" & i) = Format(Me.Controls("txt" & i), "#,##0.000")
        Next
End Sub
Nhấp chuột vào đây để mở rộng...
Chổ màu đỏ bạn sửa lại thế này thử xem (mình chưa test thử, nhưng đoán là vậy).
Mã: 
For i = 1 To 14
            Me.Controls("txt" & i) = Range("AK4").Offset(, i - 1)
Next
Cụ thể hơn là thế này.
Mã: 
Private Sub UserForm_Initialize()
            Me.txtChungLoai = Range("AK2")
        For i = 1 To 14
[COLOR=#ff0000][B]               Me.Controls("txt" & i) = Range("AK4").Offset(, i - 1)[/B][/COLOR]
            Me.Controls("txt" & i) = Format(Me.Controls("txt" & i), "#,##0.000")
        Next
End Sub
Hoặc muốn ngắn hơn nửa thì sửa lại thế này.
Mã: 
Private Sub UserForm_Initialize()
            Me.txtChungLoai = Range("AK2")
        For i = 1 To 14
            Me.Controls("txt" & i) = Format([B]Range("AK4").Offset(, i - 1)[/B], "#,##0.000")
        Next
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
giaiphap đã viết:
Chổ màu đỏ bạn sửa lại thế này thử xem (mình chưa test thử, nhưng đoán là vậy).
Mã: 
For i = 1 To 14
            Me.Controls("txt" & i) = Range("AK4").Offset(, i - 1)
Next
Cụ thể hơn là thế này.
Mã: 
Private Sub UserForm_Initialize()
            Me.txtChungLoai = Range("AK2")
        For i = 1 To 14
[COLOR=#ff0000][B]               Me.Controls("txt" & i) = Range("AK4").Offset(, i - 1)[/B][/COLOR]
            Me.Controls("txt" & i) = Format(Me.Controls("txt" & i), "#,##0.000")
        Next
End Sub
Hoặc muốn ngắn hơn nửa thì sửa lại thế này.
Mã: 
Private Sub UserForm_Initialize()
            Me.txtChungLoai = Range("AK2")
        For i = 1 To 14
            Me.Controls("txt" & i) = Format([B]Range("AK4").Offset(, i - 1)[/B], "#,##0.000")
        Next
End Sub
Nhấp chuột vào đây để mở rộng...

Cảm ơn a!
e đã thử và thấy rất ổn a à.
a có thể cho e hỏi thêm phần sau (cmdCapNhat) có thể rút ngắn tương tự như phần này được ko?
 
Upvote 0
nhk007dn đã viết:
Cảm ơn a!
e đã thử và thấy rất ổn a à.
a có thể cho e hỏi thêm phần sau (cmdCapNhat) có thể rút ngắn tương tự như phần này được ko?
Nhấp chuột vào đây để mở rộng...
Thì bạn thực hiện tương tự thôi mà, cho bạn thêm một cách khác nửa là.
Mã: 
Private Sub cmdCapNhat_Click()
Application.ScreenUpdating = False
            Range("AK2") = txtChungLoai
            Range("AK4").Resize(, 14) = Array(Txt1, Txt2, Txt3, txt4, txt5, txt6, txt7, txt8, txt9, txt10, txt11, txt12, txt13, txt14)
    Range("AK4:AX4").NumberFormat = "#,##0.000"
Application.ScreenUpdating = True
End
End Sub
 
Upvote 0
giaiphap đã viết:
Thì bạn thực hiện tương tự thôi mà, cho bạn thêm một cách khác nửa là.
Mã: 
Private Sub cmdCapNhat_Click()
Application.ScreenUpdating = False
            Range("AK2") = txtChungLoai
            Range("AK4").Resize(, 14) = Array(Txt1, Txt2, Txt3, txt4, txt5, txt6, txt7, txt8, txt9, txt10, txt11, txt12, txt13, txt14)
    Range("AK4:AX4").NumberFormat = "#,##0.000"
Application.ScreenUpdating = True
End
End Sub
Nhấp chuột vào đây để mở rộng...

Cảm ơn a!
e làm tương tự thế này, ko biết đúng hay sai mà thấy chạy được. Giờ có cách trên của a thấy gọn hơn rất nhiều.
Mã: 
Private Sub cmdCapNhat_Click()
Application.ScreenUpdating = False
            Range("AK2") = txtChungLoai
        For i = 1 To 14
            Range("AK4").Offset(, i - 1) = Controls("txt" & i)
        Next


       Range("AK4:AX4").Select
    Selection.NumberFormat = "#,##0.000"
Application.ScreenUpdating = True
End
End Sub
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

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

B
Làm sao đổi đơn vị B, M này sang hàng đơn vị vậy mọi người? (1 người xem)
    • Cười
Trả lời
4
Đọc
52
Bao Nguyen 89
B
nttrung_proneu
Cách giữ công thức khi lọc và tách file (2 người xem)
Trả lời
1
Đọc
20
minhminh27
minhminh27
SA_DQ
[Xin hỏi] Cách tính số tiền bình quân của tài khoản trong 1 tháng (3 người xem)
Trả lời
8
Đọc
129
SA_DQ
SA_DQ
C
Tạo hyperlink hàng loạt (1 người xem)
Trả lời
9
Đọc
5K
online.tanphat
O
TrungChinhs
  • Question Question
Hỏi cách làm tròn số trong VBA
Trả lời
9
Đọc
7K
SA_DQ
SA_DQ
dongbhhg
Tìm lương cơ sở theo từng tháng (1 người xem)
Trả lời
3
Đọc
78
dongbhhg
dongbhhg
V
Làm mẫu giấy đi đường (công lệnh) bằng Excel
Trả lời
12
Đọc
11K
Gà Công Nghệ
Gà Công Nghệ
H
  • Question Question
Gửi mail hàng loạt với mỗi mail là 1 file PDF đính kèm khác nhau
Trả lời
0
Đọc
26
Huyền Nguyễn Bear
H
N
Thử lập trình XLL add-in bằng C/C++ (2 người xem)
    • Thích
Trả lời
0
Đọc
68
nguyendang95
N
Tuấn Bụng Bự
tạo QRcode chuyển khoản ngân hàng
Trả lời
5
Đọc
206
Tuấn Bụng Bự
Tuấn Bụng Bự
M
Tự chèn dòng khi cập nhật dữ liệu từ trang tính khác.
Trả lời
1
Đọc
49
BuiQuangThuan
B
Quách Ngọc
Trả về kết quả ngày tháng hay khoảng trống (1 người xem)
Trả lời
3
Đọc
62
Quách Ngọc
Quách Ngọc
MaxanB
Cần hỗ trợ công thức Vlookup nhiều sheet theo điều kiên (1 người xem)
Trả lời
2
Đọc
81
MaxanB
MaxanB
N
Không chạy được file VBA (1 người xem)
Trả lời
3
Đọc
142
nhjngj
N
N
Xin giúp e cách lọc dữ liệu bị trùng
Trả lời
1
Đọc
64
hoangtuaotrang_hp_vn
H
tonny jj
Lập hàm thể hiện số công lệnh của ngày đi công tác (1 người xem)
Trả lời
8
Đọc
228
Nguyễn Nal
N
H
chuyển dữ liệu từ 1 dòng thành nhiều dòng,
Trả lời
13
Đọc
150
Duy Tùng 9x
Duy Tùng 9x
K
Hỏi lỗi không kéo được công thức (Ctrl+D) (1 người xem)
Trả lời
7
Đọc
128
khoinguyen2024
K
C
Filter có điều kiện đang ở dạng Cột
Trả lời
3
Đọc
120
Chí Còn Phí
C
H
Quản Lý Công Văn đi Và đến
9 10 11
Trả lời
216
Đọc
159K
dungnguyenMNCK
D
Xem thêm…

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

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALKSHOW KHÁM PHÁ SỨC MẠNH HÀM FILTER TRONG EXCEL 365
Back
Top Bottom