[徵求] VBA問題請教...
※ [本文轉錄自 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
→
04/21 15:19, , 1F
04/21 15:19, 1F
→
04/21 15:28, , 2F
04/21 15:28, 2F
※ 編輯: catjimmy 來自: 219.68.89.11 (04/21 17:52)
※ catjimmy:轉錄至看板 Office 04/21 17:53