12
返回列表 上一主題 發帖

請問如何設定紀錄檔

tonycho33

帖子
102 
主題
30 
精華
0 
積分
137 
點名
0  
作業系統
winxp 
軟體版本
12 
閱讀權限
20 
性別
男 
註冊時間
2011-11-24 
最後登錄
2018-12-6 
11# 跳轉到 »
發表於 2011-12-19 15:37 | 只看該作者
加入後，出現資料型態不符 錯誤代碼：13
Tony

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
12#
發表於 2011-12-19 16:35 | 只看該作者
回復 11# tonycho33

Option Explicit
Sub Ex()
    Dim R As Integer, R1 As Integer, Rng As Range, Rng1 As Range, a As Range
     For Each a In Sheets("主檔").UsedRange
      a.Value = Trim(a)
    Next
    R = 2: R1 = 2
    Sheets("紀錄檔").UsedRange.Offset(1).Clear
    Sheets("主檔").Activate
    Do
        Set Rng = Sheets("主檔").Range(Cells(R, "D"), Cells(R, "D").End(xlToRight)).Resize(3)
            With Sheets("紀錄檔")
            .Cells(R1, "A") = Cells(R, "A")
            .Cells(R1, "B") = Cells(R, "B")
           R1 = R1 + 1
            .Cells(R1, "C").Resize(Rng.Columns.Count, 3) = Application.Transpose(Rng)
            .Cells(R1, "G").Resize(Rng.Columns.Count) = Cells(R, "C")
            R1 = R1 + Rng.Columns.Count
        End With
        R = R + 3
    Loop While Cells(R, "D") <> ""
End Sub

TOP

tonycho33

帖子
102 
主題
30 
精華
0 
積分
137 
點名
0  
作業系統
winxp 
軟體版本
12 
閱讀權限
20 
性別
男 
註冊時間
2011-11-24 
最後登錄
2018-12-6 
13#
發表於 2011-12-20 11:54 | 只看該作者
請問為什麼run起來後，執行很久,按esc則停留錯誤在Next上
a.Value = Trim(a)
     Next
Tony

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
14#
發表於 2011-12-20 12:09 | 只看該作者
回復 13# tonycho33

    excel 2003 執行無誤
    紀錄檔.zip (8.73 KB)

TOP

tonycho33

帖子
102 
主題
30 
精華
0 
積分
137 
點名
0  
作業系統
winxp 
軟體版本
12 
閱讀權限
20 
性別
男 
註冊時間
2011-11-24 
最後登錄
2018-12-6 
15#
發表於 2011-12-21 09:08 | 只看該作者
回復 4# GBKEE


    請問主檔sheet想轉成記錄檔2sheet
要怎麼改程式

紀錄檔.rar (3.39 KB)

Tony

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
16#
發表於 2011-12-21 09:49 | 只看該作者
本帖最後由 register313 於 2011-12-21 09:55 編輯

紀錄檔.zip (10.26 KB) 回復 15# tonycho33


     修改GBKEE之 紀錄檔.XLS

紀錄檔.zip (10.26 KB)

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
17#
發表於 2011-12-21 15:40 | 只看該作者
回復 16# register313
另一迴圈 For
  1. Sub Ex2()
  2.     Dim A As Range, i As Integer, R1 As Integer, Rng As Range
  3.     For Each A In Sheets("主檔").UsedRange
  4.       A.Value = Trim(A)
  5.     Next
  6.     Sheets("紀錄檔2").UsedRange.Offset(1).Clear
  7.     With Sheets("主檔")
  8.         For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row Step 3
  9.             Set Rng = .Range(.Cells(i, "D"), .Cells(i, "D").End(xlToRight)).Resize(3)
  10.             With Sheets("紀錄檔2")
  11.                 R1 = .Cells(Rows.Count, "a").End(xlUp).Offset(1).Row
  12.                 .Cells(R1, "A").Resize(Rng.Columns.Count) = Rng.Cells(1, -2)
  13.                 .Cells(R1, "B").Resize(Rng.Columns.Count) = Rng.Cells(1, -1)
  14.                 .Cells(R1, "C").Resize(Rng.Columns.Count, 3) = Application.Transpose(Rng)
  15.                 .Cells(R1, "G").Resize(Rng.Columns.Count) = Rng.Cells(1, 0)
  16.             End With
  17.         Next
  18.     End With
  19. End Sub
複製代碼

TOP

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