简单写个工具
来源:互联网 发布:怎么获得淘宝新品标签 编辑:程序博客网 时间:2024/05/25 20:00
明天周一了,又要开始一周的工作了, 为了下周顺利工作,临阵写了个简单工具的雏形,又不能给公司发mail,也用不了usb, 只好把代码贴到这了。
Const TableSpace As Integer = 4
Private Sub CommandButton1_Click()
Call setTableData
End Sub
Sub setTableData()
Dim intFromColumn As Integer
Dim intFromRow As Integer
Dim intFlagTableColumn As Integer
Dim intToTableColumn As Integer
intFromColumn = 2
intFromRow = 2
intFlagTableColumn = 1
intToTableColumn = 6
Dim strFromColumnName As String
Dim strTableName As String
Dim strToTableName As String
Dim strFlag As String
Dim strValue As String
Dim strToColumn As String
strToTableName = Sheets("template").Cells(2, intToTableColumn).Value
Do While True
strFromColumnName = Sheets("template").Cells(intFromRow, intFromColumn).Value
strFlag = Sheets("template").Cells(intFromRow, intFlagTableColumn).Value
strToColumn = Sheets("template").Cells(intFromRow, intToTableColumn).Value
If strFlag = "True" Then
strTableName = strFromColumnName
Else
strValue = getData(strTableName, strFromColumnName)
If InStr(strValue, "is no") > 1 Then
Call setData(strToTableName, strToColumn, strValue)
Exit Do
End If
strValue = setData(strToTableName, strToColumn, strValue)
End If
intFromRow = intFromRow + 1
If intFromRow > 1000 Then
Exit Do
End If
Loop
End Sub
Function getData(ByVal strTableName As String, ByVal strColumnName) As String
Dim intTableRow As Integer
Dim intColumn As Integer
Dim strColumn As String
Dim strTName As String
Dim intScanColumn As Integer
intColumn = 2
intTableRow = 1
Do While True
strTName = Sheets("Data").Cells(intTableRow, intColumn).Value
If strTableName = strTName Then
Exit Do
End If
intTableRow = intTableRow + 1
If intTableRow > 1000 Then
getData = "there is no table" + strTableName
Exit Do
End If
Loop
intScanColumn = 2
Do While True
strColumn = Sheets("Data").Cells(intTableRow + TableSpace, intScanColumn).Value
If strColumn = strColumnName Then
getData = Sheets("Data").Cells(intTableRow + TableSpace + 1, intScanColumn).Value
Exit Do
End If
intScanColumn = intScanColumn + 1
If intScanColumn > 1000 Then
getData = "there is no column" + strColumnName
Exit Do
End If
Loop
End Function
Function setData(ByVal strTableName As String, ByVal strColumnName, ByVal strValue As String) As String
Dim intTableRow As Integer
Dim intColumn As Integer
Dim strColumn As String
Dim strTName As String
Dim intScanColumn As Integer
intColumn = 2
intTableRow = 1
Do While True
strTName = Sheets("Sheet3").Cells(intTableRow, intColumn).Value
If strTableName = strTName Then
Exit Do
End If
intTableRow = intTableRow + 1
If intTableRow > 1000 Then
setData = "there is no table" + strTableName
Exit Do
End If
Loop
intScanColumn = 2
Do While True
strColumn = Sheets("Sheet3").Cells(intTableRow + TableSpace, intScanColumn).Value
If strColumn = strColumnName Then
Sheets("Sheet3").Cells(intTableRow + TableSpace + 1, intScanColumn).Value = strValue
Exit Do
End If
intScanColumn = intScanColumn + 1
If intScanColumn > 255 Then
setData = "there is no column" + strColumnName
Exit Do
End If
Loop
End Function
- 简单写个工具
- 写个vc工具
- makefile太难了,学不会,自己用Python写个简单的构建工具
- 写个简单的makefile
- 写个简单string类
- 自己写了个魔兽显血改键工具
- 主题:用Python写个翻译工具
- 写了个代码统计工具
- SharedPreferences改造,写个工具类
- 简单的写日志工具类LogUtil
- 自己写的简单脱壳工具
- PyQt写的简单图像标注工具
- 准备写个简单的wpf入门教程
- 写个简单的生成奇阶幻方程序!
- python 写个简单TUI日记本
- 写个一个简单的canvas图表
- 写个简单高效的BAT文件
- jsp页面写个简单计数器
- 逗号表达式
- PDC10与最后的恐慌者
- 1026: The Staircases
- PPTP服务器替代虚拟网卡(TAP)
- 用SQL实现结果集的各种转换----将结果集反向转置为一列
- 简单写个工具
- zoj 1331 Perfect Cubes
- P2P之NAT类型检测方法
- Ubuntu 10.04 下编译交叉工具链arm-linux-gcc 4.5.1
- 今天心情很好
- 呵呵,360杀毒弹出的
- 五虎大将
- Codeforces Beta Round #38 G Queue 动态树
- NAT分类介绍及其打洞的思考