[發問] 記錄每日不同的數據

　暱稱: duck_simon

帖子: 120
主題: 34
精華: 0
積分: 174
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-11-20

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2024-10-17 08:05 | 只看該作者

[發問] 記錄每日不同的數據

請教高手老師:
欲將每日不同數據..按每一空白列依序往下記錄..
請教控制項VB 如何書寫? 附件內有說明!

紀錄.rar (10.64 KB)

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

2^#

發表於 2024-10-17 10:15 | 只看該作者

回復 1# duck_simon

謝謝前輩發表此主題與範例,後學建議方案如下,請前輩參考

Option Explicit
Sub TEST()
Dim Brr, xR As Range
Brr = [B17:K17]
Set xR = Cells(Rows.Count, "B").End(3)(2).Resize(, 10)
xR = Brr
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

　暱稱: duck_simon

帖子: 120
主題: 34
精華: 0
積分: 174
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-11-20

3^#

發表於 2024-10-17 12:10 | 只看該作者

回復 2# Andy2483

感謝大大高人..好用謝謝

　暱稱: duck_simon

帖子: 120
主題: 34
精華: 0
積分: 174
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-11-20

4^#

發表於 2024-10-17 21:04 | 只看該作者

回復 2# Andy2483

呼叫大大: 糟了.我一直出現: 不正確的名稱變成出狀況了

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

5^#

發表於 2024-10-18 07:17 | 只看該作者

回復 4# duck_simon

請前輩上傳出錯的檔案

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

　暱稱: duck_simon

帖子: 120
主題: 34
精華: 0
積分: 174
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-11-20

6^#

發表於 2024-10-18 08:23 | 只看該作者

請問老師:  是不是名稱要改? 可否將VB寫入檔案壓縮? 老朽不才..這VB實在不懂..

上傳附件中已經有開啟使用巨集..
又請問每一工作表是否限制三個ACTIVEX?
如改寫Active x 要如何寫 ?  謝謝您!

紀錄.rar (17.34 KB)

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

7^#

發表於 2024-10-18 09:04 | 只看該作者

回復 6# duck_simon

請前輩試試看

紀錄_20241018_1.zip (20.06 KB)

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

　暱稱: duck_simon

帖子: 120
主題: 34
精華: 0
積分: 174
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-11-20

8^#

發表於 2024-10-18 10:26 | 只看該作者

回復 7# Andy2483

感謝大師您! 沒問題了..可能是(方便我區別)我去改第一行..我實在不懂的..謝謝您