Excel VBA質問箱 IV

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

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


38472 / 76738 ←次へ | 前へ→

【43402】Re:オブジェクトの更新
発言  ichinose  - 06/10/13(金) 8:05 -

引用なし
パスワード
   kenちゃん さん、ハチさん、おはようございます。


以下のコードのShapes("Object 21")がカレンダーコントロール
ということですか?
(デフォルトはCalendar1なんていう名前なんですけどね!!)

>Sub 編集()
>  ActiveSheet.Shapes("Object 21").Select
>  Selection.Verb
>  Range("Q1").Select
>  ActiveCell.FormulaR1C1 = "11/1/2006"
>  Range("R1").Select
>  ActiveWorkbook.Save
>  ActiveWindow.Close
>  ActiveWindow.WindowState = xlMaximized
>End Sub


もし、このObject 21がカレンダーコントロール
だとすると
Sub test()
  Dim indate As Variant
  With ActiveSheet.OLEObjects("Object 21")
    indate = Application.InputBox("input date", , Format$(.Object.Value, "yyyy/mm/dd"), , , , , 2)
    If TypeName(indate) <> "Boolean" Then
     If IsDate(indate) Then
       .Object.Value = CDate(indate)
       End If
     End If
    End With
End Sub

こんなコードを試してみてください。

「Object 21」が違うものだとすると、
このオブジェクトの説明が必要ですね!!

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 発言

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