返回列表 上一主題 發帖

儲存格程式該如何陣列循環

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 »
發表於 2013-3-11 11:29 | 顯示全部帖子
回復 1# yueh0720
  1. k1 = ActiveSheet.Range("A1").CurrentRegion.Rows.Count


  4. 簡易的解法..
  5. 另附上 若P有數值，則C-N 以淡藍色顯示


  8. For ap = 1 To k1
  9.     If Cells(ap, "p") <> "" Then
  10.         For ap1 = 3 To 14
  11.         Cells(ap, ap1) = Cells(ap, ap1 + 13)
  12.         
  13.             Cells(ap, ap1).Select
  14.             With Selection.Interior
  15.                 .Pattern = xlSolid
  16.                 .PatternColorIndex = xlAutomatic
  17.                 .ThemeColor = xlThemeColorAccent5
  18.                 .TintAndShade = 0.599993896298105
  19.                 .PatternTintAndShade = 0
  20.             End With

  22.         Next
  23.     End If

  25. Next
複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
2#
發表於 2013-3-11 16:34 | 顯示全部帖子
回復  mark15jill


儲存格C3會出現" ActiveSheet.Paste"
顏色部分會出現錯誤，將此3項忽略則OK
.Th ...
yueh0720 發表於 2013-3-11 11:46




以下這段可選擇要不要+...
                Cells(ap, ap1).Select

            With Selection.Interior

                .Pattern = xlSolid

                .PatternColorIndex = xlAutomatic

                .ThemeColor = xlThemeColorAccent5

                .TintAndShade = 0.599993896298105

                .PatternTintAndShade = 0

            End With



        Next

    End If

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題