Excel VBA質問箱 IV

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

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


38419 / 76738 ←次へ | 前へ→

【43456】for〜next
質問  やずや、やずや  - 06/10/16(月) 18:22 -

引用なし
パスワード
   業務日報を作っています。
Worksheets("0")からWorksheets("DF2")に指定した日付内から情報を引き出すように作っています。
同じセル番号同士ではうまくいきますが、違うセルに移す方法が分かりません。
煩雑なソースですが、よろしく御願いいたします。


Private Sub CommandButton1_Click()

If UserForm4.ComboBox1 = "" Or UserForm4.ComboBox12 = "" Or UserForm4.ComboBox9 = "" Or _
  UserForm4.ComboBox11 = "" Or UserForm4.ComboBox15 = "" Or UserForm4.ComboBox14 = "" Or _
  UserForm4.ComboBox13 = "" Then

MsgBox "検索範囲が不適切です", vbExclamation

Else


'-------閲覧シートへ-------------------
'範囲の取得

at01 = UserForm4.ComboBox1.ListIndex '業務名

'----------開始日-----------------
at02 = UserForm4.ComboBox12.Text '年度
at03 = UserForm4.ComboBox9.Text '月
at04 = UserForm4.ComboBox11.Text '日


'----------終了日-----------------
at05 = UserForm4.ComboBox15.Text '年度
at06 = UserForm4.ComboBox14.Text '月
at07 = UserForm4.ComboBox13.Text '日

'*****************検索*********************


'----------開始日の行-----------------
For i10 = 1 To 1000
 If Worksheets("0").Cells(i10, 4).Text = at04 And _
   Worksheets("0").Cells(i10, 3).Text = at03 And _
   Worksheets("0").Cells(i10, 2).Text = at02 Then
   at20 = i10
 Exit For
 End If
 Next i10
 
'----------終了日の行-----------------
For i20 = 1 To 1000
 If Worksheets("0").Cells(i20, 4).Text = at07 And _
   Worksheets("0").Cells(i20, 3).Text = at06 And _
   Worksheets("0").Cells(i20, 2).Text = at05 Then
   at30 = i20
 Exit For
 End If
 Next i20
 
 
Worksheets("DF").Range("A11") = at30 '削除用

 
'*****************表示*********************
'--------------------------------------------
at40 = at30 - at20 '行の範囲
 
   For g20 = at20 To at30
    a100 = g20
    a110 = "M" + CStr(a100)
    a111 = "P" + CStr(a100)
    a112 = "A" + CStr(a100)
    a113 = "J" + CStr(a100)
    a114 = "K" + CStr(a100)
    a115 = "R" + CStr(a100)
    a116 = "Q" + CStr(a100)
        
    For g30 = 2 To at40 + 2
     a100 = g30
    a110 = "M" + CStr(a100)
    a111 = "P" + CStr(a100)
    a112 = "A" + CStr(a100)
    a113 = "J" + CStr(a100)
    a114 = "K" + CStr(a100)
    a115 = "R" + CStr(a100)
    a116 = "Q" + CStr(a100)
    
   x1 = Worksheets("0").Range(a110) '業務名
   x2 = Worksheets("0").Range(a111) '工期
   x3 = Worksheets("0").Range(a112) '社員名
   x4 = Worksheets("0").Range(a113) '総時
   x5 = Worksheets("0").Range(a114) '総分
   x6 = Worksheets("0").Range(a115) '人件費
   x7 = Worksheets("0").Range(a116) '契約金額

  Worksheets("DF2").Range(a110) = x1 '業務名
  Worksheets("DF2").Range(a111) = x2 '工期
  Worksheets("DF2").Range(a112) = x3 '社員名
  Worksheets("DF2").Range(a113) = x4 '総時
  Worksheets("DF2").Range(a114) = x5 '総分
  Worksheets("DF2").Range(a115) = x6 '人件費
  Worksheets("DF2").Range(a116) = x7 '契約金額
    
   Next g30
  Exit For
 Next g20
 
MsgBox "表示が完了しました", vbInformation
UserForm4.Label18.Caption = ""

End If
End Sub

0 hits

【43456】for〜next やずや、やずや 06/10/16(月) 18:22 質問
【43458】Re:for〜next ハチ 06/10/16(月) 18:54 発言
【43460】Re:for〜next やずや、やずや 06/10/16(月) 19:22 質問
【43463】Re:for〜next ハチ 06/10/16(月) 20:01 発言
【43467】Re:for〜next やずや、やずや 06/10/16(月) 20:17 お礼

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