質問編集履歴

1

フォームのキャプチャ追加 セルの範囲を選択するコード追記

2017/10/27 07:06

投稿

cayribaka
cayribaka

スコア19

test CHANGED
File without changes
test CHANGED
@@ -15,3 +15,81 @@
15
15
 
16
16
 
17
17
  よろしくお願いいたします。
18
+
19
+
20
+
21
+ 追記
22
+
23
+ フォームを作成しました。
24
+
25
+ ![フォーム作成](91b5dd17379d8611142a730e3df5cb85.png)
26
+
27
+
28
+
29
+ ひとまず以下のコードを書いて、4月のカレンダーで動かそうとしたのですが、エラーが吐かれてしまい、うまく動きません。
30
+
31
+ ```VBA
32
+
33
+ Private Sub cmd閉じる_Click()
34
+
35
+ Unload Me
36
+
37
+ End Sub
38
+
39
+
40
+
41
+ '例)毎週月曜日休みと設定すると、4月のカレンダーの月曜日の日が色づけされる。
42
+
43
+ Private Sub cmd設定_Click()
44
+
45
+ Dim 色 As Integer
46
+
47
+
48
+
49
+ If opt月.Value = True Then
50
+
51
+ Range ("C10:C15")
52
+
53
+ .BackColor = 33
54
+
55
+ ElseIf opt火.Value = True Then
56
+
57
+ Range ("D10:D15")
58
+
59
+ .BackColor = 33
60
+
61
+ ElseIf opt水.Value = True Then
62
+
63
+ Range ("E10:E15")
64
+
65
+ .BackColor = 33
66
+
67
+ ElseIf opt木.Value = True Then
68
+
69
+ Range ("F10:F15")
70
+
71
+ .BackColor = 33
72
+
73
+ ElseIf opt金.Value = True Then
74
+
75
+ Range ("G10:G15")
76
+
77
+ .BackColor = 33
78
+
79
+ Else
80
+
81
+ MsgBox "曜日を選択してください"
82
+
83
+
84
+
85
+ Exit Sub
86
+
87
+ End If
88
+
89
+
90
+
91
+ End Sub
92
+
93
+
94
+
95
+ ```