お題「#この1年の変化 」
コロナ禍ですが、仕事はテレワークもなく何も変わってません。
収入は減る一方です。
元気だして頑張るしかないです。
外食が少なくなりました。(そば・うどん・ラーメンくらいですかね)
飲みには今は行ってません。(若い時はよくいきましたが・・・・)
若い人気持ちはよくわかりますが、今は我慢です。
人が多いところも行かなくなりました。
最近ショックなのは、駅のショップがここ一か月で4店舗閉店しました。
コロナの影響だと思います。
早くもとの生活に戻りたいですね。
100%は無理かもしれないけれど・・・・・・
でも
笑顔で頑張りましょう!!
文字列内の1桁数値に0を付けなければいけないことがあったので
プログラミングしました。
忘れそうなので残しておきます。
しかも0を付ける数値は右から最初に見つかった1桁数値のみです。
VBAのソースは以下です。
結果=blk_cnv4("10ABC2X")
Function blk_cnv4(ByRef blk_x)
Dim work_s1 As String
Dim work_s2 As String
Dim work_s3 As String
Dim work_len As Integer
Dim str1(20) As String
Dim str_1_0(20) As String
Dim str2(20) As String
Dim str_nw(20) As String
work_len = Len(blk_x)
work_s3 = blk_x
work_s = blk_x
For i = 1 To work_len
str1(i) = Mid$(blk_x, i, 1)
str_nw(i) = Mid$(blk_x, i, 1)
Next i
For i = 1 To work_len
str2(i) = Mid$(blk_x, i, 1)
If IsNumeric(str2(i)) = False Then
str_1_0(i) = 1
Else
str_1_0(i) = 0
End If
Next i
Dim 文字W As String
Dim 数字W As String
Dim 数字W_CNT As Integer
文字W = ""
数字W = ""
数字W_CNT = 0
For i = work_len To 1 Step -1
If str_1_0(i) = 0 Then
For j = i To 1 Step -1
If str_1_0(j) = 1 Then
GoTo jump300
End If
数字W_CNT = 数字W_CNT + 1
Next j
Else
文字W = str2(i) & 文字W
End If
Next i
jump300:
If 数字W_CNT = 1 Then
Select Case Val(str2(j + 1))
Case 1
work_s2 = "01"
Case 2
work_s2 = "02"
Case 3
work_s2 = "03"
Case 4
work_s2 = "04"
Case 5
work_s2 = "05"
Case 6
work_s2 = "06"
Case 7
work_s2 = "07"
Case 8
work_s2 = "08"
Case 9
work_s2 = "09"
End Select
str_nw(j + 1) = work_s2
work_s1 = ""
For k = 1 To work_len
work_s1 = work_s1 + str_nw(k)
Next k
work_s = work_s1
End If
blk_cnv4 = work_s
End Function
数多くの文字列を手で修正は大変です。
プログラムは一瞬です。