Excel VBA質問箱 IV

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

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


36817 / 76732 ←次へ | 前へ→

【45091】Re:同時に動作させる命令はありますか。
発言  おさむ  - 06/12/12(火) 15:44 -

引用なし
パスワード
   ▼Jaka さん:
返事ありがとうございます。
プログレスバーをやりたいのではなく
Sub 消去月曜()動作中に
同時に命令が出せないかなと思ったのですが
できませんか?
ちなみに下記モジュールの動作時間は設定できるのでしょうか

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'***********************************************************
Sub テロップ流_セル版()
  Dim St1 As String, SP1 As String, Tx1 As String, Flg As Boolean
  Dim DefoFntIdx As Long, Defocol As Double, i As Long
  Dim MAd As String
 
  MAd = "G6"
  St1 = "計算中!!"
  SP1 = StrConv(Space(4), vbWide) '間隔
 
  '文字を1回1回ループさせようと思ったが、最初に作っておくのが簡単。
  For i = 1 To 6
    Tx1 = Tx1 & St1 & SP1
  Next

  Tx1 = Tx1 & StrConv(Space(Int(Len(St1) \ 2)), vbWide)
  With Range(MAd)
    .Value = ""
    If .Column > 1 Then
      If .Offset(, -1).Formula = "" Then
       .Offset(, -1).Value = Space(1)
       Flg = True
      End If
    End If
    DefoFntIdx = .Font.ColorIndex
    Defocol = .ColumnWidth
    With .Font
      .ColorIndex = 2
      .Name = "HG正楷書体-PRO"
      '.FontStyle = "メディウム 太字 斜体" 'PCによって無い。2002
      .Size = 14
      .Bold = True
      .Italic = True
    End With
    .HorizontalAlignment = xlRight
    .Value = StrConv(Right(St1, Len(St1) - 4), vbWide)
    .Columns.AutoFit
    FitCol = .ColumnWidth
    .ColumnWidth = FitCol
    .Value = ""
    .Font.ColorIndex = 5 '3
  
    For i = 1 To Len(Tx1)
      .Value = .Value & Mid(Tx1, i, 1)
      Sleep 20 '200
    Next
  
    .ColumnWidth = Defocol
    .Font.ColorIndex = DefoFntIdx
    '.ClearContents
    If Flg Then
     .Offset(, -1).ClearContents
    End If
  End With
End Sub
1 hits

【45088】同時に動作させる命令はありますか。 おさむ 06/12/12(火) 15:00 質問
【45089】Re:同時に動作させる命令はありますか。 Jaka 06/12/12(火) 15:33 発言
【45091】Re:同時に動作させる命令はありますか。 おさむ 06/12/12(火) 15:44 発言
【45094】Re:同時に動作させる命令はありますか。 Jaka 06/12/12(火) 16:19 発言
【45098】Re:同時に動作させる命令はありますか。 おさむ 06/12/12(火) 16:42 発言
【45101】Re:同時に動作させる命令はありますか。 Jaka 06/12/12(火) 17:16 発言
【45103】Re:同時に動作させる命令はありますか。 おさむ 06/12/12(火) 18:26 お礼
【45113】Re:同時に動作させる命令はありますか。 Jaka 06/12/13(水) 9:10 発言

36817 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free