求教

keviner

请帮忙翻译此宏
Sub ribaobiao()
Worksheets("日报表").Range("a10", "l49") = ""
Worksheets("日报表").Cells(5, 1) = Worksheets("数据库").Cells(6, 2)
Worksheets("日报表").Cells(6, 2) = Worksheets("数据库").Cells(5, 2)
z = Worksheets("日报表").Cells(7, 2)
Worksheets("日报表").Cells(52, 2) = Worksheets("数据库").Cells(z + 7, 2)
Worksheets("日报表").Cells(55, 2) = Worksheets("数据库").Cells(z + 7, 3)

For q = 4 To 220 Step 4
If Worksheets("数据库").Cells(5, q) = "" Then
Exit For
End If
Worksheets("日报表").Cells(q / 4 + 9, 1) = q / 4
Worksheets("日报表").Cells(q / 4 + 9, 2) = Worksheets("数据库").Cells(5, q)
Worksheets("日报表").Cells(q / 4 + 9, 3) = Worksheets("数据库").Cells(6, q + 3)
Worksheets("日报表").Cells(q / 4 + 9, 4) = Worksheets("数据库").Cells(6, q + 1)
Worksheets("日报表").Cells(q / 4 + 9, 9) = Worksheets("数据库").Cells(z + 7, q)
Worksheets("日报表").Cells(q / 4 + 9, 10) = Worksheets("数据库").Cells(z + 7, q + 1)
Worksheets("日报表").Cells(q / 4 + 9, 11) = Worksheets("数据库").Cells(z + 7, q + 2)
Worksheets("日报表").Cells(q / 4 + 9, 12) = Worksheets("数据库").Cells(z + 7, q + 3)

x = 5

For e = q To q + 3

For w = 8 To 7 + z

  Worksheets("日报表").Cells(q / 4 + 9, x) = Worksheets("数据库").Cells(w, e) + Worksheets("日报表").Cells(q / 4 + 9, x)
Next w

x = x + 1
Next e

Next q

End Sub

shuyee

range(单元格地址)=...  设置单元格值
cells(行,列)=....  设置单元格值,如果是..=cells(..),是获取该单元格值
for...next  是程序循环控制

yiyiyicz

问错地方了，最好发到VBA板块
Sub ribaobiao()
Worksheets("日报表").Range("a10", "l49") = ""  《日报表》中区域（A10:Ll49）赋值为空
Worksheets("日报表").Cells(5, 1) = Worksheets("数据库").Cells(6, 2)  《日报表》中单元格A5（即第5行第1列）赋值为《数据库》单元格B6的内容
Worksheets("日报表").Cells(6, 2) = Worksheets("数据库").Cells(5, 2)
z = Worksheets("日报表").Cells(7, 2)
Worksheets("日报表").Cells(52, 2) = Worksheets("数据库").Cells(z + 7, 2)
Worksheets("日报表").Cells(55, 2) = Worksheets("数据库").Cells(z + 7, 3)

For q = 4 To 220 Step 4    循环从4到220，间隔为4
If Worksheets("数据库").Cells(5, q) = "" Then  当《数据库》在第5行第q列（q为循环变量）单元格为空
Exit For  跳出循环变量为q的循环体，后面的语句不执行，包括那两个循环体
End If
Worksheets("日报表").Cells(q / 4 + 9, 1) = q / 4
Worksheets("日报表").Cells(q / 4 + 9, 2) = Worksheets("数据库").Cells(5, q)
Worksheets("日报表").Cells(q / 4 + 9, 3) = Worksheets("数据库").Cells(6, q + 3)
Worksheets("日报表").Cells(q / 4 + 9, 4) = Worksheets("数据库").Cells(6, q + 1)
Worksheets("日报表").Cells(q / 4 + 9, 9) = Worksheets("数据库").Cells(z + 7, q)
Worksheets("日报表").Cells(q / 4 + 9, 10) = Worksheets("数据库").Cells(z + 7, q + 1)
Worksheets("日报表").Cells(q / 4 + 9, 11) = Worksheets("数据库").Cells(z + 7, q + 2)
Worksheets("日报表").Cells(q / 4 + 9, 12) = Worksheets("数据库").Cells(z + 7, q + 3)

x = 5  为x设置初值

For e = q To q + 3  

For w = 8 To 7 + z

  Worksheets("日报表").Cells(q / 4 + 9, x) = Worksheets("数据库").Cells(w, e) + Worksheets("日报表").Cells(q / 4 + 9, x)
Next w

x = x + 1
Next e

Next q

End Sub

shuyee

没错啊.这里也可回答的.