Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
congcd4

VBA - Vấn đề lấy dữ liệu do người dùng đã nhập vào trước đó

Các bài được khuyến nghị

congcd4    0

Xin chào tất cả các bạn!

 

Mình có một thắc mắc muốn hỏi các bạn như sau:

 

Chẳng hạn khi mình tạo một đoạn VBA để vẽ tự động, có 1 bước đòi hỏi người dùng nhập vào giá trị; ví dụ là 100.

 

Sau khi thực hiện xong lệnh, mình quay lại thực hiện lệnh đó lần thứ 2, Mình muốn là giá trị 100 do người dùng nhập vào đó vẫn được lưu vào và gợi ý cho người dùng giá trị đó. Họ chỉ cần Enter thay vì phải nhập lại 100. Nếu lệnh này cứ lặp lại nhiều lần thì việc nhập con số 100 đó cho mỗi lần thật sự rất phiền phức

 

Mong các bạn giải đáp giúp mình!

 

Xin chân thành cảm ơn!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Bạn tham khảo code sau

'By Nguyen Ngoc Son-nguyenngocson@live.com
Public dxx, dxx1 As Double
Sub AAA()
On Error Resume Next
dxx1 = dxx
dxx = ThisDrawing.Utility.GetReal(vbCrLf & "Nhap so: " & "<" & dxx1 & ">")
If dxx = 0 Then dxx = dxx1
MsgBox "so nhap vao la: " & dxx
End Sub

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
congcd4    0

Mình làm được rồi bạn ạ! Cảm ơn bạn nhiều lắm!

 

Lý do của nó có phải là đưa biến ra toàn cục thì giá trị của nó vẫn lưu sau khi kết thúc hàm không nhỉ?

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×