No.3ベストアンサー
- 回答日時:
No.1です。
セルが結合されている場合、「Target」には結合されたセル範囲が格納されていますので、
(今回の場合、A3セルを選択すると A3:E3 の範囲が「Target」となります)
このような場合はA3セル(選択セルの一番最初のセル)の状態を見る必要があると思いますので、
↓のようなコードにしてみてはどうでしょうか?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A3:A11")) Is Nothing Then Exit Sub
Cancel = True
With Target(1) '←ココを訂正
If .Value = "" Then
.Value = Now()
.NumberFormatLocal = "h:mm"
Else
.Value = ""
End If
End With
End Sub
のような感じで・・・m(_ _)m
いつもお世話になってます、丁寧に回答して頂き誠にありがとうございます。
無事に解決できました、これからも宜しきお願い申し上げますm(_ _)m
No.2
- 回答日時:
シート名タブを右クリックしてコードの表示を選び、現れたシートに下記をコピー貼り付ける
private sub Worksheet_BeforeDoubleClick(byval Target as excel.range, Cancel as boolean)
if application.intersect(target, range("A3:A11")) is nothing then exit sub
if target = "" then
target.numberformatlocal = "hh:mm:ss" ’←わざわざマクロじゃなく準備しておけばよい
target = now ’←何を「入力したい」のか考えて工夫する
else
target.clearcontents
end if
cancel = true
end sub
ファイルメニューから終了してエクセルに戻り、セルをWクリックする。
この回答への補足
僕の質問に回答して下さり誠にありがとうございます。
例えばA3~E3・A4~E4・A5~E5・A6~E6・A7~E7・A8~E8・A9~E9・A10~E10・A11~11の各セルを「セルを結合して中央揃え」し結合した場合に作動するにはどのようにしたら良いでしょうか?
No.1
- 回答日時:
こんばんは!
一例です。
シートモジュールです
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A3:A11")) Is Nothing Then Exit Sub
Cancel = True
With Target
If .Value = "" Then
.Value = Now()
.NumberFormatLocal = "h:mm"
Else
.Value = ""
End If
End With
End Sub
こんな感じではどうでしょうか?
※ 秒まで表示したい等は「表示形式」で変更してください。m(_ _)m
この回答への補足
僕の質問に回答して下さり誠にありがとうございます。
例えばA3~E3・A4~E4・A5~E5・A6~E6・A7~E7・A8~E8・A9~E9・A10~E10・A11~11の各セルを「セルを結合して中央揃え」し結合した場合に作動するにはどのようにしたら良いでしょうか?
いつもお世話になってます、丁寧に回答して頂き誠にありがとうございます。
無事に解決できました、これからも宜しきお願い申し上げますm(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
[EXCEL]ボタン押す→時刻が表に入る方法
Excel(エクセル)
-
Excelにて、セルをダブルクリックすると、数字や日付が入る。又、ユーザーフォームを表示する
Excel(エクセル)
-
-
4
空欄のセルをダブルクリックした時に現在の年月日を入力させたいのです。
Visual Basic(VBA)
-
5
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
6
エクセル ダブルクリック入力の範囲が複数の場合
Excel(エクセル)
-
7
エクセルマクロ セルをクリックするたびに記号を入力
Excel(エクセル)
-
8
【Excel】クリックするとその日の日付が表示されるようにしたい
Excel(エクセル)
-
9
エクセルでセルをクリックすると“○”と入力
Excel(エクセル)
-
10
データが入力されている隣のセルに当日日付と時刻を入力するExcel VBAプログラム
Visual Basic(VBA)
-
11
ExcelVBAでセルをクリックしてユーザーフォームを表示するには
Excel(エクセル)
-
12
【エクセル】 キーを押すと、現在時間が入力されるマクロ
その他(Microsoft Office)
-
13
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
14
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
15
EXCELのNOW()関数の値の固定する方法は?
Excel(エクセル)
-
16
エクセルで打刻(タイムレコーダ)
システム
-
17
VBユーザーフォームで時間入力
Visual Basic(VBA)
-
18
Excel Vbaを使って 結合セルをダブルクリックでチェックマークしたいのですが手順を教えてくださ
Excel(エクセル)
-
19
Excelにて入力済セルへの再入力禁止
Excel(エクセル)
-
20
XL:BeforeDoubleClickが動かない
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで、貼り付け禁止命令を実現...
-
VBAのListBoxで複数選択して...
-
エクセルVBA(実行時エラー438...
-
データが入力されている隣のセ...
-
メッセージを1度だけ表示したい。
-
VBA セルに合わせて移動するが...
-
VBAについて教えてください
-
エクセルテキストボックスの文...
-
EXCEL VBA Rangeの指定方法につ...
-
VBAで丸をつけたいです。
-
EXCELマクロ 保護されているシ...
-
複数行選択のテキストボックス
-
あるExcelファイルのセルへの入...
-
エクセル: セルの枠を超えて表示
-
エクセルでの計算式で求められ...
-
エクセル:マクロ「Application...
-
EXCELで特定のセルに表示...
-
エクセルで隣接していない複数...
-
エクセルのアポストロフィを一...
-
エクセルで表示形式の時刻の「0...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
データが入力されている隣のセ...
-
エクセルテキストボックスの文...
-
ハイパーリンクされているファ...
-
EXCELマクロ 保護されているシ...
-
VBAで、貼り付け禁止命令を実現...
-
VBA セルに合わせて移動するが...
-
エクセルVBA(実行時エラー438...
-
メッセージを1度だけ表示したい。
-
Excelのセル内にある図形を削除...
-
ダブルクリックすると現在の時...
-
(VBA)アクティブセルを起点に...
-
Jtableの特定のセルの背景色や...
-
VBAで丸をつけたいです。
-
Excel VBA ダブルクリックで入...
-
Windowsで動くVBAがmacOSで動か...
-
セル色を5秒間隔で変える
-
Excel VBA セルを指定個数ラン...
-
エクセルのVBAでダブルクリック...
-
Swing 編集不可でも選択可能なJ...
-
マクロを使って画像を貼り付け
おすすめ情報