Kiến thức cơ bản về Visual Basic for Applications (VBA)

[MasceHuy]

khi gán giá trị cho biến, lúc thì anh dùng: variable = "value", khi thì dùng: set var = "value". Anh giải thích giùm nhé. Cám ơn nhiều.

 

[PhanTuHuong]

khi gán giá trị cho biến, lúc thì anh dùng: variable = "value", khi thì dùng: set var = "value". Anh giải thích giùm nhé. Cám ơn nhiều.

Khi biến là kiểu giá trị như single, integer, long, ... thì dùng lệnh gán. Còn khi biến là kiểu đối tượng (biến đối tượng) thì bạn phải thêm từ khóa Set ở đầu (ví dụ như Range).

 

[anhtuan1066]

Thấy các bạn xin tài liệu của thầy Hướng nhiều quá, tôi đã up lên mạng, các bạn vào đây tải về nhé:
http://www.mediafire.com/?51wjmlvjtlw
Mến
ANH TUẤN

 

[PhanTuHuong]

Tôi bổ sung thêm file Sample.xls của Excel 2000 (đã đề cập) để các bạn nghiên cứu thêm, không hiểu sao Excel 2003 không thấy có file này.

 

[Po_Pikachu]

Cho em hỏi chút nhé!
Em thấy trong file File Samples.xls có các hộp Textbox. Vậy là sao để khi nhấn vào các hộp ấy thì hiện ra đúng dòng code ứng với tên của chúng vậy? Em không thấy (hoặc ko biết) code nào điều khiển phần này cả. Mong được chỉ giáo thêm. Thanks

Mọi người giúp em Phát!

 

[PhanTuHuong]

Đúng là không có code cho nút thật, họ dùng siêu liên kết nhưng tôi cũng không hiểu cách thực hiện.

 

[anhtuan1066]

Cho em hỏi chút nhé!
Em thấy trong file File Samples.xls có các hộp Textbox. Vậy là sao để khi nhấn vào các hộp ấy thì hiện ra đúng dòng code ứng với tên của chúng vậy? Em không thấy (hoặc ko biết) code nào điều khiển phần này cả. Mong được chỉ giáo thêm. Thanks

Mọi người giúp em Phát!

Thì cũng giống như liên kết bình thường mà ta vẩn làm thôi... bạn rà chuột vào nút, để im đó sẽ thấy có 1 đuờng link hiện ra..
Xem các bài viết về Hyperlink sẽ biết làm nút này như thế nào.. nói chung là y chang
ANH TUẤN

 

[hung007007]

Thì cũng giống như liên kết bình thường mà ta vẩn làm thôi... bạn rà chuột vào nút, để im đó sẽ thấy có 1 đuờng link hiện ra..
Xem các bài viết về Hyperlink sẽ biết làm nút này như thế nào.. nói chung là y chang
ANH TUẤN

Muốn bấm vào mà nút không chạy, hãy giữ nút Ctrl khi click, khi click vào rồi, nó cho phép sửa chữa nút đó, ví dụ thay đổi kích thước, thay đổi text phía trong, nếu muốn xem hyperlink thì nháy phải ở phần viền của đối tượng và chọn Edit hyperlink

 

[th.toan]

Chào mọi người , tui đã biết macro khá lâu nhưng tôi vẫn cứ đang lòng vòng mà không biết bắt đầu học macro từ đâu
Các bác chỉ dẫn giúp mình với
Chắc đối với một số huynh câu hỏi đã bắt gặp nhièu rồi nhưng các bávv thông cảm , chỉ giúp mình với
Cảm ơn các bác nhiều

 

[may_kto]

Cảm ơn PhanTuhuong về bài viết.

 

[phonglan99]

trước hết xin cám ơn bạn PhanTuHuong về bài viết, nhưng sao em không thể thấy các hình minh họa trong bài viết của bạn PhanTuHuong được, không biết tại sao rất mong các anh chị chỉ giúp.

 

[quanghai1384]

Vba

Cảm ơn anh về bài viết rất hữu ích.
Không biết anh đã dịch xong cuốn sách này chưa để có thể chia sẻ cho mọi người?

 

[bj189]

hỏi về msgbox !

cảm ơn bạn phantuhuong đã chia sẻ kiến thức rất bổ ích trong topic này , mình mới tìm hiểu
về VBA excel và thấy rất hay , cho mình hỏi về msgbox có thể tạo ra được một thông báo
theo kiểu yes / no , nếu bấm vào yes thì sẽ gán cho một biến là true và ấn No sẽ gán biến
đó thành false để thực hiện một macro khác , xin cảm ơn !

 

[cadafi]

.... cho mình hỏi về msgbox có thể tạo ra được một thông báo
theo kiểu yes / no , nếu bấm vào yes thì sẽ gán cho một biến là true và ấn No sẽ gán biến
đó thành false để thực hiện một macro khác

Đại khái bạn có thể làm như sau:
[highlight=vb]
Sub Test()
Dim bMyCheck As Boolean
a = MsgBox("Do you want to do This ACTION ?", vbInformation + vbYesNo, "InFo")
If a = vbYes Then
bMyCheck = True
Else
bMyCheck = False
Call MyMacro 'Ten Macro can chay
End If
End Sub
[/highlight]

 

[ndu96081631]

Thử cái này xem:

Sub Test()
 Dim Check As Boolean
 Check = MsgBox("Ban chon 'Yes' hay 'No'?", 4) = 6
 MsgBox "Bien 'Check' có gia tri = " & Check
End Sub

 

[Hoàng Trọng Nghĩa]

Thử cái này xem:

Sub Test()
 Dim Check As Boolean
 Check = MsgBox("Ban chon 'Yes' hay 'No'?", 4) = 6
 MsgBox "Bien 'Check' có gia tri = " & Check
End Sub

Code ngắn đến không ngờ!

Thưa Thầy, Giá trị 4 và 6 của Thầy là gì vậy? Làm ơn giải thích dùm em tại sao ra False và True?

Xin cám ơn Thầy!

 

[ndu96081631]

Code ngắn đến không ngờ!

Thưa Thầy, Giá trị 4 và 6 của Thầy là gì vậy? Làm ơn giải thích dùm em tại sao ra False và True?

Xin cám ơn Thầy!

Cho luôn lên cho các đồng chí tự tham khảo:

|

A​

|

B​

|

C​

|

1​

|

Constant​

|

Value​

|

Description​

|

2​

|vbOKOnly|

0​

|Display OK button only.|

3​

|vbOKCancel|

1​

|Display OK and Cancel buttons.|

4​

|vbAbortRetryIgnore|

2​

|Display Abort, Retry, and Ignore buttons.|

5​

|vbYesNoCancel|

3​

|Display Yes, No, and Cancel buttons.|

6​

|vbYesNo|

4​

|Display Yes and No buttons.|

7​

|vbRetryCancel|

5​

|Display Retry and Cancel buttons.|

8​

|vbCritical|

16​

|Display Critical Message icon.|

9​

|vbQuestion|

32​

|Display Warning Query icon.|

10​

|vbExclamation|

48​

|Display Warning Message icon.|

11​

|vbInformation|

64​

|Display Information Message icon.|

12​

|vbDefaultButton1|

0​

|First button is default.|

13​

|vbDefaultButton2|

256​

|Second button is default.|

14​

|vbDefaultButton3|

512​

|Third button is default.|

15​

|vbDefaultButton4|

768​

|Fourth button is default.|

16​

|vbApplicationModal|

0​

|Application modal; the user must respond to the message box before continuing work in the current application.|

17​

|vbSystemModal|

4,096​

|System modal; all applications are suspended until the user responds to the message box.|

18​

|vbMsgBoxHelpButton|

16,384​

|Adds Help button to the message box|

19​

|VbMsgBoxSetForeground|

65,536​

|Specifies the message box window as the foreground window|

20​

|vbMsgBoxRight|

524,288​

|Text is right aligned|

21​

|vbMsgBoxRtlReading|

1,048,576​

| |

22​

| | | |

23​

| | | |

24​

| | | |

25​

|

Constant​

|

Value​

|

Description​

|

26​

|vbOK|

1​

|OK|

27​

|vbCancel|

2​

|Cancel|

28​

|vbAbort|

3​

|Abort|

29​

|vbRetry|

4​

|Retry|

30​

|vbIgnore|

5​

|Ignore|

31​

|vbYes|

6​

|Yes|

32​

|vbNo|

7​

|No|

Nói chung là nó nằm trong Help thôi

 

[Hoàng Trọng Nghĩa]

Nhưng vẫn chưa hiểu nguyên lý MsgBox "Bien 'Check' có gia tri = " & Check

 

[ndu96081631]

Nhưng vẫn chưa hiểu nguyên lý MsgBox "Bien 'Check' có gia tri = " & Check

Trời ơi.... sao ta?
Thì Check có giá trị là TRUE hoặc FALSE, tùy thuộc vào việc ta bấm YES hay NO trước đó
Vậy thì "gắn" Check vào 1 MsgBox thứ 2 này nữa là ra thôi
Hic...
Tóm lại tôi cũng chẳng biết giải thích thế nào (mặc dù tôi thấy nó quá đơn giản)

 

[Hoàng Trọng Nghĩa]

Vấn đề em thắc mắc là như vầy! Vì Thầy đặt Check như 1 msgbox. nhưng khi msgbox2 = Check, em những tưởng nó cho ra msgbox ban đầu, nhưng nó không phải vậy mà lại thay thế = true or false.