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
回答ありがとうございます。
少し調整は必要みたいですけど、私的には全然問題なく使えます。
わがままな質問に付き合って頂き感謝致します。ありがとうございました。
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ランキング
-
サザエさんで増岡弘さんの追悼...
-
皇室のニュースのとき
-
BSデジタル民放を見るには?
-
このキテレツ大百科のみよちゃ...
-
『未だに』と『今だに』ほか…
-
特別出演と友情出演
-
お店のテレビに自作の広告をテ...
-
DIGAの録画データをパソコンに...
-
踊るさんま御殿の賞金はなぜ5...
-
遥洋子さんは何故テレビに出な...
-
NHKの集金 2人で出来た
-
身長170~175、体重75~80の芸能人
-
上沼恵美子が紅白歌合戦の司会...
-
日テレ「だいすき」の中で使用...
-
『遠山の金さん』名台詞
-
バラエティーの収録時間
-
「youは何しに日本へ」って、海...
-
グループ名に「さん」は正しい...
-
株式を始めるタイミング
-
ぽつんと一軒家なんですが
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ゆっくりムービーメーカー4 YMM...
-
iPadでAbemaTVを見ようとしたら...
-
世界がもし100人の村だったら2
-
NHKBSに出てくる衛星放送...
-
テロップ過剰はどうにかならな...
-
ExcelVBAでテロップを表示したい。
-
「すごい(楽しかった)」とい...
-
どうやったらできるの?
-
昨晩の探偵ナイトスクープについて
-
音楽番組の歌詞のテロップって...
-
BSデジタル民放を見るには?
-
B’zの稲葉さんがパパになった...
-
白い手書きのテロップは…… 1...
-
サザエさんで増岡弘さんの追悼...
-
違和感のない動画編集のテロップ
-
伝説のマダム 桃井かおりのバック
-
白いゴシック体の昔のテロップ…...
-
この画像の作品タイトルまたは...
-
このキテレツ大百科のみよちゃ...
-
オリラジ経済白書の美術モデル
おすすめ情報