Excel VBA質問箱 IV

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

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


34008 / 76738 ←次へ | 前へ→

【47945】Re:マクロをバックグラウンドで実行
発言  iino  - 07/3/27(火) 13:40 -

引用なし
パスワード
   ▼Jaka さん:
>>現在プログレスバーが作動中はその作業のみですが
>>単純に、この作動中にもバックでは他のマクロが動くように
>>できる?かの質問なんですが・・・
>
>>その場合下記のコードにCall・・・等を組み込むことで
>>>そうではなく別の意味ですか(ひとつ心当たりがありますが)?
>>たぶん心当たりではないかと思うのですが?
>心当たりの見当が全くついてませんが、
>プログレスバーってこんな感じですよ!
jakaさん下動かしてみました。
感じはわかりますが
出来るかどうかは解りませんがこのバーが
作動中に他のvbaを動かし、プログレスバー終了と同時に
他のvbaコードも終了する。とういう動作を想定してます。
いかがでしょうか?
例えば下記コードをプログレスバー表示中に実行する。
ということなのですが
Sub 月曜日()
  Dim 日付 As Date

  ActiveSheet.Unprotect
   Range("J6,D10:G30,J10:Q30,I11:I12,I14:I30,D32:D38").Select
    Selection.ClearContents
  日付 = Now()
  Do Until Weekday(日付) = 2
    日付 = 日付 + 1
  Loop
  With Range("J6")
    .value = Format(日付, "yyyy/mm/dd")
    .Select
  End With
 
  Dim II As Integer, RR As Long, CC As Long
  For II = 1 To 14
   Select Case II
     Case 1 To 7: RR = 7 + II * 3: CC = 6
     Case Else:  RR = 24 + II:  CC = 4
   End Select
   Worksheets("スケ調").Cells(RR, CC) _
       .value = "=Calendar!H" & (4 + II)
   If II < 8 Then
     Worksheets("スケ調").Cells(RR, 10) _
       .value = "=Calendar!I" & (4 + II)
   End If
  Next

>
>Sub prog()
> Application.DisplayStatusBar = True
> cnt = 20999
> Joz = 1000
> moji = String(Int(cnt \ Joz), "□")
> Application.StatusBar = moji
> For i = 1 To cnt
>   Cells(1, 1).Value = i
>   If i Mod Joz = 0 Then
>    moji = Application.Substitute(moji, "□", "■", 1)
>    Application.StatusBar = moji
>   End If
> Next
> MsgBox "終了"
> Application.StatusBar = Empty
>End Sub

0 hits

【47910】マクロをバックグラウンドで実行 VBA初心者 07/3/26(月) 13:43 質問
【47921】Re:マクロをバックグラウンドで実行 Jaka 07/3/26(月) 17:14 発言
【47923】Re:マクロをバックグラウンドで実行 VBA初心者 07/3/26(月) 18:29 発言
【47925】Re:マクロをバックグラウンドで実行 ichinose 07/3/26(月) 20:06 発言
【47927】Re:マクロをバックグラウンドで実行 VBA初心者 07/3/26(月) 23:34 お礼
【47928】Re:マクロをバックグラウンドで実行 iino 07/3/27(火) 1:45 質問
【47930】Re:マクロをバックグラウンドで実行 ichinose 07/3/27(火) 7:46 発言
【47940】Re:マクロをバックグラウンドで実行 iino 07/3/27(火) 10:45 発言
【47942】Re:マクロをバックグラウンドで実行 Jaka 07/3/27(火) 11:02 発言
【47945】Re:マクロをバックグラウンドで実行 iino 07/3/27(火) 13:40 発言
【47947】Re:マクロをバックグラウンドで実行 Jaka 07/3/27(火) 15:01 発言
【47949】Re:マクロをバックグラウンドで実行 ichinose 07/3/27(火) 19:46 発言
【47953】Re:マクロをバックグラウンドで実行 iino 07/3/27(火) 20:45 お礼

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