按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
As Long； ByVal nIndex As Long； ByVal dwNewLong As Long） As Long
Private Const GWL_STYLE = （…16）
Private Const WS_THICKFRAME As Long = &H40000 '（恢复大小）
Private Const WS_MINIMIZEBOX As Long = &H20000 '（最小化）
Private Const WS_MAXIMIZEBOX As Long = &H10000 '（最大化）
Private Sub UserForm_Initialize（）
Dim hWndForm As Long
Dim IStyle As Long
hWndForm = FindWindow（〃ThunderDFrame〃； Me。Caption）
IStyle = GetWindowLong（hWndForm； GWL_STYLE）
CCXXIX
…………………………………………………………Page 230……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
IStyle = IStyle Or WS_THICKFRAME '还原
IStyle = IStyle Or WS_MINIMIZEBOX '最小化
IStyle = IStyle Or WS_MAXIMIZEBOX '最大化
SetWindowLong hWndForm； GWL_STYLE； IStyle
End Sub
017。这个判断代码怎么写
在A列输入日期，如果所输入日期为1月1 日或5月1 日则B列相关单元格＋1；其他日期＋0；这要用
到什么函数？代码怎么写？谢谢！
解答：用IF函数或用Worksheet_Change事件
Private Sub Worksheet_Change（ByVal Target As Range）
If Target。Column = 1 Then
If IsDate（Target） Then
If （Month（Target） = 1 And Day（Target） = 1） Or （Month（Target） = 5 And Day（Target） = 1）
Then
Target。Offset（0； 1） = Target。Offset（0； 1） ＋ 1
End If
End If
End If
End Sub
018。这个汇总表拆分程序怎么写，高手帮忙！
要将总表里的数据按工作单位字段拆分成数个分表（每个单位一张表格，标签名字为工作单位）
这个程序怎么编写，请高手指点。如果记录增多或字段增多（但拆分字段不增）这个程序又应
该怎样改写，请高手稍微讲解一下，应为我不是为这一个表，还想用到别的工作表中，谢谢！
解答：Sub Add_data（sht_Name） '找出要取资料的区域
Dim i As Integer； j As Integer； row_d As Integer
Dim First_row As Integer； Last_row As Integer
On Error Resume Next
With Sheets（〃总表〃）
i = 1
Do Until 。Cells（i； 3）。value = sht_Name
i = i ＋ 1
Loop
First_row = i
j = First_row
Do Until 。Cells（j； 3） sht_Name
j = j ＋ 1
Loop
Last_row = j 1
End With
Sheets（〃总表〃）。Range（Cells（First_row； 1）； Cells（Last_row； 12））。Select
Selection。Copy
CCXXX
…………………………………………………………Page 231……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
Sheets（sht_Name）。Select
Range（〃A2〃）。Select
ActiveSheet。Paste
With ActiveSheet
row_d = 。Range（〃A2〃）。End（xlDown）。Row ＋ 1
Range（〃B〃 & row_d）。value = 〃合计〃
For i = 5 To 11
Cells（row_d； i）。value = Application。WorksheetFunction。Sum（Range（Cells（2； i）； Cells（row_d
1； i）））
Next i
End With
Sheets（〃总表〃）。Activate
Range（〃A2〃）。Select
End Sub
020。这个公式应该怎么写？
我想统计所有物料编码的第一个字符为a的库存数量的总和，这个公式应该怎么写？A列为物
料编码；B列为库存数量。
解答：=SUMIF（A：A；〃a*〃；B：B）
021。样修改此宏？
下面的宏是k版主帮我写的，从文件夹内汇入其他工作表表格。汇入范围为第五行、第L列。
如汇入范围改为第三行、第R列。
怎样修改此宏？
Public Sub Feed_in2（）
Dim Row_dn； Row_dn1； i； j； k； m As Integer
Dim Path1； Str1 As String
Dim wb As Workbook
Row_dn = ＇B65536＇。End（xlUp）。Row
Path1 = Application。ActiveWorkbook。Path
Str1 = ActiveWorkbook。Name
k = 5
With Application
。EnableEvents = False
。ScreenUpdating = False
If Row_dn 》= 5 Then
Range（〃B5：L〃 & Row_dn）。ClearContents
End If
With 。FileSearch
CCXXXI
…………………………………………………………Page 232……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
。NewSearch
。LookIn = Path1
。FileType = msoFileTypeExcelWorkbooks
If 。Execute