Excel VBA質問箱 IV

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

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


6786 / 76735 ←次へ | 前へ→

【75546】Re:ループ→転記→ループ→転記
発言  γ  - 14/5/13(火) 22:16 -

引用なし
パスワード
   こういうことですか?
骨格だけとお考え下さい。

Sub test()
  Dim x As Long
  Dim y As Long
  
  x = Application.InputBox(prompt:="先頭の番号を入力してください")
  y = Application.InputBox(prompt:="最終の番号を入力してください")

  k = 1
  For i = x To y
    Worksheets("Sheet1").Range("B4").Value = Worksheets("Sheet3").Cells(i + 2, 3).Value
    Worksheets("Sheet1").Range("C30:F30").Copy
    k = k + 1
    Worksheets("Sheet2").Cells(k, 1).PasteSpecial Paste:=xlPasteValues
    For j = 1 To 4
      If Worksheets("Sheet2").Cells(k, j).Value = 0 Then
        Worksheets("Sheet2").Cells(k, j).ClearContents
      End If
    Next
  Next
End Sub
0 hits

【75538】ループ→転記→ループ→転記 him 14/5/11(日) 23:48 質問
【75539】Re:ループ→転記→ループ→転記 γ 14/5/12(月) 20:09 発言
【75545】Re:ループ→転記→ループ→転記 him 14/5/13(火) 21:28 回答
【75546】Re:ループ→転記→ループ→転記 γ 14/5/13(火) 22:16 発言
【75550】Re:ループ→転記→ループ→転記 him 14/5/15(木) 2:08 質問
【75551】Re:ループ→転記→ループ→転記 γ 14/5/15(木) 6:18 発言
【75553】Re:ループ→転記→ループ→転記 γ 14/5/15(木) 23:09 発言
【75540】Re:ループ→転記→ループ→転記 こたつねこ 14/5/12(月) 22:41 回答
【75544】Re:ループ→転記→ループ→転記 him 14/5/13(火) 21:23 お礼
【75552】Re:ループ→転記→ループ→転記 him 14/5/15(木) 21:47 質問
【75554】Re:ループ→転記→ループ→転記 こたつねこ 14/5/16(金) 21:37 回答
【75570】Re:ループ→転記→ループ→転記 him 14/5/18(日) 17:40 お礼
【75573】Re:ループ→転記→ループ→転記 γ 14/5/18(日) 22:27 発言

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