![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.2ベストアンサー
- 回答日時:
先の物では先頭部分の表示に問題があったので修正します。
それとともに表示時間を柔軟に調節出来るようにしました。
後の欠点としては、全角半角文字の区別をしていないので、表示にズレがでてしまう問題が残っています。
------------------------------------------------------------------------
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub sample2()
Dim i As Integer, j As Long, k As Integer
Dim tmp As String
Dim mes As String
Dim word As Integer
Dim loops As Integer
Dim CEL As String
mes = "ExcelVBAでテロップを表示したい。ExcelVBAを独学でゼロから学んでる超初心者です。" & _
"worksheet上に右側から現れて左側に消えて行くというごくシンプルなテロップを作成したいのですが" & _
"ExcelVBAでテロップ作成することは出来ますか?" & _
"出来るのであれば、コードを教えて頂けるととてもありがたいです。" & _
"わがままな質問で申し訳ありません。宜しくお願い致します。"
word = 30
loops = 3
CEL = "A1"
mes = String(word, " ") & mes
For k = 1 To loops
For i = 1 To Len(mes)
DoEvents
Sleep (250)
tmp = Mid(mes, i, word)
Range(CEL) = tmp
Next
Range(CEL).ClearContents
Next
End Sub
この回答へのお礼
お礼日時:2010/06/24 17:37
回答ありがとうございます。
少し調整は必要みたいですけど、私的には全然問題なく使えます。
わがままな質問に付き合って頂き感謝致します。ありがとうございました。
No.1
- 回答日時:
おもしろそうなので作って見ました。
本来はタイマーを使って表示のタイミングを調節した方が良かったのですが、安直にループ文を使ってタイミング調整をしているので、パソコンによって表示速度が変わるでしょう。
あえて解説はしませんので、ご自身でコードの探求を行ってください。
Sub sample()
Dim i As Integer, j As Long, k As Integer
Dim tmp As String
Dim mes As String
Dim word As Integer
Dim loops As Integer
Dim CEL As String
mes = "ExcelVBAでテロップを表示したい。ExcelVBAを独学でゼロから学んでる超初心者です。" & _
"worksheet上に右側から現れて左側に消えて行くというごくシンプルなテロップを作成したいのですが" & _
"ExcelVBAでテロップ作成することは出来ますか?" & _
"出来るのであれば、コードを教えて頂けるととてもありがたいです。" & _
"わがままな質問で申し訳ありません。宜しくお願い致します。"
word = 30
loops = 5
CEL = "A1"
For k = 1 To loops
For i = 1 To Len(mes)
For j = 0 To 5000000: Next
tmp = Mid(mes, i, word)
Range(CEL) = tmp
Next
Range(CEL).ClearContents
Next
End Sub
この回答への補足
ありがとうございます。表示速度調整は何とか出来そうです。
真に我がままをいって申し訳ありませんが、表示している間は他の作業が一切出来ない
のですが、解決方法はありますか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【マクロ】表への繰り返し転記について 1 2022/11/19 16:30
- Excel(エクセル) excelvbaでスライドショーを作りたい 2 2023/04/20 14:32
- Excel(エクセル) ExcelVBAで自動調整できますか? 3 2023/08/25 22:59
- Excel(エクセル) EXCELVBAでシートを他のブックにコピーする命令を出すと毎回存在しないシート名の問合わせがある 2 2022/05/07 17:16
- Visual Basic(VBA) ExcelVBAで質問です。離れた二次元配列を一つにしたい 4 2022/07/26 19:06
- テレビ テレビのチャンネル表示が邪魔 8 2022/08/11 11:42
- その他(コンピューター・テクノロジー) ChatGPT ExcelVBAの精度は3.5と4で違いはある? 1 2023/04/21 21:00
- その他(IT・Webサービス) EXCELVBAでシートを他のブックにコピーする命令を出すと毎回存在しないシート名の問合わせがある 1 2022/05/07 15:12
- その他(法律) Wikipediaの著作権について 2 2022/08/14 07:14
- オンラインゲーム マインクラフト(java版、v1.19.2) realms に接続できません 6 2022/11/08 14:10
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
この画像の作品タイトルまたは...
-
ヤッターマンの歌
-
地元の銀行のCMにフカキョンが...
-
品川祐の元不良話は嘘ですか?...
-
DIGAの録画データをパソコンに...
-
稲川淳二の「生き人形」って本...
-
「七日」は「なのか」それとも...
-
身長170~175、体重75~80の芸能人
-
溶ける水着ドッキリについて、...
-
年商いくら以上を凄いと感じる?
-
東さんが永世名人になられてか...
-
はじめてのおつかい
-
60歳以上のご年配の方に「無職...
-
フジテレビTWOの番組間に放送の...
-
バラエティーの収録時間
-
昨日の探偵ナイトスクープ(汗...
-
過激なドッキリ番組について 古...
-
地デジが急に映らなくなり、原...
-
日本のテレビの食レポは美味い...
-
下ネタがつまらない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ゆっくりムービーメーカー4 YMM...
-
テロップ過剰はどうにかならな...
-
11月18日放送 開運!なんでも...
-
NHKBSに出てくる衛星放送...
-
今日のシルシルミシルサンデー...
-
BSデジタル民放を見るには?
-
熊本から。TVの地震速報について
-
ExcelVBAでテロップを表示したい。
-
テレビ 生放送での「訂正」が...
-
ハーフのコメンテイター
-
『未だに』と『今だに』ほか…
-
昨晩の探偵ナイトスクープについて
-
バラエティーなどのテロップか...
-
「最終兵器彼女」のオープニング
-
今日のミヤネ屋
-
クロサギ最終回のラスト
-
cmに流れてる曲がわかりません!
-
ヤッターマンの歌
-
皇室のニュースのとき
-
オリラジ経済白書の美術モデル
おすすめ情報