- Excel VBA 質問スレ Part34
212 ：デフォルトの名無しさん[sage]：2014/07/22(火) 22:41:28.15 ID:JAupmXZX - i=0
sum = 0
do
i =i +1
if instr(cells(i,2),"c") <> 0 then
sum = sum + cells(i,1)
end if
loop untill cells(i,1)=""
| - Excel VBA 質問スレ Part34
214 ：デフォルトの名無しさん[sage]：2014/07/22(火) 22:57:46.44 ID:JAupmXZX - >警告が出ないようにしたいです
Application.DisplayAlerts=False
| - Excel VBA 質問スレ Part34
217 ：デフォルトの名無しさん[]：2014/07/22(火) 23:28:11.73 ID:JAupmXZX - Sub test2()
Dim i As Integer
Dim j As Integer
For i = 2 To 61 Step 2
For j = 1 To 5
Range(Cells(i, j), Cells(i + 1, j)).MergeCells = True
Next
Next
End Sub
これでOK？
| - Excel VBA 質問スレ Part34
218 ：デフォルトの名無しさん[sage]：2014/07/22(火) 23:31:58.74 ID:JAupmXZX - あ、開始位置間違えたかw
|
|