標題: 參照Y欄找到X欄空白的位置 [打印本頁]

---

作者: myleoyes    時間: 2010-8-14 19:55     標題: 參照Y欄找到X欄空白的位置

各位前輩你們好!
         前輩!問題如附檔案說明
         請知道的前輩,不吝賜教謝謝再三!!

---

作者: kimbal    時間: 2010-8-14 21:28

本帖最後由 kimbal 於 2010-8-14 21:37 編輯

.Cells(Rows.Count, 1 + Month(Date) * 3).End(xlUp).Offset(1, 0).Select

這個是算術題吧

---

作者: myleoyes    時間: 2010-8-15 08:23

回復 2# kimbal
kimbal前輩你好!
       前輩!謝謝!這樣子找到是Y9的位置
       .Cells(Rows.Count, 1 + Month(Date) * 3).End(xlUp).Offset(1, 0).Select
       若改成
       .Cells(Rows.Count, 1 + Month(Date) * 3).End(xlUp).Offset(1, -1).Select
       才是找到X9的位置是正確,但再按鈕滑鼠應該是在X10的位置,因為Y10是" "
       結果在原位,不好意思小弟的問題沒有說清楚還要連續下去
       若改成
       .Cells(Rows.Count, 3 + (Month(Date) - 1) * 3).End(xlUp)(2, 1).Offset(2, 0).Select
       也不對....所以程式有誤,請不吝賜教謝謝再三!!

---

作者: oobird    時間: 2010-8-15 15:52

Sub Ex()
     With Sheet1
     c = (Month(Date)) * 3 + 1
      .Cells(.Cells(65536, c).End(3).Row + 1, c - 1).Select
      End With
End Sub

---

作者: GBKEE    時間: 2010-8-15 17:09

回復 3# myleoyes

1. Sub Ex()
   
2.      Dim R%, C%
   
3.      With Sheet1
   
4.         C = Month(Date) * 3
   
5.         R = IIf(.Cells(Rows.Count, C).End(3).Row > .Cells(Rows.Count, C + 1).End(3).Row, .Cells(Rows.Count, C).End(3).Row, .Cells(Rows.Count, C + 1).End(3).Row)
   
6.         .Cells(R + 1, C).Select
   
7.       End With
   
8. End Sub

複製代碼

---

作者: myleoyes    時間: 2010-8-15 20:07

回復 5# GBKEE
oobird前輩你好!
      前輩!哇!好久不見!!謝謝!
      達人出手果然不同凡響謝謝再三!!

---

作者: myleoyes    時間: 2010-8-15 20:08

回復 6# myleoyes
GBKEE前輩你好!
　　　良師!謝謝!程式有誤喔!
      就是在X9的位置正確
      但再按鈕滑鼠應該是
      在X10的位置,因為Y10是" "
      結果在原位,請參考看看
      謝謝再三!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)