有名俳句集 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

 

以上です。

 

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

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

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

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

VBA別館
どのサイズまで印刷できるかな?

少し見栄えの良い写真を、大きくプリントすることになりました。前回その辺のところは書きました。 今回は …