Excel VBA質問箱 IV

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

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


33531 / 76738 ←次へ | 前へ→

【48424】Re:別シートで参照
発言  Tomomi  - 07/4/17(火) 7:41 -

引用なし
パスワード
   ▼たくや さん
おはようございます。

B6からF11に数字を入れて
次のコードを動かしてみてください。
sheet2に縦横が変更されて・・・出力されていると思います。

Dim i As Integer
Dim MyR As Range
Dim R As Range
Dim N As Integer
 
Set MyR = Sheets("sheet1").Range("B6:F11")
i = 0
For Each R In MyR
 If R <> "" Then
 N = R.Value
   i = i + 1
With Sheets("Sheet2")
 Select Case i
  Case i = 1 To 10
    .Cells(i + 5, 8) = N
  Case i = 11 To 20
    .Cells(i - 5, 9) = N
  Case Else
    .Cells(i - 15, 10) = N
 End Select
End With
  End If
Next

0 hits

【48413】別シートで参照 たくや 07/4/16(月) 22:00 質問
【48422】Re:別シートで参照 ユニフ 07/4/17(火) 0:46 回答
【48424】Re:別シートで参照 Tomomi 07/4/17(火) 7:41 発言

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