[[20101011090200]]　『シート間の入力』（みさ）　ページの最後に飛ぶ

『シート間の入力』（みさ）

 シート間にカレンダーで日付えお入れたいのですがコードがわかりません。修正してもらえませんか？
Range("各社発注書!N1:T1").Select
    Calendar.Show vbModeless
End Sub
このコードはシート内のコードなのでシート間に変更したいのですが・・・
宜しくお願いします。

 Calendar はユーザフォームだと思いますが、そちらの中身がわからないと
 書きようがないように思います。
 現在の仕様はどのようになっているのでしょうか。
 選択されたセルに、カレンダーで表示された日付が入るというようなものですか？
 それをどのように変更したいのでしょうか。
 (Mook)

どのような情報ほ書けばいいでしょうか（みさ）

 >このコードはシート内のコードなのでシート間に変更したいのですが・・・
 ちょっと意味が分かんない。。
 どうしたいのか具体的に説明して!
 (kei)

 kei さんの書かれたように、知りたいのは
 >このコードはシート内のコードなのでシート間に変更したいのですが・・・
 ということですが、敢えて質問を具体的にするなら、
 ・「各社発注書」以外にどんなシートがあって
 ・カレンダーはどのシートで起動して、
 ・選んだ結果をどのシートのどのセルに入れるのか
 ・そのセルは、どのように指定するのか
 ・カレンダー入力中、そのシートを表示したらまずいのか
 ・入力後はどのシートが表示されているようにしたいのか
 などです。
 推測の範囲ですが、Calendar が選択したセルに値を入れるという機能を既に
 実装しているなら

 Sheets("各社発注書").Activate
 Range("N1:T1").Select
 Calendar.Show vbModeless

 というだけで、事足りたのでしょうか。
 (Mook)

言葉が足らずすみません。各社発注書と設定と二つのシートがあり設定シートにホームボタンがありそのボタンを押すと各社発注書のN1:T1のセルにカレンダーで日付を入力したら設定シートZ7:Z8に戻りZ7:Z8のセルに同じ日付を入力したいです。これでわかるでしょうか？（みさ）

 それでは、ユーザーフォームで各社発注書のN1:T1に日付を書き込んだ後に、、

 Sheets("設定シート").Range("Z7:Z8").Value = Range("N1").Value

 とすれば、良いのでは?
 (kei)

Sheets("各社発注書").Activate

 Range("N1:T1").Select
 Calendar.Show vbModeless
Sheets("設定").Range("Z7:Z8").Value = Range("N1").Value

End Sub
と入力しましたが各社発注書と設定の日付がことなりますどうしてでしょうか？（みさ）

 >各社発注書のN1:T1のセルにカレンダーで日付を入力したら
 これが正しく出来ている前提での回答です。
 これについては記載がないので、正しく出来ているかを確認してください。
 (semm)

 CommandButton1_Click イベントで、「各社発注書」のN1:T1に日付を入力するわけでしょう?
 そのすぐ下に前述のコードを記入すると、
                     「設定シート」のZ7:Z8に同じ日付が入力されるわけです。。
 どうしても「設定シート」に移動する必要があれば、、
 vbModeless ですので、Sheets("設定シート").Select でシートの切り替えはできます。
 いずれにしても、「各社発注書」のN1:T1に日付を入力した直後のコードになると思います。。
 (kei)

コメント返信：

[ 一覧(最新更新順) ]

[[20101011090200]] 『シート間の入力』（みさ） ページの最後に飛ぶ

[[20101011090200]]　『シート間の入力』（みさ）　ページの最後に飛ぶ