Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13192 / 76734 ←次へ | 前へ→

【69049】Re:列ごとに同じ処理
発言  UO3  - 11/5/12(木) 15:13 -

引用なし
パスワード
   ▼T.F さん:

Sub 価値のない遊び()
  Dim i As Long
  
  With Worksheets("Sheet1")
  
    On Error Resume Next
    .Parent.Names("myColor").Delete
    On Error GoTo 0

    For i = 1 To 50
      .Parent.Names.Add Name:="myColor", RefersToR1C1:= _
              "=GET.CELL(63,!RC" & i & ")+NOW( )*0"
      .Range("AY1:AY10").Formula = "=myColor"
      .Cells(11, i).Value = WorksheetFunction.CountIf(.Range("AY1:AY10"), 3)
      .Columns("AY").ClearContents
      .Parent.Names("myColor").Delete
    Next
    
  End With
  
End Sub

1 hits

【69041】列ごとに同じ処理 T.F 11/5/11(水) 22:55 質問
【69043】Re:列ごとに同じ処理 ponpon 11/5/11(水) 23:40 発言
【69049】Re:列ごとに同じ処理 UO3 11/5/12(木) 15:13 発言
【69050】Re:列ごとに同じ処理 UO3 11/5/12(木) 15:16 発言

13192 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free