Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

37063 / 76732

←次へ　｜　前へ→


	【44843】Re:一定の間隔でセルに文字を表示するには

りん

- 06/12/3(日) 13:00 -


	引用なし

	パスワード

akira さん、こんにちわ。

>　　　たとえば、このコードで　せいかい　でOKをクリックすれば
>　　　セルのA1からD1まで　やったね　と一文字ずつ順番に表示したいのですが
>　　　そのようなことはできますか？よろしくおねがいします。

>　　　Dim Msg　As String
　 Dim r1 As Range, rdt(1 To 1, 1 To 4) '行１列４の範囲に対応
>　　　
　If　TextBox１．Text　＝”A”
　　　Msg = "せいかい"
　　　rdt(1, 1) = "や"
　　　rdt(1, 2) = "っ"
　　　rdt(1, 3) = "た"
　　　rdt(1, 4) = "ね"
　 Else
　　　Msg = "ちがうよ"
　 End If
　 MsgBox Msg
　 '結果表示
　 With Application.ActiveSheet.Range("A1:D1")
　　　If rdt(1, 1) = "や" Then
　　　　 'やったね
　　　　 .Value = rdt()
　　　Else
　　　　 '中身を消す
　　　　 .ClearContents
　　　End If
　 End With
　 Erase rdt

こんな感じです。

0 hits

▼

【44840】一定の間隔でセルに文字を表示するには akira 06/12/3(日) 12:06