12
返回列表 上一主題 發帖

請問：關於修改VBA語法

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
184  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2026-10-11 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
11# 跳轉到 »
發表於 2018-2-8 13:14 | 顯示全部帖子
回復 15# GBKEE
Dear 版主,
了解了，剛剛仔細看了VBA語法大概知道哪一段是在做甚麼動作了，感謝您的詳細解說！
Just do it.

TOP

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
184  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2026-10-11 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
12#
發表於 2018-2-8 13:29 | 顯示全部帖子
回復 16# jsc0518
Dear 版主您好，
我將VBA濃縮成下列說明，想跟您請教一下
1.在工作表"資料庫"B欄~I攔下若有歷史資料時，VBA可以COPY過去
2.在工作表"資料庫"B欄~I攔下若無歷史資料時，會發生錯誤



檔案
TT.rar (78.22 KB)

VBA 語法

Option Explicit
Sub Step1()
    Dim E As Range, Rng As Range
    With Sheets("vba")  'With 陳述式 在一個單一物件或一個使用者自訂型態上執行一系列的陳述式。
        '3********指定要複製的範圍*********************************
       Set Rng = .UsedRange   'Sheets("vba")上已使用的範圍為 "A:H"
    End With
    '4**************指定的範圍複製到指定位置 **********************
    With Sheets("資料庫").Range("b1").End(xlDown).Offset(1)
        'Range.End 屬性 傳回 Range 物件，該物件代表包含來源範圍之區域結尾處的儲存格。
        '等於按 END+向上鍵、END+向下鍵、END+向左鍵或 END+向右鍵
   
        'Range.Offset 屬性 會傳回 Range 物件，代表從指定之範圍位移的範圍
        Rng.Copy .Cells
    End With
End Sub
Just do it.

TOP

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
184  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2026-10-11 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
13#
發表於 2018-2-8 17:08 | 顯示全部帖子
回復 19# GBKEE
Dear 版主,
感謝回復，可以用了，感恩！
Just do it.

TOP

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
184  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2026-10-11 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
14#
發表於 2018-2-12 09:59 | 顯示全部帖子
回復 19# GBKEE
Dear 版主,
我運用了您所教導的語法，有發生下圖，請問要更改哪一語法呢？
謝謝您!


Noname.jpg


Option Explicit
Sub Step1()
    Dim E As Range, Rng As Range
    With Sheets("vba")  'With 陳述式 在一個單一物件或一個使用者自訂型態上執行一系列的陳述式。
        '3********指定要複製的範圍*********************************
       Set Rng = .UsedRange   'Sheets("vba")上已使用的範圍為 "A:H"
    End With
    '4**************指定的範圍複製到指定位置 **********************
    With Sheets("資料庫").Range("b" & Rows.Count).End(xlUp)
        If .Cells = "" Then    '第一列
            Rng.Copy .Cells
        Else
            Rng.Copy .Offset(1)
        End If
    End With
End Sub
Just do it.

TOP

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
184  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2026-10-11 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
15#
發表於 2018-2-12 12:55 | 顯示全部帖子
回復 22# GBKEE
Dear 版主,
我再試試看您所提供的方法
感恩！
Just do it.

TOP

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
184  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2026-10-11 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
16#
發表於 2018-2-12 14:19 | 顯示全部帖子
[版主管理留言]
  • GBKEE(2018/2/12 16:24): 附檔看看

回復 22# GBKEE
Dear 版主,
我使用您的VBA做修改"空白欄位可以自動複製與上一筆資料相同"
我把VBA改成B欄時，卻無動作(空白欄位無法自動複製與上一筆資料相同)，是否哪一段語法未修訂？
Thanks!

Sub Step6()
'空白欄位可以自動複製與上一筆資料相同-B
With ActiveSheet.UsedRange.Columns("B")
        If .Cells(1).End(xlDown).End(xlDown).Row <> Rows.Count Then  '判斷有空白的儲存格  !!!!
            .SpecialCells(xlCellTypeBlanks).Cells = "=R[-1]C"                        '沒有空白的儲存格 .SpecialCells(xlCellTypeBlanks) 程式會錯誤
            .Value = .Value
        End If
   End With
End Sub
Just do it.

TOP

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
184  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2026-10-11 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
17#
發表於 2018-2-12 16:39 | 顯示全部帖子
回復 22# GBKEE
檔案如下
Book1.rar (11.12 KB)
Just do it.

TOP

        靜思自在 : 對父母要知恩，感恩、報恩。
12
返回列表 上一主題