通過每一列循環IF聲明

Question

我下載了調查結果並將它們放入Excel中。

我可以將此宏應用於「A」列。

Private Sub CommandButton1_Click() 

counter = 2 'moves output 

For Each n In [A7:A50] 'loops through cell in specified range 

    If n < 400 Then 
     Sheets("Output").Cells(counter, "B") = 0 'Output to other sheet, = points awarded 
    ElseIf n > 400 Then 
     Sheets("Output").Cells(counter, "B") = 3 'Output to other seet, = points awarded 
    End If 

    counter = counter + 1 'moves counter up 1 

Next 

End Sub 

「B-R」全部具有與「A」列相同的條件。相反，只有開關「A」和輸出列輸入驗證碼

Sheets("Output").Cells(counter, "B") = 3 'Output to other seet, = points awarded 

一遍又一遍的，是可以循環我的櫃檯和我的if語句。

我的腳本查看「結果工作表」中的列/行A7：A50，在「輸出工作表」的B列中生成點。

我一直無法讓它看到列B（結果工作表），然後輸出到列C（輸出工作表），然後查看列C（結果工作表），然後輸出到列D（輸出工作表）。

Answer 1

也許這將幫助你：

Private Sub CommandButton1_Click() 

Dim rng As Range 
Dim i As Integer 

Set rng = Range("A:R") ' define your range 

For i = 1 To rng.Columns.Count ' loop through the columns 

    counter = 2 'moves output 

    For Each n In Range(Cells(7, i), Cells(50, i)) 'loops through cell in specified column i 

    If n < 400 Then 
     Sheets("Output").Cells(counter, i + 1) = 0 'Output to other sheet, = points awarded 
    ElseIf n > 400 Then 
     Sheets("Output").Cells(counter, i + 1) = 3 'Output to other seet, = points awarded 


    End If 

    counter = counter + 1 'moves counter up 1 

    Next 
Next i 

End Sub 

我添加了一個循環，通過一個範圍內的每一列雲：R和應用宏對每個列的。我在if語句取代了「B」，所以結果將被應用到期望的柱：

評估列「A」 - >更新「B」列，

評價「B」列 - >更新列「C」...

這有幫助嗎？

Answer 2

編輯答案，希望能夠解決您的問題。我看到了幾件事情。

首先，我認爲您需要在結果進入之前激活每個工作表。其次，在確定希望輸出的單元格後，使用.value。第三個Cells（）函數使用整數，所以「B」應該是2.

嘗試使用下面的代碼，看看它是否適合你。

---

Private Sub CommandButton1_Click() 
    Dim r as Long 
    Dim c as Long 
    Dim lastrow as Integer 
    Dim lastcol as Integer 
    Dim cpath as String 

    cpath = Worksheets("SHEETNAME") 'less typing later on 
    cpath2 = Worksheets("Output") 
    lastrow = WorksheetFunction.CountA(Range("A:A")) 
    lstcolm = WorksheetFunction.CountA(cpath.Rows(1).EntireRow) 
    cpath.Cells(2,1).Activate 'assuming you have a header row 


    For c = 1 to lastcol 
    For r = 2 to lastrow 

If cpath.cells(r,c).value < 400 Then 

cpath2.Activate 
    cpath2.Cells(r, 2).value = 0 
ElseIf n > 400 Then 

cpath2.Activate 
    cpath2.Cells(r, 2).value = 3 
End If 

cpath.activate 

next r 
next c 

End Sub