標題: 每隔12列加1的程式 [打印本頁]

---

作者: myleoyes    時間: 2011-5-7 09:38     標題: 每隔12列加1的程式

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

---

作者: chin15    時間: 2011-5-7 11:20

Sub 年齡()
    zz = Application.InputBox("輸入年齡", "請輸入分析年齡", 20, Type:=1)
    If zz = 0 Or zz = "" Then End
    ' Range("C3:C1445") = ""
    Range("C3") = zz
    r = 3
    Do
        r = r + 12
        Cells(r, 3) = zz + 1
        zz = zz + 1
    Loop Until Cells(r, 1) = ""

End Sub

---

作者: GBKEE    時間: 2011-5-7 11:28

另一迴圈

1. Sub 年齡()
   
2.     ZZ = Application.InputBox("輸入年齡", "請輸入分析年齡", 20, Type:=1)
   
3.     If ZZ = 0 Or ZZ = "" Then End
   
4.     Range("C3:C1445").Clear
   
5.     For I = 3 To Cells(Rows.Count, "b").End(xlUp).Row Step 12
   
6.         With Cells(I, "C")
   
7.             .Value = ZZ
   
8.             .NumberFormatLocal = 0 & "歲"
   
9.         End With
   
10.         ZZ = ZZ + 1
    
11.     Next
    
12.     Range("C:C").EntireColumn.AutoFit
    
13. End Sub

複製代碼

---

作者: myleoyes    時間: 2011-5-7 21:39

回復 3# GBKEE
GBKEE前輩你好!
     　 良師!辛苦囉!謝謝再三!!
chin15 前輩!
       辛苦囉!謝謝再三!!

---

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