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ランキング
-
ゆっくりムービーメーカー4 YMM...
-
世界がもし100人の村だったら2
-
NHKBSに出てくる衛星放送...
-
遥洋子さんは何故テレビに出な...
-
DIGAの録画データをパソコンに...
-
年商いくら以上を凄いと感じる?
-
ポツンと一軒家という番組があ...
-
過激なドッキリ番組について 古...
-
カルミナブラーナの歌詞の読み...
-
稲川淳二の「生き人形」って本...
-
東さんが永世名人になられてか...
-
池の水全部抜く大作戦のサブタ...
-
片付け番組で片付けできた方は...
-
日本語が不自由なタレント
-
細木数子の鑑定料
-
TVerというアプリがありますが...
-
品川祐の元不良話は嘘ですか?...
-
山あり谷ありの意味を四字熟語で
-
「作者」と「筆者」
-
彼の膝の上に座るのですが…コツ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ゆっくりムービーメーカー4 YMM...
-
iPadでAbemaTVを見ようとしたら...
-
世界がもし100人の村だったら2
-
NHKBSに出てくる衛星放送...
-
テロップ過剰はどうにかならな...
-
ExcelVBAでテロップを表示したい。
-
「すごい(楽しかった)」とい...
-
どうやったらできるの?
-
昨晩の探偵ナイトスクープについて
-
音楽番組の歌詞のテロップって...
-
BSデジタル民放を見るには?
-
B’zの稲葉さんがパパになった...
-
白い手書きのテロップは…… 1...
-
違和感のない動画編集のテロップ
-
白いゴシック体の昔のテロップ…...
-
伝説のマダム 桃井かおりのバック
-
サザエさんで増岡弘さんの追悼...
-
この画像の作品タイトルまたは...
-
このキテレツ大百科のみよちゃ...
-
オリラジ経済白書の美術モデル
おすすめ情報