- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 3
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- Win7
- 閱讀權限
- 10
- 性別
- 女
- 來自
- Taichung
- 註冊時間
- 2015-6-13
- 最後登錄
- 2015-6-22
|
[發問] 寫判斷式如果跳脫用的數值要從原始資料中抓取該如何是好
本帖最後由 GBKEE 於 2015-6-20 14:16 編輯
小妹不才，寫了一段判斷原始EXCEL工作表中的表格車輛數
原始資料表格如下
可是跑程式時會出現資料型態不正確的錯誤訊息
程式如下
Sub 車輛多筆拆成一筆()
Dim car_num, last_row As Integer
Dim mycell As Range
ActiveSheet.Cells.SpecialCells(xlLastCell).Select
last_row = Selection.Row
For i = 1 To last_row
Set mycell = ActiveSheet.Cells(i, 2)
car_num = mycell.Value
If car_num > 1 Then
mycell.Interior.ColorIndex = 2
For j = 1 To car_num <-----錯誤出現行，所以是不能將資料表格中的值當作真正的數字去跑回圈嗎??可是這是唯一判斷的數值啊..求解 TT
mycell.Rows(i).Insert
mycell.Rows(i).Copy Destination:=mycell.Rows(i + j)
a = ActiveSheet.Cells(i, car_num).Value
ActiveSheet.Cells(i, car_num).Value = a / car_num
b = ActiveSheet.Cells(i, 8).Value
ActiveSheet.Cells(i, 8).Value = b / car_num
c = ActiveSheet.Cells(i, 9).Value
ActiveSheet.Cells(i, 9).Value = c / car_num
ActiveSheet.Cells(i, 11).Value = ActiveSheet.Cells(i, 9).Value * ActiveSheet.Cells(i, 10).Value
d = ActiveSheet.Cells(i, 12).Value
ActiveSheet.Cells(i, 12).Value = d / car_num
e = ActiveSheet.Cells(i, 13).Value
ActiveSheet.Cells(i, 13).Value = e / car_num
f = ActiveSheet.Cells(i, 14).Value
ActiveSheet.Cells(i, 14).Value = f / car_num
Next j
End If
Next i
End Sub |
|
發表於 2015-6-19 17:46
| 
