日记首页V1.0


	日记首页 \| 列表 \| 添加日记 \| 管理登陆


	标题：vba中，输入到指定位置，X,Y定位问题，解决了

vba中，输入到指定位置，X,Y定位问题，解决了，方案1：Private Sub CommandButton1_Click()Dim i, j, k&nbsp;&nbsp; For i = 2 To 30 &nbsp;&nbsp; For k = 2 To 30 &nbsp;&nbsp;&nbsp;For j = 2 To 33 If TextBox1.Value = Cells(i, 1) ThenIf TextBox3.Value = Cells(k, 2) Then &nbsp; If i = k Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If DTPicker1.Value = Cells(1, j) Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; Cells(k, j) = TextBox2.Value &nbsp;&nbsp;&nbsp;&nbsp; End &nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox ("ok") End Sub<hr>方案2：还可以考虑吧i赋值给k，即从i开始来定义kPrivate Sub CommandButton1_Click()Dim i, j, k, l&nbsp;&nbsp; For i = 2 To 30 &nbsp;&nbsp; For k = 0 To 30 &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; For j = 2 To 33 &nbsp;&nbsp;&nbsp; If TextBox1.Value = Cells(i, 1) Then l = k + iIf TextBox3.Value = Cells(l, 2) Then &nbsp; If i = k Then &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If DTPicker1.Value = Cells(1, j) Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; Cells(l, j) = TextBox2.Value &nbsp;&nbsp;&nbsp;&nbsp; End &nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox ("ok") End Sub