http://wiki.tomtalk.net/index.php?action=history&feed=atom&title=Excel
Excel - 版本历史
2026-04-24T09:40:24Z
本wiki的该页面的版本历史
MediaWiki 1.24.2
http://wiki.tomtalk.net/index.php?title=Excel&diff=5616&oldid=prev
2019年6月28日 (五) 09:17 Tom
2019-06-28T09:17:40Z
<p></p>
<table class='diff diff-contentalign-left'>
<col class='diff-marker' />
<col class='diff-content' />
<col class='diff-marker' />
<col class='diff-content' />
<tr style='vertical-align: top;'>
<td colspan='2' style="background-color: white; color:black; text-align: center;">←上一版本</td>
<td colspan='2' style="background-color: white; color:black; text-align: center;">2019年6月28日 (五) 09:17的版本</td>
</tr><tr><td colspan="2" class="diff-lineno">第1行：</td>
<td colspan="2" class="diff-lineno">第1行：</td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">==第一个vba程序==</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div><source lang="qbasic"></div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div><source lang="qbasic"></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>Sub format()</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>Sub format()</div></td></tr>
</table>
Tom
http://wiki.tomtalk.net/index.php?title=Excel&diff=5615&oldid=prev
2019年6月28日 (五) 09:17 Tom
2019-06-28T09:17:15Z
<p></p>
<table class='diff diff-contentalign-left'>
<col class='diff-marker' />
<col class='diff-content' />
<col class='diff-marker' />
<col class='diff-content' />
<tr style='vertical-align: top;'>
<td colspan='2' style="background-color: white; color:black; text-align: center;">←上一版本</td>
<td colspan='2' style="background-color: white; color:black; text-align: center;">2019年6月28日 (五) 09:17的版本</td>
</tr><tr><td colspan="2" class="diff-lineno">第1行：</td>
<td colspan="2" class="diff-lineno">第1行：</td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><source lang="<del class="diffchange diffchange-inline">vba</del>"></div></td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><source lang="<ins class="diffchange diffchange-inline">qbasic</ins>"></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>Sub format()</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>Sub format()</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>     Worksheets(2).Range("A1:G200").ClearFormats</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>     Worksheets(2).Range("A1:G200").ClearFormats</div></td></tr>
</table>
Tom
http://wiki.tomtalk.net/index.php?title=Excel&diff=5614&oldid=prev
Tom：创建页面，内容为“<source lang="vba"> Sub format() Worksheets(2).Range("A1:G200").ClearFormats End Sub Sub take_out_course() '选出能开课的选修课，生成数组 Di...”
2019-06-28T09:16:28Z
<p>创建页面，内容为“<source lang="vba"> Sub format() Worksheets(2).Range("A1:G200").ClearFormats End Sub Sub take_out_course() '选出能开课的选修课，生成数组 Di...”</p>
<p><b>新页面</b></p><div><source lang="vba"><br />
Sub format()<br />
Worksheets(2).Range("A1:G200").ClearFormats<br />
End Sub<br />
Sub take_out_course()<br />
'选出能开课的选修课，生成数组<br />
Dim n As Integer<br />
n = 0<br />
Dim course_name_array() As String<br />
For i = 1 To 100<br />
course_name = Worksheets(1).Range("A" & i).Value<br />
course_valid = Worksheets(1).Range("F" & i).Value<br />
<br />
If course_name = "" Then<br />
Exit For<br />
End If<br />
<br />
If course_valid = "是" Then<br />
'Ctrl+G调出“立即窗口”查看<br />
Debug.Print course_name<br />
ReDim Preserve course_name_array(n)<br />
course_name_array(n) = course_name<br />
n = n + 1<br />
End If<br />
Next i<br />
<br />
Debug.Print ""<br />
<br />
'复制sheet2第一行标题到sheet3<br />
Worksheets(3).Cells(1, 1).Value = "姓名"<br />
Worksheets(3).Cells(1, 2).Value = "第1申报课程"<br />
Worksheets(3).Cells(1, 3).Value = "第2申报课程"<br />
Worksheets(3).Cells(1, 4).Value = "第3申报课程"<br />
<br />
'遍历每位同学<br />
row_n = 2<br />
col_n = 2<br />
Do While Worksheets(2).Cells(row_n, col_n).Value <> ""<br />
'复制同学姓名sheet3<br />
Worksheets(3).Cells(row_n, col_n - 1).Value = Worksheets(2).Cells(row_n, col_n - 1).Value<br />
row_course_name = ""<br />
course_name = Worksheets(2).Cells(row_n, col_n).Value<br />
'遍历申报课程<br />
hit = 0<br />
Do While course_name <> ""<br />
row_course_name = row_course_name & course_name & " "<br />
'可申报则标记，否则置灰，3门以上全置灰<br />
For Each course_name_valid In course_name_array<br />
If course_name = course_name_valid Then<br />
'Worksheets(2).Cells(row_n, col_n).Font.FontStyle = "bold"<br />
Worksheets(2).Cells(row_n, col_n).Interior.Color = RGB(0, 176, 240)<br />
Worksheets(2).Cells(row_n, col_n).Font.Color = RGB(255, 255, 255)<br />
Worksheets(3).Cells(row_n, hit + 2).Value = course_name<br />
hit = hit + 1<br />
End If<br />
<br />
If hit >= 3 Then<br />
Exit For<br />
End If<br />
Next course_name_valid<br />
<br />
col_n = col_n + 1<br />
course_name = Worksheets(2).Cells(row_n, col_n).Value<br />
Loop<br />
col_n = 2<br />
<br />
'Debug.Print row_course_name<br />
row_n = row_n + 1<br />
Loop<br />
End Sub<br />
</source></div>
Tom