発注していた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