vba中，定义字符串，用双引号

 str1 = "ABCD" str2="abcd"

网址：

VBA中，窗体控件中添加日期控件并赋值，如图。谢谢大家！！

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

Private Sub CommandButton1_Click()

Dim i, j, k

   For i = 2 To 30
   For k = 2 To 30
   For j = 2 To 33
If TextBox1.Value = Cells(i, 1) Then

If TextBox3.Value = Cells(k, 2) Then
  If i = k Then
      If DTPicker1.Value = Cells(1, j) Then
        

   Cells(k, j) = TextBox2.Value
     End
     End If
       End If
           End If
       End If
        Next
        Next
         Next
       
MsgBox ("ok")
End Sub

方案2：

还可以考虑吧i赋值给k，即从i开始来定义k

Private Sub CommandButton1_Click()

Dim i, j, k, l

   For i = 2 To 30
   For k = 0 To 30
  
    For j = 2 To 33
   
If TextBox1.Value = Cells(i, 1) Then
l = k + i

If TextBox3.Value = Cells(l, 2) Then
  If i = k Then
   
      If DTPicker1.Value = Cells(1, j) Then
        

   Cells(l, j) = TextBox2.Value
     End
     End If
       End If
           End If
       End If
        Next
        Next
         Next
       
MsgBox ("ok")
End Sub

vba，停止循环结束程序：End

直接在msgbox后面使用end语句，比如
if a= 1 then
　　msgbox “错误退出”
　　end
end if

Private Sub CommandButton1_Click()

Dim i, j

   For i = 2 To 30
    For j = 2 To 33
If TextBox1.Value = Cells(i, 1) Then
 
   
      If DTPicker1.Value = Cells(1, j) Then
        

   Cells(i, j) = TextBox2.Value
     End
     End If
       End If
        Next
         Next
       
MsgBox ("ok")
End Sub

Dim i, j, k

   For i = 2 To 30
   For k = 2 To 30
  
    For j = 2 To 33
   
If TextBox1.Value = Cells(i, 1) Then

If TextBox3.Value = Cells(k, 2) Then
  If i = k Then
   
      If DTPicker1.Value = Cells(1, j) Then
        

   Cells(i, j) = TextBox2.Value
     End
     End If
       End If
           End If
       End If
        Next
         Next
        Next
         Next
       
MsgBox ("ok")
End Sub

因教室显示器较小，日记显示页面做了调整，从500调到了470

<table id="oblog_Container" class="oblog_Body" height="470" width="100%" cellpadding=3 cellspacing=0 border=0 >
<tr><td><table cellpadding=0 cellspacing=0>
</td></tr></table>