我也发一存货的

小安

请半条毛毛和各位大侠指教.还想向你请教些问题：

Private Sub CommandButton2_Click() [j3] = [j3] + 1 With Sheets("入库明细") For i = 6 To [b65536].End(xlUp).Row （i是什么参数，为什么取i=6) t = .[b65536].End(xlUp).Row （t是什么参数，) If Cells(i, "g") <> "" Then (这行是什么意思？） .Range("a" & t + 1) = Range("c" & i) .Range("b" & t + 1) = Range("d" & i) .Range("c" & t + 1) = Range("e" & i) .Range("d" & t + 1) = Range("f" & i) .Range("e" & t + 1) = Range("g" & i) .Range("f" & t + 1) = Range("h" & i) .Range("g" & t + 1) = Range("i" & i) .Range("h" & t + 1) = Range("j" & i) .Range("i" & t + 1) = Range("k" & i) .Range("j" & t + 1) = [d3] .Range("k" & t + 1) = [d4] .Range("l" & t + 1) = [f3] .Range("m" & t + 1) = [f4] .Range("n" & t + 1) = [j3] .Range("o" & t + 1) = [j4] End If Next i End With Range("c6:c15,d3,d4,f4,j4,g6:g15,j6:j15").Select Range("d3").Activate Selection.ClearContents Range("d3").Select End Sub

请问上段VBA是什么意思？

[此贴子已经被作者于2005-7-19 15:32:03编辑过]

steedch

呵,,向楼主学习.

mcy318

楼主，请教一下，你的那个一打开就出现了框，我不想让他先出现，等点了“显示”后才出现可以办到吗？而不点显示就不会出现这样能办到吗，如何修改？

半条毛毛虫

感谢诸位网友支持，说老实话，我也是在论坛的几位前辈的指导下编的这个东东，现在也不甚了了。i t 等不过是一个代替的符号，我试过了，用其他字母也可以，因为我要改变的是从第6行开始所以选择的是6，下面那一大堆的意思，其实就是把数据转化到相应的表中的单元格，并且可以向下增加行数，我看过关于for……to 、if……then之类的VB语言，但是等我把这个编完了，却找不到了，我觉得最重要的是要知道自己需要做什么，达到什么目的，然后就好请教了，学起来也快。不过由于我根本不懂编程，所以上面的解释很含糊，不知道您听懂了没有（我连英语都不会，学VB太困难了）楼上这位朋友的问题，我回答不了

半条毛毛虫

For i = 9 To [a65536].End(xlUp).Row　　‘执行循环语句，条件是ｉ小于或等于　[a65536].End(xlUp).Row　（表示ａ列有效数据的行数）　 t = .[a65536].End(xlUp).Row　’将ａ列有效行数附值给ｔ变量。 If Cells(i, "f") <> "" Then　‘判断语句，“ｆ”表示ｆ列，所以ｃｅｌｌｓ（ｉ，“ｆ”）表示ｆ列第ｉ行。

找到了一个前辈给我回的帖子，很专业，供参考

mcy318

楼主请问，点入库入录后，出现的表不是最大化的，我要求他最大化如何办理？

半条毛毛虫

手动把表的边框拉到最大，应该就可以了（不能点击最大化）

mcy318

Application.WindowState = xlNormal

这话是什么意思，就是这话的原故才变成小窗口的。去掉后就没了。

小安

谢谢半条毛毛虫先生，明白了。

tmcy318,在VBA中用Application.WindowState = xlMaximized替换Application.WindowState = xlNormal就可以最大化打开窗口了。

[此贴子已经被作者于2005-7-27 17:01:20编辑过]

mcy318

以下是引用小安在2005-7-27 17:01:00的发言：

谢谢半条毛毛虫先生，明白了。

tmcy318,在VBA中用Application.WindowState = xlMaximized替换Application.WindowState = xlNormal就可以最大化打开窗口了。

其实我把Application.WindowState = xlNormal这句删除也能达到最大化的效果，那加了Application.WindowState = xlMaximized又有何意思呀？