Excel 表1输入名子和楼号位置·表2·会在表格中自动找到户型位置填入名字

zopey

太兲真 发表于 2018-4-2 22:51
大神可否帮助我一下？万分感谢！！！

1、连续求和用   sum
2、分开求和用   +  +  +

手动添加求和公式，以后插入新行，sum公式的求和范围 自动会变化。

太兲真

zopey 发表于 2018-4-3 08:53
1、连续求和用   sum
2、分开求和用   +  +  +

我是想用条件求和

911QC

zopey 发表于 2018-4-2 09:38
Private Sub CommandButton1_Click()
If  = "" Then Exit Sub
For i = 4 To 9

现在的代码基础上·修改下··加上车位··和··3号4号楼代码·谢谢

wd007

谢谢高手，非常有用。

zopey

Private Sub CommandButton1_Click()
If [b3] = "" Then Exit Sub

k2 = Int(([b10] - 1) / 29)
k1 = [b10] - k2 * 29 + 1
k2 = (k2 + 1) * 2
Worksheets("车位").Cells(k1, k2).Value = [b3]


For i = 4 To 9

    If Cells(i, 2).Value = "" Then
       Exit Sub

    ElseIf Cells(i, 2).Value = 1 Then '1#楼
       I1 = 27 - Cells(i, 6).Value * 2
       If Cells(i, 8).Value = "" Then
          Exit Sub
       ElseIf Cells(i, 8).Value = "西" Then
          I2 = 10 - Cells(i, 4).Value * 2
       ElseIf Cells(i, 8).Value = "东" Then
          I2 = 11 - Cells(i, 4).Value * 2
       End If

    ElseIf Cells(i, 2).Value = 2 Then '2#楼
       I1 = 53 - Cells(i, 6).Value * 2
       If Cells(i, 8).Value = "" Then
          Exit Sub
       ElseIf Cells(i, 8).Value = "西" Then
          I2 = 10 - Cells(i, 4).Value * 2
       ElseIf Cells(i, 8).Value = "东" Then
          I2 = 11 - Cells(i, 4).Value * 2
       End If

    ElseIf Cells(i, 2).Value = 3 Then '3#楼
       I1 = 27 - Cells(i, 6).Value * 2
       If Cells(i, 8).Value = "" Then
          Exit Sub
       ElseIf Cells(i, 8).Value = "西" Then
          I2 = 19 - Cells(i, 4).Value * 2
       ElseIf Cells(i, 8).Value = "东" Then
          I2 = 20 - Cells(i, 4).Value * 2
       End If

    ElseIf Cells(i, 2).Value = 4 Then '4#楼
       I1 = 27 - Cells(i, 6).Value * 2
       If Cells(i, 8).Value = "" Then
          Exit Sub
       ElseIf Cells(i, 8).Value = "西" Then
          I2 = 26 - Cells(i, 4).Value * 3
       ElseIf Cells(i, 8).Value = "中" Then
          I2 = 27 - Cells(i, 4).Value * 3
       ElseIf Cells(i, 8).Value = "东" Then
          I2 = 28 - Cells(i, 4).Value * 3
       End If
    End If

    Worksheets("安置名单").Cells(I1, I2).Value = [b3]

Next

End Sub


安置表33.zip (24.8 KB, 下载次数: 9)

2018-4-8 08:44 上传

点击文件名下载附件

911QC

zopey 发表于 2018-4-8 08:45
Private Sub CommandButton1_Click()
If  = "" Then Exit Sub

谢谢··很好用··我正在学习中·