返回列表下一主題上一主題發帖

[發問] 寫判斷式如果跳脫用的數值要從原始資料中抓取該如何是好

Ackroyd

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: Windows
軟體版本: Win7
閱讀權限: 10
性別: 女
來自: Taichung
註冊時間: 2015-6-13
最後登錄: 2015-6-22

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-6-19 17:46 | 只看該作者

[發問] 寫判斷式如果跳脫用的數值要從原始資料中抓取該如何是好

本帖最後由 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

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2015-6-19 23:54 | 只看該作者

回復 1# Ackroyd

1.ActiveSheet不需要在每個地方都使用
2.您的程式碼可以再簡短許多,未來比較容易維護

您附檔案
幫您看比較快

PKKO

TOP

koo

中學生 Rank: 2

帖子: 60
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: w7-32
軟體版本: 2013.2003
閱讀權限: 20
註冊時間: 2014-11-23
最後登錄: 2016-6-6

3^#

發表於 2015-6-20 07:09 | 只看該作者

'不太會看程序請參考一下
Sub xx()
lastrow = [A65536].End(xlUp).Row ''判斷最後一列
For j = 1 To lastrow
xr = Cells(j, 1)
For i = 1 To xr
Cells(i, 4) = Cells(i, 4) / xr ''用自己除
Next
Next
End Sub

TOP

GBKEE