エクセルで文字を複数回数秒間隔で連続表示できますか?

Question

部活動のコーチをしているものです。
トレーニングに利用したく下記のようなものを作りたいと考えています。

部員数は23名で、台の上にﾊﾟｿｺﾝを置き開始ｷｰを押してｽﾀｰﾄ。 
部員は画面を見て高速足踏み（5～8秒程度）。 
画面に指示が表示され、指示方向に決められた体勢を瞬時にとる。 
これを指定回数行いたいです。 
表示は「前･後･左･右･上･下」のいずれか一文字の表示です。 
表示の間隔をさらにﾗﾝﾀﾞﾑ（5～8秒程度）にできると最高です。 
指定回数は部員の能力により調整したいので自由に変更ができると助かります。 
部員数が多いため何班かに分けて行いたいので私は他の班の指導をするので 
ﾄﾚｰﾆﾝｸﾞはﾊﾟｿｺﾝに頼りたいです。 

RAND関数等調べましたが「F9」ｷｰ使用などの制限がついてしまい 
使い勝手が悪いです。 
ｽﾀｰﾄをｸﾘｯｸすれば指定回数表示後にｽﾄｯﾌﾟ　としたいです。 
ｴｸｾﾙは初級者ﾚﾍﾞﾙです。
よろしくお願いします。

WindFaller · Accepted Answer

---------------
使用説明
開発環境：Windows10, 32bit, Excel2013
制作：2017/4/30
---------------
全てを標準モジュールに登録して、保存し、再起動すると、メニューも数式バーもリボンもない状態のワークシートが現れます。

緊急避難的なショートカット
・Alt + F11　VBEditor 画面が現れるます。
・Alt +F8 マクロ実行

Start_ShortCutKeySetting
これによって、特別なショートカットが設定されています。
・ESC　中止ボタン　（重要）
・F12　起動用のボタン
・F11　設定画面（Sheet2を開く)
　（Ctrl + PageDown)　　Excel本来のショートカット

Sheet2 のデフォルト設定
項目　
出力場所　　B3
フォントサイズ　80
秒間隔　1
表示時間　0.5
残りの表示場所　D1
カウント　300

マクロ内での設定
・重複を許すかどうか
enabledDOUBLE =True
・スタートまでの間奏時間
betweenTime = Int(Rnd() * 5) + 2 '2から5分まで"\**　0.5=30sec入力可
　　↓
betweenTime =0.5　　と直接入力が可能　小数点第一位まで

本編の上下の表示の時間は、あまり正確ではなく、PCの性能に依存するはずです。
◯△の方は、PCの内部時計を利用しています。

----------
'グリッド線を表示
Sub SheetArrange_1()
Dim flg As Variant　'元の画面 False, 調整用画面 True
flg = Application.InputBox("フラッシュスクリーン=0 , 通常Excel画面=1", "表示切替")
If VarType(flg) = vbBoolean Then Exit Sub
Worksheets(1).Activate
With ActiveWindow
　.DisplayHeadings = flg
　.DisplayGridlines = flg
End With
End Sub

'画面の切り替え
Sub SheetArrange_2()
Dim flg As Variant　'表示用画面 False, 通常画面 True
flg = Application.InputBox("フラッシュスクリーン=0 , 通常Excel画面=1", "表示切替")
If VarType(flg) = vbBoolean Then Exit Sub
'セル幅調整
Sub LocationArrange()
Dim wds As Variant
Dim i As Long
wds = Array(, 13.63, 8.75, 7.5, 8.5)　'セル幅
With Worksheets(1)
　 For i = 1 To 4
　　 .Columns(i).ColumnWidth = wds(i)
　 Next
End With
End Sub

'セル幅調整
Sub LocationArrange()
Dim wds As Variant
Dim i As Long
wds = Array(, 13.63, 8.75, 7.5, 8.5)
With Worksheets(1)
　 For i = 1 To 4
　　 .Columns(i).ColumnWidth = wds(i)
　 Next
End With
End Sub

'-----使用説明終わり----------
直すのも大変かとは思いますが、よろしくお願いします。
修正点

①. 
Sub Auto_Open()
　 Worksheets(1).Activate　　'←この行を加える
　 Call Start_ShortCutKeySetting
End Sub

②. 
Private Sub SettingSheet(flg As Boolean)
'シート設定
　With ActiveWindow
　　'flg = Not .DisplayHeadings
　　.DisplayHeadings = flg
　　.DisplayGridlines = flg
　　.Zoom = IIf(flg, 100, 300)
　　.DisplayWorkbookTabs = flg
　End With
　With Application
　　.WindowState = xlMaximized
　　.DisplayFormulaBar = flg
　　.ExecuteExcel4Macro "Show.ToolBar(""Ribbon""," & flg & ")"　　'if構文 を取る
　End With
　　'以下を加える
　　If flg = False Then
　　　Range(Worksheets(2).Range("B6").Value).HorizontalAlignment = xlRight
　　End If
End Sub

③. 
Sub SettingSheet2()
Dim c As Range
Dim i As Long
Dim outPutData As Variant
Dim outputExample As Variant
Worksheets(2).Select　　'これを加える
－－
For Each c In Range("A2:A7")　'←A6 からA7 に替える
　c.Value = outPutData(i)
　c.Offset(, 1).Value = outputExample(i)
　c.Offset(, 3).Value = outputExample(i)
　i = i + 1
Next c

---後は、検索で行ってください。－－
Sub  FrashExpress() 内
1.
showCharTime = showCharTime * 1000
　betweenTime = Int(Rnd() * 5) + 2　'2から5分まで"\**　0.5=30sec入力可
　''betweenTime = 0.5　'待ち時間　 '加入
2．
　 If i = 1 Then　'1/2 を出す場合
　　　i = 2
　　　expRng.Value = "◯"　　'加筆
　　Else
　　　i = 1
　　　expRng.Value = "△"　'加入
　　End If
　　'　　''i = Int(Rnd() * UBound(SChars)) + 1　　全部の記号を出す
　　 '×　 expRng.Value = SChars(i)　　'削除
3.
　Lasttime = GetTickCount()
'　 Application.ScreenUpdating = True　'削除

4．
　　　expRng.Value = JChars(j)
　　　If (cnt - i) < 20 Then　　' ここから加入
　　　　expRng.Font.ColorIndex = 3
　　　　DoEvents
　　　End If　　　　　　　　　　'ここまで
　　End If

5．
　i = i + 1
'　 If cnt < 20 Then expRng.Font.ColorIndex = 3 '削除
　　If cnt <= 0 Then Exit Do
　Loop While UBound(ExpItms) + 1 > i
　expRng.Value = "END"　　'ここから加入
　Sleep 1000
　expRng.Clear　　　　　　　　'ここまで

WindFaller · Answer

すみません。このURLは、今、ご覧になっているログ番号数字7桁です。
いままで、ずっと慣例でそうしてきたもので、始めての方にはよく説明するべきでした。

WindFaller · Answer

まず、修正は大変でしょうから、アップロードしておきましたので、ご都合のよい時にダウンロードしてみてください。

http://bit.ly/2prOcdT

今回は、長めの日数を設定して、ZIPで圧縮してアップロードしてあります。
パスワードは、このURL の7桁の数字です。
解凍した後か、その最中にブロックを外してくれといってきますから、それをはずしてください。たぶん、お気づきだと思いますが、私は、レイアウトがすこぶる苦手なのです。

私は、かなり年齢の過ぎた頃からのVBA入門で、もう少し早く手をつけていればよかったと思っています。VBAの仕様は、何重構造にもなってとても、覚えにくいものだと思います。これも、一種の語学のようなものだと思います。
私は、都の技術学校でOffice を教わりましたが、VBA初日に出された問題。
『数字の合計を出すプログラムを作りなさい』
というものです。今でも思い出します。

WindFaller · Answer

今試してみましたら、起動時の設定の箇所でおかしな所がありますので、すぐに修正をします。

これと、
Sub Auto_Open()
 Call Start_ShortCutKeySetting
End Sub

Private Sub SettingSheet()
'シート設定
End Sub

要するに、シートがどれに対してもはたらいてしまいます。
シートを特定しないといけません。

WindFaller · Answer

'続き
Private Sub SettingSheet()
'シート設定
  With ActiveWindow
    flg = Not .DisplayHeadings
    .DisplayHeadings = flg
    .DisplayGridlines = flg
    .Zoom = IIf(flg, 100, 300)
    .DisplayWorkbookTabs = flg
  End With
  With Application
    .WindowState = xlMaximized
    .DisplayFormulaBar = flg
    If .ExecuteExcel4Macro("Get.ToolBar(7,""Ribbon"")") Then
      .ExecuteExcel4Macro "Show.ToolBar(""Ribbon""," & flg & ")"
    End If
  End With
End Sub
Sub Start_ShortCutKeySetting()
  Dim Msg As String
  Call SettingSheet
  If flg = False Then
    Application.OnKey "{F12}", "CountStart"
    Msg = "F12で起動します。" & vbCrLf & "終了は ESC キーです"
  Else
    Application.OnKey "{F12}"
    Msg = "F12の設定を解除しました。"
  End If
  MsgBox Msg
  Application.OnKey "{F11}", "ShChange"
  MsgBox "F11でシートの切り替えします"
End Sub
Sub CountStart()
  Call RandomExpress
End Sub
Sub ShChange()
'F11でシートの切り替え
  If ActiveSheet.Index = 1 Then
    ActiveSheet.Next.Select
  Else
    ActiveSheet.Previous.Select
  End If
End Sub
Sub SettingSheet2()
Dim c As Range
Dim i As Long
Dim outPutData As Variant
Dim outputExample As Variant
Worksheets(2).Select
Range("A1").Value = "項目"
Range("D1").Value = "入力例"
i = 0
outPutData = Array("出力場所", "フォントサイズ", "秒間隔", "表示時間", "残りの表示場所", "カウント")
outputExample = Array("B3", "80", "1", "0.5", "D1", "300")
For Each c In Range("A2:A7")
  c.Value = outPutData(i)
  c.Offset(, 1).Value = outputExample(i)
  c.Offset(, 3).Value = outputExample(i)
  i = i + 1
Next c
Columns(1).AutoFit
MsgBox "違う場合はB列に設定値を入れてください", vbInformation
End Sub

''このマクロの設定などの説明は追々いたします。もしかしたら、解釈を間違えている部分があるかもしれません。
'------------------

>実は他の掲示板に同様の質問をしていました。
昔はよく批判されましたが、今は、別に構いません。

>ご回答者様に大変失礼な行為だと ご指摘を頂きました。
別に構いません。私は、ここ最近、ここでとても不愉快なことがずっと重なっていて、ついに、今の状態ではとてもやっていられませんので、私は、これを最期に当分の間、ここを去るつもりで書いています。

その人その人のVBAの実力というものは、おわかりにならないと思いますが、あまりに初歩的な内容で、解決していくものにも、問題があると思うのです。そして、今回のようなマクロは、ふだん、ここの掲示板では、即ボツになるものです。理由は、長いからだそうです。

それと、私の予感では、VBAはどんどん衰退していくような気がします。だから、もう特に覚える必要はありませんが、かといって、私自身が新しい環境に移行できるのか分からないのです。なるべく新しい言語と技術は身につけたいと思っています。残った命の長さと手が動く間だけですが。

>さらにご負担をお掛けした事と思いますが、ここまでで質問の取り下げを考えています。

あまり気にしないでください。私を不快と失望に陥らせたのは、そんなことではないからなのです。もっと全体的なことなのです。ここの経営者が変わったということも一つあります。私は、前のハンドルからですと、12年近くここで書いていますが、最近は、がらっと様子が変わってしまったようです。別のカテゴリでは、これはスマフォなどが原因だという指摘もあるようです。

添付画像は、設定画面のSheet2 、Sheet1 はあまり何かを入れたくありませんでした。

WindFaller · Answer

この説明は、次回にさせていただきます。

Option Explicit

Option Explicit
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim flg As Boolean
Const enabledDOUBLE As Boolean = True '重複を許さない(F),許す(T）
Sub Auto_Open()
Call Start_ShortCutKeySetting
End Sub
Sub RandomExpress()
Application.EnableCancelKey = xlErrorHandler
On Error GoTo EscapeLine
Dim sh2 As Worksheet
Set sh2 = Worksheets("Sheet2")
Dim JChars As Variant
Dim SChars As Variant
Dim expRng As Range
Dim timeDiff As Double
Dim showCharTime As Double
Dim betweenTime As Single
Dim StartTime As Long
Dim Lasttime As Long
Dim remainRng As Range
Dim cnt As Long
Dim remainCnt As Variant
Dim SetVals As Variant
'************************
JChars = Array("", "前", "後", "左", "右", "上", "下")
SChars = Array("", "△", "◯", "□", "▽", "◇")
SetVals = sh2.Range("B2:B7").Value

Set expRng = Range(SetVals(1, 1)) ' Range("B3") '出力場所
expRng.Font.Size = SetVals(2, 1) '80 'フォントサイズ
timeDiff = SetVals(3, 1) '1 '秒間隔
showCharTime = SetVals(4, 1) '0.5
Set remainRng = Range(SetVals(5, 1)) 'Range("D1")
cnt = SetVals(6, 1) '300
'***********************
expRng.Select
Dim iCnt As Integer
iCnt = cnt / 0.6 '目減りを考慮して数を増やす
ReDim ImpItms(iCnt, 1)
Dim ExpItms()
Dim i As Long, j As Long
Randomize
start:
Worksheets(1).Select
For i = 0 To iCnt
ImpItms(i, 0) = Rnd()
ImpItms(i, 1) = (i - 1) Mod 6 + 1
Next
SortPos ImpItms
j = 0
If enabledDOUBLE = False Then
For i = 0 To UBound(ImpItms) - 1
If ImpItms(i, 1) <> 0 Then
If ImpItms(i, 1) <> ImpItms(i + 1, 1) Then
ReDim Preserve ExpItms(j)
ExpItms(j) = ImpItms(i, 1)
j = j + 1
End If
End If
Next i
Else
ReDim ExpItms(cnt - 1)
For i = 0 To cnt - 1
ExpItms(i) = ImpItms(i, 1)
Next
End If
i = 0
showCharTime = showCharTime * 1000
betweenTime = Int(Rnd() * 5) + 2 '2から5分まで"\** 0.5=30sec入力可
remainCnt = Int(betweenTime * 60) & "秒"
remainRng.Select
StartTime = GetTickCount()
Lasttime = betweenTime * 60 '2017/04/30
Do
If i = 1 Then '1/2 を出す場合
i = 2
Else
i = 1
End If
''i = Int(Rnd() * UBound(SChars)) + 1　　全部の記号を出す

expRng.Value = SChars(i)
If Lasttime - StartTime > 0 Then
remainCnt = Int(betweenTime * 60 - (Lasttime - StartTime) / 1000) & "秒"
End If
remainRng.Value = remainCnt

Sleep 1000
expRng.ClearContents
Sleep 300
DoEvents
Lasttime = GetTickCount()
Application.ScreenUpdating = True

Loop Until (Lasttime - StartTime) / 1000 > betweenTime * 60
i = 0
'---end of preparing----
Beep
remainRng.Select
Do
j = ExpItms(i)
If (Int(Rnd() * 9) + 1) Mod 3 = 1 Then 'ランダムに従って、記号が出る
expRng.Value = SChars(Int(Rnd() * 4) + 1)
Else
expRng.Value = JChars(j)
End If
remainRng.Value = cnt - i
Sleep showCharTime
expRng.ClearContents
DoEvents
Sleep Int(timeDiff * 1000) - showCharTime
i = i + 1
If cnt < 20 Then expRng.Font.ColorIndex = 3
If cnt <= 0 Then Exit Do
Loop While UBound(ExpItms) > i
EscapeLine:
If Err.Number <> 0 And Err.Number <> 18 Then
MsgBox Err.Number & ": " & Err.Description
End If
expRng.Clear
Application.EnableCancelKey = xlInterrupt
Application.ScreenUpdating = False
ActiveSheet.UsedRange.ClearContents
Application.ScreenUpdating = True
End Sub
Private Function SortPos(ByRef iArray())
Dim i As Long
Dim j As Long
Dim Temp As Double
Dim Temp2 As Long
For i = UBound(iArray) To LBound(iArray) Step -1
For j = LBound(iArray) + 1 To i
If iArray(j - 1, 0) > iArray(j, 0) Then
Temp = iArray(j - 1, 0)
Temp2 = iArray(j - 1, 1)
iArray(j - 1, 0) = iArray(j, 0)
iArray(j - 1, 1) = iArray(j, 1)
iArray(j, 0) = Temp
iArray(j, 1) = Temp2
End If
Next j
Next i
End Function
'//
後は設定マクロ

WindFaller · Answer

最初に、この手の質問は、掲示板では製作依頼は敬遠されがちだということを覚えていてほしいと思います。やはりトラブルが多いからと、質疑応答としての価値がなくなるのと同時に、あるレベルに達すると、金銭的価値に変わってきてしまうからです。それに、それは、開発依頼となると、想像以上の値段のするものです。個人的な開発でも、数万円から最高１０万円は取られます。

ただ、人を上手にノセて動かす力があれば、どんなお金の価値や人の端的な能力よりもずっと優れていると思います。それが、人の器の大きさなのだろうと思います。余計な話をすると、また質問者さんに怒られますが。

さて、今回のコードは、今よりも10年以上前に私が作ったものです。
そして、これは3部作の一つです。元は、マウスで位置が不特定の数字を追いかけるような内容で、動体視力や脳を活性化させるためのものです。チンパンジーの方が、こうした能力は上だとも言います。

そのコードの「300」は、ユーザーが変更しても、ほとんど反映しません。もともと、300にはなりません。それと、本格的には、乱数には若干の偏りが気になります。

現行のコードでは、***** から　****　までの設定です。
今回のコードでは、カウント数は、ユーザー設定の部分には設けていません。
別に作らないとできません。

>4 １回目の表示までに時間がほしい。（できれば時間数ランダムで）→ この時間が足踏み

1回目の表示の時間設定そのものは、Excelのメモリがきちんと仮想メモリに収まらないと正しく出てきません。

元のプログラムはカウントダウンが出るようになっていました。

>5 表示と表示の間に時間がほしい。（できれば時間数ランダムで）→ この時間が足踏み
もともと、このマクロは、そろばんのフラッシュ演算を真似て作られたものでコードとしては最低ラインにまで削っていますから、確か可能だったと思います。

>6 指示とは違う表示をしたい
これ自体も、ある程度は想定されています。

>7 残りの表示回数を表示したい。
これも、元にあった機能を削っているだけです。

>8 指示の表示は連続及び重複の表示は大丈夫です。（むしろ推奨）
これは、間に何か入れた場合だと思います。連続表示した場合は、表示のOn/Off の切れ目がある場合に限ります。これは、フラッシュ演算と同じ原理です。なお、フラッシュ演算

>開始キー "F12" を押すと保存を促す画面が出るのですが
それは、設定されていない状態だと思います。
おそらく、私が実際に見ているものとは違う状態を見ているものと思われます。（添付画像が、このマクロの設定で作られたものです。全体がこのように出ています。この操作にはマウスは用いません。）

おそらくは、限られた間ではありますが、なんとか完成にまでは持っていきたいと思います。

WindFaller · Answer

こんばんは。ブックを新しくして設定してください。以下は標準モジュールに貼り付けます。設定は、今は、VBEditor 上で行います。 Startボタンは、F12 , 止まる場合は、Esc キー画面の設定は、SettingSheetで行いますから、最初にこれを実行してください。文字の大きさは、80にして、画面は300%にしていますが、まだ大きくすることは可能だと思います。起動してから、最初は、しばらくお待ち下さい。出力順序を設定しています。画面は、数式バーも、メニューも、枠線もすべてなくなります。 VBAマクロを開く場合は、Alt+ F11, マクロの選択は Alt + F8 ですからお忘れなく。 >　2 スロット感覚で画面が始動　どんなふうにしてよいのかよくわかりません。 >　4 指定回数2･3の繰返し　　ランダムの生成する数は決まっていても、出力数は正確には分かりません。　　重複を取り除くので、だいたい8割ぐらいになります。今のところ、最後まで通してやっていません。たぶん、全てを吐き出せば終わるはずです。まだ、#7のお礼欄は読んでおりませんので、あしからず。 '// Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) Dim flg As Boolean Sub RandomExpress() 　Application.EnableCancelKey = xlErrorHandler 　On Error GoTo EscapeLine 　Dim JChars As Variant 　Dim expRng As Range 　Dim timeDiff As Double 　Const iCnt As Integer = 300　'ランダムの生成する数 '************************ 　JChars = Array("", "前", "後", "左", "右", "上", "下") 　Set expRng = Range("B3")　'出力場所　expRng.Font.Size = 80　'フォントサイズ　timeDiff = 2　'秒間隔　'*********************** 　Dim ImpItms(iCnt, 1) 　Dim ExpItms() 　Dim i As Long, j As Long 　Randomize 　For i = 0 To iCnt 　　ImpItms(i, 0) = Rnd() 　　ImpItms(i, 1) = (i - 1) Mod 6 + 1 　Next 　SortPos ImpItms 　j = 0 　For i = 0 To UBound(ImpItms) - 1 　　If ImpItms(i, 1) <> 0 Then 　　If ImpItms(i, 1) <> ImpItms(i + 1, 1) Then 　　　ReDim Preserve ExpItms(j) 　　　ExpItms(j) = ImpItms(i, 1) 　　　j = j + 1 　　End If 　　End If 　Next i 　i = 0 　Do 　　j = ExpItms(i) 　　expRng.Value = JChars(j) 　　DoEvents 　　Sleep Int(timeDiff * 1000) 　　i = i + 1 　Loop While UBound(ExpItms) > i EscapeLine: 　Application.EnableCancelKey = xlInterrupt 　Application.ScreenUpdating = False 　ActiveSheet.UsedRange.ClearContents 　Application.ScreenUpdating = True End Sub Private Function SortPos(ByRef iArray()) 　Dim i As Long 　Dim j As Long 　Dim Temp As Double 　Dim Temp2 As Long 　For i = UBound(iArray) To LBound(iArray) Step -1 　　For j = LBound(iArray) + 1 To i 　　　If iArray(j - 1, 0) > iArray(j, 0) Then 　　　　Temp = iArray(j - 1, 0) 　　　　Temp2 = iArray(j - 1, 1) 　　　　iArray(j - 1, 0) = iArray(j, 0) 　　　　iArray(j - 1, 1) = iArray(j, 1) 　　　　iArray(j, 0) = Temp 　　　　iArray(j, 1) = Temp2 　　　End If 　　Next j 　Next i End Function Sub SettingSheet() '画面等の設定 With ActiveWindow 　flg = Not .DisplayHeadings 　　.DisplayHeadings = flg 　　.DisplayGridlines = flg 　　.Zoom = IIf(flg, 100, 300) End With With Application 　 .DisplayFormulaBar = flg If .ExecuteExcel4Macro("Get.ToolBar(7,""Ribbon"")") Then 　 .ExecuteExcel4Macro "Show.ToolBar(""Ribbon""," & flg & ")" End If End With Call ShortCutKeySetting End Sub Sub ShortCutKeySetting() Dim Msg As String 　If flg = False Then 　Application.OnKey "{F12}", "CountStart" 　Msg = "F12で起動します。" & vbCrLf & "終了は ESC キーです" 　Else 　Application.OnKey "{F12}" 　Msg = "F12の設定を解除しました。" 　End If 　MsgBox Msg End Sub Sub CountStart() 　Call RandomExpress End Sub

presidio · Answer

外付けアンプという手もあります。生徒としてはそれの方がやりやすいように思います。
どうしても画面で，と言う場合は以下の通りです。E7セルに上下左右が表示されます（プログラムでright, left, up, downを日本語に書き替えて）。それを拡大表示すれば良いのではないでしょうか。
p.s. ランダムですので，例えば「右，右」のように続く場合もあります。それを避けるには，前の値と新しい乱数の差の絶対値が0.25の場合はランダムを出し直すというプログラムの変更が必要です。それは，勉強してみてください。

presidio · Answer

Dimの次に
Randomizeを入れ，
Forの次の行を
Range("f7").Value = Rnd
としてください。
これにより，for～nextの繰り返しの度にF7セルに1以下の乱数が入ります。
シートのE7セルに次式を入れてください。
=IF(F7<0.25,"right",IF(F7<0.5,"left",IF(F7<0.75,"up","down")))
これで，右，左，上，下がランダムに発生されます(英語)
原理は，乱数が0.25未満なら右，それ以外の場合で0.5未満なら左，それら以外の場合で0.75未満なら上，その他は下（の英語）がE7セルにセットされ，それが読まれます。

エクセルで 文字を 複数回 数秒間隔で 連続表示 できますか?

---------------

すみません。

まず、修正は大変でしょうから、アップロードしておきましたので、ご都合のよい時にダウンロードしてみてください。

今試してみましたら、起動時の設定の箇所でおかしな所がありますので、すぐに修正をします。

'続き

この説明は、次回にさせていただきます。

最初に、この手の質問は、掲示板では製作依頼は敬遠されがちだということを覚えていてほしいと思います。

こんばんは。

外付けアンプという手もあります。

Dimの次に

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

エクセルで文字を複数回数秒間隔で連続表示できますか?