Excel VBA質問箱 IV

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

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


5878 / 13646 ツリー ←次へ | 前へ→

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

【48413】別シートで参照
質問  たくや  - 07/4/16(月) 22:00 -

引用なし
パスワード
   sheet1で”A1”に入力した値を
select case で条件を作るのですが
その条件で出た答えが同じsheet1で出るのは
わかるのですが、それをsheet2に出るように
したいのですがどうしたら出力されるようになりますか?

【48422】Re:別シートで参照
回答  ユニフ  - 07/4/17(火) 0:46 -

引用なし
パスワード
   たくや さん、こんばんは

私も初心者で恐縮ですがコードを書くときに

>sheet1で”A1”に入力した値を
>select case で条件を作るのですが
>その条件で出た答えが同じsheet1で出るのは
>わかるのです

Range("A1")としか書いてないなら
Worksheets("Sheet1").Range("A1")
とシート名を付け足して

書き出すコードのほうに、Worksheets("Sheet2").
を付け足せばうまく行くのではないでしょうか。

【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

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