Excel VBA質問箱 IV

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

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


38481 / 76732 ←次へ | 前へ→

【43387】Re:オブジェクトの更新
発言  ハチ  - 06/10/12(木) 19:12 -

引用なし
パスワード
   ▼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ちゃんさんです。
少し前に書き込みされていましたが、ここは作成依頼掲示板ではありません。
「自分でやってみてわからないところ」を質問する場です。
提示したサンプルをそのまま実行すれば良いワケではないと思います。

0 hits

【43375】オブジェクトの更新 kenちゃん 06/10/12(木) 10:06 質問
【43381】Re:オブジェクトの更新 ハチ 06/10/12(木) 15:09 発言
【43383】Re:オブジェクトの更新 kenちゃん 06/10/12(木) 16:23 発言
【43385】Re:オブジェクトの更新 ハチ 06/10/12(木) 17:03 回答
【43386】Re:オブジェクトの更新 kenちゃん 06/10/12(木) 17:37 発言
【43387】Re:オブジェクトの更新 ハチ 06/10/12(木) 19:12 発言
【43402】Re:オブジェクトの更新 ichinose 06/10/13(金) 8:05 発言

38481 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free