VBA COUNTA Userform

Question

VBA COUNTA Userform

Это то, что я сделал, и я не совсем уверен, что я рассмотрел все основы:

В разработке (с использованием postgresql):

sql_dump db_name > tmp / branch1.sql
git checkout branch2
dropdb db_name
createdb db_name
psql db_name & lt; tmp / branch2.sql # (из предыдущего коммутатора ветви)

Это намного быстрее, чем утилиты rake в базе данных с около 50 тыс. записей.

Для производства, поддерживайте основную ветвь как sacrosanct, и все миграции проверяются в, shema.rb правильно сливается. Пройдите стандартную процедуру обновления.

0

excel vba if-statement countif

задан Pᴇʜ 25 February 2019 в 09:10

2 ответа

Другие вопросы по тегам:

excel vba if-statement countif

Похожие вопросы:

score 0 · Answer 1

Option Explicit

Sub test()
    Debug.Print "Var 1 : "; CountRangeIf("not(A3="""")", Range("E3:H3"))

    Dim testCriteria As Boolean
    testCriteria = Not (Range("A3").Value = "")
    Debug.Print "Var 2 : "; CountRangeIf_Var2(testCriteria, Range("E3:H3"))
End Sub

Public Function CountRangeIf(IfCriteriaString As String, CountRange As Range) As Variant
    Dim resultCriteria As Boolean
    CountRangeIf = ""           ' Result = "" if Criteria is false
    resultCriteria = Evaluate(IfCriteriaString)
    With Application.WorksheetFunction
        If resultCriteria Then
            CountRangeIf = .CountA(CountRange)
        End If
    End With
End Function

Public Function CountRangeIf_Var2(IfCriteria As Boolean, CountRange As Range) As Variant
    CountRangeIf_Var2 = ""           ' Result = "" if Criteria is false
    With Application.WorksheetFunction
        If IfCriteria Then
            CountRangeIf_Var2 = .CountA(CountRange)
        End If
    End With
End Function

score 0 · Answer 2

Предполагая, что мы используем Sheet1, и предположим, что ваш Row # уже сохранен в переменной ThisRowNum

Следующее должно быть близко к тому, что вы просили

    If Trim(CStr(Sheets("Sheet1").Range("A" & ThisRowNum).Value)) = "" then
       xCtr = 0  ' Your formula used a null string - you can fix this
    else
       xCtr = WorksheetFunction.CountA(Sheets("Sheet1").Range("E" & ThisRowNum &":H" & ThisRowNum))
    endif

Переменная xCtr является результатом