英語で南広岡、今峰浜田中、飛内に住んでいます

 ここは開発備忘録のカテゴリに属する記事です。ソフトの開発過程のメモを残しておくだけの場所なので、ここにあるコードを使うとバグってしまうかもしれません。充分にご注意くださいな。
 

英語で南広岡、今峰浜田中、飛内に住んでいます

 英語例文ソフトを開発中です。とりあえず大雑把にコードを書いて住所に関連する英文を出力してみました。まずまず上手くいってます。

 I live in Minamihirooka.
 私は南広岡(みなみひろおか)に住んでいます。

 I'm living in Minehamatanaka.
 私は今峰浜田中(みねはまたなか)に住んでいます。

 He lives in Tobinai.
 彼は飛内(とびない)に住んでいます。

 She lives in Shibushitanoura.
 彼女は志布志田之浦(しぶしたのうら)に住んでいます。

 "Where do you live?" "I live in Mizusawa." 
 「あなたはどこに住んでるのですか」「水沢(みずさわ)です」

 All sorts of people live in Ashituki.
 葦附(あしつき)には色々な人が住んでいる。

 I live on the outskirts of Uragoshi.
 私は浦越(うらごし)の郊外に住んでいる。

 He's always been living in Yotsugoya.
 彼はずっと四ツ小屋(よつごや)に住んでいる。
 

住所関係の英文を出力するマクロ

 あくまで試験版マクロですので、絶対に使わないでくださいね。どうなっても知りませんよ。完成したらちゃんとしたコードを載せるので、それまでお待ちくださいな。

 Sub WordReplace()

 Dim rd As Long, lct As Long
 Dim pkanji As String, pkana As String, proma As String

 Randomize

 'テーブル「localplace」の行数を取得します
 lct = Worksheets("adress").ListObjects("localplace").ListRows.Count

 For i = 1 To 8

 rd = FRANDBETWEEN(1, lct)

 'リストから漢字、かな、ローマ字表記を取得します
 pkanji = Worksheets("adress").Range("localplace").Cells(rd, 1)
 pkana = Worksheets("adress").Range("localplace").Cells(rd, 2)
 proma = Worksheets("adress").Range("localplace").Cells(rd, 3)

 '文中の特定箇所を無作為な住所で置き換えます
 With Cells(i, 1)
 .Replace what:="\eplocal", replacement:=proma
 .Replace what:="\jplocal", replacement:=pkanji & "(" & pkana & ")"
 End With

 Next i

 End Sub

 

東ヶ崎圭雄さん

 架空名簿のデータコレクションです。
 エクセルの練習用にお持ち帰りくださいな。

・ 東ヶ崎圭雄(とうがさき たまお) 東京都墨田区関 4-47-8
・ 八郷欣一朗(はちごう きんいちろう) 東京都目黒区久保 8-33-7
・ 定舎祐昭(じょうしゃ まさあき) 東京都墨田区温水 5-59-3
・ 富国敬夫(とみくに よしお) 東京都世田谷区北浦和 5-13-4
・ 請田理助(うけた りすけ) 東京都荒川区華川小豆畑 5-24-9

スポンサードリンク
末尾大型広告
末尾大型広告

コメントをどうぞ

メールアドレスが公開されることはありません。

日本語が含まれない投稿は無視されますのでご注意ください。(スパム対策)