エクセル ２と入力9 10 11 12 1と反映させる方法。

お世話になります。
横列に半年分の月
縦に数字が入ってる表があります。

　月　9　10　11　12　1　2
温度 30　28　25　14　8　4　　
こんな表です。
横列の２を入力すると、１や12と表示させる計算式を教えて下さい。
宜しくお願い致します。

No.6 回答者： tom04 回答日時： 2015/04/05 17:57

No.3・4です。

＞またF1が9の場合8　7　6　5　4　3
要するにA1～L1セルに1～12のいずれかを入力すれば
そのセルから遡ってA1セルまで1ずつマイナスした数値を表示したい！
という解釈です。

関数では難しいと思いますので、VBAになりますが一例です。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻り（VBE画面を閉じて）A1～L1セルに数値を入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) '//この行から
Dim j As Long, myCol As Long

If Intersect(Target, Range("A1:L1")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
If IsNumeric(.Value) And .Value >= 1 And .Value <= 12 And _
.Value - Int(.Value) = 0 Then
myCol = .Column
Application.EnableEvents = False
If myCol < 12 Then
Range(Cells(1, myCol + 1), Cells(1, 12)).ClearContents
End If
For j = myCol - 1 To 1 Step -1
With Cells(1, j)
.Value = .Offset(, 1) - 1
End With
Next j
For j = 1 To myCol - 1
With Cells(1, j)
If .Value <= 0 Then
.Value = .Value + 12
End If
End With
Next j
Application.EnableEvents = True
Else
MsgBox "入力値が不正です"
.Select
End If
End With
End Sub '//この行まで

※　こういった感じをご希望だったのでしょうか？m(_ _)m

No.5 回答者： WindFaller 回答日時： 2015/04/05 12:23

こんにちは。

質問がよく分かりませんが、数列をお聞きになっているのかしらね。
>2(月)と入力したら左の数値が
>1.12.11.10と遡って表示する式を作りたいです。

ということだけなら、

A1に2と入れるなら、
B1から、必要な分だけ横に、以下の数式をドラッグ・コピーすればよいです。

B1: =MOD($A$1-COLUMN(B1),12)+1

この回答へのお礼

Excel for mac 2011です。
出来ません。B1に#valueとでます。
回答ありがとうございました。

お礼日時：2015/04/05 16:46

No.4 回答者： tom04 回答日時： 2015/04/05 10:02

No.3です。

画像の添付を忘れていました。

↓の画像のような配置での数式です。
どうも失礼しました。m(_ _)m

この回答へのお礼

ありがとうございます。
上記BOOK1:1、F1に２と入力します。
E1が1
D1が12
C1が11
B1が10
A1が9

と反映させたいです。
またF1が9の場合8　7　6　5　4　3
と反映させます。
再度アドバイス頂ければ助かります。

お礼日時：2015/04/05 17:02

No.3 回答者： tom04 回答日時： 2015/04/05 10:01

こんにちは！

色々やり方はあると思いますが・・・

具体的にどのように表示したいのか判らないので、
↓の画像のように元データはSheet1にありSheet2に表示するとします。

Sheet2のB1セルに
=IFERROR(INDEX(Sheet1!1:1,,MATCH($A1,Sheet1!1:1,0)-COLUMN(A1)),"")
という数式を入れフィルハンドルで右へコピー！

※　細かいエラー処理を考慮すると
=IF(OR($A1="",MATCH($A1,Sheet1!1:1,0)-2<COLUMN(A1)),"",INDEX(Sheet1!1:1,MATCH($A1,Sheet1!1:1,0)-COLUMN(A1)))
という数式にしてみてください。m(_ _)m

No.2 回答者： bluedragon 回答日時： 2015/04/05 09:27

＞1.12.11.10と遡って表示する式を作りたいです。

そのあとは、9 8 7 6 5 4
ということ？なら、式でなくて定型としてユーザー設定リストに登録すれば

No.1 回答者： trajaa 回答日時： 2015/04/05 07:17

>縦に数字が入ってる表があります。

提示の表に縦方向の要素はありませんね、月も温度も横(列)に展開されてます

>横列の２を入力すると、１や12と表示させる計算式を教えて下さい。
どこに入力するのか？
どこに表示するのか？
その１や１２は月なの温度なのそれとももっと別なの

文面を読んでも、何をどうしたいのかサッパリ分からん

この回答へのお礼

早速の回答ありがとうございます。

やりたいことは
2(月)と入力したら左の数値が
1.12.11.10と遡って表示する式を作りたいです。
1.12と遡れませんでした。

拙い文ですみません。

お礼日時：2015/04/05 07:39