2013年07月09日

回文を考えるときのツール

回文を考えるときのツールを、マクロ(VBA)で組んでみた。
内容は至極簡単で、マクロを初心者に教える教材としても良いのではないか。
A列(A1,A2,A3...)セルに、ひらがな/カタカナ/アルファベットで単語を入れてマクロを実行すると、B列に逆から読んだ文字列が表示されます。
----------
Sub Palindrome()

Dim uText As String
Dim pText As String

Dim uLen As Integer

Dim i As Integer

Range("A1").Select

Do Until ActiveCell.Value = ""

uText = ActiveCell.Value
uLen = Len(uText)

For i = uLen To 1 Step -1

pText = pText + Mid(uText, i, 1)

Next

ActiveCell.Offset(0, 1).Value = pText

pText = ""

ActiveCell.Offset(1, 0).Select

Loop

Range("A1").Select
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1

End Sub
この記事へのコメント
コメントを書く
お名前: [必須入力]

メールアドレス:

ホームページアドレス:

コメント: [必須入力]

この記事へのトラックバックURL
http://blog.seesaa.jp/tb/368722286
※言及リンクのないトラックバックは受信されません。

この記事へのトラックバック
過去ログ
×

この広告は1年以上新しい記事の投稿がないブログに表示されております。