質問編集履歴
2
説明文の訂正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -2,15 +2,15 @@
|
|
|
2
2
|
|
|
3
3
|
現在日々の作業内容を月々にまとめる表をつくるマクロを作成中です。
|
|
4
4
|
|
|
5
|
-
ユーザーフォームに入力してボタンをクリックするとセルに転記してその値をSUM関数で合計するという仕組みで作りたいのですけれど。
|
|
5
|
+
ユーザーフォームに入力してボタンをクリックするとその日の作業の合計がセルに転記してその値の一月分ををSUM関数で合計するという仕組みで作りたいのですけれど。
|
|
6
6
|
|
|
7
7
|
|
|
8
8
|
|
|
9
|
-
ユーザーフォームのテキストボックスからセルに転記すると表示形式が文字列で保存らしく関数では読み込めない
|
|
9
|
+
ユーザーフォームのテキストボックスからセルに転記すると表示形式が文字列で保存らしく関数では読み込めないようでSUMの値が０のままの状態です。
|
|
10
10
|
|
|
11
11
|
|
|
12
12
|
|
|
13
|
-
テキストボックスからの転記で表示形式を数値で保存する方法をご存じの方がいましたらお知恵をお貸しください。
|
|
13
|
+
**テキストボックスからの転記で表示形式を数値で保存する方法をご存じの方がいましたらお知恵をお貸しください。**
|
|
14
14
|
|
|
15
15
|
|
|
16
16
|
|
1
コードを整理して表示形式を変更したい場所を強調しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -34,89 +34,29 @@
|
|
|
34
34
|
|
|
35
35
|
Private Sub CommandButton6_Click()
|
|
36
36
|
|
|
37
|
-
|
|
37
|
+
|
|
|
38
38
|
|
|
39
|
-
|
|
39
|
+
| 省略してます
|
|
40
40
|
|
|
41
|
-
|
|
41
|
+
|
|
|
42
42
|
|
|
43
|
-
Dim y As Long
|
|
44
|
-
|
|
45
|
-
'次の行を挿入する
|
|
46
|
-
|
|
47
|
-
Rows(ActiveCell.Row + 5).Insert , _
|
|
48
|
-
|
|
49
|
-
Copyorigin:=xlFormatFromLeftOrAbove
|
|
50
|
-
|
|
51
|
-
|
|
52
|
-
|
|
53
|
-
'入力用の最終行列を取得する
|
|
54
|
-
|
|
55
|
-
LR = Cells(Rows.Count, 3).End(xlUp).Row + 1
|
|
56
|
-
|
|
57
|
-
LC = Cells(LR, Columns.Count).End(xlToLeft).Column + 1
|
|
58
|
-
|
|
59
|
-
|
|
60
|
-
|
|
61
|
-
'入力セル指定
|
|
62
|
-
|
|
63
|
-
Cells(LR, 3).Value = Label18
|
|
64
|
-
|
|
65
|
-
Cells(LR, LC + 1).Value = Label18
|
|
66
|
-
|
|
67
|
-
Cells(LR, LC + 2).Value = TextBox41 & ComboBox12
|
|
68
|
-
|
|
69
|
-
Cells(LR, LC + 3).Value = TextBox42 & Label23 & TextBox43
|
|
70
|
-
|
|
71
|
-
Cells(LR, LC + 4).Value = TextBox44
|
|
72
|
-
|
|
73
|
-
Cells(LR, LC + 5).Value = Label24
|
|
74
|
-
|
|
75
|
-
Cells(LR, LC + 6).Value = TextBox45 & ComboBox13
|
|
76
|
-
|
|
77
|
-
If TextBox45 = "" Then
|
|
78
|
-
|
|
79
|
-
Label25 = ""
|
|
80
|
-
|
|
81
|
-
Label26 = ""
|
|
82
|
-
|
|
83
|
-
Else
|
|
84
|
-
|
|
85
|
-
Cells(LR, LC + 7).Value = TextBox46 & Label25 & TextBox47
|
|
86
|
-
|
|
87
|
-
Cells(LR, LC + 8).Value = TextBox48
|
|
88
|
-
|
|
89
|
-
Cells(LR, LC + 9).Value = Label26
|
|
90
|
-
|
|
91
|
-
Cells(LR, LC + 10).Value = ComboBox19
|
|
92
|
-
|
|
93
|
-
End If
|
|
94
|
-
|
|
95
|
-
TextBox54 = Val(TextBox44) + Val(TextBox48)
|
|
96
|
-
|
|
97
|
-
TextBox55 = Val(TextBox49) + Val(TextBox50) + Val(TextBox51) + _
|
|
98
|
-
|
|
99
|
-
Val(TextBox52) + Val(TextBox53) + Val(TextBox54)
|
|
100
|
-
|
|
101
|
-
|
|
102
|
-
|
|
103
|
-
'合計を選択した場合、合計本数と罫線を入力する
|
|
104
|
-
|
|
105
|
-
For x = 0 To 1
|
|
43
|
+
For x = 0 To 11
|
|
106
44
|
|
|
107
45
|
If ComboBox19.Value = "合計" Then
|
|
108
46
|
|
|
109
|
-
Cells(LR, LC +
|
|
47
|
+
Cells(LR, LC + 8).Value = Label34
|
|
110
48
|
|
|
111
|
-
Cells(LR, LC +
|
|
49
|
+
Cells(LR, LC + 9).Value = TextBox55**←このテキストボックスの値を数値の表示形式で転記したい！**
|
|
112
50
|
|
|
113
|
-
Cells(LR, LC + 1
|
|
51
|
+
Cells(LR, LC + 10).Value = Label3
|
|
114
52
|
|
|
115
53
|
Cells(LR, LC + x).Borders(xlEdgeBottom).LineStyle = xlContinuous
|
|
116
54
|
|
|
117
55
|
End If
|
|
118
56
|
|
|
119
57
|
Next x
|
|
58
|
+
|
|
59
|
+
|
|
120
60
|
|
|
121
61
|
End Sub
|
|
122
62
|
|