投稿/コメントを表示します。

発展編1 フォローメールセミナー
発展編1 フォローメールセミナー　第5回

加藤さんの投稿

(投稿ID: 4951)

4日目を終えて予習で書いたコードです。

発展編のフォローアップを進めていると、基礎編及び基礎編のフォローアップで学んだことがすごく効いていて、発展編1はまさに基礎編の応用なのだと実感しております。
5日目のメールは追って確認させていただきます。今後も楽しみにしております。
Sub day4yoshu()
    Delete_Sheets
    Dim shFm As Worksheet
    Dim InFm As Long
    Dim InFmx As Long
    Dim st As String
    Dim shTo As Worksheet
    Set shFm = Worksheets("main")
    InFmx = Range("B65536").End(xlUp).Row
    For InFm = 2 To InFmx
        If shFm.Range("B" & InFm).Value <> shFm.Range("B" & InFm - 1).Value Then
            Debug.Print shFm.Range("B" & InFm).Value
            st = shFm.Range("B" & InFm).Value
            Sheets("main1").Copy After:=Sheets(2)
            Set shTo = ActiveSheet
            shTo.Name = st
        End If
    Next
End Sub

Sub Delete_Sheets()
    Dim sh As Worksheet
    Application.DisplayAlerts = False
    For Each sh In Worksheets
        If Left(sh.Name, 4) <> "main" Then
            sh.Delete
        End If
    Next
    Application.DisplayAlerts = True
End Sub

2020/12/22 08:51