作者catjimmy (cat)
看板Visual_Basic
标题[徵求] VBA问题请教...
时间Tue Apr 21 15:15:06 2009
※ [本文转录自 Wanted 看板]
作者: catjimmy (cat) 看板: Wanted
标题: [徵求] VBA问题请教...
时间: Tue Apr 21 15:05:24 2009
原PO有EXCEL的VBA问题想要问..
小弟是VBA真新手，可能问的问题有点好笑或白痴
但小弟也认真的爬过文找过文件了~"~
由於时间急迫还是来请各位大大不吝指教
构想如下
1. 使用者自行选取要处理的资料范围
2. 判断资料内容是否为3列
3. 增加新工作表，名称"SSI"
4. FOR回圈读取每栏资料，交给自订方法ToSsi处理资料
5. ToSsi判断A1储存格是否为为空，否则由最後一笔後一格写起
6. 设定第一笔资料
目前大概写到这边，可是无法执行，想不出是甚麽问题，想请各位高手帮忙解惑
下面是程式码
Public Sub SelectRange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 3 Then
Worksheets.Add
Sheets.Name = "SSI"
For i = 1 To Target.Row
ToSsi (Target.Rows(i))
End If
End Sub
Public Sub ToSsi(ByVal RowValue As Range)
Dim RowCount As Integer
If Sheets("SSI").Range("a1") = Empty Then
RowCount = Sheets("SSI").Range("a65536").End(xlUp).Row + 1
Cells(1, RowCount) = "[POSITION_STD_0001]"
End Sub
请各位指点了>"<
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 219.68.89.11
1F：→ rheingold:我只接受女性的委托...XD 04/21 15:19
2F：→ catjimmy:囧...夹起来...? 04/21 15:28
※ 编辑: catjimmy 来自: 219.68.89.11 (04/21 17:52)
※ catjimmy:转录至看板 Office 04/21 17:53