帖子: 13
主題: 3
精華: 0
積分: 30
點名: 0
作業系統: MaC OS 10.10.5
軟體版本: office 2011
閱讀權限: 10
性別: 男
來自: Taiwan
註冊時間: 2010-8-26
最後登錄: 2017-7-12

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2010-8-31 00:51 | 只看該作者

[發問] 如何將Sheet1不連續欄位儲存到Sheet2

各位前輩您好

小弟在Excel進階功能的部份是新手,
參考之前前輩的說明和敘述,
寫出這個sample,
這個有兩個sheet,
我要將sheet1的資料在按save鍵時複製到sheet2當做資料庫,
但是不知道如何將姓名,學號和電話如何在sheet2完整呈現,
不然都在sheet2只有第一筆有姓名,學號和電話,
第二筆之後在姓名,學號和電話是空的.
可以麻煩前輩幫忙解決小弟的問題嗎?
非常感謝.

sample.rar (8.7 KB)

樓主熱帖

Steven

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

2^#

發表於 2010-9-1 00:18 | 只看該作者

回復 1# steven_lkk

我剛剛測試過看不出有你說的情形呢, (執行結果如下圖)
不知你說的與我的理解是否不同?

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 96
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2010-9-1 00:28 | 只看該作者

Sub Ex()
With Sheet1
For Each a In .Range(.[A4], .[A65536].End(xlUp))
ar = Array(a, .[A2], .[C2], .[E2], a.Offset(, 1), a.Offset(, 1), a.Offset(, 2), a.Offset(, 3), a.Offset(, 4))
Sheet2.[A65536].End(xlUp).Offset(1, 0).Resize(, 8) = ar
Next
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

steven_lkk

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 30
點名: 0
作業系統: MaC OS 10.10.5
軟體版本: office 2011
閱讀權限: 10
性別: 男
來自: Taiwan
註冊時間: 2010-8-26
最後登錄: 2017-7-12

4^#

發表於 2010-9-6 22:36 | 只看該作者

各位前輩您好

感謝各位的幫忙,
Hsieh前輩解決了小弟的問題,
小弟研讀Hsieh前輩的語法後,
但實在不懂下面的語法,
ar = Array(a, .[A2], .[C2], .[E2], a.Offset(, 1), a.Offset(, 1), a.Offset(, 2), a.Offset(, 3), a.Offset(, 4))
Sheet2.[A65536].End(xlUp).Offset(1, 0).Resize(, 8) = ar
盼Hsieh前輩可以再教導小弟一番.
非常感謝.

Steven

TOP

steven_lkk

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 30
點名: 0
作業系統: MaC OS 10.10.5
軟體版本: office 2011
閱讀權限: 10
性別: 男
來自: Taiwan
註冊時間: 2010-8-26
最後登錄: 2017-7-12

5^#

發表於 2010-9-6 22:36 | 只看該作者

本帖最後由 steven_lkk 於 2010-9-6 22:43 編輯

各位前輩您好

如果防止使用者編輯sheet2,
我之前是用鎖儲存格的方式,
但是發現會造成無法複製.
前輩可以再次教導小弟一番.
非常感謝.

Steven

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 96
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2010-9-6 23:04 | 只看該作者

回復 5# steven_lkk

ar = Array(a, .[A2], .[C2], .[E2], a.Offset(, 1), a.Offset(, 1), a.Offset(, 2), a.Offset(, 3), a.Offset(, 4)) '指定ar陣列變數內容
Sheet2.[A65536].End(xlUp).Offset(1, 0).Resize(, 8) = ar '將ar陣列寫入Sheet2的A欄最下面資料的下一個空格擴展成1列8欄範圍
至於保護問題
程式開始加入
Sheet2.Unprotect "password" 'password是你的工作表保護密碼
程式結束加入
Sheet2.Protect "password"

學海無涯_不恥下問

TOP

steven_lkk

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 30
點名: 0
作業系統: MaC OS 10.10.5
軟體版本: office 2011
閱讀權限: 10
性別: 男
來自: Taiwan
註冊時間: 2010-8-26
最後登錄: 2017-7-12

7^#

發表於 2010-9-7 00:03 | 只看該作者

前輩您好
請問一下,ar陣列變數內容是否像這個圖一樣的對應位置呢?

那最第一個的a, (ar = Array(a, .....)代表什麼呢?
為什麼又會多一個a.Offset(, 1)呢?
非常感謝您的幫忙.

Steven

TOP

steven_lkk

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 30
點名: 0
作業系統: MaC OS 10.10.5
軟體版本: office 2011
閱讀權限: 10
性別: 男
來自: Taiwan
註冊時間: 2010-8-26
最後登錄: 2017-7-12

8^#

發表於 2010-9-8 23:17 | 只看該作者

前輩您好

小弟依照上個sample當範本來練習製作一個報價單,
結果按了save後在List裏出現幾個問題,
1.日期不是我原來的內容
2.我只想現有的兩筆資料複製到list裏,結果list出現重覆多餘的資料

我該怎麼修正呢??

另外有一個問題,
如果單號的組成是英文字母+日期+兩位數的流水號,
希望能自動產生單號,
不知該如何寫這段呢?
盼前輩賜教.
非常感謝

sample2.rar (12.67 KB)

Steven

TOP

steven_lkk

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 30
點名: 0
作業系統: MaC OS 10.10.5
軟體版本: office 2011
閱讀權限: 10
性別: 男
來自: Taiwan
註冊時間: 2010-8-26
最後登錄: 2017-7-12

9^#

發表於 2010-9-13 23:21 | 只看該作者

各位前輩您好~

小弟失試著嘗試修正問題,但是幾日下來未修的正果,
盼各位前輩賜教.

非常感謝

Steven

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

10^#

發表於 2010-9-14 00:16 | 只看該作者

Private Sub CommandButton1_Click()
With Sheet3
For Each a In .Range(.[B13], .[B26].End(xlUp))
i = i + 1
ar = Array(.[f7].Text, "s" & .[f7].Text & "-" & Format(i, "00"), .[C6], .[C7], .[C8], .[C9], .[C10], .[F8], a, a.Offset(, 1), a.Offset(, 2), a.Offset(, 3), a.Offset(, 4))
Sheet8.[A65536].End(xlUp).Offset(1, 0).Resize(, 13) = ar
Next
End With
End Sub

複製代碼

另外報價單b欄因有空白字符，所以.[B26].End(xlUp)會判斷錯誤，選中b15:b26,按一下delete.

TOP