中学生のためのExcel VBA

4-1 点検用学級名簿の作成(3)番号と名前を取り出す

JUGEMテーマ:Office VBA

 

基準のセルからセルを選択する
Offse(a,b) 基準のセルからa行、b列移動 a,bはマイナスでもよい。

  • 2019.04.10 Wednesday
  • 15:27

中学生のためのExcel VBA

4-1 点検用学級名簿の作成(3)番号と名前を取り出す

 

繰り返し処理2
Do Until  A
 B
Loop

ActiveCell:現在のセル位置を取得する

基準のセルからセルを選択する
Offse

変数に代入
r = r + 1

複数をまとめて記述
With A
 A.
End With
 

JUGEMテーマ:Office VBA

  • 2019.04.10 Wednesday
  • 11:32

中学生のためのExcel VBA

4-1 点検用学級名簿の作成(3)番号と名前を取り出す

 

' 名簿作成
    r = 4
    Range("a5").Select
        Do Until Worksheets("moto").Cells(r, 9).Value = ""
           With ActiveCell
            If Worksheets("moto").Cells(r, 6).Value = _
            Cells(2, 4) And _
            Worksheets("moto").Cells(r, 7).Value = _
            Cells(2, 6) Then
            
            .Value = Worksheets("moto").Cells(r, 8).Value
            .Offset(0, 1).Value = Worksheets("moto").Cells(r, 9).Value
            
            .Offset(1, 0).Select
            End If
            r = r + 1
           End With
        Loop

JUGEMテーマ:Office VBA

  • 2019.04.09 Tuesday
  • 22:56

中学生のためのExcel VBA

4-1 点検用学級名簿の作成(2)罫線や文字を消す

JUGEMテーマ:Office VBA

 

Private Sub Label2_Click()
' 罫線や文字を消す
    Range(Cells(5, 1), Cells(44, "p")).Clear
End Sub

「'」シングルコーテーション:vbaコードのコメント
Clear:クリア関係のメソッド(命令) 罫線と文字のクリア
 

  • 2019.04.09 Tuesday
  • 16:31

中学生のためのExcel VBA

4-1 点検用学級名簿の作成(1)準備(復習)

JUGEMテーマ:Office VBA

 

新しいワークシートに名簿の大枠と名簿作成用の「2 ここをクリックする」のボタンを作成する。

  • 2019.04.09 Tuesday
  • 00:02

中学生のためのExcel VBA

4-1 点検用学級名簿の作成(1)準備(復習)

JUGEMテーマ:Office VBA

 

ワークシートを新しく作成してそこに目次に行けるようにボタンを作成する。、目次に新しいラベルを作り、新しいワークシートに行けるラベルを作成する。

  • 2019.04.07 Sunday
  • 20:58

中学生のためのExcel VBA

3-7 両親の名前から、保護者を記述する(2)命令文の説明

JUGEMテーマ:Office VBA

 

Sub 保護者記録()
For g = 4 To gyou
    If Cells(g, "m") = "*" Or Cells(g, "m") = "" Or Cells(g, "m") = "*" Then
        Cells(g, "l").Value = Cells(g, "n").Value
    Else
        Cells(g, "l").Value = Cells(g, "m").Value
  End If
Next g
End Sub

Private Sub CommandButton11_Click()
    Call hani
    Call 保護者記録
    Call セル選択
End Sub

「"」・・・・引用符、クォーテーションマーク
「*」…アスタリスク、スター
理論演算子
Or :または
If 条件 Then
  処理
Else
  処理
End If
 他の:Else
 

  • 2019.04.06 Saturday
  • 20:53

中学生のためのExcel VBA

3-7 両親の名前から、保護者を記述する(1)ボタンの作成

JUGEMテーマ:Office VBA

 

片親がいて、保護者が父親でない場合があります。そのとき母親が保護者にまります。今までの復習です。どのように考えればよいか考えてみましょう。
ここでは、片親でいないところは空白または「*」で表します。

Sub 保護者記録()
For g = 4 To gyou
    If Cells(g, "m") = "*" Or Cells(g, "m") = "" Or Cells(g, "m") = "*" Then
        Cells(g, "l").Value = Cells(g, "n").Value
    Else
        Cells(g, "l").Value = Cells(g, "m").Value
End If
Next g
End Sub

Private Sub CommandButton11_Click()
    Call hani
    Call 保護者記録
    Call セル選択
End Sub
 

  • 2019.04.02 Tuesday
  • 21:49

中学生のためのExcel VBA

3-6 漢字の名前から平仮で名を求める(4)命令文の説明

JUGEMテーマ:Office VBA

 

Sub ふりがな()
Dim furigana As String
 For g = 4 To gyou
  If Cells(g, 10).Value = "" Then
   furigana = Application.GetPhonetic(Cells(g, 9))
   Cells(g, 10).Value = StrConv(furigana, vbHiragana)
  End If
 Next g
End Sub

値が空白:Value = ""
クオーテーションマーク:"

条件によって、処理を変える(「あ」だったら、処理を行いなさい。「あ」でなかったら終わりなさい。
If あ then
 処理
End If

  • 2019.04.01 Monday
  • 22:29

中学生のためのExcel VBA

3-6 漢字の名前から平仮で名を求める(3)命令文の変更

JUGEMテーマ:Office VBA

 

Sub ふりがな()
Dim furigana As String
For g = 4 To gyou
If Cells(g, 10).Value = "" Then
furigana = Application.GetPhonetic(Cells(g, 9))
Cells(g, 10).Value = StrConv(furigana, vbHiragana)
End If
Next g
End Sub
 

  • 2019.03.31 Sunday
  • 18:41