ilk okuma form çalışması, userform üzerinden

[mersilen]

Merhabalar,

Excel üzerinden ilk okuma çalışması tasarlayabilir miyiz?Çocuklara okuma çalışması yaparken bunu eğlenceli hale getirmek için bilgisayarı televizyona bağlayıp kelimeleri okutmak istiyorum.Bu konu ile ilgili çalışma bulamadım.

Eğer güzel bir tasarım olursa öğretmenlerin ve velilerin işine yarayabilir.

 

[mersilen]

Tekrar merhaba

Yukarıdaki dosyada bulunan aşağıdaki döngüyü nasıl düzenlemem lazım.Command butona basınca
textbox daki kelimenin bir altındakini yazdırması lazım.

Private Sub CommandButton1_Click()
Dim i As Range

If TextBox1.Text = "" Then TextBox1.Text = Cells(3, 1).Value
Else: For Each i In Range(Cells(3, 1), Cells(Range("A65536").End(xlUp).Row, 1)): If TextBox1.Text = i.Value Then TextBox1.Text = Cells(i.Rows + 1, 1).Value

Next
End If