エクセル２０００マクロでの計算表示

質問

セル（Ｆ１）に3というデータが仮に入っているとします。
セル（Ｆ２）2、セル（Ｇ２）1、セル（Ｈ２）に12という計算で表示させたい
場合はマクロではどう記述すればよいでしょうか。
仮にＦ１に2というデータが入ってきた場合は、
セル（Ｆ２）1、セル（Ｇ２）12、セル（Ｈ２）に11という計算で表示させたい。
下記に表示例を示しています。
Ｆ１が1の場合　12、11、10
　　　4の場合 3 2 1
　　　5の場合 4 3 2
6の場合 5 4 3
7の場合 6 5 4
8の場合 7 6 5
9の場合 8 7 6
10の場合 9 8 7
11の場合 10 9 8
12の場合 11 10 9
教えてください。

回答No.1

MSZ006 · ベストアンサー

マクロではないですが計算式で

セルＦ２ =if(F1>1,F1-1,F1+11)
セルＧ２ =if(F1>2,F1-2,F1+10)
セルＨ２ =if(F1>3,F1-3,F1+9)

とすればよいと思います。

回答No.5

imogasi

諸解答の内で一番簡単で,判りやすいコーディングではないでしょうか。
テーブル方式の利点が出ていると思います。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Array(0, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 12, 11, 10)
For i = 1 To 12
If Worksheets("sheet1").Cells(1, 6) = a(i) Then
Worksheets("sheet1").Cells(2, 6) = a(i + 1)
Worksheets("sheet1").Cells(2, 7) = a(i + 2)
Worksheets("sheet1").Cells(2, 8) = a(i + 3)
End If
Next i
End Sub

回答No.4

nishi6

ifを登場させない方法で・・・

Sub Zengetu()
　　Range("F2") = ((Range("F1") + 12 - 1) - 1) Mod 12 + 1
　　Range("G2") = ((Range("F1") + 12 - 2) - 1) Mod 12 + 1
　　Range("H2") = ((Range("F1") + 12 - 3) - 1) Mod 12 + 1
End Sub

数字に12を足して、１を引いて0～11または12～23になります。
これの12で割った余りを出してます。
１年前のカレンダーで計算している雰囲気です。

回答No.3

kirara_pika

これは、F1の値から１ずつ減らした数を（上限が12）それぞれのセルに表示するということでいいのでしょうか？
今月が１月なら１ヶ月前は１２月とか。
いろんなやりかたがあるんですよね～

Sub test()
Dim I as integer
Dim A as integer
A=Val(Range("F1"))
For I=1 to 3
A = A - 1
if A < 1 Then
A=12
End If
Select I
Case 1
Range("F2")=A
Case 2
Range("G2")=A
Case 3
Range("H2")=A
End Select
Next

回答No.2

peso

このようなものでどうでしょうか？
おそらく、不必要な部分もあると思いますが・・・

If IsNumeric(Range("F1").Value) = True Then
If Range("F1").Value > 0 And Range("F1").Value < 13 And Int(Range("F1").Value) = Range("F1").Value Then

If Range("F1").Value = 1 Then
Range("F2").Value = 12
Else
Range("F2").Value = Range("F1").Value - 1
End If

If Range("F2").Value = 1 Then
Range("G2").Value = 12
Else
Range("G2").Value = Range("F2").Value - 1
End If

If Range("G2").Value = 1 Then
Range("H2").Value = 12
Else
Range("H2").Value = Range("G2").Value - 1
End If

Else
Range("F2").Value = ""
Range("G2").Value = ""
Range("H2").Value = ""
End If
Else
Range("F2").Value = ""
Range("G2").Value = ""
Range("H2").Value = ""
End If