Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

486 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

▼

【80098】右ダブルクリックした際に今日の日付行（2行目）を選択する様にしたい ヒロポン 18/8/12(日) 12:24

【80099】Re:右ダブルクリックした際に今日の日付行... マナ 18/8/12(日) 13:15

【80100】Re:右ダブルクリックした際に今日の日付行... ヒロポン 18/8/12(日) 15:08

【80101】Re:右ダブルクリックした際に今日の日付行... マナ 18/8/12(日) 20:22

【80102】Re:右ダブルクリックした際に今日の日付行... γ 18/8/12(日) 22:00

【80103】Re:右ダブルクリックした際に今日の日付行... ヒロポン 18/8/12(日) 23:36


	【80098】右ダブルクリックした際に今日の日付行（...

ヒロポン - 18/8/12(日) 12:24 -


	引用なし

	パスワード

A1　2018　　　　　　　　
A2　8　　　　　　　　　 B2=DATE($A$1,$A$2,1)　　C2=IF(B2>=$A$3,"",B2+1)
A3　=EOMONTH(B2,0)　　　B3=TEXT(B2,"aaa")　　　 C3=TEXT(C2,"aaa")
A4　朝食　1000円　　　　2000円
A5　昼食　2000円　　　 3000円
A6　夕食　3000円　　　　4000円

この表で食費を入力しているのですが毎日入力している訳ではなく1週間に1回ぐらいの頻度で入力しております、
その為アクティブのセルを探す所から始まりそれが毎回の事なのでストレスに感じます。
その為右ダブルクリックすると本日の日付行（2行目）のセルが選択されると楽に入力出来助かります。
VBAは全くの初心者です。


	【80099】Re:右ダブルクリックした際に今日の日付...

マナ - 18/8/12(日) 13:15 -


	引用なし

	パスワード

▼ヒロポンさん：

A列を左ダブルクリックしたときに実行さされます。
（ウインドウ枠固定でA列が常時表示されている前提）

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　If Target.Column > 1 Then Exit Sub
　　Cancel = True
　　Application.Goto Cells(1, Day(Date) + 1)
End Sub


	【80100】Re:右ダブルクリックした際に今日の日付...

ヒロポン - 18/8/12(日) 15:08 -


	引用なし

	パスワード

回答ありがとうございます。
実行はできましたが、
右クリックでは実行できないんでしょか？

希望としてどの場所のセルを右ダブルクリックしても実行できる様にはできないのでしょうか？


	【80101】Re:右ダブルクリックした際に今日の日付...

マナ - 18/8/12(日) 20:22 -


	引用なし

	パスワード

▼ヒロポンさん：

>右クリックでは実行できないんでしょか？
>希望としてどの場所のセルを右ダブルクリックしても実行できる様にはできないのでしょうか？

右クリック？
右ダブルクリック？

どんなイベントプロシージャが用意されているか確認して
使えそうなものを選ぶとよいです。
ht　tp://home.att.ne.jp/zeta/gen/excel/c04p59.htm


	【80102】Re:右ダブルクリックした際に今日の日付...

γ - 18/8/12(日) 22:00 -


	引用なし

	パスワード

横から失礼します。

既に指摘があるように、
ExcelVBAには右ダブルクリックというイベントプロシージャーは無いので、
どうしても右ダブルクリックで無いと困るというなら、
「マウス　左右反転」などで検索して、
左右を反転する設定にするより無いです。


	【80103】Re:右ダブルクリックした際に今日の日付...

ヒロポン - 18/8/12(日) 23:36 -


	引用なし

	パスワード

やりたい事ができました。
これからはストレスなく入力できます、本当にありがとうございました。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

486 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free