返回列表 上一主題 發帖

VBA巨集執行時好時壞。

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-5-14 17:07 | 只看該作者

VBA巨集執行時好時壞。

各位前輩：
小弟做了一個EXCEL巨集，在執行時會時好時壞。
請教不知應該如何處裡
  1. Sub COMBIN()
  2. '
  3.      
  4.    
  5.     Cells.Select
  6.         
  7.     Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
  8.         xlByRows, MatchCase:=False
  9.    
  10.     Range("c1").Select
  11.     ActiveCell.FormulaR1C1 = "chkno"
  12.    
  13.     Call chkno
  14.    
  15.      Range("d1").Select
  16.    
  17. End Sub
  18. Sub chkno()
  19. '
  20. '
  21. Dim myrow As Long

  23. Dim i As Integer
  24.     myrow = Range("a1").End(xlDown).Row
  25.     For i = 2 To myrow
  26.       
  27.         Selection.NumberFormatLocal = "@"
  28.         
  29.         
  30.        'If Not IsError(Cells(i, 1) <= 99999 And Cells(i, 2) <= 999) Then
  31.         If Not IsError(Cells(i, 1).NumberFormatLocal = "0" And Cells(i, 4).NumberFormatLocal = "0") Then
  32.           Cells(i, 3).Value = _
  33.           String(6 - Len(Cells(i, 1)), "0") & Cells(i, 1) & String(4 - Len(Cells(i, 2)), "0") & Cells(i, 2)
  34.          
  35.        ElseIf Not IsError(Cells(i, 1).NumberFormatLocal = "@" And Cells(i, 4).NumberFormatLocal = "0") Then
  36.           Cells(i, 3).Value = _
  37.           Cells(i, 1) & String(4 - Len(Cells(i, 2)), "0") & Cells(i, 2)
  38.          
  39.        ElseIf Not IsError(Cells(i, 1).NumberFormatLocal = "0" And Cells(i, 2).NumberFormatLocal = "@") Then
  40.           Cells(i, 3).Value = _
  41.           String(6 - Len(Cells(i, 1)), "0") & Cells(i, 3) & String(4 - Len(Cells(i, 2)), "0") & Cells(i, 2)
  42.        Else
  43.                  
  44.           Cells(i, 3).Value = Cells(i, 1) & Cells(i, 2)
  45.        End If
  46.               
  47.     Next i
  48.   
  49. End Sub
複製代碼
如附件 COMBIN.rar (9.88 KB)
收藏 分享
lionliu

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
2#
發表於 2014-5-15 11:15 | 只看該作者
本帖最後由 lionliu 於 2014-5-15 11:18 編輯

回復 1# lionliu
我的主要問題是C欄由A、B欄合併而成
A欄不足6位數前面0 ，B欄不足4位數前面補0
      A              B                 C
23456          23      0234560023
若是文字模式就可以，若數字模式就會出錯。
若是由另一個巨集呼叫主程式一定會錯，單純跑主程式則不一定。
lionliu

TOP

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
3#
發表於 2014-5-17 09:56 | 只看該作者
本帖最後由 lionliu 於 2014-5-17 09:59 編輯

回復 2# lionliu

不好意思
進入誤區
我只要將 c欄直接改為文字既可
Sub chkno()
Dim myrow As Long
Dim i As Integer
    myrow = Range("a1").End(xlDown).Row
    For i = 2 To myrow
       Cells(i, 3).NumberFormatLocal = "@"
        
          Cells(i, 3).Value = _
          String(6 - Len(Cells(i, 1)), "0") & Cells(i, 1) & String(4 - Len(Cells(i, 2)), "0") & Cells(i, 2)
End sub
這樣就ok了
不知會不會有bug待觀察
lionliu

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題