先日も 質問し、回答頂きました。いろいろアレンジしましたが、思うとおり出来ませんでした。
回答頂いたい方にメールを送る事出来ませんので再度 質問します。
既存の表
名前を検索し22年度列に番号、検査年月日を追加。
23年度は23年の列に番号、検査年月日を追加し履歴がわかるようにしたい。
また 新規であれば 21年度欄を 空欄にし 22年度欄に番号、検査年月日書き加える。
新規であれば 生年月日の 入力をどのようにすればよいか?
既存の表の一番上に表示し 直接生年月日を入力するような事が出来ますか?
入力欄
氏 名 22年度番号 検 査 年 月 日
アオ ミツヨ 22-1 H22.4.2
表
番号 氏 名 生 年 月 日 21年度番号 検 査 年 月 日 22年度番号 検 査 年 月 日
1 アオ トオル S10.12.16 21-452 H22.1.19
2 アオ ミツヨ S14.7.2 21-451 H22.1.19 22-1 H22.4.2
3 アオキ カヨ S12.5.11 21-393 H21.12.17
4 アオキ フミ S8.7.1 21-443 H22.1.15
5 アガタ エツミ S18.1.16 21-501 H22.1.27
6 新規 氏名 どのように入力? 空欄 空欄 22-500 H22.5.7
新規の方は生年月日も入力したいと思います。表に直接入力でも構いませんが、入力するカーソルに簡単に移動させる方法はありますか?
新規の方は表の最上段に表示させる方法とかありますか?
No.2ベストアンサー
- 回答日時:
ご相談で「例えば」じゃなく「実際はこうなんです」が出てきたのは良かったですね。
ところで横に継ぎ足す云々は,年度番号が来年に変わったときだけのお話に落ちてしまったのですか?
(それならあんまり手間をかけず,来年度になったらマクロの転記先列番号をちょっと書き換えるだけでも良さそうな気はしますが)
添付図:
入力箇所はC1にどのデータの種類かを記入
B2からD2に基本データ
新しいデータはセルを使わずインプットします
まっさらシートのシート名タブを右クリック,コードの表示を選んで貼り付ける
Private Sub Worksheet_Change(ByVal Target As Range)
Dim h As Range
Dim c As Range
Dim dd
If Application.Intersect(Target, Range("B2:D2")) Is Nothing Then Exit Sub
If Application.CountA(Range("B2:D2")) <> 3 Then Exit Sub
Set c = Range("5:5").Find(what:=Range("C1"), lookat:=xlWhole)
If c Is Nothing Then
'new column
Set c = Range("IV5").End(xlToLeft).Offset(0, 1)
c = Range("C1")
c.Offset(0, 1) = "検査年月日"
End If
Set h = Range("B6:B65536").Find(what:=Range("B2"), LookIn:=xlValues, lookat:=xlWhole)
If h Is Nothing Then
'new record
Range("6:6").Insert
Range("A6") = "=ROW()-5"
Range("B6") = Range("B2")
Do
dd = InputBox("birthday?")
Loop Until IsDate(dd)
Range("C6") = dd
Set h = Range("B6")
End If
Cells(h.Row, c.Column) = Range("C2")
Cells(h.Row, c.Column + 1) = Range("D2")
Range("B2:D2").ClearContents
End Sub
No.1
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/03/10 08:51
- 電気・ガス・水道業 簡易専用水道の定期清掃について 3 2023/03/26 16:36
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- カードローン・キャッシング 信用情報機関CICについて。 独身時代に恥ずかしながら、ショッピング代金の引き落とし延滞が2-3ヶ月 1 2023/07/06 21:44
- Visual Basic(VBA) excel2016でリストからカレンダーに内容を反映させたいです 2 2022/10/27 15:32
- Visual Basic(VBA) エクセルのマクロコードの一部分を変更する方法について教えてください。 2 2023/02/17 08:40
- Visual Basic(VBA) VBAで重複データを確認したい 5 2022/10/07 16:24
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- その他(ビジネス・キャリア) エクセルで一覧表を作るときのレイアウト、月日と項目の配置について相談です。 2 2023/04/11 09:37
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
首吊りどこ締めるの
-
射精をして1週間以内に尿検査を...
-
変な話しになります。尿検査で...
-
白血球が多いとどんな心配があ...
-
今朝、毎朝の習慣でオナニーし...
-
1日前の検尿
-
検便についてです。 便は取れた...
-
男です。昨日の午後3時くらいに...
-
勃起する時って痛いんですか? ...
-
EXCELで条件付き書式で空白セル...
-
腕を見たら黄色くなってる部分...
-
彼女のことが好きすぎて彼女の...
-
中出しをするとお腹が痛い・・・。
-
小数点以下を繰り上げたものを...
-
EXCELで式からグラフを描くには?
-
2つの数値のうち、数値が小さい...
-
値が入っているときだけ計算結...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
中出しをするとお腹が痛い・・・。
-
麻疹風疹の抗体検査結果につい...
-
エクセルでエラーが出て困って...
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
至急!尿検査前日にオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
精子が黄色?
-
小数点以下を繰り上げたものを...
-
値が入っているときだけ計算結...
-
口の中に黒い血の塊
-
健否~書類の書き方~
-
甲状腺が腫れているが血液検査...
-
はしかの抗体検査は何科の病院...
-
テスターで断線を調べる方法教...
おすすめ情報