帖子: 20
主題: 5
精華: 0
積分: 63
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2007
閱讀權限: 20
註冊時間: 2014-11-21
最後登錄: 2023-2-9

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2015-12-23 15:23 | 只看該作者

[發問] 垂直欄位項目轉至水平列顯示

本帖最後由 kasa 於 2015-12-23 15:25 編輯

請教各位大大,
如何讓附件各編號key in之Item可於第二列水平展開所對應之Item顯示"1"
例如:於編號3之B欄key 入"D1"後,而同步可讓"F5"儲存格顯示"1"

Book2.rar (7.07 KB)

樓主熱帖

kasa

中學生 Rank: 2

帖子: 20
主題: 5
精華: 0
積分: 63
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2007
閱讀權限: 20
註冊時間: 2014-11-21
最後登錄: 2023-2-9

18^#

發表於 2015-12-28 15:53 | 只看該作者

本帖最後由 kasa 於 2015-12-28 15:55 編輯

再請教若需"同時"去"貼入"資料於B/C欄之"屬性"與"細目"欄位中,
其他項目仍皆依"屬性"來比對出第二列之欄位並在所屬同列填入"1",但只有屬性C需依"細目"之C1/C2比對出第二列之欄位並在所屬同列填入"1"
如果仍要寫在Worksheet_Change內,是否有可能達成? 我爬文暫找不到可以同時存在兩種不同target的方法
再請前輩幫忙指導,感謝~

Book2.zip (8.08 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

17^#

發表於 2015-12-26 13:17 | 只看該作者

回復 16# kasa

[B3].cells(1,1)
[B3].offset(0,0)
都是[B3]本尊

TOP

kasa

中學生 Rank: 2

帖子: 20
主題: 5
精華: 0
積分: 63
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2007
閱讀權限: 20
註冊時間: 2014-11-21
最後登錄: 2023-2-9

16^#

發表於 2015-12-26 09:34 | 只看該作者

抱歉再提問以下,感謝~
以 B3 為例，xR(1, 2) 等同 xR.Cells(1, 2)，亦即為其〔右一格〕 C3
=>以 B3 為例，若改成xR(1, 1) 等同 xR.Cells(1, 1)，亦即仍為B3,我這樣理解是對的嗎?

TOP

URCHEN

中學生 Rank: 2

帖子: 4
主題: 1
精華: 0
積分: 50
點名: 0
作業系統: windows7
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2015-8-13
最後登錄: 2020-6-26

15^#

發表於 2015-12-25 21:25 | 只看該作者

感謝准堤大的解說，我也看懂了~

TOP

千暉尋

中學生 Rank: 2

帖子: 36
主題: 7
精華: 0
積分: 77
點名: 0
作業系統: WIN7
軟體版本: MICROSOFT
閱讀權限: 20
註冊時間: 2015-6-7
最後登錄: 2024-9-22

論壇榮譽勳章論壇贊助勳章

14^#

發表於 2015-12-25 18:04 | 只看該作者

回復 10# kasa
謝謝大大的提問 ,我也對這些語句似懂非懂,現在有解答了.

TOP

kasa

中學生 Rank: 2

帖子: 20
主題: 5
精華: 0
積分: 63
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2007
閱讀權限: 20
註冊時間: 2014-11-21
最後登錄: 2023-2-9

13^#

發表於 2015-12-25 12:45 | 只看該作者

不好意思,我找到方法了,感謝前賢的大方指導,豁然開朗多了~~~~~

Set rng2 = [AH1:BQ1]
M = Application.Match(xR, rng2, 0)

TOP

kasa

中學生 Rank: 2

帖子: 20
主題: 5
精華: 0
積分: 63
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2007
閱讀權限: 20
註冊時間: 2014-11-21
最後登錄: 2023-2-9

12^#

發表於 2015-12-25 11:44 | 只看該作者

太謝謝了,清楚很多了

M = Application.Match(xR, [2:2], 0)　'找出Item在第２列的位置
再請問,如果只要單純找出Item在G2到M2的位置,用以下寫法卻失敗,該如何修正才對? 謝謝.
M = Application.Match(xR, Range("G2:M2"), 0)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

11^#

發表於 2015-12-25 10:03 | 只看該作者

本帖最後由准提部林於 2015-12-25 18:50 編輯

回復 10# kasa

1)在未特別寫出定義M變數屬性,是預設定義為integer嗎?　
＿因MATCH會產生〔整數〕及找不到時〔#N/A]，所以，M不可事先定義(預設為Variant)，否則程式會錯誤而中斷！　
　其後才有　If IsNumeric(M) Then　作判斷！　

(2)請您指導以下寫這3行的真實對應含義　
On Error GoTo 999 '發生錯誤時，執行標記９９９那行程式
＿因下一行為〔關閉事件觸發〕，若在〔主處理段〕發生錯誤中斷，程式即跑不到〔恢復事件觸發〕那一行，
　當〔取消〕程式的〔中斷〕提示後，所有的〔事件觸發〕即失效無法運作！　
　（註：因主處理段有對工作表做 Change 的動作，為免〔連鎖反應〕，應先關閉。）　
　Application.EnableEvents = False　'關閉事件觸發
　～～主處理段～～
999: Application.EnableEvents = True '恢復事件觸發　

(3)xR(1, 2)==>這個指的是?
＿For Each xR In .Cells
　若將資料貼在[B3:B6]，則 xR 依次為 B3.B4.B5.B6，
　以 B3 為例，xR(1, 2) 等同 xR.Cells(1, 2)，亦即為其〔右一格〕 C3，
　xR(1, 2).Resize(1, 99).ClearContents　即以C3為始，向右取９９格清除　

TOP

kasa

中學生 Rank: 2

帖子: 20
主題: 5
精華: 0
積分: 63
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2007
閱讀權限: 20
註冊時間: 2014-11-21
最後登錄: 2023-2-9

10^#

發表於 2015-12-24 23:09 | 只看該作者

針對"准提部林"前輩寫的程式,請幫忙指點以下,謝謝~
(1)在未特別寫出定義M變數屬性,是預設定義為integer嗎?
(2)請您指導以下寫這3行的真實對應含義(爬過文,但我認為我似懂非懂,所以想搞懂在何種狀況下,可同樣運用此寫法)
On Error GoTo 999  '發生錯誤時，執行標記９９９那行程式
Application.EnableEvents = False  '關閉事件觸發
999: Application.EnableEvents = True  '恢復事件觸發

(3)xR(1, 2)==>這個指的是? 我只會推論這寫法是以第一列第二行之儲存格為基準位置,然後有變動之所有儲存格為xR的話,這代表實際有變動值儲存格之位置
或者是因為上面有先寫:For Each xR In .Cells, 所以xR(1, 2)是指以第一列二行為基準位置,然後固定第二行視xR在第幾列位置來代表實際有變動值儲存格之位置

TOP