発注していたDellのフレームレスディスプレイが届きました！

VBの勉強はわからない事をネットで調べたり、動画の教材を見ながらする事が多いので、画面が一つだととても不便です。

そこで、会社と同じように自宅もデュアルディスプレイにしました。

会社のディスプレよりも薄くて軽くて満足しています。

開発画面とエクセルシートをそれぞれに映して作業ができてとても快適です。

<演習問題：IF文練習>

Sub SampleA()

'------------処理①アンマッチサイン処理

Dim i As Integer
Dim j As Integer
Dim k As String
Dim ii As Integer

For i = 2 To Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
j = 0
k = Worksheets("Sheet1").Cells(i, 1).Value

    For ii = 2 To Worksheets("Sheet2").Cells(Rows.Count, 2).End(xlUp).Row
        If Worksheets("Sheet2").Cells(ii, 2).Value = k Then
        j = j + 1
        End If

    Next

    If j > 0 Then
        Worksheets("Sheet1").Cells(i, 3).Value = "0"
        Else
        Worksheets("Sheet1").Cells(i, 3).Value = "1"
    End If

Next

End Sub

'----------------処理②3桁2桁2桁に分割

Sub SampleB()

Dim i As Long
Dim 支社 As Range
Dim 営業 As Range
Dim オフィス As Range
Dim 読替後 As Range
Dim アンマッチサイン As Range

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

    Set 支社 = Cells(i, 4)
    Set 営業 = Cells(i, 5)
    Set オフィス = Cells(i, 6)
    Set アンマッチサイン = Cells(i, 3)
    Set 読替後 = Cells(i, 2)

    支社 = Mid(Cells(i, 1), 1, 3)
    営業 = Mid(Cells(i, 1), 4, 2)
    オフィス = Mid(Cells(i, 1), 6, 2)



'----------------処理②アンマッチサインtrueは読替、それ以外はそのまま


    If アンマッチサイン <> "" And 支社 <= 399 And 営業 <= 99 And オフィス = "99" Then
    読替後 = 支社 & 営業 & "00"

    ElseIf アンマッチサイン <> "" And 支社 = "187" And 営業 = "15" And オフィス = "90" Then
    読替後 = 支社 & 営業 & "00"

    ElseIf アンマッチサイン <> "" And 支社 = "310" And 営業 = "15" And オフィス = "90" Then
    読替後 = 支社 & 営業 & "00"

    ElseIf アンマッチサイン <> "" And 支社 >= 400 And 支社 <= 890 And 営業 = "00" And オフィス = "99" Then
    読替後 = 支社 & "00" & "00"

    ElseIf アンマッチサイン <> "" And 支社 >= 400 And 支社 <= 890 And 営業 >= 30 And 営業 <= 39 And オフィス = "00" Then
    読替後 = 支社 & "00" & "00"

    ElseIf アンマッチサイン <> "" And 支社 >= 400 And 支社 <= 890 And 営業 = "00" And オフィス = "67" Then
    読替後 = 支社 & "00" & "00"

    ElseIf アンマッチサイン <> "" And 支社 = "407" And 営業 = "02" And オフィス = "99" Then
    読替後 = "407" & "02" & "00"

    ElseIf アンマッチサイン <> "" And 支社 = "537" And 営業 = "02" And オフィス = "99" Then
    読替後 = "537" & "02" & "00"

    ElseIf アンマッチサイン <> "" And 支社 = "599" And 営業 = "01" And オフィス = "99" Then
    読替後 = "599" & "01" & "00"

    ElseIf アンマッチサイン <> "" And 支社 = "660" And 営業 = "01" And オフィス = "99" Then
    読替後 = "660" & "01" & "00"

    ElseIf アンマッチサイン <> "" And 支社 = "690" And 営業 = "05" And オフィス = "99" Then
    読替後 = "690" & "05" & "00"

    ElseIf アンマッチサイン <> "" And 支社 = "817" And 営業 = "01" And オフィス = "99" Then
    読替後 = "817" & "01" & "00"

    ElseIf アンマッチサイン <> "" And 支社 = "835" And 営業 = "01" And オフィス = "99" Then
    読替後 = "835" & "01" & "00"

    ElseIf アンマッチサイン <> "" And 支社 = "850" And 営業 = "01" And オフィス = "99" Then
    読替後 = "850" & "01" & "00"

    ElseIf アンマッチサイン <> "" And 支社 = "866" And 営業 = "04" And オフィス = "99" Then
    読替後 = "866" & "04" & "00"

    ElseIf アンマッチサイン <> "" And 支社 = "480" And 営業 = "00" And オフィス = "69" Then
    読替後 = "480" & "00" & "00"

    ElseIf アンマッチサイン <> "" And 支社 = "605" And 営業 = "00" And オフィス = "69" Then
    読替後 = "605" & "00" & "00"

    ElseIf アンマッチサイン <> "" And 支社 = "610" And 営業 = "00" And オフィス = "69" Then
    読替後 = "610" & "00" & "00"

    ElseIf アンマッチサイン <> "" And 支社 = "660" And 営業 = "01" And オフィス = "69" Then
    読替後 = "660" & "00" & "00"

    ElseIf アンマッチサイン <> "" And 支社 = "899" And 営業 = "92" And オフィス = "01" Then
    読替後 = "899" & "00" & "00"

    ElseIf アンマッチサイン <> "" And 支社 = "899" And 営業 = "82" And オフィス = "11" Then
    読替後 = "825" & "00" & "00"

    Else
    Cells(i, 2) = 支社 & 営業 & オフィス


    End If

Next

End Sub

Sub 連続実行()
    Call SampleA
    Call SampleB
End Sub

デュアルディスプレイにして効率UP