Xin phép mọi người cho em hỏi nhờ code VBA.

[thongthongthongvan]

Xin phép mọi người cho em hỏi nhờ code VBA.
Khi chọn Giá trị cột A và nhập giá trị cột B thì tự động điền vào giá trị cột C tương ứng. Em xin chân thành cảm ơn ạ.

 

[SA_DQ]

Bạn tham khảo macro cho TextBox1 như sau:

Private Sub TextBox1_Change()
 Dim lRw As Long
 
 lRw = [A65500].End(xlUp).Row + 1
 Cells(lRw, "A").Value = Me!ComboBox1.Text
 Cells(lRw, "B").Value = Me!TextBox1.Value
 Cells(lRw, "C").Value = 100 * Me!TextBox1.Value * CInt(Right(Me!ComboBox1.Text, 1)) 
End Sub

 

[thongthongthongvan]

Bạn tham khảo macro cho TextBox1 như sau:

Private Sub TextBox1_Change()
Dim lRw As Long

lRw = [A65500].End(xlUp).Row + 1
Cells(lRw, "A").Value = Me!ComboBox1.Text
Cells(lRw, "B").Value = Me!TextBox1.Value
Cells(lRw, "C").Value = 100 * Me!TextBox1.Value * CInt(Right(Me!ComboBox1.Text, 1))
End Sub

em cảm ơn ạ. Em thử rồi mà không được ạ. Nhưng cảm ơn cao nhân nhiều ạ

 

[befaint]

Tiêu đề thuộc diện chung chung.
Đăng bài sai chuyên mục.
Hình như có gì sai sai.

 

[thongthongthongvan]

Tiêu đề thuộc diện chung chung.
Đăng bài sai chuyên mục.
Hình như có gì sai sai.

View attachment 238221

dạ em mới hoạt động chưa hiểu nhiều quy tắc. Rất mong cao nhân bỏ qua và giúp đỡ ạ

 

[be_09]

dạ em mới hoạt động chưa hiểu nhiều quy tắc. Rất mong cao nhân bỏ qua và giúp đỡ ạ

1/ Bài viết không đúng Box là vi phạm nội quy thì sẽ bị Ban Quản trị Khóa bài viết, bạn hỏi về VBA thì phải đăng bài trong Box "Lập trình với Excel".
2/ Đọc lại nội quy để hiểu.

 

[moneymong.pt]

Chào bạn @thongthongthongvan,
Mình vừa chuyển topic của bạn vào đúng box. Lần sau bạn post bài nhớ chú ý hơn nhé.
Thân,

 

[thongthongthongvan]

Chào bạn @thongthongthongvan,
Mình vừa chuyển topic của bạn vào đúng box. Lần sau bạn post bài nhớ chú ý hơn nhé.
Thân,

Dạ vâng. Em cảm ơn ạ. Lần sau nếu có đăng bài để hỏi em sẽ chú ý hơn. A/c thật tốt bụng.