帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-2-12 22:12 | 只看該作者

製值之後的下面儲存格皆為""

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

Leov46.rar (56.95 KB)

樓主熱帖

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

2^#

發表於 2011-2-14 10:30 | 只看該作者

回復 1# myleoyes

   試試下述程式碼~ 應該可以符合你的需求
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   Select Case Target.Column    'Target.Column 為你選擇的欄位,因J欄位為第10欄,因此CASE 僅寫10
   Case 10
      For x = 3 To Target.Row - 1 'Target.Row:為你選擇的J欄位第幾列
            J = J + 1
            Cells(x, 7) = 11 * J '每增一列增加11
      Next
      Target.Offset(0, -3) = Target(1, 1) 'Target.Offset(0, -3):為你選擇J欄位儲存格往左移3欄的位置帶入Target(1, 1)(你選擇J欄位儲存格)
      For c = Target.Row + 1 To Target.End(xlDown).Row  '清除計算為你選擇J欄位儲存格數目
            Cells(c, 7) = ""
      Next
   End Select

End Sub

學習才能提升自己

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

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

3^#

發表於 2011-2-14 21:19 | 只看該作者

回復 2# hugh0620
hugh0620 前輩你好!
　　　前輩謝謝!!果然厲害喔!這段程式
      Cells(x, 7) = 11 * J '每增一列增加11
      小第不解為何每增一列要用11來加呢?
      還有以範例來說32列是最後一列
      所以當按J32時因為後面是""所以程式
      無法停止  Next....
      另一方面是當J欄的儲存格=""時是
      不能執行程式前輩忘記考慮到
      原程式有說( If Target(1) <> "" Then nn )
      不好意思請再辛苦修改看看,謝謝再三!!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 2011-2-14 22:35 | 只看該作者

回復 3# myleoyes

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target(1), Range("J3:J152")) Is Nothing And Target(1) <> "" Then
Target.Offset(, -3) = Target.Value
Range(Target(1).Offset(1, -3), Target(1).Offset(1, -3).End(xlDown)) = ""
End If
End Sub

複製代碼

學海無涯_不恥下問

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

5^#

發表於 2011-2-15 08:32 | 只看該作者

本帖最後由 hugh0620 於 2011-2-15 09:38 編輯

回復 3# myleoyes

      Q. Cells(x, 7) = 11 * J '每增一列增加11,小第不解為何每增一列要用11來加呢?
      A. 因為你給的圖不就是每列都加11,除非你需要的是其他的東西??
      Q. 還有以範例來說32列是最後一列,所以當按J32時因為後面是""所以程式,無法停止  Next....
         Select Case Target.Column
         Case 10
         For x = 3 To Target.Row - 1
            J = J + 1
               Cells(x, 7) = 11 * J
         Next
      Target.Offset(0, -3) = Target(1, 1)
      Range(Target(1).Offset(1, -3), Target(1).Offset(1, -3).End(xlDown)) = ""  '<----新增這行,偷用Hsieh大大的東西^.^
      '現在知道可以怎麼用~ 多學會一招~...
      End Select
      End Sub
   Q. 另一方面是當J欄的儲存格=""時,是不能執行程式前輩忘記考慮到,原程式有說( If Target(1) <> "" Then nn )
         這個問題我看不懂耶~  不知道你J=""時, 不能執行的結果是怎麼樣??

學習才能提升自己

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

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

6^#

發表於 2011-2-15 21:11 | 只看該作者

回復 4# Hsieh
hsieh前輩你好!
偶像前輩!謝謝!!程式精簡有力贊!贊!
辛苦囉!謝謝再三!!

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

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

7^#

發表於 2011-2-15 21:13 | 只看該作者

回復 5# hugh0620
hugh0620 前輩你好!
　　　前輩謝謝!!G欄的數字是隨意下拉的結果
      造成你的誤解可見前輩觀察入微實在是真殆勢!
      當J欄的儲存格=""時,執行程式是無意義的
      如偶像前輩程式裡的這一段相同的意思
      If..... And Target(1) <> "" Then
      是小弟不會表達不好意思好像猜燈謎喔!殆勢!
      辛苦囉!謝謝再三!!

TOP