返回列表 上一主題 發帖

[發問] 型態不符和

alex520188

帖子
31 
主題
12 
精華
0 
積分
69 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-8-19 
最後登錄
2016-1-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-11-19 10:51 | 只看該作者

[發問] 型態不符和

各位前輩好

請問這段語法 紅字部份哪邊撰寫錯誤  他一直出現型態不符和

紅字部份 我要寫入的條件式是B2這個儲存格的位置

還請各位前輩多多指點
  1. Sub 鋼筋計():D
  2.   
  3. Dim I%, J%, k%                         '宣告變數
  4. Dim current As Worksheet
  5. 'For Each current In Worksheets         '對所有活頁簿作處理
  6. 'current.Select

  8. J = 1
  9. Do While Cells(1, J) <> "量測值"        '滿足條件時執行以下動作
  10. J = J + 1
  11. Loop
  12. J = J - 1
  13. Columns(J).Insert Shift:=xlToRight     '向右插入一欄
  14. k = Range("a:a").End(xlDown).Row       '取得A欄最後一格有資料的值
  15. Range(Columns(J + 1).Rows(2), Columns(J + 2).Rows(k)).Clear  '欄位數值清除
  16. Cells(1, J) = Now()                    '鍵入時間
  17. For I = 2 To k Step 1
  18.     If Cells(I, (J - 1)) - Cells(I, (J - 2)) > 0 Then
  19.         Randomize                      '若相減大於0 跑負亂數
  20.         Cells(I, J) = Round(((-1 - -3) * Rnd + -3), 1) + Cells(I, (J - 1))
  21.             ElseIf Cells(I, (J - 1)) - Cells(I, (J - 2)) < 0 Then
  22.                 Randomize              '若相減小於0 跑正亂數
  23.                 Cells(I, J) = Round(((2 - 1) * Rnd + 1), 1) + Cells(I, (J - 1))
  24.         Else
  25.             Cells(I, J) = ""           '以上條件不成立則為空字串
  26.     End If
  27. If Cells(I, J) - Cells(I, (J - 2)) = 0 Then
  28.     Call 等於0
  29. End If
  30.     With Cells(I, J + 1)               '求得兩者差異
  31.         .Formula = "=IF(ISBLANK(" & .Offset(0, -1).Address & "),""""," & .Offset(0, -1).Address & " - " & .Offset(0, -2).Address & ")"
  32.         With Cells(I, J + 2)           '求得量測值
  33.             .Formula = "=IF(ISBLANK(" & .Offset(0, -2).Address & "),""""," & "c" & I & "+(Round(" & .Offset(0, -2).Address & [color=Red]" / " & .Offset(0, ".End(xlleft)+2).Address,0) ")[/color]
  34.         End With
  35.     End With
  36. If Cells(I, J) = "" Then               '當此為空字
  37.     Cells(I, J + 1) = ""               '則顯示空字串
  38.     Cells(I, J + 2) = ""
  39. End If
  40. Next I
  41. Set current = Nothing                  '釋放物件變數
  42. 'Next current
  43. MsgBox "Worksheets working Success!!"  '訊息提示
  44. End Sub
複製代碼
收藏 分享

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2014-11-20 04:05 | 只看該作者
各位前輩好

請問這段語法 紅字部份哪邊撰寫錯誤  他一直出現型態不符和

紅字部份 我要寫入的條件式是 ...
alex520188 發表於 2014-11-19 10:51

紅字是指 For Each current In Worksheets  這一行嗎?
我執行起來沒問題喔.
  1. Sub 鋼筋計()
  2.   
  3. Dim I%, J%, k%                         '宣告變數
  4. Dim current As Worksheet
  5. For Each current In Worksheets         '對所有活頁簿作處理
  6. current.Select

  8. J = 1
  9. Do While Cells(1, J) <> "量測值"        '滿足條件時執行以下動作
  10. J = J + 1
  11. Loop
  12. J = J - 1
  13. Columns(J).Insert Shift:=xlToRight     '向右插入一欄
  14. k = Range("a:a").End(xlDown).Row       '取得A欄最後一格有資料的值
  15. Range(Columns(J + 1).Rows(2), Columns(J + 2).Rows(k)).Clear  '欄位數值清除
  16. Cells(1, J) = Now()                    '鍵入時間
  17. For I = 2 To k Step 1
  18.     If Cells(I, (J - 1)) - Cells(I, (J - 2)) > 0 Then
  19.         Randomize                      '若相減大於0 跑負亂數
  20.         Cells(I, J) = Round(((-1 - -3) * Rnd + -3), 1) + Cells(I, (J - 1))
  21.             ElseIf Cells(I, (J - 1)) - Cells(I, (J - 2)) < 0 Then
  22.                 Randomize              '若相減小於0 跑正亂數
  23.                 Cells(I, J) = Round(((2 - 1) * Rnd + 1), 1) + Cells(I, (J - 1))
  24.         Else
  25.             Cells(I, J) = ""           '以上條件不成立則為空字串
  26.     End If
  27. If Cells(I, J) - Cells(I, (J - 2)) = 0 Then
  28.     'Call 等於0
  29. End If
  30.     With Cells(I, J + 1)               '求得兩者差異
  31.         .Formula = "=IF(ISBLANK(" & .Offset(0, -1).Address & "),""""," & .Offset(0, -1).Address & " - " & .Offset(0, -2).Address & ")"
  32.         With Cells(I, J + 2)           '求得量測值
  33.             '.Formula = "=IF(ISBLANK(" & .Offset(0, -2).Address & "),""""," & "c" & I & "+(Round(" & .Offset(0, -2).Address & [color=Red]" / " & .Offset(0, ".End(xlleft)+2).Address,0) ")[/color]
  34.         End With
  35.     End With
  36. If Cells(I, J) = "" Then               '當此為空字
  37.     Cells(I, J + 1) = ""               '則顯示空字串
  38.     Cells(I, J + 2) = ""
  39. End If
  40. Next I
  41. Set current = Nothing                  '釋放物件變數
  42. Next current
  43. MsgBox "Worksheets working Success!!"  '訊息提示
  44. End Sub
複製代碼

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題