有名俳句集 ver1.1

一茶や芭蕉などの有名俳句をまずは200句学んでみましょう。

スタートすると俳句が出てきて2秒後にその俳句の詠み人、季節が表示されます。

 

 

VBAは次のような原始的なものです。

・エクセルのシートに200句、作者、季節を入れます(ネットにいくらでも転がっております)。
・マクロで乱数に合わせて、一句のみを表示します。
  作者・季節は2秒遅れで表示するのが、クイズ的でいいかな思っています。
・殆どの作業をsheetでやってしまいますが、その指示はUserform上の次のVBAで出します。


————————-

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 = “”

 ’2秒間処理を中断する
 Application.Wait Now + TimeValue(“00:00:2”)
 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

 

以上です。

 

PC・HTML別館
PHPのためのXAMPP, WordPress導入

WordPress(つまりこのサイト)でもう少し自分流に変えたいなと思うことが有ります。 そういうこ …

PHP・VBA別館
PHP・VBA別館 目次

PHP・Excel VBA別館・最終セルの番地を調べる・メッセージボックスの使い方・有名俳句集 ve …

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

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