Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

27386 / 76738

←次へ　｜　前へ→


	【54673】Re:ユーザーフォームでの計算結果の転記

Regina - 08/3/25(火) 21:46 -


	引用なし

	パスワード

▼VBWASURETA さん：
上書きしてしまうコードを作っていることに気がつきませんでした。転記先が同じになっていました。テキスト３にはyyyy/m/ddの形式で入力しています。
　Dim 日 As Date 　→日付の宣言
　日 = DateValue(TextBox3)→テキスト３の文字形式を日付形式にする
　Range("データーベース!Ａ" & z + 4).Offset(0, 3).Value = TextBox3.Text
　　→ワークシート(名：データーベース)への転記

　上記を生年月日を入力しているテキスト３に関するコードと直しました。
　TextBox3に　1978/7/28　と入力すると、データーベースには昭和53年7月28日と　転記されていました。年齢も　２９　とデーターベースに転記されていました。

　「算定期限日」は「発症日・起算日」より所定の数字を足した日付が表示されるようにしたいと思ってまして、コマンドボタンにより設定できました。

　西暦を和暦に変えたり、和暦を西暦に変えたりすることも、必要になってます。
　一番いいのは、テキスト３に和暦で入力して、年齢計算するのが良いです。
　患者さんの処方箋には生年月日は和暦で入力されています。

　S53.7.28　と入力して年齢が出るようになるために、Format関数を使えるようになるように、今調べ中です。

0 hits

▼

【54606】ユーザーフォームでの計算結果の転記 Regina 08/3/24(月) 1:10