[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『数値自動入力について』(ホリッペ)
A B C D E ・・・・・・
1 2 3 4 5
3 300 0 4 299 0 5 298 0 6 297 0 7 296 0 8 295 9 294 . . . . . . 上記のように、斜めに「0」が入力されています。 (ほんとは、このゼロも自動化できたらいいのですが) 0の上には、1〜連番で数字を入れたいです。 下には、ー1〜連番で入れたいです。今は1〜5までしか書いていない のですが実際には400弱あります。 この表が、完成したらこれを参照してその数値を活用します。 このような場合、どうすれば数値入力が出来るがご教示願います。 宜しくお願い致します。
< 使用 Excel:Excel2019、使用 OS:Windows11 >
1 2 3 4 5 -1 -2 -3 -4 -5 ← 下には、ー1〜連番で入れたいです。 こういうことですか。 (?) 2023/09/30(土) 20:41:20
|[A]|[B]|[C]|[D]|[E]|[F]
[1]| | 1| 2| 3| 4| 5
[2]| | -1| -2| -3| -4| -5
[3]|300| 0| | | |
[4]|299| | 0| | |
[5]|298| | | 0| |
[6]|297| | | | 0|
[7]|296| | | | | 0
[8]|295| | | | |
[9]|294| | | | |
B1=COLUMN(A1) → へコピー
B2=-COLUMN(A1) → へコピー
(IT) 2023/09/30(土) 20:50:04
|[A]|[B]|[C]|[D]|[E]|[F]|[G]
[1] | | 1| 2| 3| 4| 5| 6
[2] | | 1| 2| 3| 4| 5| 6
[3] |300| 0| 1| 2| 3| 4| 5
[4] |299| -1| 0| 1| 2| 3| 4
[5] |298| -2| -1| 0| 1| 2| 3
[6] |297| -3| -2| -1| 0| 1| 2
[7] |296| -4| -3| -2| -1| 0| 1
[8] |295| -5| -4| -3| -2| -1| 0
[9] |294| -6| -5| -4| -3| -2| -1
仕上がり図も併せて投稿した方が良かったかも。 私の解釈は上図です。
B2 =1+COLUMN()-ROW() 右・下方向へコピー
ドラッグするのも自動化するならマクロで。
Sub test()
With Range(Cells(Rows.Count, "A").End(xlUp), Cells(1, Columns.Count).End(xlToLeft))
Intersect(.Cells, .Offset(1, 1)).Formula = "=1+COLUMN()-ROW()"
End With
End Sub
(サラスパ) 2023/09/30(土) 22:02:04
IT 様
完成形を、載せておらずすいません。
サラスパ 様
完成形を、載せずすいません。
はい、やりたかったのはその形です。
数が、多いので自動化が良いと思っていたのでマクロは
ありがたいです。
明日、出社次第やってみます。
(ホリッペ) 2023/10/01(日) 16:27:03
会社のバージョンが365なのですがそこでも使用可能でしょうか?
(ホリッペ) 2023/10/01(日) 19:24:57
一般的にビジネス系のソフトウェアでは、
過去の資産を活かす意味でも上位互換である場合が多いです。
(サラスパ) 2023/10/02(月) 07:48:50
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.