| |
▼LALA さん：
おはようございます
とりあえず最初の質問に対して。
基本構造としては
Private Sub CommandButton1_Click()
Dim tot As Long
If CheckBox1.Value = True Then
tot = tot + Worksheets("Sheet1").Range("A1").Value
End If
If CheckBox2.Value = True Then
tot = tot + Worksheets("Sheet1").Range("A2").Value
End If
If CheckBox3.Value = True Then
tot = tot + Worksheets("Sheet1").Range("A3").Value
End If
If CheckBox4.Value = True Then
tot = tot + Worksheets("Sheet1").Range("A4").Value
End If
If CheckBox5.Value = True Then
tot = tot + Worksheets("Sheet1").Range("A5").Value
End If
MsgBox "合計は" & tot & "です"
End Sub
でも、これだと同じようなものが連続して記述されて煩雑なので少し工夫して
Private Sub CommandButton1_Click()
Dim tot As Long
Dim i As Long
For i = 1 To 5
If Me.Controls("CheckBox" & i).Value = True Then tot = tot + Worksheets("Sheet1").Range("A" & i).Value
Next
MsgBox "合計は" & tot & "です"
End Sub
２番目の質問も基本的には同じことだけど、それぞれのチェックボックスで扱うデータが
最初の質問ではシートのA1:A5の数字だと説明があるけど２番目の質問にはありませんね。
これも、シートのA1:A5にCSVの名前が入っているのかな？
それともチェックボックスのキャプションにCSVの名前が入っているのかな？
それと、ファイルを開く場合はファイル名のほかに、そのファイルが、どのフォルダに
保存されているかという情報も必要ですね。
|
|
UO3
- 11/8/15(月) 7:14 -
