Excel VBA質問箱 IV

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

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


36820 / 76732 ←次へ | 前へ→

【45088】同時に動作させる命令はありますか。
質問  おさむ  - 06/12/12(火) 15:00 -

引用なし
パスワード
   シート上でフォームのボタンで下記動作させています
同時に標準モジュールのマクロを動作させられますか?
教えてください
Sub 消去月曜()
  Dim 日付 As Date

  ActiveSheet.Unprotect
   Range("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("sheet1").Cells(RR, CC) _
       .Value = "=Calendar!H" & (4 + II)
   If II < 8 Then
     Worksheets("sheet1").Cells(RR, 10) _
       .Value = "=Calendar!I" & (4 + II)
   End If
  Next
End 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 = "B2"
  st1 = "計算中!!"
  SP1 = StrConv(Space(4), vbWide) '間隔
 
  '文字を1回1回ループさせようと思ったが、最初に作っておくのが簡単。
  For i = 1 To 6
    TX1 = TX1 & st1 & SP1
  Next
    :
    :
    :
End Sub

0 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 発言

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