Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

15519 / 76734

←次へ　｜　前へ→


	【66692】Re:英単語　整序問題

kanabun - 10/9/26(日) 12:53 -


	引用なし

	パスワード

▼星の子　ロビンさん：

>英単語のテスト作りで　A列にword と入力したら B列にordw のように問題が作成されるように

文字のシャッフルですか？

Worksheetのセルの値が変更されるとそのワークシートに Changeイベント
というのが発生します。それを使った方法です。

シート下のシート見出し（シートタブ）を右クリック、[コードの表示]
出てきたコードウィンドウに以下を貼りつけてコンパイル後、
A列に "word" など単語を入力してみてください。

'----------------------------------------シートモジュール
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
　　With Target
　　　　If .Count > 1 Then Exit Sub
　　　　If .Column = 1 Then
　　　　　　Dim L As Long
　　　　　　Dim ss As String
　　　　　　L = Len(.Value)
　　　　　　If L = 0 Then Exit Sub
　　　　　　
　　　　　　Dim i As Long, n As Long, t As String
　　　　　　ReDim s(1 To L) As String
　　　　　　ss = .Value
　　　　　　For i = 1 To L
　　　　　　　　s(i) = Mid$(ss, i, 1)
　　　　　　Next
　　　　　　Randomize Timer
　　　　　　For i = 1 To L
　　　　　　　　n = Int(L * Rnd() + 1)
　　　　　　　　t = s(n)
　　　　　　　　s(n) = s(i)
　　　　　　　　s(i) = t
　　　　　　Next
　　　　　　Application.EnableEvents = False
　　　　　　　.Offset(, 1).Value = Join(s, "")
　　　　　　Application.EnableEvents = True
　　　　End If
　　End With
End Sub

2 hits

▼

【66690】英単語　整序問題 星の子　ロビン 10/9/26(日) 10:57