![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
いつもお世話になります。
OSはWin11、エクセルはoffice365 です。
体温1 は毎日午前測定します
体温2 はコロナになった時のみ午後にも追加測定をします
例 図のB5に追加
午後の体温2を追加登録、
textbox1に体温を入れず
textbox2のみに体温を入れる
この場合、下記の参考コードでは
B4の体温値(37.1)は消え B5の体温値は登録されます
下記のコードをどのようにすればこの問題は解消されますか
ご指導をよろしくお願いいたします
参考コード
rivate Sub CommandButton1_Click()
'体温1
Cells(Label2.Caption + 1, ComboBox1.ListIndex + 2).Value = TextBox1.Text
'体温2
Cells(Label2.Caption + 2, ComboBox1.ListIndex + 2).Value = TextBox2.Text
'咳
If CheckBox1.Value = True Then
Cells(Label2.Caption + 3, ComboBox1.ListIndex + 2).Value = "有"
Else
Cells(Label2.Caption + 3, ComboBox1.ListIndex + 2).Value = ""
End If
![「VBA 同日で2回目(午後)の体温を登録」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/4/542530572_630b515aa6bdd/M.jpg)
No.3ベストアンサー
- 回答日時:
Value = ""のロジックが何故あるのかわりませんが、単純に
体温1
If TextBox1.Text <> "" Then
Cells(Label2.Caption + 1, ComboBox1.ListIndex + 2).Value = TextBox1.Text
体温2
If TextBox2.Text <> "" Then
Cells(Label2.Caption + 2, ComboBox1.ListIndex + 2).Value = TextBox2.Text
End If
で駄目なんでしょうか。
入力記録を消すのは、クリアのチェックボックスを作るか、
直消しします。
No.2
- 回答日時:
ユーザーフォームからの転記なのでしょうけど、そもそもテキストボックスが2つ必要なのでしょうか?
例えば午前中に1,2共に入力をする事がありますか?
https://www.tipsfound.com/vba/05hour
テキストボックスを1つにし入力してシートへ転記する時刻によって、振り分けると言う方法もありかと感じます。
転記時刻は
https://www.tipsfound.com/vba/05now
なので求める場合は 変数 = Hour(Now()) になるかな?
スマホなので未検証でごめんなさい。
No.1
- 回答日時:
こんばんは
ご質問の内容を理解していなかったらごめんなさい
>textbox1に体温を入れず
であるならば、
書き込み条件に
if TextBox1.Text<>"" then (値があれば)
if TextBox2.Text<>"" then
とすれば良いかと・・思います
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 重複チェック後に値をワークシートに転記する方法を教えてください。 1 2023/03/19 12:43
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Excel(エクセル) vba userformで漢字を全角カタカナに 2 2022/07/24 15:38
- Visual Basic(VBA) ListBox1をClickしたときのイベント 5 2022/12/11 19:45
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
自慰行為後数時間って体温上が...
-
彼との営みの悩みです。 私は女...
-
朝から変なこと聞いてすみませ...
-
体温は何度以上でアルバイトや...
-
室温23度の部屋の中で、身体を...
-
コロナ感染と風邪
-
冬生まれだから寒さに強いの医...
-
凍死について 寒い時期に酔っ払...
-
血流が良くなったり、血液サラ...
-
平熱が低いとなんのリスクがあ...
-
【医学】なぜすぐ免疫力が下が...
-
深い眠りにつく方法
-
お産の時、なぜお湯がいるの?
-
おじさんの体温について
-
筋トレで平熱が上がるのか? 私...
-
他人の座った後の椅子はなぜ暖...
-
授業中の寝汗
-
平熱が36.8か36.9と高...
-
血圧と体温の関係
-
どうして、雨に濡れると、風邪...
おすすめ情報
おはよう
参照図を参考にしてください
体温1 は平常時は毎日午前に登録します
ただし 体温1(textbox1) の後にコロナの疑いがあるとき
若しくは陽性になったら 体温2(textbox2)
を追加します
textboox1 & textbox2 同時入力は参考のコードで可能です
ご指導を仰ぎたいのは
体温1(4の行/textbox1)が入力されているときは其の侭にして
体温2(5の行/textbox2)のみ入力できる
コロナの管理用です
通常の体温測定は textbox1 エクセル表に入力しています
時間は9時頃です ただしエクセルの入力時間は定かではない
突然コロナの疑いまたは陽性の時用にtextbox2を設けています
私の考えかも知りません
下記のように対象となる体温1のコードをテストしました
体温1
If TextBox1.Text <> "" Then
Cells(Label2.Caption + 1, ComboBox1.ListIndex + 2).Value = TextBox1.Text
Else
Cells(Label2.Caption + 1, ComboBox1.ListIndex + 2).Value = ""
End If
※参照図のようにB4が空白になります
下記コードをどうすればいいでしょか
Else
Cells(Label2.Caption + 1, ComboBox1.ListIndex + 2).Value = ""