​ワークシート

国語

​書写

「令和」(2.8Mb)

3年 「日」(3.5Mb)

社会

NIE

理科

体育

​単語カード

​カードリングに入れて学習します。

5年社会1(1.4M)

​PowerPoint 

マクロでランダム並び替えができます。

Sub 並び替える()

 
  Dim sld As Long
  Dim cnt As Long
  Dim i As Long
 
  cnt = ActivePresentation.Slides.Count
  If cnt < 2 Then Exit Sub
 
  ActiveWindow.ViewType = ppViewSlideSorter
  Randomize
 
  For i = 1 To cnt
    sld = Int((i * Rnd) + 1)
    ActivePresentation.Slides(sld).Select
    ActiveWindow.Selection.Cut
    ActivePresentation.Slides(cnt - 1).Select
    ActiveWindow.View.Paste
  Next i
 
End Sub

This site was designed with the
.com
website builder. Create your website today.
Start Now