No.2ベストアンサー
- 回答日時:
割り込ませていただきます。
>列番号の指定方法はどのようにしたらよろしいでしょうか。
排他的範囲の方法もありますが、以下のような方法が分かりやすいのではないかと思います。
#1さんの HasFormula は、数式があるなしの判定ですから、必要に応じて入れてください。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Column = 3 Or Target.Column = 5 Then '3列目と5列目
If VarType(Target) = vbDouble Then
Target.Value = Target.Value + 1
End If
End If
End Sub
p.s.Excelの枠線には、ショートカットが含まれていますから、なるべく、上下の枠線には触れないようにしてください。カーソルが思わぬ方向に飛ぶことがあります。いろいろ工夫してみましたが、このショートカットをなくす方法が見つかりませんでした。
この回答への補足
ありがとうございます!
不思議で面白いですね!枠線をさわるとぴょこぴょことカーソルが飛ぶのですね。
ご教授頂きましたやり方でできました。
ちなみに、これをさらに、範囲を広くする場合ですが、
If Target.Column = ("3:30")
みたいな入力で大丈夫なのでしょうか。すみません、素人なもので…。
No.3
- 回答日時:
>ちなみに、これをさらに、範囲を広くする場合ですが、
> If Target.Column = ("3:30")
If Target.Column = 3 Or Target.Column = 5 Then '3列目と5列目
↓
If Not Intersect(Target, Columns("C:AD")) Is Nothing Then
とするか、
If Target.Column >= 3 And Target.Column <= 30 Then
となります。
No.1
- 回答日時:
■特定のセル(例はA1)の値を1だけ加算するマクロ
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Target.Value = Target.Value + 1
End If
End Sub
■選択セルが数値でかつ数式でない場合のみ、1だけ追加するマクロ
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If IsNumeric(Target) And Not Target.HasFormula Then
Target.Value = Target.Value + 1
End If
End Sub
※加算する数値をセル参照する場合は + 1 を + RANGE("A1") に置き換えてください。
この回答への補足
mshr1962様
早速、ご丁寧に2パターンご指導くださり、ありがとうございます!!
さらに込み入ったご質問をさせて頂きたいのですが、ダブルクリックにて数値を加算させるセルを、ある列(あるいは複数列)についてのみ実行させたい場合、列番号の指定方法はどのようにしたらよろしいでしょうか。
二重のご質問となり大変恐縮ですが、よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Excel(エクセル) エクセルのVBAの標準モジュールの名前が文字化けしてしまうのですが。。 2 2022/11/28 16:34
- Excel(エクセル) Excelの文字列を転記したいのですが。 2 2022/09/30 12:09
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Visual Basic(VBA) 複数指定セルの可視セルのみを別シートに転記するVBAについて 2 2022/05/27 21:19
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
マイクロソフト 一時使用コード...
-
英数字のみ全角から半角に変換
-
エクセルの貼り付け「リンクさ...
-
大学のレポート A4で1枚レポー...
-
エクセルでXLOOKUP関数...
-
会社PCのメールが更新されない
-
エクセルのシフト表を簡単にGoo...
-
Excelのセルの重複チェックが出...
-
outlookのメールが固まってしま...
-
エクセルでレーダーチャートの...
-
teams設定教えて下さい。 ①ビデ...
-
オフィス365のエクセル
-
Microsoft Edgeの「ニュースと...
-
Microsoft Office Personal 2021
-
Excelで空白以外の値がある列の...
-
Excel テーブル内の空白行の削除
-
マクロ自動コピペ 貼り付ける場...
-
Excel2019と365、2021
-
Outlook 2021 アカウント設定時...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
【スプレッドシート】指定の日...
-
英数字のみ全角から半角に変換
-
会社PCのメールが更新されない
-
マイクロソフト 一時使用コード...
-
Office 2021 Professional Plus...
-
エクセルで例えば、関数を使っ...
-
Microsoft Formsの「個人情報や...
-
1つのPCに「Excel 2010」「Exc...
-
エクセルで例えば、A1に㈱ベ...
-
理由を教えてください。
-
エクセルでXLOOKUP関数...
-
マイクロソフト オフィスについて
-
VLOOKUP関数について
-
teams設定教えて下さい。 ①ビデ...
-
Googleのスプレッドシートでシ...
-
【Excel VBA】PDFを作成して,...
-
Microsoft365で写真をアルバム...
-
Outlook で宛先が複数の場合の人数
-
Excel テーブル内の空白行の削除
おすすめ情報