Khai báo biến VBA for Cad

[NguyenNgocSon]

Em khai báo biến toàn cục trong VBA cad như sau

Public Diembatdau As Variant
Public mss As Double
Public Const mss = InputBox("Nhap vao MSS", "Nguyen Ngoc Son")
Public Const Diembatdau = ThisDrawing.Utility.GetPoint(, "Chon diem bat dau ve tren man hinh:")

Nhưng báo lỗi. bác nào biết xin chỉ giúp
Thân !

 

[ptlong04x1]

Em khai báo biến toàn cục trong VBA cad như sau

Public Diembatdau As Variant
Public mss As Double
Public Const mss = InputBox("Nhap vao MSS", "Nguyen Ngoc Son")
Public Const Diembatdau = ThisDrawing.Utility.GetPoint(, "Chon diem bat dau ve tren man hinh:")

Nhưng báo lỗi. bác nào biết xin chỉ giúp
Thân !

Bạn khai báo mss, và Diembatdau không nhất quán. Ở 2 dòng đầu là biến, 2 dòng sau lại thành hằng, mà đã hằng thì làm sao lại cho phép nhập vào tại phần General như vậy. Lỗi là đúng rồi.

 

[NguyenNgocSon]

Bạn khai báo mss, và Diembatdau không nhất quán. Ở 2 dòng đầu là biến, 2 dòng sau lại thành hằng, mà đã hằng thì làm sao lại cho phép nhập vào tại phần General như vậy. Lỗi là đúng rồi.

Em cám ơn. Nhưng em chưa hiểu ý cụ thể như thế nào ?
bác có thể chỉ rõ hơn trong code không
Cám ơn bác nhiều !

 

[ptlong04x1]

Em cám ơn. Nhưng em chưa hiểu ý cụ thể như thế nào ?
bác có thể chỉ rõ hơn trong code không
Cám ơn bác nhiều !

Thay vì viết như vậy, bạn sửa lại thành :

Public Diembatdau As Variant
Public mss As Double

Sub Test
      mss = InputBox("Nhap vao MSS", "Nguyen Ngoc Son")
      Diembatdau = ThisDrawing.Utility.GetPoint(, "Chon diem bat dau ve tren man hinh:")
End Sub