|
▼あきら さん:
アップしたShowManual ですが、今後、表示する文字列数が増えた時に、コード修正を
最小限にするべく、ShouAutoと同じ構えにしました。
ShowAuto同様、表示する字列変更、追加、削除は、
Array("AAAAAAAA", "CCCCCCCC") の ( )内のみ手を入れればOKです。
Sub ShowManual()
Static cnt As Long
Static mysep As String
Static myWords As Variant
myWords = Array("AAAAAAAA", "CCCCCCCC")
cnt = (cnt + 1) Mod (UBound(myWords) + 2)
With ActiveSheet.TextBoxes("Text Box 1").Characters
Select Case cnt
Case 0
.Text = ""
mysep = ""
Case Else
.Text = .Text & mysep & myWords(cnt - 1)
mysep = vbLf
End Select
End With
End Sub
|
|