有名俳句鑑賞ソフト

冗句俳句作成ソフトに続いて、今度はエクセルのお勉強ソフトを作りました。

有名俳句を200句集めて、俳句・作家・季節を表示するものです。

① 出来上がりの図です。 エクセルで作ってますが、エクセルのシートが見えないようになっております。

   

 

 ② まずエクセルシ-トの方の作り方を書きます。

・エクセルのシートに200句、作者、季節を入れます(ネットにいくらでも転がっております)。

・マクロで乱数に合わせて、一句のみを表示します。 作者・季節は3秒遅れで表示するのが、クイズ的でいいかな思っています。

・そのマクロは次のようなものです。 余りにも簡単で気抜けしますね。

———-

Option Explicit

Dim ran As Integer

Private Sub CommandButton1_Click()

 ran = WorksheetFunction.RandBetween(1, 200)

 Range(“F1”) = ran

 Cells(1, 7) = Cells(ran, 2)

 Cells(1, 8) = Cells(ran, 3)

 Cells(1, 9) = Cells(ran, 4)

 TextBox1.Value = Cells(1, 7).Value

 TextBox2.Value = “” TextBox3.Value = “”

 ’3秒間処理を中断する

 Application.Wait Now + TimeValue(“00:00:3”)

 TextBox2.Value = Cells(1, 8).Value

 TextBox3.Value = Cells(1, 9).Value

End Sub

———-

‘「終了ボタン」

Private Sub CommandButton2_Click()

 Dim book As Workbook

 For Each book In Workbooks book.Save

 Next  

 Application.Quit

End Sub

———-

‘sheet上の[X]では「終了ボタン」へ誘導

Private Sub

 UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

 If CloseMode = vbFormControlMenu Then MsgBox “[終了]ボタンを使用してください”

 Cancel = True End If

End Sub  

コメントはまだありません

コメントを残す

VBA別館
最終セルの番地を調べる

知っていてもすんなりcodeは出てきませんので、便利帳代わりに書いておきます。① データの最終行を知 …

VBA別館
メッセージボックスの使い方

VBAでプログラムを書いた後、プログラムを動かすとエラー続出なんてことは日常茶飯事です、僕は。そこで …

VBA別館
有名俳句集 ver1.1

一茶や芭蕉などの有名俳句をまずは200句学んでみましょう。スタートすると俳句が出てきて2秒後にその俳 …