Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

49556 / 76732

←次へ　｜　前へ→


	【32082】Re:通信を繰り返ししすぎるとプログラムが壊れる

よっちゃん - 05/12/6(火) 3:33 -


	引用なし

	パスワード

sub 値を割り出す

If Worksheets(3).Cells(4, 9) = 88 Then Exit Sub

Select Case Worksheets(3).Cells(4, 9)

Case 0 To 87

Select Case Worksheets(3).Cells(4, 9)
Case 0
a = 1
Case 1 To 86
a = Worksheets(3).Cells(1, 10)

End Select
For x = 下 To 上
Flg = False
Worksheets(3).Cells(a, 1).Formula = "xxxx'" & z & ".xxx'!xxxx"
Application.OnTime Now + TimeValue("00:00:1"), "値に変換"

Do While False = Flg
DoEvents
Loop

a = a + 1
Next x

For z = 下 To 上
Flg = False
Worksheets(3).Cells(a, 1).Formula = "xxxx'" & z & ".xxx'!xxxx"
Application.OnTime Now + TimeValue("00:00:1"), "値に変換"

Do While False = Flg
DoEvents
Loop

a = a + 1
Next x

For x = 下 To 上
Flg = False
Worksheets(3).Cells(a, 1).Formula = "xxxx'" & z & ".xxx'!xxxx"
Application.OnTime Now + TimeValue("00:00:1"), "値に変換"

Do While False = Flg
DoEvents
Loop

a = a + 1
Next x

For x = 下 To 上
Flg = False
Worksheets(3).Cells(a, 1).Formula = "xxxx'" & z & ".xxx'!xxxx"
Application.OnTime Now + TimeValue("00:00:1"), "値に変換"

Do While False = Flg
DoEvents
Loop

a = a + 1
Next x

Worksheets(3).Cells(2, 9) = 上 + 1
Worksheets(3).Cells(3, 9) = 上 + 100
Worksheets(3).Cells(4, 9) = Worksheets(3).Cells(4, 9) + 1
Select Case Worksheets(3).Cells(4, 9)
　Case 10, 20, 30, 40, 50, 60, 70, 80
　Worksheets(3).Cells(4, 9) = Worksheets(3).Cells(4, 9) & "再起"
　End Select

DoEvents

数 = 0

Worksheets(3).Cells(1, 10) = Worksheets(3).UsedRange.Rows.Count + 1
Workbooks(1).Save

値を割り出す

End Sub

Sub 値に変換()
Worksheets(3).Cells(a, 1) = Worksheets(3).Cells(a, 1)
Flg = True

End Sub

1 hits

▼

【32053】通信を繰り返ししすぎるとプログラムが壊れる よっちゃん 05/12/5(月) 15:35