Excel VBA chạy 2 code cùng lúc (1 người xem)

[anhdepjai]

Chảo cả nhà,

Mình có đoạn code sau:
CreateObject("sapi.spvoice").Speak Sheet2.Range("C12").Value
Máy tính sẽ phát ra đoạn thông tin ở ô C12 sheet2.
Tuy nhiên cùng lúc nó đang phát, mình muốn nó chạy đoạn code khác (VD: đổi màu chữ, màu nền) thì có làm được không?

Cảm ơn

 

[VMH0307]

Chảo cả nhà,

Mình có đoạn code sau:
CreateObject("sapi.spvoice").Speak Sheet2.Range("C12").Value
Máy tính sẽ phát ra đoạn thông tin ở ô C12 sheet2.
Tuy nhiên cùng lúc nó đang phát, mình muốn nó chạy đoạn code khác (VD: đổi màu chữ, màu nền) thì có làm được không?

Cảm ơn

vậy bạn viết theo thứ tự
code [đổi màu chữ, màu nền]
code [speak]
mặc dù thực hiện tuần tự nhưng có thể người dùng khó phát hiện ra chúng đang thực hiện không đồng thời.

 

[phihndhsp]

Chảo cả nhà,

Mình có đoạn code sau:
CreateObject("sapi.spvoice").Speak Sheet2.Range("C12").Value
Máy tính sẽ phát ra đoạn thông tin ở ô C12 sheet2.
Tuy nhiên cùng lúc nó đang phát, mình muốn nó chạy đoạn code khác (VD: đổi màu chữ, màu nền) thì có làm được không?

Cảm ơn

Theo hiểu biết của tôi thì nó sẽ không chạy cùng lúc 2 code được, mà chỉ chạy tuần tự thôi, do nhanh quá nên mình tưởng là chạy 1 lần

 

[anhdepjai]

vậy bạn viết theo thứ tự
code [đổi màu chữ, màu nền]
code [speak]
mặc dù thực hiện tuần tự nhưng có thể người dùng khó phát hiện ra chúng đang thực hiện không đồng thời.

Đành phải vậy. Cảm ơn bạn gợi ý nhé

 

[quanluu]

Chảo cả nhà,

Mình có đoạn code sau:
CreateObject("sapi.spvoice").Speak Sheet2.Range("C12").Value
Máy tính sẽ phát ra đoạn thông tin ở ô C12 sheet2.
Tuy nhiên cùng lúc nó đang phát, mình muốn nó chạy đoạn code khác (VD: đổi màu chữ, màu nền) thì có làm được không?

Cảm ơn

Cái này còn gọi là đa nhiệm
ko biết VBA excel thế nào chứ trên delphi nó gọi là Multi thread. Bạn thử tìm hiểu xem.

 

[南宫飘雪]

Option Explicit

Dim objSpvoice As Object

Sub Test()
  Set objSpvoice = CreateObject("sapi.spvoice")
  objSpvoice.Speak Sheet2.Range("C12").Value, 1
  MsgBox Sheet2.Range("C12").Value
End Sub

 

[anhdepjai]

Option Explicit

Dim objSpvoice As Object

Sub Test()
  Set objSpvoice = CreateObject("sapi.spvoice")
  objSpvoice.Speak Sheet2.Range("C12").Value, 1
  MsgBox Sheet2.Range("C12").Value
End Sub

Thanks for your code