Sub ASCコード例1()
Dim ta As Integer
Dim mydata As String
mydata = "ABC"
    ms2$ = "を検索しました。" & Chr(10) & _
           "この結果を｢検索結果｣シ−トへコピ−しますか？"
      ta = MsgBox("｢" & mydata & "｣ " & ms2$, 3, "検索結果")
 
      If ta = 2 Then
         Exit Sub
      ElseIf ta = 7 Then
         Call Macro2
      Else
         Call Macro1
      End If
End Sub

Sub ASCコード例2()
    Cells(1, 2) = "<A HREF=" & Chr(34) & "http://kuiryo.web.fc2.com/photo/" _
    & Chr(34) & ">写真展示室</A>"
End Sub
----------------------------------------------------------------
Sub ASCコード例2a()
    Cells(1, 2) = "<A HREF=""http://kuiryo.web.fc2.com/photo/"">写真展示室</A>"
End Sub
----------------------------------------------------------------
Sub ASC参考例()
    kodo = "5401"
    sizyo = "t"
    Cells(1, 2) = "=RSS|'" & kodo & "." & sizyo & "'!高値"
 
    Cells(1, 4) = ""
End Sub

Sub ASCコード例2_1()
    Cells(1, 7).Formula = "=IF(A1=" ",0,(B1-A1)/A1)" '構文エラー
End Sub
----------------------------------------------------------------
Sub ASCコード例2_2()
    Cells(2, 7).Formula = "=IF(A2=' ',0,(B2-A21)/A2)"  'オブジェクト定義のエラー
End Sub
----------------------------------------------------------------
Sub ASCコード例2_3()
    Cells(3, 7).Formula = "=IF(A3="" "",0,(B3-A3)/A3)"
End Sub
----------------------------------------------------------------
Sub ASCコード例2_4()
    Cells(4, 7).Formula = "=IF(A4=" & Chr(34) & " " & Chr(34) & ",0,(B4-A4)/A4)"
End Sub
----------------------------------------------------------------
Sub ASCコード例2_5()
    Cells(5, 7).Formula = "=IF(A5=" & Chr(34) & Chr(32) & Chr(34) & ",0,(B5-A5)/A5)"
End Sub

Sub ASCコード例3()
Range("B1").Select
    ActiveCell.Replace What:=Chr(10), Replacement:="", _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Rows("1:1").EntireRow.AutoFit
Range("Ａ1").Select
End Sub
----------------------------------------------------------
Sub ASCコード例3a()
Dim mydat As Range
    Set mydat = Cells(1, 2)
    MsgBox "改行削除前データ→" & mydat
 
mydat.Replace What:=Chr(10), Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False
 
    MsgBox "改行削除後データ→" & mydat
 
End Sub
----------------------------------------------------------
Sub ASC3確認文字記入()
    Cells(1, 2).Value = "abcdefg" & Chr(10) & "123456"
End Sub

Sub 改行削除()
    Cells(1, 2).Value = Replace(Cells(1, 2), vbLf, "")
End Sub

Sub ASCコード例4()
Dim Myabc As String
Dim cno As Integer
    Myabc = "H"
    cno = Asc(UCase(Myabc)) - 64
 
MsgBox "アルファベットの「" & Myabc & "」列は数字では【" & cno & "】列です。"

Sub ASCコード例5()
Dim sss As String
sss = Chr(&H20) & Chr(&H20) & Chr(&H20) & Chr(&H20) & Chr(&H20) & Chr(13)
    Cells(1, 2) = "A0001B0002C0003" & sss
End Sub

Sub ASCコード例6()
Dim msg As String
Dim moz As String
Dim moz1 As String
Dim ascdat As String
Dim i As Integer
 
    msg = "ASCコードをチェックするセルを指定して下さい"
    moz = Application.InputBox(msg, "セルの指定", Type:=8)
    i = 1: ascdat = ""
    Do
        moz1 = Mid(moz, i, 1)
        If moz1 = "" Then
           Exit Do
        End If
        ascdat = ascdat & moz1 & "[&H" & Hex(Asc(moz1)) & "]  "
        i = i + 1
    Loop
   MsgBox ascdat
End Sub

Sub ASCコード例6a()
・・・・　下記以外は同上です　・・・・・・・・
 
 ascdat = ascdat & moz1 & "[&H" & Hex(AscW(moz1)) & "]  "
 

Sub ASCコード例7()
Dim moz As String
 
moz = InputBox("ASCコ−ドを取得する1文字を入力してください。", "文字入力")
    If moz = "" Then
       Exit Sub
    End If
    MsgBox "文字｢" & moz & "」のASCコ−ドは" & Chr$(10) & Chr$(10) _
         & "  →→  &H" & Hex(Asc(moz))
End Sub

Sub ASCコード例8()
Dim j As Integer
j = 1
    Do
        moz1 = Mid(Cells(1, 2), j, 1)
            If Asc(moz1) > 48 And Asc(moz1) < 57 Then
                MsgBox "銘柄コード→" & Mid(Cells(1, 2), j)
                Exit Do
            End If
        j = j + 1
    Loop
End Sub
-----------------------------------------------------
Sub ASCコード例8a()
Dim j As Integer
    For j = Len(Cells(1, 2)) To 1 Step -1
        moz1 = Mid(Cells(1, 2), j, 1)
        If IsNumeric(moz1) = False Then
            Exit For
        End If
    Next
     MsgBox "銘柄コード→" & Mid(Cells(1, 2), j)
End Sub