| |
▼りの さん：
すいません。ちょっと勘違いしてました。
『入力画面』はWorkSheetなのですね。
最初に書かれているのを見落としてました。
>ユーザーフォームの入力により『入力画面』内の指定したセルに
>記入する事は設定出来たという事です。
これをどうやってるのですか？
ControlSourceに設定してる とか
TextBox1.Value = Range("A1").Value とやってるとか
>ユーザーフォーム内の更新ボタンで、『入力画面』のシートを
>完成させたいのですが、その際に名前を付けて保存で新しく
>ワークシートを作りたいのです。
>（『入力画面』はあくまでも、ベースフォームとして使用）
簡単なサンプルなら、こんな感じです。
エラー処理は追加してください
'ActiveなWorkSheetを左端にコピーし名前を変更
Sub Test_Copy()
Dim Ans As Variant
Ans = InputBox("新しいWorkSheet名を入力")
ActiveSheet.Copy Before:=Worksheets(1)
On Error Resume Next
Worksheets(1).Name = Ans
On Error GoTo 0
End Sub
>>>・入力後は『入力画面』のフォームが空欄に戻したい。
>>> （これからも、データーが増えるからです）
>>
>>入力箇所の件数によりますが、
>>初心者なら１つづつ消していくのが良いのでは？
>
>そうですね、欲張り過ぎですね；
これはマクロの記録で
１、Ctrlを押しながら対象のセルを選択
２、Deleteキーを押下
で作れると思います。
>
>>>・入力後のデータ内を変更する際に
>>> ユーザーフォームBに入力したフォームを呼び出して上書きで更新したい。
>
>例えば、新しいワークシートを作成出来た場合なんですが
>入力内容の変更がある可能性があるので
>上書き更新出来るようにしたいのです。
更新したいSheetをどうやって指定するのか？などの条件が揃わないと
良い回答は付かないです。
>>作成したシートをどうしたいのか？によりますが
>>「印刷する為」「データとして規定フォーマットで提出が必要な為」の理由なら
>
>印刷・データ提出・データベースとして必要です。
>後々は、『目次』を作って検索機能をつけると
>より、データーベース化が出来ると思いました。
どのようなデータベースなのかによりますが、
データは一覧（表ですね）にしてレコードで管理できるようにしたほうが、
後々良さそうですがすぐには難しそうですね。
>
>作成したいのは、現場の検査シートで物件毎に必要な書類です。
>出来るだけ、クリック作業・入力作業で終わらせたい理由は
>組んだマクロをPC操作が苦手な上司が使うからです。
>一時は、CGIやhtmlやJavaで作成しようと思ったのですが
このあたりの知識（プログラムに対する考え方というか）は、
ある方だと思ってレスすれば良いですか？
|
|
ハチ
- 08/1/23(水) 18:39 -
