『数値自動入力について』(ホリッペ)
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.