Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5897 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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で”Ａ1”に入力した値を
select case で条件を作るのですが
その条件で出た答えが同じsheet1で出るのは
わかるのですが、それをsheet2に出るように
したいのですがどうしたら出力されるようになりますか？
【48422】Re:別シートで参照
回答  ユニフ  - 07/4/17(火) 0:46 -
引用なし
パスワード
   たくや さん、こんばんは

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

>sheet1で”Ａ1”に入力した値を
>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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5897 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free