Excel VBA質問箱 IV

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

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


8801 / 13644 ツリー ←次へ | 前へ→

【30946】VBA全くの初心者 なお 05/11/7(月) 17:50 質問[未読]
【30947】BeforeDoubleClickイベントについて ちくたく 05/11/7(月) 18:10 回答[未読]
【30953】Re:VBA全くの初心者 gako 05/11/7(月) 21:44 発言[未読]
【31105】Re:VBA全くの初心者 なお 05/11/11(金) 16:40 お礼[未読]

【30946】VBA全くの初心者
質問  なお  - 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

エクセルでブックの新規作成中にこのコードを入力すると有効に作動するのですが、一度保存して開いてダブルクリックをしても作動しません。
VBA全くの初心者です。どなたか教えていただけないでしょうか。

【30947】BeforeDoubleClickイベントについて
回答  ちくたく  - 05/11/7(月) 18:10 -

引用なし
パスワード
   ▼なお さん様。
こんばんは。

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

別段、難しいことをしていないですので、
ひとまず、「ツール/マクロ/セキュリティ」で、
セキュリティレベルが高とかにはなってないですか?

【30953】Re:VBA全くの初心者
発言  gako  - 05/11/7(月) 21:44 -

引用なし
パスワード
   ▼なお さん:
今晩は。
正常に動きますよ。
コードをどこに貼り付けておられますか?

エクセルシート1のタブを右クリック⇒コードの表示のところに貼り付けてください。
つまり
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
>
>エクセルでブックの新規作成中にこのコードを入力すると有効に作動するのですが、一度保存して開いてダブルクリックをしても作動しません。
>VBA全くの初心者です。どなたか教えていただけないでしょうか。

【31105】Re:VBA全くの初心者
お礼  なお  - 05/11/11(金) 16:40 -

引用なし
パスワード
   gakoさん:

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


▼gako さん:
>▼なお さん:
>今晩は。
>正常に動きますよ。
>コードをどこに貼り付けておられますか?
>
>エクセルシート1のタブを右クリック⇒コードの表示のところに貼り付けてください。
>つまり
>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
>>
>>エクセルでブックの新規作成中にこのコードを入力すると有効に作動するのですが、一度保存して開いてダブルクリックをしても作動しません。
>>VBA全くの初心者です。どなたか教えていただけないでしょうか。

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