【マクロの成長記録:14日目】日付関数の練習
どーもKiyotomoです。
あっという間に日曜日が終わりますね。
また明日から1週間頑張りましょう。
さて、今日もマクロにチャレンジします。
14日目
今日の問題はこちら
文字列関数の練習
全く同じような事はさすがにないですが、
特定の条件のみ、違う事をさせるようなよくありますね。
今までは"IF"の関数を使って対処してました。
記載したコード
Sub 練習13()
Dim 都道府県 As Variant
Dim 所在地 As Variant
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 2) = Cells(i, 2) & "("
都道府県 = Left(Cells(i, 1), InStr(Cells(i, 1), "(") - 2)
所在地 = Left(Cells(i, 2), InStr(Cells(i, 2), "(") - 1)
If 都道府県 = 所在地 Then
Cells(i, 3) = Left(Cells(i, 1), InStr(Cells(i, 1), "(") - 1)
Else
Cells(i, 3) = Left(Cells(i, 1), InStr(Cells(i, 1), "(") - 1) & "(" & 所在地 & ")"
End If
Cells(i, 2) = Left(Cells(i, 2), InStr(Cells(i, 2), "(") - 1)
Next i
End Sub
なんとかこれでいけました。
一発では記載できずに、何度か違う答えを表示させながら、
微調整してコードを書いた感じになります。
今日は以上です。継続的な努力でちょっとずつ変わっていきましょう。
最後まで読んで頂きありがとうございましたー!
よろしければサポートセンターお願いいたします! 頂いたサポートはクリエイターとしての活動費として使わせて頂きます