Sub ki306a()
Sheets("Sheet1").Select
  For i = 2 To 20
     dat1 = Cells(i, 2).Value
    On Error Resume Next
     MsgBox "セル" & i & "B　→　" & dat1
     If Err = 13 Then
         MsgBox "実行時エラ−13"
     End If
     On Error GoTo 0
  Next
End Sub
Sub ki360b()
  For i = 2 To 20
     dat2 = Cells(i, 2).Formula
    MsgBox "セル" & i & "B　→　" & dat2
  Next
End Sub
Sub ki306c()
  For i = 2 To 20
     dat3 = Cells(i, 2).Text
     MsgBox "セル" & i & "B　→　" & dat3
  Next
End Sub