我正在撰寫一個宏，它帶有多個復選框并回圈遍歷它們以將標準筆記插入到單個筆記中。這是我的代碼：
這就是我所擁有的。它應該做的是獲取每個復選框標題并將其添加到單個注釋中的新行中。它所做的是為每個標題創建一個新注釋，末尾有一個空格。我試過移動那行代碼，但這是我第一次使用 VBA，而且我已經沒有想法了。我該怎么做才能讓它創建一個筆記并自適應地將所有選擇的標題添加到其中？
uj5u.com熱心網友回復：
CreateText 不應在 For 回圈中
試試這個：
Dim MyStr As String
For Each ThisControl2 In Prompt.Controls
If TypeName(ThisControl2) = "CheckBox" Then
If ThisControl2.Value = True Then
MyStr = Mystr & ThisControl2.Caption & vbCrLf
End If
End If
Next
swModel.CreateText MyStr, 0.02, 0.02, 0, 0.003175, 0
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/397055.html