Excel VBA質問箱 IV

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

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


28318 / 76732 ←次へ | 前へ→

【53713】If..then..Else、For..Next等の組み合わせでするのかな
質問  VBA初心者  - 08/2/4(月) 15:17 -

引用なし
パスワード
   本を見ながら独学でVBAを勉強している、中年初心者です。よろしくお願いします
シート1のe12に入力された値をシート3のj3に反映するように
Sub 範囲を指定して貼り付け2()
  Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet

  Set S1 = Worksheets("設計入力項目")
  Set S2 = Worksheets("見積内訳")
  Set S3 = Worksheets("登録データ")
  S2.Range("B4:E16").Value = S1.Range("B4:E16").Value
  S3.Range("j3").Value = S1.Range("e12").Value
  
End Sub
ボタンイベントによりマクロを操作しています
1、シート3のj3に反映した変数値Xを("j4:j12")のセルにX+1と1つずつ足す
2、j3〜j12セルは月の値なので、X>12の場合は-12をして、反映してX<=12の場合はそのまま反映する様にしたいです 
自分ではIf..then..Else、For..Next等の組み合わせでするのかな?と思っていますが、どの様な構文にするかチィンプンカンプンです。
また、違う方法であれば、教えてください

0 hits

【53713】If..then..Else、For..Next等の組み合わせでするのかな VBA初心者 08/2/4(月) 15:17 質問
【53716】Re:If..then..Else、For..Next等の組み合わ... Jaka 08/2/4(月) 16:35 発言
【53744】Re:If..then..Else、For..Next等の組み合わ... VBWASURETA 08/2/5(火) 16:29 発言
【53816】Re:If..then..Else、For..Next等の組み合わ... VBA初心者 08/2/8(金) 10:27 発言
【53818】Re:If..then..Else、For..Next等の組み合わ... VBWASURETA 08/2/8(金) 10:46 回答
【53846】Re:If..then..Else、For..Next等の組み合わ... VBA初心者 08/2/10(日) 14:16 お礼

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