Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6495 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【44840】一定の間隔でセルに文字を表示するには akira 06/12/3(日) 12:06 質問[未読]
【44843】Re:一定の間隔でセルに文字を表示するには りん 06/12/3(日) 13:00 回答[未読]
【44898】Re:一定の間隔でセルに文字を表示するには akira 06/12/5(火) 17:48 お礼[未読]
【44853】Re:一定の間隔でセルに文字を表示するには Kein 06/12/3(日) 23:04 回答[未読]
【44862】Re:一定の間隔でセルに文字を表示するには akira 06/12/4(月) 13:42 お礼[未読]
【44864】Re:一定の間隔でセルに文字を表示するには Kein 06/12/4(月) 15:20 発言[未読]
【44866】Re:一定の間隔でセルに文字を表示するには akira 06/12/4(月) 16:56 質問[未読]
【44869】Re:一定の間隔でセルに文字を表示するには Kein 06/12/4(月) 22:02 発言[未読]
【44899】Re:一定の間隔でセルに文字を表示するには akira 06/12/5(火) 17:51 お礼[未読]
【44840】一定の間隔でセルに文字を表示するには
質問  akira  - 06/12/3(日) 12:06 -
引用なし
パスワード
   　　　Dim Msg　As String
　　　
　　　If　TextBox１．Text　＝”A”
　　　Msg=　”せいかい"
　　　Else
　　　Msg=　"ちがうよ"
　　　End If
　　　MsgBox Msg
　　　
　　　たとえば、このコードで　せいかい　でOKをクリックすれば
　　　セルのA1からD1まで　やったね　と一文字ずつ順番に表示したいのですが
　　　そのようなことはできますか？よろしくおねがいします。
　
【44843】Re:一定の間隔でセルに文字を表示するには
回答  りん E-MAIL  - 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

こんな感じです。
【44853】Re:一定の間隔でセルに文字を表示するには
回答  Kein  - 06/12/3(日) 23:04 -
引用なし
パスワード
   なにかアニメーションのように、目立つ動きをさせたいのでしょーか ?
それなら例えば・・

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'↑モジュールの先頭に宣言

Sub Test_Msg()
　　Dim Msg As String
　　Dim Ary As Variant
　　Dim Fsz As Integer, i As Integer
　　　
　　If TextBox1.Text = "A" Then
　　　 Msg = "せいかい"
　　Else
　　　 Msg = "ちがうよ"
　　End If
　　MsgBox Msg
　　If Msg = "せいかい" Then
　　　 Ary = Array("や", "っ", "た", "ね")
　　　 Fsz = ThisWorkbook.Styles("標準").Font.Size
　　　 For i = 1 To 4
　　　　　With Cells(1, i)
　　　　　　 .Value = Ary(i - 1)
　　　　　　 .Font.Bold = True
　　　　　　 .Font.Size = 24
　　　　　End With
　　　　　Rows(1).AutoFit
　　　　　Columns(i).AutoFit
　　　　　DoEvents: Sleep 500 '1000で1秒として、任意の長さに調節
　　　 Next i
　　　 With Range("A1:D1")
　　　　　.Font.Bold = False
　　　　　.Font.Size = Fsz
　　　　　.EntireColumn.ColumnWidth = _
　　　　　ActiveSheet.StandardWidth
　　　 End With
　　　 Rows(1).RowHeight = _
　　　 ActiveSheet.StandardHeight
　 End If
End Sub
【44862】Re:一定の間隔でセルに文字を表示するには
お礼  akira  - 06/12/4(月) 13:42 -
引用なし
パスワード
   　　Keinさん　ありがとうございます。私のしたいことでした。このコードを標準モジュ　　ールで作成して実行させたらEntireColumnのプロパティーの使い方が不正とでまし　　た。自分なりに調べてみたのですが、わかりませんでした。よろしければ教えて
　　下さい。お礼が遅くなってすみません。
>
>
>Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
>'↑モジュールの先頭に宣言
>
>Sub Test_Msg()
>　　Dim Msg As String
>　　Dim Ary As Variant
>　　Dim Fsz As Integer, i As Integer
>　　　
>　　If TextBox1.Text = "A" Then
>　　　 Msg = "せいかい"
>　　Else
>　　　 Msg = "ちがうよ"
>　　End If
>　　MsgBox Msg
>　　If Msg = "せいかい" Then
>　　　 Ary = Array("や", "っ", "た", "ね")
>　　　 Fsz = ThisWorkbook.Styles("標準").Font.Size
>　　　 For i = 1 To 4
>　　　　　With Cells(1, i)
>　　　　　　 .Value = Ary(i - 1)
>　　　　　　 .Font.Bold = True
>　　　　　　 .Font.Size = 24
>　　　　　End With
>　　　　　Rows(1).AutoFit
>　　　　　Columns(i).AutoFit
>　　　　　DoEvents: Sleep 500 '1000で1秒として、任意の長さに調節
>　　　 Next i
>　　　 With Range("A1:D1")
>　　　　　.Font.Bold = False
>　　　　　.Font.Size = Fsz
>　　　　　.EntireColumn.ColumnWidth = _
>　　　　　ActiveSheet.StandardWidth
>　　　 End With
>　　　 Rows(1).RowHeight = _
>　　　 ActiveSheet.StandardHeight
>　 End If
>End Sub
【44864】Re:一定の間隔でセルに文字を表示するには
発言  Kein  - 06/12/4(月) 15:20 -
引用なし
パスワード
   >EntireColumnのプロパティーの使い方が不正
あ、それなら EntireColumn は削除して下さい。

.ColumnWidth = _
ActiveSheet.StandardWidth

だけでいいです。(先頭のドットは消さないように)
ちなみにこちらでは、エラーにはなりませんでしたが。
【44866】Re:一定の間隔でセルに文字を表示するには
質問  akira  - 06/12/4(月) 16:56 -
引用なし
パスワード
   　Keinさん　何回もすみません。今度は実行させると
　If TextBox1.Text="あ"then でエラーがでました。
　先ほど指摘された箇所は削除しました。オブジェクト
　が必要ですというエラーでした。よろしくお願いします。

　
【44869】Re:一定の間隔でセルに文字を表示するには
発言  Kein  - 06/12/4(月) 22:02 -
引用なし
パスワード
   TextBox1 は、どこに配置してますか ? ユーザーフォーム上であれば
そのコード全体を "フォームモジュール" に入れ、ワークシート上
なら "シートモジュール" に入れて、コマンドボタンのクリックイベント
などに変更しないといけませんよね ?
【44898】Re:一定の間隔でセルに文字を表示するには
お礼  akira  - 06/12/5(火) 17:48 -
引用なし
パスワード
   　　りんさん　ありがとうございます。お礼が遅くなってもうわけありません。
　　調べながらやっていたらやっと理解できました。　
【44899】Re:一定の間隔でセルに文字を表示するには
お礼  akira  - 06/12/5(火) 17:51 -
引用なし
パスワード
   　　Kein お礼が遅くなってすみません。方法がわかりました。
　　ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6495 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free