Excel VBA質問箱 IV

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

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


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

40912 / 76735

←次へ　｜　前へ→


	【40912】ラベルの文字について

ｔｋ - 06/7/26(水) 8:16 -


	引用なし

	パスワード

おはようございます。昨日は詳しく説明までしていただきありがとうございます。
私は、初心者なので色々と皆さんにアドバイス等いただき、勉強しています。
皆さんからのアドバイス等をつなぎ合わせて、なんとかコード（下記）を作ってはみました。　
この、ﾎﾞﾀﾝ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

0 hits

▼

【40804】ラベルの文字について ｔｋ 06/7/24(月) 14:30