請問如何設定紀錄檔 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問如何設定紀錄檔

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

請問如何設定紀錄檔

中學生 Rank: 2

帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

11^# 跳轉到 »

發表於 2011-12-19 15:37 | 只看該作者

加入後，出現資料型態不符錯誤代碼：13

Tony

　頭銜: 麻辣路人甲

大學生 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

中學生 Rank: 2

帖子: 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

　頭銜: 麻辣路人甲

大學生 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)

中學生 Rank: 2

帖子: 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

　頭銜: 麻辣路人甲

大學生 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)

超級版主 Rank: 8 Rank: 8

帖子: 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

Sub Ex2()
Dim A As Range, i As Integer, R1 As Integer, Rng As Range
For Each A In Sheets("主檔").UsedRange
A.Value = Trim(A)
Next
Sheets("紀錄檔2").UsedRange.Offset(1).Clear
With Sheets("主檔")
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row Step 3
Set Rng = .Range(.Cells(i, "D"), .Cells(i, "D").End(xlToRight)).Resize(3)
With Sheets("紀錄檔2")
R1 = .Cells(Rows.Count, "a").End(xlUp).Offset(1).Row
.Cells(R1, "A").Resize(Rng.Columns.Count) = Rng.Cells(1, -2)
.Cells(R1, "B").Resize(Rng.Columns.Count) = Rng.Cells(1, -1)
.Cells(R1, "C").Resize(Rng.Columns.Count, 3) = Application.Transpose(Rng)
.Cells(R1, "G").Resize(Rng.Columns.Count) = Rng.Cells(1, 0)
End With
Next
End With
End Sub

複製代碼

靜思自在 : 是非當教育，讚美作警惕。

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