|
▼kenちゃん さん:
>説明が伝わらなかったみたいです。
>リンク先のカレンダー(オブジェクト)を編集状態にして
ふむふむ。
する必要があるかどうかは別にしてわかりました。
>オブジェクトのQ1に日付を入力し
これのあたりから意味がわかりません。
オブジェクトのQ1ってなんでしょうか?
Range("Q1")のことですか?
>(ココにInputBoxがでる)→更新→終了としたいのです。
なにを入力するInputBoxなのですか?
勝手な解釈だと・・・
Q1に入力された日付を、オブジェクトのテキストに貼り付けたい。
そこで"このオブジェクトを更新しますか?"YesNo みたいな感じかなぁと。
この場合に、貼り付けるテキストを再度編集できる状態にしたいので
InputBoxを使い、デフォルトにはQ1の値を表示したいってことですか?
この内容だと
Sub Test()
Dim MyDate As Date
MyDate = InputBox("日付を指定", , Range("A1").Value)
If IsDate(MyDate) = False Then
MsgBox "日付を指定してください"
Exit Sub
End If
'Range("A1").Value = MyDate ←これを変更すればできると思います。
End Sub
>できませんか?
できるかどうかを考えるのは私ではなくて、kenちゃんさんです。
少し前に書き込みされていましたが、ここは作成依頼掲示板ではありません。
「自分でやってみてわからないところ」を質問する場です。
提示したサンプルをそのまま実行すれば良いワケではないと思います。
|
|