|
▼Regina さん:
おはようございます。
ざっと見たところですが・・・、
>ユーザーフォームを使用して、顧客(リハビリ患者)リストをワークシートに転記するVBAを作っています。計算をしないといけない項目が数箇所あって、まず、生年月日の計算からコードを作っているところです。計算結果までボタンのクリックでできるようになりましたが、計算結果が、ワークシートに転記できず、「######」と代入されてしまいます。
####・・と表示される場合は、
1.対象セルの幅が日付を全部表示するには、狭すぎる場合
2.対象セルが日付の書式に設定されている場合、
日付として認識できない数値が入力された場合
が考えられます。
1.の場合は、セルの幅を広げてみると、日付が表示されます。
2.の場合は、入力データが日付として認識できない場合が考えられます。
この辺りを再度、確認してみてください。
そのほかの、テキストボックスやチェックボックスの内容はきちんと転記されています。生年月日(TextBox3としています)も転記できません。年齢計算の結果はTextBox4に表示されるようにしています。
生年月日と年齢の計算結果をシートに転記できるようにしたいので、教えて下さい。
年齢を保存用シートに入力する意味はないと思いますよ!!
御自分で計算されているように、年齢は、生年月日と本日の日付からその都度計算して表示(印刷等)すればよいのです。
この結果を保存用シートに設定するメリットが見出せません。
もし、保存用シート(ここではデーターベースというシート名ですか)が表示にも印刷にも兼用で使うなら、Evaluateで使った数式(DATEDIF・・・)を入力したほうが良いと
思いますけどねえ!!
提示されたコードは、何らかの説明がないとそのままでは
この掲示板を見ている方は、コードを解析しないと
作動させることができません。
ユーザーフォームには、どんなコントロールを配置し、
シート名にはどんなシート名が命名されているとか、
他にも対象シートの書式設定の説明も必要です。
コードはどのモジュールに記述している等の情報も本来は必要です。
又、コードを作動させてどのような手順で操作すると、不具合が再現できるか
という手順書も必要です。
結構大変ですが、不具合を早く発見するには、
不可欠なんですよ!!
検討してみてください。
|
|