|
おはようございます。昨日は詳しく説明までしていただきありがとうございます。
私は、初心者なので色々と皆さんにアドバイス等いただき、勉強しています。
皆さんからのアドバイス等をつなぎ合わせて、なんとかコード(下記)を作ってはみました。
この、ボタン3をクリックした時に文字のスクロールができればと考えています。
クリックしたと同時にprogressbarが動き出し、作業が終了したら、msgboxが現れます。文字のスクロールをlabel111に現し、barと同時進行させ作業終了後、文字が消え、msgboxが現れれば、言う事なしなんですが、教えていただいたコードをどこの部分に組み込めばよいのか検討がつきません・・・。
Private Sub CommandButton3_Click()
Dim i As Long, Co As Long, Co1 As Long, Co2 As Long, Co3 As Long, Cou As Long
Dim Mys As String
Mys = Me.ComboBox1
On Error GoTo End_Len
ProgressBar1.Max = 18000
For i = 1 To 18000
ProgressBar1.Value = ProgressBar1.Value + 1
Label110.Caption = Int(i * 1 / 180) & "%"
Frame4.Repaint
Next i
ProgressBar1.Value = 0
Worksheets(Mys).Select
For i = 5 To 191
Select Case i
Case 47, 90, 133, 176
Me.Controls("textbox" & i).Value = Co
Co = 0
Case Else
Co = Co + Val(Controls("textbox" & i).Value)
End Select
Next i
Co = 0: Co1 = 0: Co2 = 0: Co3 = 0
With Me
For i = 5 To 175
If IsNumeric(.Controls("textbox" & i).Value) Then
Select Case i
Case 5 To 46
Co = Co + 1
Case 48 To 89
Co1 = Co1 + 1
Case 91 To 132
Co2 = Co2 + 1
Case 134 To 175
Co3 = Co3 + 1
End Select
End If
Next i
.TextBox179.Value = Co
.TextBox184.Value = Co1
.TextBox189.Value = Co2
.TextBox193.Value = Co3
.TextBox178.Value = Format(CLng(TextBox47.Value) * 50, "##,##0")
.TextBox183.Value = Format(CLng(TextBox90.Value) * 50, "##,##0")
.TextBox188.Value = Format(CLng(TextBox133.Value) * 50, "##,##0")
.TextBox192.Value = Format(CLng(TextBox176.Value) * 50, "##,##0")
.TextBox180.Value = Format(CLng(Co) * 2000, "##,##0")
.TextBox185.Value = Format(CLng(Co1) * 2000, "##,##0")
.TextBox190.Value = Format(CLng(Co2) * 2000, "##,##0")
.TextBox194.Value = Format(CLng(Co3) * 2000, "##,##0")
.TextBox181.Value = Format(Val(Replace(TextBox178.Value, ",", "")) + Val(Replace(TextBox180.Value, ",", "")), "###,##0")
.TextBox186.Value = Format(Val(Replace(TextBox183.Value, ",", "")) + Val(Replace(TextBox185.Value, ",", "")), "###,##0")
.TextBox195.Value = Format(Val(Replace(TextBox188.Value, ",", "")) + Val(Replace(TextBox190.Value, ",", "")), "###,##0")
.TextBox196.Value = Format(Val(Replace(TextBox192.Value, ",", "")) + Val(Replace(TextBox194.Value, ",", "")), "###,##0")
End With
For i = 43 To 84
Worksheets(Mys).Cells(2, i - 39) = Me.Controls("label" & i).Caption
Next i
With Worksheets(Mys)
For i = 5 To 176
Ch = True
Select Case i
Case 5 To 46
Ro = 4: Co = 1
Case 48 To 89
Ro = 5: Co = 44
Case 91 To 132
Ro = 6: Co = 87
Case 134 To 175
Ro = 7: Co = 130
Case 47, 90, 133, 176
Ch = Flase
End Select
If Ch Then
Cells(Ro, i - Co).Value = Me.Controls("TextBox" & i).Value
End If
Next i
End With
MsgBox Me.ComboBox1.Value & "月の更新が終了しました。"
Frame4.Label110.Caption = ""
On Error GoTo 0
Exit Sub
End_Len:
MsgBox "月が選択されていません。", vbCritical
End Sub
|
|