Excel VBA質問箱 IV

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

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


40909 / 76732 ←次へ | 前へ→

【40912】ラベルの文字について
質問  tk  - 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】ラベルの文字について tk 06/7/24(月) 14:30 質問
【40820】Re:ラベルの文字について ichinose 06/7/24(月) 18:34 発言
【40852】Re:ラベルの文字について hori 06/7/25(火) 10:56 質問
【40854】Re:ラベルの文字について tk 06/7/25(火) 11:28 質問
【40873】Re:ラベルの文字について tk 06/7/25(火) 16:25 質問
【40893】Re:ラベルの文字について ichinose 06/7/25(火) 19:54 発言
【40896】Re:ラベルの文字について 追伸 ichinose 06/7/25(火) 20:21 発言
【40899】Re:ラベルの文字についての追伸2 ichinose 06/7/25(火) 21:44 発言
【40911】ラベルの文字について tk 06/7/26(水) 8:14 質問
【40908】Re:ラベルの文字について hori 06/7/26(水) 1:04 お礼
【40912】ラベルの文字について tk 06/7/26(水) 8:16 質問
【40927】Re:ラベルの文字について tk 06/7/26(水) 13:41 お礼

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