Excel VBA質問箱 IV

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

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


34866 / 76734 ←次へ | 前へ→

【47071】実行中の表示設定
質問  sige  - 07/2/28(水) 11:58 -

引用なし
パスワード
   よろしくお願いします。
下記コードに於いて実行中であることが
解るようにたとえばコマンドボタンの表示を実行中は
(実行中)などの表示に変えることはできますか。
約50〜60秒終了までに要するため
Private Sub CommandButton1_Click()
  Dim i As Long, k As Long
  Dim mySource As Worksheet
  Dim myRange As Range, c As Range
  Dim s1 As String
  Dim s2 As String
  
  'Dim i As Long
  Dim j As Long
  Dim v As Variant
  
  ActiveSheet.Unprotect
  
  Application.ScreenUpdating = False
  
  v = Array("C3", "G3", "N3", "S3", "V3")
  j = 8
  For i = LBound(v) To UBound(v)
    Worksheets("支払入力").Range(v(i)).Resize(20).Formula _
      = "=LEFTB(発注先!$B" & j & ",6)" & _
              " & "" "" & 発注先!$J" & j & ""
    j = j + 20
  Next


  Range("C28,C3:D22,G3:J22,N3:O22,S3:S22,V3:W22").Select
  Selection.Font.ColorIndex = 10
  Range("C3").Select
  
  Set mySource = Worksheets("発注先")
  Set myRange = Range("C3:C22,G3:G22,N3:N22,S3:S22,V3:V22")
  
    k = 0
  For Each c In myRange
    With c
      k = k + 1
  
   s1 = mySource.Cells(7 + k, 2).Value
   s2 = mySource.Cells(7 + k, 10).Value
      .Value = StrConv(LeftB(StrConv(s1, vbFromUnicode), 6), vbUnicode) & " " & s2
      i = InStr(.Text, " ")
      If i Then
        .Characters(i).Font.Color = vbBlue

      End If
    End With
  Next
  Application.ScreenUpdating = True
  Call 保護8
End Sub
2 hits

【47071】実行中の表示設定 sige 07/2/28(水) 11:58 質問
【47072】Re:実行中の表示設定 へっぽこ 07/2/28(水) 12:08 発言
【47105】Re:実行中の表示設定 sige 07/2/28(水) 22:40 発言
【47107】Re:実行中の表示設定 sige 07/2/28(水) 23:57 発言
【47111】Re:実行中の表示設定 Jaka 07/3/1(木) 9:46 発言
【47114】Re:実行中の表示設定 sige 07/3/1(木) 12:06 発言
【47115】Re:実行中の表示設定 りん 07/3/1(木) 14:29 発言
【47123】Re:実行中の表示設定 sige 07/3/1(木) 17:51 お礼
【47132】Re:実行中の表示設定 りん 07/3/1(木) 20:56 発言
【47122】Re:実行中の表示設定 Kein 07/3/1(木) 17:48 回答
【47124】Re:実行中の表示設定 sige 07/3/1(木) 18:08 発言
【47125】Re:実行中の表示設定 sige 07/3/1(木) 18:11 発言
【47126】Re:実行中の表示設定 Kein 07/3/1(木) 18:16 発言
【47127】Re:実行中の表示設定 sige 07/3/1(木) 18:27 お礼
【47129】Re:実行中の表示設定 Kein 07/3/1(木) 18:55 発言
【47131】Re:実行中の表示設定 sige 07/3/1(木) 19:48 お礼

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