Excel VBA質問箱 IV

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

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


74224 / 76732 ←次へ | 前へ→

【6978】Re:別シートで結合したセルで印刷したい
回答  Jaka  - 03/8/18(月) 13:42 -

引用なし
パスワード
   う〜ん。応用が利かないって事なんでしょうか?
あまり良く理解していませんが...。

>=A2 でもいいのですが全部設定して空白があると"0"の数字が印刷されてしまします。
こうすれば良かったのでは。
=IF(A2="","",A2)

Offsetプロパティーが解らなかったら、ヘルプで調べてください。
Sub djj()
  Dim EndR As Long, i As Long
  Sh2R = 2
  EndR = Sheets("Sheet1").Range("A65536").End(xlUp).Row
  For i = 4 To EndR
    With Sheets("Sheet2").Cells(Sh2R, 1)
      .Value = "シート1 " & Sheets("Sheet1").Range("A" & i).Address(0, 0) & "行の場合、" _
          & .Address(0, 0) & "のセルを基点にする。"
      .Offset(0, 5).Value = "シート1 " & Sheets("Sheet1").Range("B" & i).Address(0, 0)
      .Offset(2, 5).Value = "シート1 " & Sheets("Sheet1").Range("C" & i).Address(0, 0)
      .Offset(2, 8).Value = "シート1 " & Sheets("Sheet1").Range("D" & i).Address(0, 0)
      .Offset(0, 11).Value = "シート1 " & Sheets("Sheet1").Range("E" & i).Address(0, 0)
      .Offset(1, 11).Value = "シート1 " & Sheets("Sheet1").Range("F" & i).Address(0, 0)
    End With
    Sh2R = Sh2R + 7
  Next
End Sub


上と同じですが...。
Sub djj2()
  Dim EndR As Long, i As Long
  Sh2R = 2
  EndR = Sheets("Sheet1").Range("A65536").End(xlUp).Row
  For i = 4 To EndR
    With Sheets("Sheet2")
      .Range("A" & Sh2R).Value = "シート1 " & Sheets("Sheet1").Range("A" & i).Address(0, 0) & _
                   "行の場合、" & .Range("A" & Sh2R).Address(0, 0) & "のセルを基点にする。"
      .Range("F" & Sh2R).Value = "シート1 " & Sheets("Sheet1").Range("B" & i).Address(0, 0)
      .Range("F" & Sh2R + 2).Value = "シート1 " & Sheets("Sheet1").Range("C" & i).Address(0, 0)
      .Range("I" & Sh2R + 2).Value = "シート1 " & Sheets("Sheet1").Range("D" & i).Address(0, 0)
      .Range("L" & Sh2R).Value = "シート1 " & Sheets("Sheet1").Range("E" & i).Address(0, 0)
      .Range("L" & Sh2R + 1).Value = "シート1 " & Sheets("Sheet1").Range("F" & i).Address(0, 0)
    End With
    Sh2R = Sh2R + 7
  Next
End Sub


>100ブロック以上作らなければいけません
同じ物を100こづつって意味なのか解らなかったんで一応。

Sub djj100()
  Dim EndR As Long, i As Long
  Sh2R = 2
  EndR = Sheets("Sheet1").Range("A65536").End(xlUp).Row
  If 100 * 7 * (EndR - 3) + 1 - 4 > 65536 Then
    MsgBox "65536行超えます。中止。"
    End
  End If
  For i = 4 To EndR
    For ii = 1 To 100
      With Sheets("Sheet2").Cells(Sh2R, 1)
        .Value = "シート1 " & Sheets("Sheet1").Range("A" & i).Address(0, 0) & "行の場合、" _
            & .Address(0, 0) & "のセルを基点にする。"
        .Offset(0, 5).Value = "シート1 " & Sheets("Sheet1").Range("B" & i).Address(0, 0)
        .Offset(2, 5).Value = "シート1 " & Sheets("Sheet1").Range("C" & i).Address(0, 0)
        .Offset(2, 8).Value = "シート1 " & Sheets("Sheet1").Range("D" & i).Address(0, 0)
        .Offset(0, 11).Value = "シート1 " & Sheets("Sheet1").Range("E" & i).Address(0, 0)
        .Offset(1, 11).Value = "シート1 " & Sheets("Sheet1").Range("F" & i).Address(0, 0)
      End With
      Sh2R = Sh2R + 7
    Next
  Next
End Sub

0 hits

【6957】別シートで結合したセルで印刷したい 困ったもんだ 03/8/15(金) 14:12 質問
【6958】Re:別シートで結合したセルで印刷したい Jaka 03/8/15(金) 15:56 回答
【6959】Re:別シートで結合したセルで印刷したい 困ったもんだ 03/8/15(金) 20:28 質問
【6978】Re:別シートで結合したセルで印刷したい Jaka 03/8/18(月) 13:42 回答

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