回答編集履歴

2

ページアップ、ページダウンから、矢印に変更

2021/05/21 07:42

投稿

yuriko_bridge
yuriko_bridge

スコア3

test CHANGED
@@ -12,11 +12,11 @@
12
12
 
13
13
  If (Count < 0) Then
14
14
 
15
- SendKeys "{PGUP}"
15
+ SendKeys "{UP}"
16
16
 
17
17
  ElseIf (Count > 0) Then
18
18
 
19
- SendKeys "{PGDN}"
19
+ SendKeys "{DOWN}"
20
20
 
21
21
  End If
22
22
 

1

コードを見やすくしました。

2021/05/21 07:42

投稿

yuriko_bridge
yuriko_bridge

スコア3

test CHANGED
@@ -3,6 +3,8 @@
3
3
  結局、レポートに以下のコードを挿入することで解決しました。
4
4
 
5
5
 
6
+
7
+ ```ここに言語を入力
6
8
 
7
9
  Private Sub Report_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
8
10
 
@@ -23,3 +25,5 @@
23
25
  End If
24
26
 
25
27
  End Sub
28
+
29
+ ```