Memo/2004-07-16 のバックアップ差分(No.1)

バックアップ一覧
現在との差分を表示
ソースを表示
バックアップを表示
Memo/2004-07-16 へ行く。

追加された行はこの色です。
削除された行はこの色です。

#contents

*Excel 関連情報
**サンプルコード
***ユーザー定義関数のサンプル
 Option Explicit
 
 Sub Main()
     Dim strData As String
     Dim strConverted As String
     strData = "あ１いうえお"
     strConverted = Convert(strData)
     Debug.Print strConverted
 End Sub
 
 Function Convert(ByVal strSrc As String) As String
     Dim strResult As String
     Dim c As String
     Dim i As Integer
     For i = 1 To Len(strSrc)
         c = Mid(strSrc, i, 1)
         ' StrConv() で文字変換を行う。vbNarrow の場合は半角変換
         strResult = strResult & StrConv(c, vbNarrow) & " "
     Next
     Convert = strResult
 End Function

-はてな
--http://www.hatena.ne.jp/1089980844

#comment