0

ここに画像の説明を入力

ここで私が使用するものの例を示します。

左側は、NAME BASE REVISEパッケージのバージョンを確認するために使用するパッチです。

VBAここのスクリプトをコードに変換できますか。私はそれについて勉強し、私の実際の仕事に統合します:

if (Patch name = Pack name) then   **** searching for same Name on patch column to reference for patch base and revise number    
       if (base(c column) > base(h column)) ***checknumber[cellbycell] 

           display "yes" in J cell

             or if (base(C column) = base(h column)) then

                    check if revise(D column) > revise(I column)

                      display "yes" in J cell
    else display No

ですから、サンプルコードを教えていただければ; 時間があれば、コードの各行が何を意味するのか説明してください。

4

3 に答える 3

1

このようなものが機能するはずです：

Option Explicit

Sub variousconditions()

Dim i As Integer, x As Integer
x = 0
For i = 2 To 10
    With Excel.ThisWorkbook.ActiveSheet
        If .Cells(i, 1) = .Cells(i, 7) Then '****searching for same Name on patch
            Select Case .Cells(i, 3) '***checknumber[cellbycell]
                    Case Is > .Cells(i, 8)
                            .Cells(i, 10) = "yes"
                    Case Is = .Cells(i, 8)
                            If .Cells(i, 4) > .Cells(i, 9) Then
                                .Cells(i, 10) = "yes"
                            End If
                End Select
        End If
    End With
Next i

End Sub

このコードなどを保存する必要がある場所がわかるので、Siddharthの参照を繰り返す必要があります。http：//msdn.microsoft.com/en-us/library/office/ee814737%28v=office.14%29 .aspx

于 2013-01-11T07:49:20.920 に答える
1

これにはvbaは必要ありません

=IF($A2=$G2,IF($C2>$H2,"Yes",IF($C2=$H2,IF($D2>$I2,"Yes","No"),"No")),"No")

それはJ列に入る

于 2013-01-11T07:22:42.123 に答える
1

VBA エディターで新しいモジュールに貼り付ける必要がある 2 つのドット表記のバージョン番号を比較する関数を次に示します。

Option Explicit

Public Function VersionCompare(CurrentVersion As Range, _
                               TargetVersion As Range)

    Dim result As Integer
    result = CompareDotStrings(CurrentVersion.Cells(1, 1).Value, _
                               TargetVersion.Cells(1, 1).Value)

    If result = 1 Then
        VersionCompare = True
    Else
        VersionCompare = False
    End If
End Function

Private Function CompareDotStrings(LeftValue As String, _
                                  RightValue As String) _
                                  As Integer

    Dim CompareLeft() As String, CompareRight() As String, CompareLength As Integer

    CompareLeft = Split(LeftValue, ".")
    CompareRight = Split(RightValue, ".")
    CompareLength = UBound(CompareLeft)
    If UBound(CompareRight) < CompareLength Then CompareLength = UBound(CompareRight)

    Dim ElementLeft As Integer, ElementRight As Integer, Comparison As Integer
    Dim ElementNumber As Integer

    For ElementNumber = 0 To CompareLength
        ElementLeft = CInt(CompareLeft(ElementNumber))
        ElementRight = CInt(CompareRight(ElementNumber))
        Comparison = ElementRight - ElementLeft
        If Comparison <> 0 Then
            CompareDotStrings = Sgn(Comparison)
            Exit Function
        End If
    Next ElementNumber
    CompareDotStrings = 0
End Function

これを使用=VersionCompare(H2, C2)すると、2 つのバージョン番号を比較するために使用でき、その他の必要なことはすべて (破線のバージョンを分割するなど)、ワークシートの数式で実行できます。

于 2013-01-11T16:29:25.027 に答える