本文目录
- 需要一个VBA写的完整源码
- 我想把图一中的车牌号挨个录入图二中B4单元格，自动录入每一条信息并打印，求VBA源代码！
- 求EXCEL VBA 进销存系统（源代码开放），适用小型酒水批发！Q:154029330
- excelVBA问题求这一部分功能的源代码，急急急！！！！如果要所有要求请留言
- 哪位大师有VB.NET编写的快递单打印源代码提供参考一下，十分感谢！！！
- VBA多点拟合圆心代码
- excel怎么保存vba代码
需要一个VBA写的完整源码
Public Sub aaa()Dim filename, inputstring As StringDim i As IntegerDim datai = 1filename = "d:\文本文档.txt"Open filename For Input Access Read As #1Do While Not EOF(1) Line Input #1, inputstring ’读一行 data = Split(inputstring, " ") For j = 1 To 100 ActiveSheet.Cells(i, j) = data(j) ’加条件，需要导入的行列 Next j i = i + 1LoopClose #1End Sub
我想把图一中的车牌号挨个录入图二中B4单元格，自动录入每一条信息并打印，求VBA源代码！
VBA代码如下：
Option ExplicitSub 宏1() Dim r As Range For Each r In Sheets(1).Range("a1:a4") Sheets(2).Range("b1") = r Sheets(2).PrintOut Next rEnd Sub
求EXCEL VBA 进销存系统（源代码开放），适用小型酒水批发！Q:154029330
建议还是用可执行程序的进销存，Excel当作进销存用不是不行，但太小众了免费的进销存很多的，比如 飚风商业进销存 免费版，你可以百度一下下载地址，很容易找的。
excelVBA问题求这一部分功能的源代码，急急急！！！！如果要所有要求请留言
在表一中的B1单元格输入,然后往下拉就可以了.=VLOOKUP(A1,Sheet2!A:B,2,0)
哪位大师有VB.NET编写的快递单打印源代码提供参考一下，十分感谢！！！
用vba编写快递单打印模板的源代码是很长的，因为用Excel打印快递单是个系统工程！
***隐藏网址***
小部分代码：
Sub myprint_out()
Dim i%
For i = 1 To gs
sheets("模板").PrintOut Copies:=1, From:=1, To:=1
Next
End Sub
VBA多点拟合圆心代码
在对应地方输入半径各8点坐标再运行代码。
Sub yuan()Dim i As double, j As double, x0 As double, y0 As double, difr As integer, r As double, arr(-20 To 20, -20 To 20) As Doublex1 = Range("b3").Valuex2 = Range("b4").Valuex3 = Range("b5").Valuex4 = Range("b6").Valuex5 = Range("b7").Valuex6 = Range("b8").Valuex7 = Range("b9").Valuex8 = Range("b10").Valuey1 = Range("c3").Valuey2 = Range("c4").Valuey3 = Range("c5").Valuey4 = Range("c6").Valuey5 = Range("c7").Valuey6 = Range("c8").Valuey7 = Range("c9").Valuey8 = Range("c10").Valuer = Range("a3").Valuedifr = 100
For i = -20 To 20 Step 1 For j = -20 To 20 Step 1 k1 = Sqr((x1 - i) * (x1 - i) + (y1 - j) * (y1 - j)) k2 = Sqr((x2 - i) * (x2 - i) + (y2 - j) * (y2 - j)) k3 = Sqr((x3 - i) * (x3 - i) + (y3 - j) * (y3 - j)) k4 = Sqr((x4 - i) * (x4 - i) + (y4 - j) * (y4 - j)) k5 = Sqr((x5 - i) * (x5 - i) + (y5 - j) * (y5 - j)) k6 = Sqr((x6 - i) * (x6 - i) + (y6 - j) * (y6 - j)) k7 = Sqr((x7 - i) * (x7 - i) + (y7 - j) * (y7 - j)) k8 = Sqr((x8 - i) * (x8 - i) + (y8 - j) * (y8 - j)) arr(i, j) = (k1 - r) ^ 2 + (k2 - r) ^ 2 + (k3 - r) ^ 2 + (k4 - r) ^ 2 + (k5 - r) ^ 2 + (k6 - r) ^ 2 + (k7 - r) ^ 2 + (k8 - r) ^ 2 If (difr 》 arr(i, j)) Then difr = arr(i, j) x0 = i y0 = j End If Next jNext iRange("d3") = x0Range("e3") = y0Range("f2") = 1 - difr / (r * r)
End Sub
局限性：拟合范围限定，要自己要根据估计范围改动i和j的范围；拟合程度不高，如果想提高拟合程度可以改step 1为step 0.1或step0.01但越往后运行次数越多，对计算机要求也越高。我没装03版，我用的 excl2010测试可行，不知道2003版行不，但是在2007版以上应该都行。
excel怎么保存vba代码
有两种方法：1、直接保存在*.xls 文件内部。2、通过开发工具在VBA窗口菜单--》文件--》导出文件来保存VBA源代码文件。
