Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8822 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【30946】ＶＢＡ全くの初心者 なお 05/11/7(月) 17:50 質問[未読]
【30947】BeforeDoubleClickイベントについて ちくたく 05/11/7(月) 18:10 回答[未読]
【30953】Re:ＶＢＡ全くの初心者 gako 05/11/7(月) 21:44 発言[未読]
【31105】Re:ＶＢＡ全くの初心者 なお 05/11/11(金) 16:40 お礼[未読]
【30946】ＶＢＡ全くの初心者
質問  なお  - 05/11/7(月) 17:50 -
引用なし
パスワード
   Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If activecell.value <> "" Then Exit Sub
ActiveCell.Value = Time
End Sub

エクセルでブックの新規作成中にこのコードを入力すると有効に作動するのですが、一度保存して開いてダブルクリックをしても作動しません。
ＶＢＡ全くの初心者です。どなたか教えていただけないでしょうか。
【30947】BeforeDoubleClickイベントについて
回答  ちくたく  - 05/11/7(月) 18:10 -
引用なし
パスワード
   ▼なお さん様。
こんばんは。

同じことを（念のため）してみましたが、
再現はとれませんでした。

別段、難しいことをしていないですので、
ひとまず、「ツール/マクロ/セキュリティ」で、
セキュリティレベルが高とかにはなってないですか？
【30953】Re:ＶＢＡ全くの初心者
発言  gako  - 05/11/7(月) 21:44 -
引用なし
パスワード
   ▼なお さん：
今晩は。
正常に動きますよ。
コードをどこに貼り付けておられますか？

エクセルシート１のタブを右クリック⇒コードの表示のところに貼り付けてください。
つまり
VBAProjectのsheet1(sheet1)に貼り付けることと同じです。
これで作動します。

試してみてください。

>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
>If activecell.value <> "" Then Exit Sub
>ActiveCell.Value = Time
>End Sub
>
>エクセルでブックの新規作成中にこのコードを入力すると有効に作動するのですが、一度保存して開いてダブルクリックをしても作動しません。
>ＶＢＡ全くの初心者です。どなたか教えていただけないでしょうか。
【31105】Re:ＶＢＡ全くの初心者
お礼  なお  - 05/11/11(金) 16:40 -
引用なし
パスワード
   gakoさん：

確かに有効に作動しました。本当にありがとうごじました。


▼gako さん：
>▼なお さん：
>今晩は。
>正常に動きますよ。
>コードをどこに貼り付けておられますか？
>
>エクセルシート１のタブを右クリック⇒コードの表示のところに貼り付けてください。
>つまり
>VBAProjectのsheet1(sheet1)に貼り付けることと同じです。
>これで作動します。
>
>試してみてください。
>
>>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
>>If activecell.value <> "" Then Exit Sub
>>ActiveCell.Value = Time
>>End Sub
>>
>>エクセルでブックの新規作成中にこのコードを入力すると有効に作動するのですが、一度保存して開いてダブルクリックをしても作動しません。
>>ＶＢＡ全くの初心者です。どなたか教えていただけないでしょうか。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8822 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free