|
|
|
|
| ****************************************
| | 2018/10/24 | 《VBA中，窗体控件中添加日期控件并赋值》 |
网址：
VBA中，窗体控件中添加日期控件并赋值，如图。谢谢大家！！
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/10/23 | 《vba中的变量表示》 |
|
L=k+i 是否可以这么写： k=k+i
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/10/23 | 《vba中，输入到指定位置，X,Y定位问题，解决了》 |
|
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
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/10/23 | 《for...to》 |
|
For i = 2 To 30 （结束语为Next） If ......... Then（结束语为End if） If DTPicker1.Value = Cells(1, j) Then Cells(i, j) = TextBox2.Value End End If End If Next Next
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/10/23 | 《vba，停止循环结束程序》 |
|
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
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(i, j) = TextBox2.Value
End
End If
End If
End If
End If
Next
Next
Next
Next
MsgBox ("ok")
End Sub
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/10/22 | 《ExcelHome - 全球极具影响力的Excel门户》 |
|
网址：
ExcelHome - 全球极具影响力的Excel门户 - VBA |
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/10/21 | 《日记显示页面做了调整》 |
|
因教室显示器较小，日记显示页面做了调整，从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>
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/10/21 | 《vba中，输入到指定位置，X,Y定位问题》 |
|
vba中，X,Y定位时，X轴找到姓名后判断科目的思路： 1.固定课程排列，搜索到名字再向右一列，如⑴数学，⑵物理，⑶化学等。窗体中添加选项，来判断123行。 2.二次搜索，名字再向右一列，根据窗体中添加的选项，来判断行。 3.课程前面，都加上名字，先比对第一列里，找出符合条件的，再在第二列里找。要符合2列，来判断行。
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/10/20 | 《美化日记里搜索页面-边框》 |
|
美化日记里搜索 刚开始，比对尝试，不断出错。后搞清楚代码作用，立马ok 第1段：包裹图片的边框（495）； 第2段：包裹输入搜索内容框的边框（495）； 第3段：包裹结果列表边框的边框（495）； 第3-1：包裹结果列表的边框上部（460）； 第3-2：包裹结果列表的边框下部（460）； 底部未完善，再加一层？
|
|
|
|
|
|
|