帖子: 9
主題: 3
精華: 0
積分: 62
點名: 0
作業系統: Window 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 臺北
註冊時間: 2018-10-25
最後登錄: 2023-9-8

2019 豬年全勤獎章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2020-3-27 17:56 | 只看該作者

[發問] 跨工作頁查找某欄位的值

各位版大好

遇到一個問題和寫法請各先進指導 !! 先感謝大家~~

問題：第二個工作頁的 G46 = 第一個工作頁G56欄位 (因為『欄』是固定的，但『列』要用查找的，就是G欄的倒數三列；而且實際工作頁有很多)，再麻煩大家幫忙!  謝謝

以下是自己研究的，但都找不到我要的欄位
Public Sub Sum()

      For k = 7 To 31

         Sheets("訂單明細 -4月").Cells(500, k).End(xlUp).Offset(3) = Sheets("訂單明細 -3月").Cells(500, k).End(xlUp).Offset(2).Value
         Sheets("訂單明細 -4月").Cells(500, k).End(xlUp).Offset(2) = Sheets("訂單明細 -3月").Cells(500, k).End(xlUp).Offset(1).Value
         Sheets("訂單明細 -4月").Cells(500, k).End(xlUp).Offset(1) = Sheets("訂單明細 -3月").Cells(500, k).End(xlUp).Value

      Next

End Sub

生產計劃.rar (48.3 KB)

樓主熱帖

VBA 新手進化中

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

2^#

發表於 2020-3-28 09:14 | 只看該作者

本帖最後由 n7822123 於 2020-3-28 09:19 編輯

回復 1# JT1221

你知道End(xlup)的意思嗎???  End是用來找 "有值" 的儲存格

你"訂單明細 -4月"裡面 46,47,48列本身是沒有值的，

但是程式填完之後，就變成有值了，再用End就會抓到不同列!

不會有人同時用End用法然後又填值，因為你要很清楚現在"程式"已經把值填到哪一格，

依你的邏輯，修改你的寫法如下(請先把 "訂單明細 -4月" G46,G47,G48的公式刪除)

Sub EX1()
Sheets("訂單明細 -4月").Activate
With Sheets("訂單明細 -3月")
  For C = 7 To 31
Cells(500, C).End(xlUp).Offset(3) = .Cells(500, C).End(xlUp).Offset(-2)
Cells(500, C).End(xlUp).Offset(1) = .Cells(500, C).End(xlUp).Offset(-1)
Cells(500, C).End(xlUp).Offset(1) = .Cells(500, C).End(xlUp)
  Next
End With
End Sub

這樣寫程式別人大概也很難懂，因為不會有人邊用End邊填值.......

如果把上面3行程式對調結果會大不同，提供一個比較"正常"的寫法如下

Sub EX2()
'找尋F攔 "庫存=已排生產-客戶訂單" 這列
R3 = ['訂單明細 -3月'!F500].End(xlUp).Row
R4 = ['訂單明細 -4月'!F500].End(xlUp).Row
Sheets("訂單明細 -4月").Activate
With Sheets("訂單明細 -3月")
  For C = 7 To 31
Cells(R4 + 3, C) = .Cells(R3 + 3, C)
Cells(R4 + 4, C) = .Cells(R3 + 4, C)
Cells(R4 + 5, C) = .Cells(R3 + 5, C)
  Next
End With
End Sub

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

JT1221

中學生 Rank: 2

帖子: 9
主題: 3
精華: 0
積分: 62
點名: 0
作業系統: Window 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 臺北
註冊時間: 2018-10-25
最後登錄: 2023-9-8

2019 豬年全勤獎章

3^#

發表於 2020-4-1 10:21 | 只看該作者

回復 2# n7822123

感謝N大的回覆 ! 已經可以用使用，謝謝

End(xlUp) 的寫法我大概知道，但因為我原本寫法在逐步執行的時候是看不到現在做到哪裡，所以一直卡關。
原來的寫法是依自己表格的需求，在網路上查找相關的寫法，就變得很奇怪，而且一直抓不到我要的資料。

再次感謝幫忙 !! 〈（＿　＿）〉

VBA 新手進化中

TOP

JT1221

中學生 Rank: 2

帖子: 9
主題: 3
精華: 0
積分: 62
點名: 0
作業系統: Window 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 臺北
註冊時間: 2018-10-25
最後登錄: 2023-9-8

2019 豬年全勤獎章

4^#

發表於 2020-4-1 10:30 | 只看該作者

回復 2# n7822123

另外請教一下!

R3 = ['訂單明細 -3月'!F500].End(xlUp).Row 中，括弧這個用法的意思是在『訂單明細-3月 F500 』這個位置的意思嗎? ['訂單明細 -3月'!F500]
這個用法哪裡有範例或寫法嗎? 網路上查不到，都是用sheets + cells 或者 Range去指定位置。

VBA 新手進化中

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

5^#

發表於 2020-4-1 11:56 | 只看該作者

回復 4# JT1221

這是簡寫

R3 = ['訂單明細 -3月'!F500].End(xlUp).Row

等同於

R3=sheets("訂單明細 -3月").range("F500").End(xlUp).Row

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP