2012-06-21から1日間の記事一覧

2012-06-21

Sub 逆にする()

知識

Sub 逆にする()Dim myStr As String Dim strmy As String Dim i As IntegerFor s = 1 To 500myStr = ""If Range("G" & s).Value = "" Then Exit Subi = Len(Range("G" & s).Value) + 1 While i > 1 i = i - 1 strmy = Mid(Range("G" & s).Value, i, 1) Selec…

2012-06-21

Sub 逆にする()

知識

Sub 逆にする() Dim myStr As String Dim strmy As String Dim i As Integer For s = 1 To 500 myStr = "" If Range("G" & s).Value = "" Then Exit Sub i = Len(Range("G" & s).Value) + 1 While i > 1 i = i - 1 strmy = Mid(Range("G" & s).Value, i, 1) …