|
|
|
|
| ****************************************
| | 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）； 底部未完善，再加一层？
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/10/19 | 《日记中代码：居中开始字体为标题》 |
|
标题（Heading）是通过 <h1> - <h6> 等标签进行定义的。 <h1> 定义最大的标题。<h6> 定义最小的标题。
代码： <h1 align="center"><!-- 居中开始字体为标题--> .................其他代码
</h1><!-- 标签结束-->（这句也可以不写）
居中代码： <div align="center"><!-- 居中--> .................其他代码
</div><!-- 标签结束-->（这句也可以不写）
HTML <div> 和 <span>可以通过 <div> 和 <span> 将 HTML 元素组合起来。 HTML 块元素大多数 HTML 元素被定义为块级元素或内联元素。 编者注：“块级元素”译为 block level element，“内联元素”译为 inline element。 块级元素在浏览器显示时，通常会以新行来开始（和结束）。 例子：<h1>, <p>, <ul>, <table>
代码： align="right" 水平右对齐 valign="top" 垂直上对齐
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/10/19 | 《打开网址链接，不全部显示》 |
|
日记，发现问题： 在列表中打开网址链接，不全部显示，而在框架中显示。 在index中打开就正常。 参考：下页target="_top"
|
|
|
|
|
|
|